首頁>Club>
11
回覆列表
  • 1 # 使用者7085390074726

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

    然後新增程式碼

    譬如:

    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

  • 中秋節和大豐收的關聯?
  • 瓷器裡面的柴燒就是柴窯嗎?