判斷 office 版本
office97: 8.0
office2000: 9.0
officexp(2002): 10.0
office2003: 11.0
office2007: 12.0
office2010 : 14.0
office2013: 15.0
msgboxthisworkbook.calculationversion 獲取乙個數字，該數字指示上次對工作簿進行完全重新計算的 excel的版本。
最右邊四位是計算引擎的次版本號，其它位（左邊）是microsoft office excel的主版本。
例子 114210
11 是 excel 11, i.e. excel2003
92512
9 是 excel 9
0 沒有進行過計算是 0!!!
excel 97: 8
excel xp:10
fileformat例子:
subxlfileversion()
dim typ asstring
select caseactiveworkbook.fileformat
case-4143: typ = "excel 2000 et plus"
case 16:typ = "excel 2.1"
case 29:typ = "excel 3"
case 33:typ = "sheet excel 4"
case 35:typ = "workbook excel 4"
case 39:typ = "excel 5"
case 43:typ = "excel 97/2000& 5/95"
caseelse: typ = "unknown"
end select
msgbox "file format: "& typ & " !",64
end sub
方法二：
subexcel_ver()
dim x, y as string
select case x
case 8#
y = "97"
case 9#
y = "2000"
case 11#
y = "2003"
end select
msgbox x
msgbox y, , "excel版本"
endsub
public sub技巧1_001()
dim myversion as string
case "8.0"
myversion = "97"
case "9.0"
myversion = "2000"
case "10.0"
myversion = "2002"
case "11.0"
myversion = "2003"
case else
myversion = "版本未知"
end select
msgbox "excel 版本是: " &myversion
end sub
本程式僅適用於excel 2003(11.0)，如果當前版本不是2003則退出
subxlfileversion()'獲取版本號
dim typ asstring
select caseactiveworkbook.fileformat
case -4143: typ = "excel 2000 et plus"
case 16: typ = "excel 2.1"
case 29: typ = "excel 3"
case 33: typ = "sheet excel 4"
case 35: typ = "workbook excel 4"
case 39: typ = "excel 5"
case 43: typ = "excel 97/2000&5/95"
case else: typ = "unknown"
end select
msgbox "file format: "& typ & " !",64
end sub
版本號簡述
版本號簡介 版本號一般分為major 主版本號 minor 次版本號 revision incremental 修正版本號 一般格式為major.minor.revison 如何界定軟體什麼時候該用什麼樣的版本號呢？1 專案初版本時 版本號可以為 0.1 或 0.1.0,也可以為 1.0 或 1.0...
比較版本號
題目 比較兩個版本號 version1 和 version2。如果 version1 version2 返回 1，如果 version1 version2 返回 1，除此之外返回 0。你可以假設版本字串非空，並且只包含數字和 字元。字元不代表小數點，而是用於分隔數字序列。例如，2.5 不是 兩個半 ...
版本號排序
需求 對 4.3.17 4.3.16 4.3.9 排序 分析，版本號雖然都是數字，但是不能按照字元的順序排列，因為公升序的話，4.3.16 會排在 4.3.9 的前面，但實際上應該排在後面，所以我們需要做乙個轉化，就是將這些數字轉成乙個可以排序的東西，再做排序就沒有問題了。我這裡是將他們的值換算成了...