도토리엑셀

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

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

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

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

개발도구 > 매크로 클릭

옵션 클릭

원하는 단축키 설정

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

2022.01.11 - [엑셀] - convert 함수

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

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

모든 절차를 수행하기 전에 각 모듈 시트의 맨 위에 모듈 수준 선언 Option Explicit를 입력하는 것이 좋습니다. Option Explicit은 다음을 수행합니다.
Dim 문을 사용하여 모든 변수를 선언합니다. 선언되지 않은 변수는 컴파일 시간에 오류를 생성합니다.

이유를 알고 싶다.

드디어 오늘 알게되었다.

Option Explicit라고 선언을 하면

아래에 있는 모든 내용에 대해

'정의하지 않는 변수가 있으면 오류를 발생시킨다.

숫자 양식을 지수형식으로 설정하기

Sub ScientificFormat()
'
'ScientificFormat Macro
'Keyboard shortcut: Ctrl+e
Selection.NumberFormat = "0.00E+00"
End Sub

반복문(for...next, do while ...loop)에 대해 알아보자

개발도구 > 삽입 > ActiveX 컨트롤 > command button을 삽입한다.

command button을 더블 클릭하면 VBA editor로 넘어 간다.

단순 반복문

아래 코드는 A1셀에서 A6셀까지 숫자 100을 입력한다.

Dim i As Integer

For i = 1 To 6
 Cells(i, 1).Value = 100
Next i

여기서 맨마지막 next 다음의 i는 생략 가능하다.

2중 반복문

아래 코드는 A1:B6에 숫자 100을 입력한다.

Dim i As Integer, j As Integer

For i = 1 To 6
    For j = 1 To 2
        Cells(i, j).Value = 100
    Next j
Next i

3중 반복문

이 명령을 사용하기 전에 엑셀의 워크시트가 최소 3개가 있어야 한다.

Dim c As Integer, i As Integer, j As Integer

For c = 1 To 3
    For i = 1 To 6
        For j = 1 To 2
            Worksheets(c).Cells(i, j).Value = 100
        Next j
    Next i
Next c

worksheets(1)은 엑셀에서 왼쪽에서 첫번째 워크시트를 의미한다.

워크시트의 순서가 바뀌면 내가 원하는 워크시트에 원하는 결과를 얻을 수 없다.

Do While .... Loop

Dim i As Integer
i = 1

Do While i < 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

A1:A5까지 20을 입력하는 기능이다.

if문

아래 if문은 A1셀에 값이 60이상이면 B1셀에 pass를 입력하는 것이다.

A1셀이 60미만이면 B1은 변화가 없다.

 Dim score As Integer, result As String
 
 score = Range("a1").Value
 
 If score >= 60 Then result = "pass"
 
 Range("b1").Value = result

if then else를 통해 거짓일때 실행하는 문구를 추가할 수 있다.

A1셀 값이 60이상이면 B1셀에 pass를

A1셀 값이 60미만이면 B1셀에 fail을 입력한다.

 Dim score As Integer, result As String
 
 score = Range("a1").Value
 
 If score >= 60 Then
    result = "pass"
 Else
    result = "fail"
 End If
 
 Range("b1").Value = result

Worksheet 클래스 중 Visible 속성을 설정할 수 없습니다.

이유는 통합문서 보호가 되어 있어서이다.

검토 > 통합문서 보호

통합 문서 보호 해제를 한다.

자세한 내용은 아래 포스팅을 참고하자.

2022.07.20 - [분류 전체보기] - Worksheet 클래스 중 Visible 속성을 설정할 수 없습니다.

일부 구간 별로 행렬 바꾸기

=OFFSET($A$1,MOD(COLUMN(A1)-1,5)+(ROW(A1)-1)*5,)

또는

=OFFSET($A$1,(ROW(B1)-1)*5+COLUMN(A1)-1,0)

대칭으로 셀 연결하는 방법

=INDIRECT("F" & (24- ROW()))