標題: 合拼儲存格顯示當天日期 [打印本頁]

---

作者: hong912    時間: 2013-11-26 19:10     標題: 合拼儲存格顯示當天日期

請教各前輩
a1b1c1是合拼儲存格,  而小弟想用滑鼠單擊該合拼儲存格, 該儲存格便能顯示當天年月日如2013年11月26日, 而每當用滑鼠單擊時都會變更為當天日期,
小弟試行編寫, 但不成功, 故求助前輩們, 以下是小弟所寫的錯誤程式, 希望協助, 感恩..

Private Sub Worksheet_SelectionChange(ByVal T As Range)
ElseIf T.Address = "$a$1:$c$1" Then
If Len(T(1) & T(3)) = 0 Then T = Date Else T = ""
End If
End Sub

---

作者: Kubi    時間: 2013-11-26 20:37

回復 1# hong912

可在程序內加入 MsgBox T.Address
如此即可測得 T.Address 是 "$A$1:$C$1" ， 並非 "$a$1:$c$1" 。

---

作者: GBKEE    時間: 2013-11-27 14:17

回復 1# hong912
Address 傳回的英文字母是大寫

---

作者: ML089    時間: 2013-11-27 21:27

合併儲存格只有第一格會受值，所以判斷第一值就可

Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Address = "$A$1:$C$1" And T(1) = "" Then T = Date Else T = ""
End Sub

---

作者: hong912    時間: 2013-11-27 23:15

謝謝樓上各樓主解答, 問題已解決, 衷心感謝..

---

作者: rc_chc    時間: 2013-12-3 22:58

不太明白如何可以另用滑鼠單擊該合拼儲存格就會執行程式, 請指教, 謝謝

---

作者: hong912    時間: 2013-12-4 07:28

回復 6# rc_chc

把程式碼貼於工作表, 把工作表a1:c1合併, 試試用滑鼠單擊選擇該合併儲存格

Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Address = "$A$1:$C$1" And T(1) = "" Then T = Date Else T = ""
End Sub

---

作者: ML089    時間: 2013-12-4 20:16

回復 6# rc_chc

[attach]16961[/attach]

---

作者: rc_chc    時間: 2013-12-5 00:39

感謝 hong912, ML089 熱心指教, 謝謝

---

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