Excel VBA 레코드

---------단축키 ---------
함수 등 알림(기본값): ctrl+j
주석: 이전 따옴표 '
빈 칸으로 설정 가능:empty/null
 
 
 
기초 문법
기본 데이터 유형
데이터 유형
유형 식별자
바이트
String 
$ 
문자 길이(0-65400)
바이트 바이트
없다
1 
부울 부울
없다
2 
정수형 Integer
 % 
 2  
긴 정수형 롱
 &
4 
단일 정밀도 Single
!  
4  
이중 정밀도 더블
 #
8  
날짜 날짜
없다
8 서기 100/1/1-99/12/31
화폐형 통화
@ 
8 
소수점 Decimal
없다
14 
변형 변형
없다
이상의 모든 유형, 가변
객체 객체
없다
4 
 
변수 정의 문장 및 변수 작용역
Dim 변수 as 유형은 국부 변수로 정의됩니다. 예를 들어 Dim xyz as integer Private 변수 as 유형은 개인 변수로 정의하고, 예를 들어 Private xyz as byte Public 변수 as 유형은 공유 변수로 정의합니다. 예를 들어 Public xyz as single Global 변수 as 유형은 전역 변수로 정의하고, 예를 들어 Globlal xyz as date Static 변수 as 유형은 정적 변수로 정의합니다.
수조 Dim 수조 이름 ([lower to] upper [, [lower to] upper,...]) as type 정의하기;Lower 기본값은 0입니다.Redim 문장으로 그룹 크기를 다시 변경합니다. 원래 그룹 내용은preserve 키워드를 붙여서 보존할 수 있습니다.예: Dim array1 () as double: Redim array1 (5): array1 (3) = 250: Redim preserve array1 (5,10)
순환 문장 For counter = start To end [step step]'step 기본값은 1 [statements] [exit For] [statements] Next [counter] 예: For x = 2 to 10 Step 2 MsgBox (x)"MsgBox는 팝업 디스플레이 상자입니다. Next x
 
몇 가지 작업 ------------
1. 셀 열/행을 배열에 넣습니다. Dim arr As Variant arr1 = Range("e43:e9020")"Range("셀 영역")
2, 셀 Dim arr As Variant arr1 = Range("e43:e9020") 동작 Range("e43:e9020") = arr13, 여러 줄 삭제(홀수 행/짝수 행)

Sub  ()

'

'    

'  

'



'

    Dim nRows As Long

    Dim i As Long

    

    With Worksheets("sheet2")

        nRows = .UsedRange.Rows.Count

        For i = nRows To 10 Step -1

            If i Mod 2 = 0 Then 'Mod 2 =1 

                .Rows(i).Delete

            End If

        Next

    End With

End Sub