Excel VBA質問箱 IV

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

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


15990 / 76734 ←次へ | 前へ→

【66218】Re:条件付セルの選択
発言  Jaka  - 10/8/10(火) 14:19 -

引用なし
パスワード
   Union使用、検索対象セルが3000を超えるなら使わないように。
アドレスの連結は、256文字超えるとエラーになります。

Dim Rg As Range, Rng As Range
検索文字 = "1"
With Sheets("xxxxxxxxx")
  Set Rg = .Cells.Find(検索文字, After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, _
                SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
  If Not Rg Is Nothing Then
    SavAd = Rg.Address
    Do
     If Rng Is Nothing Then
      Set Rng = Rg
     Else
      Set Rng = Application.Union(Rng, Rg)
     End If
     Set Rg = .Cells.FindNext(Rg)
    Loop Until SavAd = Rg.Address
    Rng.Select
  End If
End With

2 hits

【66213】条件付セルの選択 roro728 10/8/10(火) 12:48 質問
【66215】Re:条件付セルの選択 UO3 10/8/10(火) 13:23 回答
【66217】Re:条件付セルの選択 roro728 10/8/10(火) 14:11 お礼
【66218】Re:条件付セルの選択 Jaka 10/8/10(火) 14:19 発言
【66219】Re:条件付セルの選択 Jaka 10/8/10(火) 14:21 発言

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