|
こんにちは
1行ごとに判定して行うと時間がかかるので
配列で一括非表示にしたいと下記のようにしてみました
'←型が一致しません
となってしまいます
どうすれば、一括で行選択することが出来ますか
よろしくお願い致します
Sub a指定行非表示2() 'D列のセルがグレーなら行非表示
Dim TG As Range
Dim ck As Integer
Dim myArray() As String
Dim cnt_i As Integer
cnt_i = 1
ck = ActiveSheet.UsedRange.Rows.Count
ReDim myArray(ck)
Range(Cells(1, 4), Cells(ck, 4)).Select
For Each TG In Selection
If TG.Interior.ColorIndex = 15 Then
myArray(cnt_i) = TG.Row
End If
cnt_i = cnt_i + 1
Next
'Rows(3).EntireRow.Hidden = True
Rows(myArray(ck)).Select '←型が一致しません
'Rows(myArray(ck)).EntireRow.Hidden = True
End Sub
|
|