现阶段我国的经济形式:运用日历控件代码(原创)
运用日历控件代码
开发工具—插入—“控件工具箱”——(小榔头形状);
单击控件工具箱工具栏上的“日历控件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