8 lines
166 B
VB.net
8 lines
166 B
VB.net
Attribute VB_Name = "ThisWorkbook"
|
|
Private Sub Workbook_Open()
|
|
' 自動執行
|
|
Call XLS_init
|
|
Application.Caption = PYEAR & Worksheets("售價").Cells(3, 1)
|
|
End Sub
|
|
|