GBKEE

回復 1# fmsc168
問題1:將程式碼 複製到VBA 視窗的 ThisWorkbook 中

1. Private Sub Workbook_Open()
   
2.     Call Workbook_SheetActivate(ActiveSheet)
   
3. End Sub
   
4. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
5.     Dim AA
   
6.     Do While Not IsDate(AA) Or AA = ""
   
7.         AA = InputBox("請輸入日期", , Date)
   
8.     Loop
   
9.     Sh.[P3] = AA
   
10. End Sub

複製代碼