엑셀 vba 조건에 맞는 행 전체 강조하기

■ Excel/ㅡExcel VBA Study

엑셀 vba 조건에 맞는 행 전체 강조하기

with seok 2020. 6. 3. 23:22

엑사남 20강 숙제

엑셀 파일 다운로드

동적범위 활용한 VBA(2).xlsm

0.06MB

이름정의(동적범위 활용)

=OFFSET('성적(2)'!$E$3,0,0,COUNTA('성적(2)'!$E:$E)-1,1)

Sub NY_Find()

Dim rngAll As Range
Dim rngNY As Range
Set rngAll = Range("동적범위_2")

For Each rngNY In rngAll
      If rngNY = "여" Then
          With rngNY.Offset(0, -3).Resize(1, 10)
              .Font.ColorIndex = 5
              .Font.Bold = True
              .Font.Italic = True
          End With
      Else
      End If
  Next
End Sub

Sub NY_Start()

Dim rngAll As Range
Dim rngNY As Range
Set rngAll = Range("동적범위_2")

For Each rngNY In rngAll
      With rngNY.Offset(0, -3).Resize(1, 10)
          .Font.ColorIndex = 1
          .Font.Bold = False
          .Font.Italic = False
      End With
   Next
End Sub

728x90

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