엑셀 vba 범위, 합집합, 교집합, 콤마(쉼표)

엑셀 파일 다운로드

콤마에 따른 셀선택.xlsm

0.02MB

Sub 배경색()     Range("d:g").Interior.ColorIndex = 2 End Sub

Sub 셀선택1()     배경색     Sheet1.Range("d2") = "Range(""A1:A10"").Select"         '"" 따옴표 2개는 따옴표를 넣는다는 의미     Sheet1.Range("d2").Resize(1, 4).Interior.ColorIndex = 37     Range("a1:a10").Select End Sub

Sub 셀선택2()     배경색     Sheet1.Range("d4") = "Range(Range(""A1""), Range(""A10"")).Select"         '"" 따옴표 2개는 따옴표를 넣는다는 의미     Sheet1.Range("d4").Resize(1, 4).Interior.ColorIndex = 37     Range(Range("A1"), Range("A10")).Select End Sub

Sub 셀선택3()     배경색     Sheet1.Range("d6") = "Range(Cells(1, 1), Cells(10, 1)).Select"     Sheet1.Range("d6").Resize(1, 4).Interior.ColorIndex = 37     Range(Cells(1, 1), Cells(10, 1)).Select End Sub

Sub 셀선택4()     배경색     Sheet1.Range("d8") = "Range(""A1"").Resize(10,1).Select"     Sheet1.Range("d8").Resize(1, 4).Interior.ColorIndex = 37     Range("A1").Resize(10, 1).Select End Sub

Sub 셀선택5()     배경색     Sheet1.Range("d10") = "[A1:A10].Select"     Sheet1.Range("d10").Resize(1, 4).Interior.ColorIndex = 37     [a1:a10].Select End Sub

Sub 합계1()     배경색     Sheet1.Range("d14") = "WorksheetFunction.Sum([A15:B17], [B13:B19]) : 합집합"     Sheet1.Range("d14").Resize(1, 4).Interior.ColorIndex = 37     Sheet1.Range("e13").Interior.ColorIndex = 35     Sheet1.Range("d15") = "Union([A15:B17], [A13:B19]).Select"     Sheet1.Range("d15").Resize(1, 4).Interior.ColorIndex = 35     Range("e13") = WorksheetFunction.Sum([a15:b17], [b13:b19])     Union([a15:b17], [b13:b19]).Select End Sub

Sub 합계2()     배경색     Sheet1.Range("d18") = "WorksheetFunction.Sum([A15:B17] [B13:B19]) : 교집합"     Sheet1.Range("d18").Resize(1, 4).Interior.ColorIndex = 37     Sheet1.Range("e17").Interior.ColorIndex = 35     Sheet1.Range("d19") = "Intersect([A15:B17] [B13:B19]).Select"     Sheet1.Range("d19").Resize(1, 4).Interior.ColorIndex = 35     Range("e17") = WorksheetFunction.Sum([a15:b17 b13:b19])     Intersect([a15:b17], [b13:b19]).Select End Sub