請試試是否可適用
Sub aa()
Dim mRng As Range
Dim mRng2 As Range
Dim mRow As Integer
Dim mCol As Integer
Dim i%
If TypeName(Selection) = "Range" Then
Set mRng = Selection
MsgBox "你選取的儲存格 :" & mRng.Address
i = 1
For Each mRng2 In mRng
mRow = mRng2.Row
mCol = mRng2.Column
MsgBox "第 " & i & " " & "個儲存格位置" & ":" & mRng2.Address & ":" & "列號 :" & ":" & mRow & " " & "欄號 :" & " " & mCol
i = i + 1
Next
Else
MsgBox "沒有選擇儲存格"
End If
Set mRng = Nothing
Set mRng2 = Nothing
End Sub作者: chin15 時間: 2011-6-12 08:38
Dim i%就是Dim i As Integer的簡寫
一些常用的代表符號如下
Integer 的型態宣告字元是百分比符號 %
Long 的型態宣告字元為 &
Double 的型態宣告字元是數字符號 #
Single 的型態宣告字元為 !
String 的型態宣告字元為 $作者: Happkkevin 時間: 2011-6-29 19:20