首先在工作表中插入一個時鐘控制元件

然後新增程式碼

譬如：

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