Excel VBA質問箱 IV

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

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


13119 / 13644 ツリー ←次へ | 前へ→

【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 お礼

【6921】検索する文字が無い場合次のマクロに移る...
質問  Ken  - 03/8/11(月) 20:17 -

引用なし
パスワード
   質問します。
Find(検索)して処理を実行して
また次を検索して同じ処理を繰り返すマクロを
作っています。
検索する文字列が無い場合次を検索したいのですが
うまくいきません。
どうかお教えくださいませ。

【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

【6936】Re:検索する文字が無い場合次のマクロに移...
お礼  Ken  - 03/8/12(火) 21:08 -

引用なし
パスワード
   keinさん
有難うございました。
ちょっと私には高度ですがやってみます。
出来ないときは例をあげて質問しますので
またその時は宜しくお願いします。

【6942】解決しました。
お礼  Ken  - 03/8/13(水) 13:15 -

引用なし
パスワード
   Keinさんへ
解決しました。
配列はあんまり使ったことが無かったのですが
今回使ってみて何となくわかってきました。
有難うございました。

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