合拼儲存格顯示當天日期

hong912

請教各前輩
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

回復 1# hong912

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

GBKEE

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

ML089

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

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

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

rc_chc

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

hong912

回復 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

回復 6# rc_chc

下載 (250.38 KB)

2013-12-4 20:16

rc_chc

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