標題: [發問] 有個儲存格月曆的問題 [打印本頁]

---

作者: imzues    時間: 2011-5-9 11:20     標題: 有個儲存格月曆的問題

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

---

作者: chin15    時間: 2011-5-9 11:36

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

---

作者: imzues    時間: 2011-5-9 13:07

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

---

作者: chin15    時間: 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

---

作者: imzues    時間: 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
可以嗎？

---

作者: chin15    時間: 2011-5-9 15:20

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

---

作者: imzues    時間: 2011-5-9 15:51

感謝~太強了!!

---

作者: imzues    時間: 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

---

作者: oobird    時間: 2011-5-9 16:28

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

---

作者: imzues    時間: 2011-5-9 16:43

現在變點儲存格月曆跑不出來了!!

---

作者: chin15    時間: 2011-5-9 18:57

If Target.Column <> 2 and Target.Column <> 3 Then Exit Sub

---

作者: imzues    時間: 2011-5-10 07:29

可以幫我看一下哪有問題？我想要點一個只出現一個月曆但試不出來

---

作者: chin15    時間: 2011-5-10 08:37

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
Calendar1.Visible = True
Calendar2.Visible = False

ElseIf Target.Column = 3 Then
Calendar2.Visible = True
Calendar1.Visible = False
Else
Calendar1.Visible = False
Calendar2.Visible = False
End If
End Sub

---

作者: imzues    時間: 2011-5-10 10:23

太感謝了~我的問題解決了!!!

---

作者: GBKEE    時間: 2011-5-10 15:50

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calendar1.Visible = False
    Calendar2.Visible = False
    If Target(1).Column = 2 Then
        Calendar1.Visible = True
    ElseIf Target(1).Column = 3 Then
        Calendar2.Visible = True
    End If
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)