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

■ Excel/ㅡExcel VBA Study

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

with seok 2020. 6. 23. 14:51

엑셀 파일 다운로드

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

728x90

저작자표시 비영리 변경금지