영.excel 2016 VBA 오픈

1. VBA 기반

0. 주석

'  
Debug.Print "Hello, World!"`
msgbox("hello")`

1. 변수 선언

Dim xx as type
const xx as type = value

Dim i as Integer
i = 3

'   
' String Integer Long Single Double
' Date Boolean Variant Object

1.1 문자열 연결 사용 & 사용하지 마세요 +

1.2 배열

dim myarr(5) as integer ' dim myarr(0 to 5) as integer   6  
dim myarr(5 to 10) as integer ' 5 10 
dim dyn_array() as integer ' 
redim dyn_array()(array_size) ' 
redim preserve dyn_array(array_size) '  

arr = Range("A1:A5")

for each city in cities  
    msgbox city 
next

For i = 0 to 5
     ' 
     myarr(i) = i
Next

For i = 0 to 5 
     Debug.Print  myarr(i) 
Next

set myArr=Array("Ford","Black","1999")
IsArray(myArr)  
Erase(myArr) 
LBound、UBound(myArr)  

2. 논리적 비교

3. if 문장:

if ... then
  ...
elseif 
  ...
else 
  ...
end if

4. for 문구

 ： break continue， while ， 

for counter=start to end [step step]
  ... exit for
next [counter] 

 

for each element in group
 ... exit for
next [element]

5. while 문장

do while|until condition
 ...
loop 

 

do
 ...
loop while|until condition

2. 워크북 관련

1. range 속성:

range("a5").select ' 
range("A1:A10").select ' 
range("A1,B6,C8").select ' 
range("A1:A10,C12,D3").select ' 

 range

for each tmpRange in someRange
    ...
next for

2. cells 속성

cells(5,1).select  cells(5,A).select
range(Cells(6,1),cells(10,1)).select
cells.select ' 

3. offset 속성

Range("A1").offset(1,3).select ' A1 3 
range("D15").offset(-2,-1).select
selection.offset(-2,-1).select
selection.resize(2,4).select

4. 셀을 선택하는 다른 방법

activeCell.end(xlToRight).select
activeCell.end(xlDown).select 'xlToLeft,xlUp

5. 전체 행과 열 선택

selection.entirerow.select
selection.entirecolumn.select

6. 셀 내용 설정

activesheet.range("A1:C4").value="=4*25"
activesheet.range("A1:C4").formula="=4*25"

7. 워크북과 워크시트 조작

WorkBooks.add ' 
workbooks.open filename:=xxx （ ！ thisworkbooks.path &"\..."）
workbooks(1).name
workbooks(2).activate
workbooks("chap02.xls").activate
workbooks(1).close

worksheets.add
worksheet.select
worksheet.activate

8. 시스템 경고 프롬프트 열기 및 닫기

Application.DisplayAlerts = False 
Application.DisplayAlerts = True 

Application.ScreenUpdating=false
'   
Application.ScreenUpdating=True 

9. 설정 대상의 값은 set을 사용해야 합니다. 예를 들어workbook 등입니다.

10. 줄 바꿈 Chr(10)

11. 효율성 향상:

sheets("sheet3").select; range("A1").value=100... ;
 
with sheets("Sheet3"); .Range("A1").value=100...