Excel VBA質問箱 IV

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

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


5 / 13327 ツリー ←次へ | 前へ→

【81007】オートフィル後の可視セル抽出に関して まみ 19/7/8(月) 16:15 質問[未読]

【81014】Re:オートフィル後の可視セル抽出に関して マナ 19/7/8(月) 23:53 発言[未読]

【81014】Re:オートフィル後の可視セル抽出に関して
発言  マナ  - 19/7/8(月) 23:53 -

引用なし
パスワード
   ▼まみ さん:

>ループ1回目→メッセージボックス「まさよ」
>ループ2回目→メッセージボックス「かおる」
>ループ3回目→メッセージボックス「あかり」

Sub test()
  Dim rr As Range
  Dim r As Range
  Dim c As Range
  
  Set rr = ActiveSheet.AutoFilter.Range
  
  On Error Resume Next
  Set r = Intersect(rr, rr.Offset(1)).Columns(3).SpecialCells(xlCellTypeVisible)
  On Error GoTo 0
  
  If Not r Is Nothing Then
    For Each c In r
      MsgBox c.Value
    Next
  End If
  
End Sub

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