- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
2#
發表於 2011-6-12 07:02
| 只看該作者
你好：
請試試是否可適用
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 |
|
