VBAで指定列からAを検索し、発見したら隣のセルに0を入れるマクロを組みたいのですが、組み方がVBA初心者の為わかりません。
(例)
L列に、A、B、C、D、E、Fとランダムに文字が入っていて、
文字Aを検索し、発見したら隣のI列に値0を入れるというマクロです。
Sub Search()
Dim A As String
Set A = Worksheets("Sheet1").Cells.Find("A")
If A Is Nothing Then
ActiveCell.Offset(0, 1).Value = 0
End If
End Sub
と過去の質問で考えてみたのですが、Aがあった時、、、、
とコードが書けないです。
大変困っているので、ご教授頂けないでしょうか?
出来れば、そのままマクロに出来るコードを教えて頂けないでしょうか?
宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
こんばんは。
#3さんのおっしゃっていることも、もっともなのですが、気になる点がありましたので、自分のことを踏まえて、書かせていただきます。
いずれ、また、同じようなケースが出会うと思います。こんな原則を考えてみたらどうでしょうか?それは、私も自身も同じなのですが、ワークシートのコマンドで行われるものは、記録マクロから作ってみるということです。他にも、「統合」とか、「置換」とか「オートフィルタ」「フィルタオプション」とかは、みんなパターンが決まっています。
その中の代表格が、この「Find」 です。
>Set A = Worksheets("Sheet1").Cells.Find("A")
>過去の質問で考えてみたのです
どうも、Find メソッドは、あるレベル以下の人は、省略する傾向があるようです。何が大事で、何が大事でないかというのは、やってみなければ分かりませんが、検索語だけを入れる書き方は、実務では、あまりしないほうがよいと思います。
だいたい、以下のTestFind2 ぐらいまでに、省略は、とどめたほうがよいです。
それは、Find は、必ずしも自分が思っているデフォルトとは違うことがあるので、「明示的(意図的に)」にオプションは入れたほうがよいです。
例えば、大文字小文字の違いを付けるなら、MatchCase:=True, 数式まで探すなら、LookIn:=xlFormulas
なお、Find メソッドは、5年経っても、たぶん完全に覚えられません。面倒なコードのひとつです。ですが、これはパターンが決まっているので、ひとつパターンが決まったら、それに当てはめればよいだけです。
#3さんで示されているMougのサンプルコードと似てはいるのですが、Mougのサンプルコードでは、Verionによって、失敗することがあります。
'--------------------------------------
'記録マクロをそのまま使う方法
Sub TestFind1()
Dim c As Range
Set c = Columns("L:L").Find(What:="A", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False)
c.Offset(0, 1).Value = 0
End Sub
'--------------------------------------
'TestFind1 をアレンジしてみる
Sub TestFind2()
Dim c As Range
'検索語
Const MYTXT As String = "A"
Set c = ActiveSheet.Columns("L:L").Find(What:=MYTXT, _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)
If Not c Is Nothing Then
c.Offset(0, 1).Value = 0
End If
End Sub
'---------------------------------------
'複数ある場合(パターンを使った方法)
'---------------------------------------
Sub TestFind3()
Dim c As Range
Dim FirstAdd As String
Const MYTXT As String = "A"
Set c = ActiveSheet.Columns("L:L").Find( _
What:=MYTXT, _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)
If Not c Is Nothing Then
FirstAdd = c.Address
Do
c.Offset(, 1).Value = 0
Set c = ActiveSheet.Columns("L:L").FindNext(c)
If c.Address = FirstAdd Then Exit Sub
Loop Until c Is Nothing
End If
End Sub
No.5
- 回答日時:
再度の登場、onlyromです。
>For R = 1 To Cells(Rows.Count, "L").End(xlUp).Row
>の部分はどのような処理をしているのでしょうか?
Cells(Rows.Count, "L").End(xlUp).Rowのことですね?
これで、L列の最終行(データのある最終行)を求めています。
例えば、L列データが1行目~555行目まで入力されていたら
For R = 1 To 555
でもいいのですが、いつも555行目までデータが入力されているとは限らないはずですから、
For R = 1 to 555 と最終行を決めうちすると最終行が変更になる度に
For R = 1 to 100 とか
For R = 1 to 200 などと最終行を変更しなければいけません。
で最終行に変更があってもコードを変更しなくていいように
Cells(Rows.Count, "L").End(xlUp).Row
これで自動的にL列の最終行を求めているわけです。
最終行を求めるときはこうするんだと丸暗記してください。
それから先の回答でも言いましたがFindメソッドはとても便利なメソッドですから
暇なときにでもヘルプなど眺めしっかり学習しませう。
No.3
- 回答日時:
マクロの記録モードにして、編集ー検索の操作をして、Aを検索し見つかってもさらに数度、次を検索、を続けてマクロの記録を編集で見てください。
全てはそれからです。、>そのままマクロに出来るコードを教えて頂けないでしょうか
丸投げといい、回答者を下請けと看做す態度で、規約上しないことになってます。
問題は検索を終わりにする判定です。検索操作ではまた最初に戻って検索を続けるので、最初に戻ったこと、そこを条件にします。
この検索はFind,FindNextの2つを使う必要があり、終わり条件を組み込むのが難しく初心者が手を出す課題ではない。
ただ「VBA Find FindNext」でWEB照会すれば沢山実例が出てくる・それらを読みもしないで・・。
http://www.moug.net/tech/exvba/0050116.htm
など多数
No.2
- 回答日時:
質問者にはまだFindメソッドは難しいでしょうから、
次のようにオーソドックスな方法がいいでしょう。
L列に「A」があった場合、隣(M列)に「0」をセットする場合
'----------------------------------------------------
Sub Test()
Dim R As Long
Range("M:M").ClearContents
For R = 1 To Cells(Rows.Count, "L").End(xlUp).Row
If Cells(R, "L").Value = "A" Then
Cells(R, "M").Value = 0
End If
Next R
End Sub
'---------------------------------------------------------
それから、「A」という文字を含む
例えば、「A00」とか「xxA」とかの場合も該当にする場合は
If Cells(R, "L").Value Like "*A*" Then
とLikeを使います。
またFindメソッドはゆっくりじっくり勉強してください。
onlyrom様
ご回答ありがとうございます。
今、試してみたら出来ました!
本当にありがとうございます!!
M列には他の値も入っていたので、Range("M:M").ClearContents
は消させて頂きました。
ちなみに、
For R = 1 To Cells(Rows.Count, "L").End(xlUp).Row
の部分はどのような処理をしているのでしょうか?
No.1
- 回答日時:
>Dim A As String
変数Aは文字列型
>Set A = Worksheets("Sheet1").Cells.Find("A")
検索範囲はシート1の全てのセル、且つ変数Aにセットされるのは
Rang型
>If A Is Nothing Then
変数Aが”Nothing:見つからなかった場合に”と言う事。
この回答への補足
n-jun様、アドバイスありがとうございます。
初心者の為、こんな質問をして申し訳ないのですが。
「Aが見つかったら」と書くにはどのようにすれば宜しいでしょうか?
尚、変数宣言をするときに、String型ではなくRang型で宣言すれば宜しいのでしょうか?
ご教授お願い致します!
>Dim A As String
変数Aは文字列型
>Set A = Worksheets("Sheet1").Cells.Find("A")
検索範囲はシート1の全てのセル、且つ変数Aにセットされるのは
Rang型
>If A Is Nothing Then
変数Aが”Nothing:見つからなかった場合に”と言う事。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
ある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか?
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
VBAで条件に一致するセルの隣の値をまとめる方法
Excel(エクセル)
-
5
VBAで特定の文字を探して隣のセルに色を付けたい
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
完全一致したら代入するマクロを教えてください
Excel(エクセル)
-
8
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
9
Excelで、検索してヒットしたセルの隣のセルに値を入力したい
Excel(エクセル)
-
10
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
11
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
12
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
13
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
14
Excel マクロ VBA 別シートのセルを検索し、該当するセルの右にあるセルを入力させる方法 s
Visual Basic(VBA)
-
15
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
16
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
19
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
20
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
既存のマクロをコンボボックス...
-
Excel マクロ VBA プロシー...
-
Excel2000:Ontimeメソッドで特...
-
一つのTeratermのマクロで複数...
-
EXCELマクロでのThisisWor...
-
エクセルで別のセルにあるふり...
-
エクセルVBAでNAVITIMEを使って...
-
マクロ実行時、ユーザーフォー...
-
#defineの定数を文字列として読...
-
OnTimeを使ったのですが「エラ...
-
VBAパスワードを解除するマクロ
-
毎日指定時刻に自動でエクセル...
-
エクセル マクロ 指定日の指定...
-
エクセルでA1セルに時刻をリア...
-
c言語で言うところの #define
-
エクセルのマクロについて教え...
-
VC++ 2008 EXPRESS "_T"識別子...
-
ExcelのVBA。public変数の値が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
-
【EXCEL VBA】オートシェイプを...
-
エクセルのマクロをセルの値に...
おすすめ情報