[已解决]这些单元格使用日历控件，怎么修改。。。请老师们帮帮忙。。。

yjwdjfqb

Private Sub Calendar1_Click()
Range("E2") = Calendar1.Value '让E2单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$2" Then
    Calendar1.Visible = True
Else
    Calendar1.Visible = False
End If
End Sub


上面代码是在E2单元格中使用日历控件，修改成

E5
D4
F7
C3：C10
G4：G8
F9：F12
D6：D12
C5：C12
这些单元格使用日历控件，怎么修改。。。请老师们帮帮忙。。。

最佳答案

月排行榜 / 总排行榜

mxg825

2012-3-16 10:29

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value '当前单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("E5,D4,F7,C3:C12,G4:G8,F9:F12,D6:D12")) Is Nothing) And Target.Count = 1 Then
    Calendar1.Visible = True
Else
    Calendar1.Visible = False
End If
End Sub

以上代码是不合并单元格的效果！

跳转到最佳答案楼层

mxg825

是否有合并单元格？

mxg825

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value '当前单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("E5,D4,F7,C3:C12,G4:G8,F9:F12,D6:D12")) Is Nothing) And Target.Count = 1 Then
    Calendar1.Visible = True
Else
    Calendar1.Visible = False
End If
End Sub

以上代码是不合并单元格的效果！

yjwdjfqb

mxg825 发表于 2012-3-16 10:29
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value '当前单元格显示日历控件的值
Calendar1 ...

非常感谢。。。。很好用！！！