有個儲存格月曆的問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有個儲存格月曆的問題

返回列表下一主題上一主題發帖

[發問] 有個儲存格月曆的問題

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

6^# 跳轉到 »

發表於 2011-5-9 15:20 | 只看該作者

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

5^#

發表於 2011-5-9 14:41 | 只看該作者

本帖最後由 imzues 於 2011-5-9 14:51 編輯

不好意思請教一下
Private Sub Calendar1_Click()
[B2：B65536] = Calendar1.Value
Calendar1.Visible = False
End Sub
這樣的寫法還像整排都是同一個值
可以B2的月曆點出值輸出在B2
若選點B3的月曆點出值輸出在B3
可以嗎？

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2011-5-9 13:52 | 只看該作者

不知你說什麼
也許你跟本沒寫這個事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Calendar1.Visible = True
End Sub

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

3^#

發表於 2011-5-9 13:07 | 只看該作者

我只打這個直接點儲存格沒辦法出現月曆，還差什麼???

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-5-9 11:36 | 只看該作者

Private Sub Calendar1_Click()
[B2:B65536] = Calendar1.Value
Calendar1.Visible = False
End Sub

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

返回列表下一主題上一主題