• ベストアンサー

VBAで特定の文字が入力されたセルを選択

例えば、Aと入力してあるセルがあり、 マクロを実行した時にそのセルを選択するにはどのような方法があるのでしょうか。 宜しくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.2

こんにちは! 「A」は「含まれる」ではなく、「A」そのもののセルで良い訳ですよね? 一例です。 Sub Sample1() Dim c As Range, r As Range, myRange As Range Set c = ActiveSheet.Cells.Find(what:="A", LookIn:=xlValues, lookat:=xlWhole) Set myRange = c For Each r In ActiveSheet.UsedRange If r = "A" Then Set myRange = Union(myRange, r) End If Next r myRange.Select End Sub こんな感じではどうでしょうか?m(_ _)m

dijfyn
質問者

お礼

ありがとうございます。 コード自体大変難しかったのですが、 Aの部分を他の文字に変えても同じように選択できました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • kybo
  • ベストアンサー率53% (349/647)
回答No.1

Aと入力したセルをすべてなのか、1つのみなのかでかなり違います。 簡単には Cells.Find("A", , , xlWhole).Select とします。 見つからなければエラーです

dijfyn
質問者

お礼

ご回答ありがとうございます。 Aと入力されているセルを選択できました。 FindとxlWholeで、すべてが一致するセルを選択できるのですね。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセルで特定のセルを選択したい(マクロ)

    以下のようなマクロを組もうとしていますが、出来ません。 sheet1において 1)マクロを実行すると、メッセージボックスが出る。 2)メッセージボックスに入力した文字と同じ文字が入力されているセルを選択する。 3)2)のセルの1行下のセルを選択する。 2)で必ずエラーが出てしまいます。どのような方法が良いのか教えていただけるとありがたいです。よろしくお願いします。

  • 選択したセルに特定の文字、自動的に他セルにコピペ

    選択したセル内((1))に、特定の文字が入力された場合、 他の場所の選択したセル((2))に、選択したセル((1))の中の一部を 他の場所の選択したセルに自動的にコピーされる方法が知りたいです。 (数字データだけではなく、書式・色も自動的にコピペされる) マクロor関数、どちらでも構いませんが、 私、マクロは全くの素人です。 上記の文が「選択、選択、、、と、意味不明かと思うのですが添付したデータ を見てください。 B11~B18の中に「予約」と入力された場合、そのセル(=B12)からH12までだけを セル(B1~B7)のセルの間のいずれかに自動表示させたいのです。 VLOOKUP関数でしょうか? それとも、マクロで自分でB1~B7を選択して、マクロの実行をさせる方法でしょうか?

  • VBA 特定のシートが選択されていたら、セル入力

    Excel365。簡略化したVBAです。 現在、「あ」というシートが選択されていたら、「あ」シートの「A1」セルに「a」と入力 「い」というシートが選択されていたら「い」シートの「A1」セルに「i」と入力。 それ以外のシートが選択されていたら、何もしない。 If Sheets("あ").Activate Then Range("A1") = "a" ElseIf Sheets("い").Activate Then Range("A1") = "i" Else 以下省略 「い」シート選択中でも、「あ」シートの「a1」セルに入力され、シートを増やしても、「あ」シートの「a1」セルに入力されます。 「い」シートを入力していません。 簡単だと思っていたのですが…。 どんなコードになるのでしょうか?

  • エクセルのマクロでセル選択するには

    初心者です! エクセルのSheet1に30箇所のセルをマクロで選択したいのですが、 たまに選択するセルが変わります。 そこで、Sheet2のA1から下へSheet1の選択する位置を「B2」「C5」「D10」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください Sheet2のA1から下へ入力するセル位置はその都度変化します。 変化したときにそのマクロを実行すると選択できるといいのですが!! よろしくお願いします。

  • VBAマクロで特定の文字を相対座標で複数セルへ記入

    VBA初心者です。 google検索してみても、イマイチ解らなかったので教えてください。 例として、マクロを実行させると、現在選択中のセル(ここではA1)に 1を入力し、隣のセル(B1)に0を入力できるようなマクロをつくり ボタン化しようと思っているのですが 肝心のマクロがまだ理解出来てなくて困ってます。 一応、自分でやってみたりしたくて試してはいるのですが 単純に、カーソル移動で Range("A1").Offest (+1.0)      ;右隣のセルへ移動 これではダメなんですよね?

  • VBAで1度実行すると選択したセルに値を入力する方

    VBAで1度マクロを実行すると、止めるまで選択したセルに文字を入れる方法を知りたいです。 今は、selection.value="あ" でやってるのですがこれだとセル選択後に毎回ボタン押さないと入力できないのですが 1度ボタンを押すと毎回押さなくても選択したところに値が入るようにしたいです(伝わって!)

  • エクセルで入力しているセルだけの選択

    こんばんは! エクセルで、入力しているセルだけを範囲選択って出来るのでしょうか? 一応、範囲は飛び飛びではなく、A5からAC1800のように四角くなるような範囲となります。 何かショートカットや、マクロなどで方法がありましたらご伝授願います。 よろしくお願いします。

  • VBAで、セルの値をつなげて入力したいのですが・・・

    VBAで、セルの値をつなげて入力したいのですが・・・ エクセル2007を使用しています。 Ctrlキーで2つのセルを選択し、最初に選択したセルの値にスラッシュをつけて、 2番目に選択したセルの値をつなげ、再び1番目に選択したセルに代入したいと思っています。 例えば、A1セルに「佐藤」B1セルに「鈴木」と入力されており、 A1を選択し、Ctrlキーを押しながらB1セルを選択し、コマンドボタンを押すと A1セルに「佐藤 / 鈴木」と入力させたいと思っています。 選択するセルは、1番目も2番目も、変化します。 そこで、下記のようなマクロを書いてみたのですが、 「実行時エラー13 型が一致しません」というエラーが出ます。 Private Sub CommandButton7_Click() If Selection.Areas.Count <> 2 Then Exit Sub Dim a As Variant Dim b As Variant a = Selection.Areas(1) b = Selection.Areas(2) Selection.Areas(1) = a & "/" & b End Sub 変数の型が問題なのでしょうか? ちなみに Selection.Areas(1) = b とすると、2番目に選択した「鈴木」がA1に入力されます。 また、 Selection.Areas(1) = a & b としても同じエラーが出ます。 解決法があるなら、ご教授いただけませんでしょうか? よろしくお願いいたします。

  • エクセル・マクロで「特定セル選択時のみ」実行可能な・・・

    いつも「作成依頼」のような質問で大変恐縮ですが、よろしくお願いします。 【状況】 A1・A2・A3のいずれか一箇所を選択状態にし、マクロを実行すると「要確認!」という文字が 記入されるという単純なものを使っています。 【問題点】 ところが無関係なセルを選択中に実行してしまうと、そのセルで実行されてしまい、気がつくと「要確認!」が とんでもない所に発生してしまいます。 実行範囲が3つのセルにまたがっており、あらかじめ固定することが出来ません。 【やりたい事】 A1・A2・A3のいずれか一箇所が選択されている時のみに実行させる方法はないでしょうか? どなたか教えてください(ponta_024)

  • Excel VBA アクティブセルからある一定のセルまでの範囲選択

    Excel VBA アクティブセルからある一定のセルまでの範囲選択 Excel2003を使用しています。 アクティブセルからC列に『計』と入力されている行の1行上のD列までを選択状態にするマクロを作成しようとしています。 C列に『計』と入力されている行は下記のように複数あるので、アクティブセルの行以下に入力されている次のC列の『計』の1行上までとしたいのですが、どのようにコードを書いたらいいでしょうか? 例えば… A2セルをアクティブにしていてマクロを実行するとA2:D3が選択状態に A7セルをアクティブにしていてマクロを実行すると、A7:D9が選択状態になるように という具合です。 わかりづらくて申し訳ありませんが、よろしくお願いします。    A     B     C     D 1  日付    №   品名    金額 2  1/1     1    ○○○   1,000 3  1/2     2    ×××   1,500 4              計      2,500 5 6 7   1/1     5    ○×○   2,000 8   1/3     6    ××○   1,200 9   1/4     7    ×○○   2,500               計      5,700            :            :

専門家に質問してみよう