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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-9 11:20 | 顯示全部帖子

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

請問若是我想從B欄開始都設月曆
我只能一個一個設嗎？還是有什麼樣的寫法可以讓他整欄都是嗎？
Private Sub Calendar1_Click()
[B2] = Calendar1.Value
Calendar1.Visible = False
End Sub

樓主熱帖

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

2^#

發表於 2011-5-9 13:07 | 顯示全部帖子

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

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

3^#

發表於 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
可以嗎？

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

4^#

發表於 2011-5-9 15:51 | 顯示全部帖子

感謝~太強了!!

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

5^#

發表於 2011-5-9 16:24 | 顯示全部帖子

請問一下我好像沒辦法讓第二組月曆點完關起來
我下面要怎麼修改ㄚ??
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Or Target.Column <> 3 Then Exit Sub
Calendar1.Visible = True
Calendar2.Visible = True
End Sub