選擇有背景顏色的單元格
Function RangeSelect(sReg as Range)
Dim Nx As Range
Dim Job As Range
For Each Nx In sReg
Nx.Select
If ExecuteExcel4Macro("GET.CELL(63)") <>0 Then
If Job Is Nothing Then
Set Job = Nx
Else
Set Job = Union(Job, Nx)
End If
End If
Next
Job.Select
End Sub
獲取OFFICE版本
Sub Excel_Ver()
Dim X, Y As String
X = Application.Version
select case X
case 8#
Y = "97"
case 9#
Y = "2000"
case 11#
Y = "2003"
end select
MsgBox Y, , "Excel版本"
End Sub