Excel VBA質問箱 IV

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

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


12217 / 76734 ←次へ | 前へ→

【70043】Re:VBAで特定のプロパティを持つセルを選択
質問  ヤムチャ  - 11/10/12(水) 11:10 -

引用なし
パスワード
   実際に組み込んでみたのですが、エラーがでます。
再度お力を貸して下さい。

Set Target = Union(Target, FoundCell)
部分で実行時エラー1004 Uionメソッドは失敗しました。'Global'オブジェクト
となります。

実行は、ブックAに本マクロを組み込み、別処理でブックBのシートを操作します。
昨日提示したコードは問題なく動いてましたので、
ブックの参照等がずれている事はないと考えています。

何を疑えば(調べれば)だけでもご教示頂ければと思います。
よろしくお願いいたします。

  Dim SerchArea As Range
  Dim FoundCell As Range, FirstCell As Range, Target As Range
    '検索シートの設定
  Set XLWS = XLWB.Worksheets(strSheetname)
  '処理セルの設定
  Set SerchArea = XLWS.Range(strStartcell, strEndcell)

  '検索条件の初期化
  Application.FindFormat.Clear
  '処理実行
  Application.FindFormat.NumberFormatLocal = "@"
  Set FoundCell = SerchArea.Find(What:="", LookIn:=xlFormulas, LookAt:=xlWhole _
    , SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , MatchByte:=False, SearchFormat:=True)
 
  If FoundCell Is Nothing Then
  Else
    Set FirstCell = FoundCell
    Set Target = FoundCell
    Do
      Set FoundCell = SerchArea.Find(What:="", After:=FoundCell, LookIn:=xlFormulas _
      , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
      , MatchByte:=False, SearchFormat:=True)
      
      If FoundCell.Address = FirstCell.Address Then
        Exit Do
      Else
        Set Target = Union(Target, FoundCell)
      End If
    Loop
    Target.Interior.ColorIndex = 5
  End If

6 hits

【70029】VBAで特定のプロパティを持つセルを選択 ヤムチャ 11/10/11(火) 17:49 質問
【70031】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/11(火) 18:31 発言
【70032】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/11(火) 18:34 発言
【70033】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/11(火) 19:02 発言
【70034】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/11(火) 19:04 回答
【70036】Re:VBAで特定のプロパティを持つセルを選択 ヤムチャ 11/10/11(火) 20:30 お礼
【70038】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/12(水) 5:51 発言
【70043】Re:VBAで特定のプロパティを持つセルを選択 ヤムチャ 11/10/12(水) 11:10 質問
【70044】Re:VBAで特定のプロパティを持つセルを選択 ヤムチャ 11/10/12(水) 11:30 発言
【70047】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/12(水) 12:00 発言
【70046】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/12(水) 11:54 発言
【70048】Re:VBAで特定のプロパティを持つセルを選択 ヤムチャ 11/10/12(水) 13:15 発言
【70049】Re:VBAで特定のプロパティを持つセルを選択 UO3 11/10/12(水) 15:47 発言

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