首先在工作表中插入一個時鐘控制元件
然後新增程式碼
譬如:
1、新增工作表的變化選擇事件的程式碼:
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
WithMe.Calendar1
IfActiveCell.Column=1AndActiveCell.Row>2Then‘設定彈出控制元件的單元格(區域)
.Width=120‘設定控制元件自身的寬度
.Height=100‘設定控制元件自身的高度
.Top=ActiveCell.Top+ActiveCell.RowHeight‘設定控制元件在螢幕離上端的距離
.Left=ActiveCell.Left‘設定控制元件離螢幕左邊的距離
.Visible=True‘設定控制元件的顯示屬性為顯示
Else
Me.Calendar1.Visible=False‘設定控制元件的顯示屬性為不顯示
EndIf
EndWith
----------
2、新增控制元件的單擊事件程式碼
PrivateSubCalendar1_Click()
ActiveCell.Value=Me.Calendar1.Value‘當前單元格的值為控制元件的值
EndSub
首先在工作表中插入一個時鐘控制元件
然後新增程式碼
譬如:
1、新增工作表的變化選擇事件的程式碼:
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
WithMe.Calendar1
IfActiveCell.Column=1AndActiveCell.Row>2Then‘設定彈出控制元件的單元格(區域)
.Width=120‘設定控制元件自身的寬度
.Height=100‘設定控制元件自身的高度
.Top=ActiveCell.Top+ActiveCell.RowHeight‘設定控制元件在螢幕離上端的距離
.Left=ActiveCell.Left‘設定控制元件離螢幕左邊的距離
.Visible=True‘設定控制元件的顯示屬性為顯示
Else
Me.Calendar1.Visible=False‘設定控制元件的顯示屬性為不顯示
EndIf
EndWith
----------
2、新增控制元件的單擊事件程式碼
PrivateSubCalendar1_Click()
ActiveCell.Value=Me.Calendar1.Value‘當前單元格的值為控制元件的值
Me.Calendar1.Visible=False‘設定控制元件的顯示屬性為不顯示
EndSub