帖子: 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

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2013-11-26 20:37 | 只看該作者

回復 1# hong912

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

[b]Kubi[/b]

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-11-27 14:17 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

5^#

發表於 2013-11-27 23:15 | 只看該作者

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

hong912

TOP

rc_chc

小學生 Rank: 1

帖子: 22
主題: 1
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-11-24
最後登錄: 2015-5-14

6^#

發表於 2013-12-3 22:58 | 只看該作者

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

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

7^#

發表於 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

ML089