Excel VBA質問箱 IV

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

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


74274 / 76732 ←次へ | 前へ→

【6927】Re:検索する文字が無い場合次のマクロに移る場合は??
回答  Kein  - 03/8/12(火) 5:26 -

引用なし
パスワード
   >また次を検索して同じ処理を繰り返すマクロを
>作っています。
完成してなくても構いませんから、作ってあるところまでのコードを
UPした方がいいですよ。一例として A列から3つの文字を検索し、ヒットしたセルに
色を着ける。というコードなら・・

Sub Test_Find()
  Dim i As Integer
  Dim FR As Range
  Dim Ad As String
  Dim MySt As Variant, MyCo As Variant

  MySt = Array("AAA", "BBB", "CCC")
  MyCo = Array(3, 6, 5)
  For i = LBound(MySt) To UBound(MySt)
   Set FR = Columns(1).Find(MySt(i), , xlValues)
   If FR Is Nothing Then
     GoTo NLine
   Else
     Ad = FR.Address
   End If
   Do
     Set FR = Columns(1).FindNext(FR)
     FR.Interior.ColorIndex = MyCo(i)
   Loop Until FR.Address = Ad
NLine:
   Set FR = Nothing
  Next i
  Erase MySt, MyCo
End Sub
1 hits

【6921】検索する文字が無い場合次のマクロに移る場合は?? Ken 03/8/11(月) 20:17 質問
【6927】Re:検索する文字が無い場合次のマクロに移る... Kein 03/8/12(火) 5:26 回答
【6936】Re:検索する文字が無い場合次のマクロに移る... Ken 03/8/12(火) 21:08 お礼
【6942】解決しました。 Ken 03/8/13(水) 13:15 お礼

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