日期控件的 VBA代码
来源:百度知道 编辑:UC知道 时间:2024/06/27 09:38:37
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then
Calendar1.Visible = False
Else
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
End If
End Sub
If Target.Column <> 5 and Target.Column <>7 then
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 7 Then
Calendar1.Visible = False
Else
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
End If
End Sub
把5改成7就可以了!
A列就是1,B列就是2,,,,,,依此类推
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 or Target.Column=7 Then
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub