Excel VBA質問箱 IV

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

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


30082 / 76732 ←次へ | 前へ→

【51920】Re:結合セルにおけるFindNextメソッドでエラー
発言  りん E-MAIL  - 07/10/11(木) 19:51 -

引用なし
パスワード
   potemkin さん、こんばんわ。

Sub test()
  Dim ws As Worksheet
  Set ws = Workbooks.Add.Worksheets(1)
  With ws
   'テスト検索用データ
   .Range("E10:F11").Merge
   .Range("E10").Value = "○"
   '検索実施
   With .Cells
     Set c = .Find("○")
     If Not c Is Nothing Then
       firstAddress = c.MergeArea.Address
       Do
         c.MergeArea.Interior.ColorIndex = 3
         Set c = .FindNext(c)
         If c Is Nothing Then Exit Do
         If c.MergeArea.Address = firstAddress Then Exit Do
       Loop
     End If
   End With
  End With
  ws.Parent.Saved = True
  Set ws = Nothing
End Sub

アドレスの比較をMergeAreaで行うのと、Nothingの判定とアドレスの条件を分けて分岐したら、XL2000でもエラーにならずに結合セルのみが検索ヒットしました。
0 hits

【51916】結合セルにおけるFindNextメソッドでエラー potemkin 07/10/11(木) 13:10 質問
【51917】Re:結合セルにおけるFindNextメソッドでエ... Jaka 07/10/11(木) 15:56 発言
【51918】Re:結合セルにおけるFindNextメソッドでエ... potemkin 07/10/11(木) 17:01 質問
【51919】Re:結合セルにおけるFindNextメソッドでエ... ハチ 07/10/11(木) 17:53 発言
【51920】Re:結合セルにおけるFindNextメソッドでエ... りん 07/10/11(木) 19:51 発言
【51927】Re:結合セルにおけるFindNextメソッドでエ... potemkin 07/10/12(金) 9:23 お礼

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