VBA初心者です。
下記コードで、Aと入力されたセルを検索、検索されたセルに移動 を使っているのですが
Set r = Cells.Find( _
What:="A", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False)
What:="A"これを複数条件にするのはどのようなコードが必要でしょうか。
例:今はAしかヒットしないが、Bもヒットしたい場合。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは。
どの様な処理をしたいかによって、回答が代わると思います。
1つは、提示された処理が終わったあとに、同じ様に、What:="B"とした
コードを書いて処理をすれば、Aが終わったあとに、Bも処理はされるかと。
それとも、セルの例えば上から順に、A又はBがあった時に、そのセルを
選択したいというのでしたら、下記の様な記述でもできるかと思います。
(適当なサイトが見付からなかったので、手書きですが。)
Option Explicit
Sub test()
Dim myRng As Range
For Each myRng In Range("A1:A10")
If myRng.Value = "A" Then
'処理A
myRng.Select
Exit For 'セルを選択した状態で処理を抜けるなら
ElseIf myRng.Value = "B" Then
'処理B
myRng.Select
Exit For 'セルを選択した状態で処理を抜けるなら
End If
Next
End Sub
No.2
- 回答日時:
こんにちは
>例:今はAしかヒットしないが、Bもヒットしたい場合。
その後どうするつもりなのかがわかりませんけれど・・・
とりあえず、変数 r2 とかを作っておいて、ご提示のコードと同じように"B"を検索すれば、検索することはできるでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) ワークブック内すべて検索 2 2022/12/20 20:13
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) マクロで特定日より1日前の日を求めたい 6 2022/05/08 09:23
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
VBA 検索して一致したセルへジャンプさせたい
その他(プログラミング・Web制作)
-
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
-
4
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
5
特定の文字があった時に、隣のセルに移動する
Access(アクセス)
-
6
エクセルで行の一番上にセルに移動させるVBA
Excel(エクセル)
-
7
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
エクセルのセル内の文字の一部だけを別の列に移したい。
Excel(エクセル)
-
11
エクセルで検索して移動???
Excel(エクセル)
-
12
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
13
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
17
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
18
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
UMLでの例外処理
-
【Excel】特定の文字を含むセル...
-
EXCEL VBA マクロ 実行する度に...
-
セルの値が0はクリアするマクロ
-
メルカリのメルカードで買い物...
-
DoEventsがやはり分からない
-
VBの質問#if 0 then ってどう...
-
switch の範囲指定
-
月度は何て読みますか?
-
フローチャートの結合子
-
インタラクティブの反対語は?
-
取り消し線が入った文字を削除...
-
findは動くがfindnextがマクロ...
-
パソコンについて GPUをCPUの代...
-
VBAでセルに値が入力されるまで...
-
Do~Loopした回数をカウントしたい
-
FFTの結果ついて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
DoEventsがやはり分からない
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
VBの質問#if 0 then ってどう...
-
VBAでCOPYを繰り返すと、処理が...
-
EXCEL VBA マクロ 実行する度に...
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
UMLでの例外処理
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
-
セックスレスの既婚女性は自慰...
-
月度は何て読みますか?
-
セルの値が0はクリアするマクロ
-
Loadイベント中にほかのイベン...
-
FFTの結果ついて
おすすめ情報