<17 특정 색상이 칠해진 여러 셀 선택하기>
작성자 정보
-
모아 작성
- 작성일
컨텐츠 정보
- 10 조회
- 0 추천
- 0 비추천
- 목록
본문
<17 특정 색상이 칠해진 여러 셀 선택하기>
Dim rng As Range, cf As Range, uni As Range
Dim adr As String
Application.FindFormat.Clear
Application.FindFormat.Interior.ColorIndex = 6
Set rng = Columns("a").SpecialCells(2)
Set cf = rng.Find("*", searchformat:=True)
If cf Is Nothing = 0 Then
adr = cf.Address
Do
If uni Is Nothing Then
Set uni = cf
Else
Set uni = Union(uni, cf)
End If
Set cf = rng.Find("*", after:=cf, searchformat:=True)
Loop While cf.Address <> adr
End If
If uni Is Nothing = 0 Then uni.Select
Application.FindFormat.Clear
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료
모아
ex.9
-
등록일 21:43
-
등록일 21:42
-
등록일 21:42
-
등록일 21:42
댓글 0
등록된 댓글이 없습니다.