with sheet1
.range("A1")
end with
with裡可以省略前面重複的東西
application.EnableEvents=False 事件偵測
on error resume next 跳過錯誤
val(i) 轉換為數(shù)字
split(0) 分隔後變成陣列
Dim arr() 陣列
裡面空或1 to 10
裡面不能放變數(shù)，redim才行
L、U Bound()傳回下上限
instr 類似FIND()
dir("路徑") 偵測有沒有檔案
format()相當於TEXT()函數(shù)
now()相當於NOW()函數(shù)
application.wooksheetfunction.函數(shù)
事件
change 任何一格值改變
selection change 選取範圍改變
activate 選取工作表
