[發問] Worksheet_SelectionChange的問題

yen956

下列VBA

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     MsgBox Target.Address
   
3. End Sub

複製代碼

當游標從 B2 移到 D4 時, 會呈現 $D$4 的訊息,
請問諸位大大, 如果要讓它呈現 $B$2 的訊息,
VBA 要如何改? 感恩!!

GBKEE

回復 1# yen956
只要是當游標從B2移到,其他任一儲存格時, 會呈現B2的訊息,
是這樣嗎?

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Static t As Range
   
4.     If Not t Is Nothing Then
   
5.         If t.Address(0, 0) = "B2" Then MsgBox [B2]
   
6.     End If
   
7.     Set t = Target
   
8. End Sub

複製代碼

yen956

回復 2# GBKEE
謝謝回覆:
抱歉沒說清楚, 我希望:
當游標從 B2 移到 D4 時, 會呈現 $B$2 的訊息,
當游標從 D4 移到 C5 時, 會呈現 $D$4 的訊息,
即, 會出現游標移動的前一格的位置訊息

Hsieh

回復 3# yen956

1. Public BeforeCell As Range
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. If BeforeCell Is Nothing Then Set BeforeCell = ActiveCell
   
4. If BeforeCell.Address <> Target.Address Then MsgBox BeforeCell.Address & Chr(10) & BeforeCell(1)
   
5. Set BeforeCell = Target(1)
   
6. End Sub

複製代碼

yen956

回復 4# Hsieh
感謝超版的回覆,
很合需求, 謝謝!!