一個月曆的問題

周大偉

大大們, 小弟有一張工作表, 內有一個日期程式, 說句實話這程式也是友好於此論壇前身中吸收後再分享給小弟,
現小弟想修改日期程式, 但小弟不才,試過多次都不成功, 請大大們協助,
Book2.rar (12.78 KB)

下載次數: 16

2010-11-13 21:20

oobird

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10:$J$10" Then End
Me.Calendar1.Visible = True
End Sub

周大偉

大大好, 謝謝回應
小弟把程式貼於編輯區, 但不成功, 應是要把原有程式與大大程式融合,請大大教導, 謝謝!!
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
For Each C In [d15:d35]
If C.Value >= 1 And C.Value < 500 Then C.Borders(6).LineStyle = 1
Next
If Not Application.Intersect([h15:h35], T) Is Nothing Then
If T.Borders(6).LineStyle = 1 Then
T.Borders(6).LineStyle = 0
Else
T.Borders(6).LineStyle = 1
End If
ElseIf T.Address = "$I$10J$10" Then
If Len(T(1) & T(2)) = 0 Then T = Date Else T = ""
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Offset(, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Address <> "$I$10J$10" Then End
Me.Calendar1.Visible = True
End Sub

oobird

原程式是設置框線與你的問題無關。
不能同時存在兩個Worksheet_SelectionChange事件的。

周大偉

謝謝版主大大, 己成功修改, 感謝教導, 感恩, 願主庇佑大大.謝謝!