Please enable JavaScript.

Coggle requires JavaScript to display documents.

VBA (變量 (Dim i AS Byte (interger % long & single ! double # …

- - - - dim i%, k&
        
        沒宣告就是變體型
      - 強制宣告
        
        option explicit
- - - - if
        elseif
        elseif
        else
        end if
    - - i=2
        while cells(i,1) <> ""
        s = s + cells (i, 3)
        i=i+1
        wend
        cells(2,6) = s
- - - - 工作表
        
        單元格
- - - - Dim sht As worksheet
        set sht = worksheets(3)
        sht.cells(2,3) = 3
        
        y= cells(2,3)
        y 被賦值 c2 中內容
        
        set y = cells(2,3)
        y 被賦值 c2 中單元格的range對象
    - - For i = 1 To Worksheets.Count
        Set sht = Worksheets(i)
        sht.cells(2,3) = 3
        next
      - Worksheets.Add
        
        Set sh2=worksheets.add
        
        worksheets.name
        
        copy
        
        worksheets(1).copy after:=worksheets(3)
        
        activesheet
        當前
  - - - application
        
        application.workbooks('test.xlsx').worksheets('sheet2').cells(1,2)=3
        
        appliction.displayalert = false
      - on error Resume next
    - - add
        
        SaveAs filename:= ""