偶看新闻现阶段我国的经济形式:运用日历控件代码（原创）
来源：百度文库 编辑：偶看新闻 时间：2024/04/28 03:04:36
运用日历控件代码
开发工具—插入—“控件工具箱”——（小榔头形状）;
单击控件工具箱工具栏上的“日历控件12”
右键单击控件选择菜单“查看代码”,进入VBA后,键入代码：
在指定列中运用日历控件代码（左边Calendar1，，，，代码右边Click）
一、在B列中：If Target.Column = 3 And Target.Row > 0 Then （“3”，即c列）
代码如下：
Private Sub Calendar1_Click()
Dim MyDay As Date
ActiveCell = Calendar1.Value
Mydate = Calendar1.Value
'MsgBox Mydate
Calendar1.Visible = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 0 Then
If IsDate(Target) Then
Calendar1.Value = Target
Else
Calendar1.Today
End If
Calendar1.Visible = -1
Calendar1.Top = ActiveCell.Top + ActiveCell.Height
Calendar1.Left = ActiveCell.Left + Cells(ActiveCell.Rows.Count, 3).Left
Else
Calendar1.Visible = 0
End If
End Sub
------------------------------------------------------------------------------------------
二、在多列中： If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 7 And Target.Row > 0 Then
2、4、5、7列中
Private Sub Calendar1_Click()
Dim MyDay As Date
ActiveCell = Calendar1.Value
Mydate = Calendar1.Value
'MsgBox Mydate
Calendar1.Visible = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 7 And Target.Row > 0 Then
If IsDate(Target) Then
Calendar1.Value = Target
Else
Calendar1.Today
End If
Calendar1.Visible = -1
Calendar1.Top = ActiveCell.Top + ActiveCell.Height
Calendar1.Left = ActiveCell.Left + Cells(ActiveCell.Rows.Count, 3).Left
Else
Calendar1.Visible = 0
End If
End Sub