726 note

老師     羅金榮
1.開發環境
  excell=>開發人員
檔案=>選項=>自訂功能區=>開發人員  打勾=>確定
2.開發人員
visual Basic
插入=>模組


巨集    試算表 +visual basic=>邏輯程式+表單

VBAproject
Microsoft Excell 物件 OLE物件即嵌入式物件
      ThisWorkbook 目前正在工作的試算表
       工作表ㄧ   sheet1
       工作表二   sheet2
       工作表三   sheet3
模組=>邏輯程式
表單(插入自動表單)UserForm

開一資料夾VBAProject  => 存檔vbabasic1  類型  Excell活頁簿  x.xlsm副檔名


模組
1.模組由副程式構成
2.副程式語法
     Sub 副程式名稱()
        [程式區塊]
     End Sub
3.輸出對話方塊
   Sub test1()
    MsgBox "第一支vba程式"
   End Sub

*開發人員=>聚集安全性=>巨集設定=>啟動所有巨集
*檔案=>選項=>

表單
Sub test2()
    UserForm1.Show
End Sub


變數]
Dim 變數名稱  as 資料型態(Bite,Interger.Long,Single,Double)
Dim  a as Integer

資料型態
數字(Byte,Integer.Long,Single,Double)
String  字串
Boolean  布林
Variant=>自訂資料型態


Workbooks=>Worksheets->sheet1,sheet2,sheet3

Sub test3()
    Dim rcount As Integer
    rcount = Worksheets.Count
    MsgBox CStr(rcount)
End Sub
*CStr(integer)
*CInt(String)

sheet
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  MsgBox "你選到第" & Target.Row & "列第" & Target.Column & "欄"
End Sub

Workbook
Private Sub Workbook_Open()
    MsgBox "歡迎使用這個應用程式"
End Sub
-----------------------------
workbooks
worksheets
UserForm
Charts
Sheets
Cells
Range
-----------
VBA運算子
1.算術運算子:=,-,*,/,mod
2.關係運算子
3.邏輯運算子:and,or,not
and :if ....then 條件式