| |
実際に組み込んでみたのですが、エラーがでます。
再度お力を貸して下さい。
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
|
|
ヤムチャ
- 11/10/12(水) 11:10 -
