Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23994 / 76732 ←次へ | 前へ→

【58093】配列に入れた行を一括取得するにはどうすればいいでしょうか
質問  ON  - 08/10/2(木) 11:07 -

引用なし
パスワード
   こんにちは

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

0 hits

【58093】配列に入れた行を一括取得するにはどうすればいいでしょうか ON 08/10/2(木) 11:07 質問
【58095】Re:配列に入れた行を一括取得するにはどう... Abebobo 08/10/2(木) 12:40 発言
【58096】Re:配列に入れた行を一括取得するにはどう... ON 08/10/2(木) 13:37 質問
【58100】Re:配列に入れた行を一括取得するにはどう... ON 08/10/2(木) 14:37 質問
【58102】Re:配列に入れた行を一括取得するにはどう... ハチ 08/10/2(木) 15:11 発言
【58104】Re:配列に入れた行を一括取得するにはどう... ON 08/10/2(木) 15:22 質問
【58105】Re:配列に入れた行を一括取得するにはどう... kanabun 08/10/2(木) 16:09 発言
【58125】Re:配列に入れた行を一括取得するにはどう... ON 08/10/4(土) 18:27 お礼
【58101】Re:配列に入れた行を一括取得するにはどう... neptune 08/10/2(木) 14:50 発言
【58103】Re:配列に入れた行を一括取得するにはどう... ON 08/10/2(木) 15:13 質問

23994 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free