'vba' 태그의 글 목록 (3 Page)
본문 바로가기
728x90
반응형

vba50

(VBA) 조건문 중 "Switch" 알아보기 - Switch() ⛓️ Switch문 구조 Switch ( [조건], [반환값], [조건], [반환값], ···) 번호를 입력하면 색깔 이름이 변경되는 명령어입니다 Private Sub CommandButton1_Click() Dim strColor As String strColor = Switch(Range("B8").Value = 1, "빨간색", _ Range("B8").Value = 2, "주황색", _ Range("B8").Value = 3, "노란색", _ Range("B8").Value = 4, "초록색", _ Range("B8").Value = 5, "파란색", _ Range("B8").Value = 6, "남색", _ Range("B8").Value = 7, "보라색") Range("D8").Value =.. 2023. 8. 6.
(VBA) 조건문 중 "Select" 알아보기 - Select () 🥢 Select문 구조 Select Case [조건] Case [조건] [명령어] Case [조건] [명령어] ⠇ Case [조건] [명령어] Case Else [명령어] End Select 번호를 입력하면 색깔이 바뀌는 명령어입니다 Private Sub CommandButton1_Click() Select Case Range("B8").Value Case 1 Range("D8").Interior.Color = RGB(255, 0, 0) Case 2 Range("D8").Interior.Color = RGB(255, 165, 0) Case 3 Range("D8").Interior.Color = RGB(255, 255, 0) Case 4 Range("D8").Interior.Color = RGB(0, 25.. 2023. 8. 6.
(VBA) 조건문 중 "IF" 알아보기 - If() 🚰 IF문 구조 If [조건] [연산자] [조건] Then [명령어] Else if [명령어] Else [명령어] End If 조건이 한가지만 있을 경우 If [조건] [연산자] [조건] Then [명령어] 번호를 입력하면 색깔이 바뀌는 명령어입니다 Private Sub CommandButton1_Click() If Range("B8").Value = 1 Then Range("D8").Interior.Color = RGB(255, 0, 0) ElseIf Range("B8").Value = 2 Then Range("D8").Interior.Color = RGB(255, 165, 0) ElseIf Range("B8").Value = 3 Then Range("D8").Interior.Color = RGB(25.. 2023. 8. 5.
(엑셀) 매크로(Macro/VBA) 만들어 사용하기 이번에는 VBA로 매크로를 만들고 만들어놓은 매크로를 어떻게 사용하지는 알아보겠습니다 예를 들어 이메일 주소가 "@"를 기준으로 나눠져 있어서 이걸 합치는 매크로입니다 매크로 이름은 "EMAIL"로 하겠습니다 VBA 창(Alt + F11)을 열고 "모듈"을 추가합니다 모듈에 "EMAIL"이란 이름으로 매크로를 작성합니다 명령어를 작성하시고 VBA는 따로 포스팅하고 있습니다 !! VBA 검색 !! (선택한 셀의 문자열을 합치는 명령어입니다) 셀을 선택하고 매크로 실행 (Alt + F8) Alt + F8 매크로를 사용하는 방법입니다 매크로를 만들어 놓고 필요시에 실행해서 사용하는 방법!! 간단하게 사용방법을 정리했습니다 만들어진 매크로 사용방법은 간단하지만 매크로를 만드는게 어렵네요...... 2023. 8. 5.
(VBA) 문자열 비교하기 - StrComp() StrComp([str1], [str2], [비교 조건]) 🆚 비교 조건 🆚 결괏값 문자 길이(?)를 비교한다고 이해하시면 편할듯합니다 🆚 이진 비교 Private Sub CommandButton1_Click() Dim str1 As String Dim str2 As String str1 = "tistory" str2 = "Tistory" Debug.Print StrComp(str1, str2, vbBinaryCompare) 'Debug.Print StrComp(str1, str2, 0) End Sub 소문자가 대분자보다 길다고 판단합니다 그래서 "tistory"가 "Tistory"보다 문자열이 길다는 결과가 나오네요 이런 건 대소문자 비교 시에 사용될것 같네요 🆚 텍스트 비교 Private Sub Co.. 2023. 8. 4.
(VBA) 논리연산자 알아보기 - 조건과 조건 비교하기 And 둘 다 참일 경우 참 아니면 거짓 Or 둘 중에 하나라도 참이거나 둘 다 참이 참 아니면 거짓 Not 참이면 거짓, 거짓이면 참 Xor 둘 중에 하나만 참이면 참 아니면 거짓 Eqv 둘 다 참이거나 거짓이면 참 아니면 거 Imp 둘 조건에 따라서 참이거나 거짓 True(참) / False (거짓) ⚠️ And 연산자 Private Sub CommandButton1_Click() Debug.Print 1 < 10 And 2 < 10 End Sub 1은 10보다 작고 2도 10보다 작다 = 참(True) 무조건 두 조건이 참(True)이어야 합니다 ⚠️ Or 연산자 Private Sub CommandButton1_Click() Debug.Print 1 < 10 Or 12 < 10 End Sub 1은 .. 2023. 8. 3.
(VBA) 비교연산자 알아보기 - 조건에 맞게 실행하기 A는 B랑 같다 A는 B랑 다르다 A는 B보다 크다 A는 B보다 작다 등등......... 이렇게 2개 이상을 비교할 때 비교연산자를 사용합니다 비교연산자는 숫자, 객체, 문자로 나눠질 수 있습니다 1. 숫자 비교 = 같다 다르다 > 크다 (초과) = 크거나 같다 (이상) ) (이상) Public AA As Integer Public BB As Integer Private Sub CommandButton3_Click() AA = 10 BB = 5 If AA > BB Then MsgBox "AA가 BB보다 크다" End If End Sub 🆚 작다 (=) (이상) Public AA As Integer Public BB As Integer Private Sub CommandButton5_Click() AA .. 2023. 7. 29.
(VBA) 산술연산자 알아보기 - 계산하기 더하기 빼기 등등 사칙연산이라고 보시면 됩니다 + 더하기 - 빼기 * 곱하기 / 나누기 ￦ 몫 Mod 나머지 ^ 제곱 🔢 더하기 (+) Private Sub CommandButton1_Click() Range("E3").Value = Range("B3").Value + Range("D3").Value End Sub ▶▶ 20 + 10 = 30 🔢 빼기 (-) Private Sub CommandButton2_Click() Range("E6").Value = Range("B6").Value - Range("D6").Value End Sub ▶▶ 20 - 10 = 10 🔢 곱하기 (*) Private Sub CommandButton3_Click() Range("E9").Value = Range("B9").Va.. 2023. 7. 28.
(VBA) InputBox로 사용자에게 원하는 값 입력하기 - InputBox() 사용자에게 원하는 값을 받기 위해 많이 사용하는 함수입니다 InputBox( ["안내 문구"] , ["제목"], ["기본값"], ["가로 위치"], ["세로 위치"], ["도움말 파일"], ["도움말 컨텍스트 ID"]) 도움말 관련은 필요 없을 것 같고요 기본적으로 사용하는 부분만 설정하겠습니다 ✏️ 값 입력하기 "C3"에 이름을 입력받겠습니다 Private Sub CommandButton1_Click() Range("C2").Value = InputBox("이름을 입력하세요", "입력창") End Sub 명령어를 입력 후 버튼을 누르시면 입력창(InpuBox) 실행되고 이름을 입력하면 "C3"에 이름이 입력됩니다 2023. 7. 25.
728x90
반응형

티스토리툴바