Category: excel

Excel VB편집 단축키

VB 편집기에서 개별 창을 호충할 때 사용하는 단축키

Ctrl + R	프로젝트 탐색기 창 표시
F4	속성 창 표시
F7	선택된 개체의 코드 창 표시
Shift + F7	코드 창에서 폼 개체 표시
Ctrl + G	직접 실행 창 표시

코드 창 및 직접 실행 창에서 사용하는 단축키

F1	현재 커서 위치의 개체 및 구성원에 대한 도움말 표시
Ctrl + I	현재 커서 위치의 개체 및 구성원에 대한 풍선 도움말 표시
Ctrl + Shift + I	현재 커서 위치의 항목에 대한 매개 변수 정보 표시
Ctrl + J	현재 커서 위치의 개체에 대한 구성원 목록 표시
Ctrl + Shift + J	현재 커서 위치의 매개변수에 대한 상수 목록 표시
Shift + F2	현재 커서 위치의 개체 및 구성원에 대한 개체 찾아보기 창 열기
Ctrl + F	찾기 메뉴
Ctrl + H	바꾸기 메뉴
F3	다음 찾기 실행
Shift + F3	이전 찾기 실행
F5	현재 커서 위치의 프로시저를 실행
F8	현재 커서 위치의 프로시저를 한 행씩 실행
Ctrl + F8	커서 위치에서 코드를 실행
Shift + F8	프로시저 단위로 실행
F9	중단점을 설정하거나 해제
Ctrl + Shift + F9	모든 중단점을 한 번에 해제
Ctrl + ↓	다음 프로시저로 이동
Ctrl + ↑	이전 프로시저로 이동
Ctrl + Y	커서 위치의 한 행을 삭제
Ctrl + Delete	현재 위치에서 단어 끝까지 삭제
Ctrl + Break	코드 실행을 강제중단

2020-03-23

Excel(VBA) A열을 B열로 옮기기

A열을 B열로 옮겨 적는 코드이다

Option Explicit
Sub var_array()

Range("b:b").ClearContents
Dim ArraySize As Integer
ArraySize = Range("a1", Range("a1").End(xlDown)).Rows.Count  'count Row"

Dim InputLine As Integer
Dim OutputLine As Integer
Dim i As Integer

OutputLine = 10

For i = 1 To ArraySize
    Cells(OutputLine, 2).Select
    Selection.Value = Cells(i, 1)
    OutputLine = OutputLine + 1
       
       
        Dim q As Integer
        For q = 1 To 3
        Cells(OutputLine, 2).Select
        Selection.Value = "Delete"
        OutputLine = OutputLine + 1
       
        Next q
       
    Next i
    Cells(OutputLine, 2) = "Final1"
    OutputLine = OutputLine + 1
    Cells(OutputLine, 2) = "Final2"
    OutputLine = OutputLine + 1
    Cells(OutputLine, 2) = "Final3

2020-03-08