[VBA] 기본 문법

= Sub

Sub SubName()
    ......
End Sub

Sub SubNameParam(param)
    ......
End Sub

call SubName

call SubNameParam(xx)

= Func

function FuncName(p1, p2)

FuncName = p1 + p2

end function

= With

With ThisWorkbook.Sheets("YourSheetName")
    .Range("I2:I60").Formula = "=Max(D2:H2)"
End With

= For

For X = 1 To 1000
        Range("F" & X).Select
        Selection.Value = "Test" & X
Next

= If
If X = "X" Then
    MsgBox ("X")
Else
    MsgBox ("Not X")
End If
= 비교 연산자

<

<=

>

>=

=

<>

object1 [Is | IsNot] object2
string Like pattern

= 문자 연결
& 

= 변수
X = 1
= Global 변수
Public intA As Integer
Private intB As Integer

= 예약어
xx.Address => $H$1
xx.Select => Range select
xx.Value => Value refer or set
xx.Offset(r,c) => 

Selection.xx
= 유용 함수들


MsgBox ( X Mod Y )
DateTime.Now  => 현재
DateTime.DateValue(XX) => XX를 Date값으로

int( rnd()* X )  : 0 ~ X-1

마지막 라인
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Dim lColumn As Long

lColumn = ws.UsedRange.Columns.Count
--------------------------------------------------------
= 예제
--------------------------------------------------------
ActiveSheet.Columns.Select

ActiveSheet.Columns(4).Select

ActiveSheet.Columns("B:D").Select

Range(“A:D”)Columns(2).Select

Cells(15,4).EntireColumn.Select

Cells(10,4).EntireColumn.Select

Range("A2:D4").EntireColumn.Autofit

range("D2:I2").Select
range("I2").Activate
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"

http://dmcritchie.mvps.org/excel/colors.htm
Cells(i + 1, 1).Interior.colorindex = i
Range("A1").Interior.Color = RGB(255, 0, 0)

MsgBox "The active cell row2"
'RowColNum = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
' RowColNum = ActiveSheet.UsedRange.Columns.Count
RowColNum = ActiveSheet.UsedRange.Rows.Count