返回列表 上一主題 發帖

合拼儲存格顯示當天日期

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
hong912

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
2#
發表於 2013-11-27 23:15 | 顯示全部帖子
謝謝樓上各樓主解答, 問題已解決, 衷心感謝..
hong912

TOP

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
3#
發表於 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
hong912

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題