標題: [發問] Worksheet_SelectionChange的問題 [打印本頁]

---

作者: yen956    時間: 2014-5-25 08:39     標題: Worksheet_SelectionChange的問題

下列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    時間: 2014-5-25 16:46

回復 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    時間: 2014-5-26 04:33

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

---

作者: Hsieh    時間: 2014-5-26 15:03

回復 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    時間: 2014-5-26 19:08

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)