if 문 사용 방법

예제 : 활성 통합 문서를 제외한 모든 통합 문서 저장 및 닫기
        많은 통합 문서가 열려 있고 활성 통합 문서를 제외한 모든 통합 문서를 빠르게 닫으려면 아래 코드를 
        사용할 수 있습니다.

Sub SaveCloseAllWorkbooks()
	Dim wb As Workbook
	For Each wb In Workbooks
		On error resume next
			If wb.Name <> ActiveWorkbook.Name Then
				wb.Save
				wb.Close
			End If
	Next wb
End Sub

 

예제 : 음수 값이있는 셀 강조 표시
        숫자로 가득 찬 열이 있고 음수 값이있는 모든 셀을 빨간색으로 빠르게 강조 표시하려는 경우 아래 코드를 
        사용하여 수행 할 수 있습니다.

Sub HighlightNegativeCells()
	Dim Cll As Range
	For Each Cll In Selection
		If Cll.Value < 0 Then
			Cll.Interior.Color = vbRed
			Cll.Font.Color = vbWhite
		End If
	Next Cll
End Sub

 

예제 : 현재 워크 시트를 제외한 모든 워크 시트 숨기기
        활성 워크 시트를 제외한 모든 워크 시트를 빠르게 숨기려면 아래 코드를 사용할 수 있습니다.

Sub HideAllExceptActiveSheet()
	Dim ws As Worksheet
	For Each ws In ThisWorkbook.Worksheets
		If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
	Next ws
End Sub

 

예제 : 영숫자 문자열에서 숫자 부분 추출
        셀에 영숫자 문자열이 있고 여기에서 숫자 부분을 추출하려면 아래 코드를 사용하여 수행 할 수 있습니다.

Function GetNumeric(CellRef As String)
	Dim StringLength As Integer
	StringLength = Len(CellRef)
	For i = 1 To StringLength
		If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
	Next i
	GetNumeric = Result
End Function

이 코드는 워크 시트 내에서 사용할 수있는 Excel 사용자 지정 함수를 만듭니다 (일반 함수처럼).

---

비교연산자

조건 연산자

 

[엑셀 매크로 VBA] 조건문 - IF문과 비교 / 논리연산자에 대해서

 

 

 

엑셀 VBA IF 지시 구문 사용하는 방법, IF … ELSEIF … ELSE … ENDIF