도토리엑셀

A1, R1C1 , R[1]C[1] style 차이점에 대해 알아보자.

Private Sub CommandButton1_Click()
    Range("D4").Formula = "=B3*10"
    Range("D5").FormulaR1C1 = "=R3C2*20"
    Range("D6").FormulaR1C1 = "=R[-3]C[-2]*30"
End Sub

Range("D4").Formula = "=B3*10"

'D4셀에 =B3*10을 입력한다.

Range("D5").FormulaR1C1= "=R3C2*20"

'D5셀에 =R3C2*20을 입력한다. 이렇게 입력하면  엑셀에서는 =$B$3*20 

즉 절대참조로 셀에 입력한다.

Range("D6").FormulaR[-3]C[-2]= "=R[-3]C[-2]*30"

'D6셀에 =R[-3]C[-2]*30을 입력한다.

이때  R[-3]C[-2]은 D6셀을 기준으로 3행위쪽, 2열 왼쪽을 셀(B3)을 지칭한다.

절대 참조 매크로 기록

Sub Absolute()
'
' Absolute Macro
'
'
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "sales"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "production"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "logistics"
    Range("B6").Select
End Sub

상대 참조 매크로 기록

Sub Relative()
'
' Relative Macro
'
    ActiveCell.FormulaR1C1 = "sales"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "production"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "logistics"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

값 바꾸기

Sub swap()
    Dim temp As Double
    temp = Range("A1").Value
    Range("A1").Value = Range("B1").Value
    Range("B1").Value = temp
End Sub

A1셀의 값을 temp에 저장한다.

A1셀에 B1셀의 값을 붙여넣는다.

B1셀에 임시로 저장한 temp(A1셀 값)을 넣는다.

With ~ End With

반복 적용되는 구문은 한묶음으로 만드는 기능

With Range("F8").CurrentRegion
        .Interior.ColorIndex = 0
        .Font.ColorIndex = 0
End With

F8에 붙어있는 영역에 셀채우기 색을 없애고, 글자색을 검정색으로 만든다.

마지막 행과 마지막 열 찾기

값이 들어 있는 마지막행과 마지막열을 찾는 방법

    'B10000셀부터 위로 올라오면서 마지막 행을 찾는다.
    lngR = Range("b10000").End(xlUp).Row
    
    'XFD2셀부터 왼쪽으로 오면서 마지막 열을 찾는다.
    lngC = Range("XFD2").End(xlToLeft).Column

구구단을 만든는vba만들기

for~next

Sub gugudan()
 Dim i As Long, j As Long
 
 For i = 1 To 9
    For j = 1 To 9
        Cells(i, j) = i * j
    Next j
 Next i


End Sub

도형 옮기기

Sub shape_color()
    Dim sh As Object
    Dim lngC As Long
    
    For Each sh In ActiveSheet.Shapes
        lngC = lngC + 1
        sh.Left = Range("b1").Left
        
        sh.Fill.ForeColor.SchemeColor = lngC
        
    Next
End Sub

2022.02.17 - [VBA] - 반복문(for...next, do while ...loop)

변수는 일단 Long, String 두가지만 우선 알고 시작하자.

변수명은 변수명을 봤을때 어떤 형식의 변수인지 유추할 수 있는 변수명을 사용하면 편리하다.

글꼴은 Consolas(영어)로 설정하면

1과 l 구분이 다른 글꼴에 비해 편하다.

크기는 10~12정도가 적당하다.

직접실행창, 디버그, 편집 도구를 띄워 놓으면 사용하기에 편리하다.

개발도구 > 매크로 클릭

옵션 클릭

원하는 단축키 설정

엑셀에서 convert함수를 이용해서 단위변환이 가능하다.

2022.01.11 - [엑셀] - convert 함수

VBA를 공부하면서 한줄 코드로 화씨를 섭씨로 바꾸는 함수를 만들어 보자.

Function FtoC(DegF)
    FtoC = (DegF - 32) * 5 / 9
End Function