엑셀 vba Colorindex표 만들기

■ Excel/ㅡExcel VBA Study

엑셀 vba Colorindex표 만들기

with seok 2020. 6. 15. 13:46

엑사남 VBA 21강 따라하며 배우기

엑셀 파일 다운로드

Sub ColorTest()

Dim rngC As Range
Dim rngT As Range

Set rngC = Range("b4:k17")
  rngC.Interior.ColorIndex = 0

  For Each rngT In rngC
      If rngT <> "" Then
          rngT.Offset(0, 1).Interior.ColorIndex = rngT
      End If
  Next rngT

End Sub

Sub ColorZero()

Dim rngC As Range
Dim rngT As Range
Set rngC = Range("b4:l17")
rngC.Interior.ColorIndex = 0

End Sub

Sub ColorTest2()

Dim rngC As Range
Dim rngT As Range
Set rngC = Range("c4:l17")
  For Each rngT In rngC
      If rngT.Interior.ColorIndex > 0 Then
          rngT.Offset(0, 1) = rngT.Interior.ColorIndex
      End If
  Next rngT

End Sub

Sub ColorZero2()

Dim rngC As Range
Dim rngT As Range
Set rngC = Range("b4:m17")
rngC = ""

End Sub

728x90

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