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

解決済

質問者：dijfyn
質問日時：2013/12/17 07:17
回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「union Ｃ」に関するQ&A：配管継手について教えて下さい。 MCユニオンの【M】と【C】って何の略ですか？

さらに表示

「VBA 文字」に関するQ&A： VBAにて　文字と数字が混在してるデータの並び替え

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： tom04
回答日時：2013/12/17 09:12

こんにちは！

「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

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2013/12/17 15:03

No.1

回答者： kybo
回答日時：2013/12/17 09:01

Aと入力したセルをすべてなのか、1つのみなのかでかなり違います。

簡単には

Cells.Find("A", , , xlWhole).Select

とします。
見つからなければエラーです

- 1
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2013/12/17 14:58

このQ&Aに関連する人気のQ&A

「VBA 文字」に関するQ&A：ＶＢＡにてデータが数字か文字かを判定するには

さらに表示

「union Ｃ」に関するQ&A：「末端価格」の意味

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q指定した文字があった場合、その行を削除するマクロが欲しいです

指定した文字があった場合、その行を削除するマクロが欲しいです
Sheet1（Sheet1以外は対象外）のB列に
XYZ
という文字があった場合、その行をすべて削除する
というマクロはどのように作ればいいでしょうか？
お時間ある方アドバイスいただければ幸いです。

Aベストアンサー

手抜きですがこんな感じでどうでしょう。
削除する行が多いなら画面更新を停止した方が良いでしょう。

Sub Sample()
　Sheets("Sheet1").Select
　Do While (True)
　　Columns("B:B").Select
　　Set mySelect = Selection.Find(What:="XYZ")
　　If mySelect Is Nothing Then Exit Do
　　Rows(mySelect.Row).Select
　　Selection.Delete Shift:=xlUp
　Loop
End Sub

他の回答も見る

Q[初心者です]ＶＢＡで指定列からＡを検索し、発見したら隣のセルに値0を入れるマクロ。

VBAで指定列からＡを検索し、発見したら隣のセルに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があった時、、、、
とコードが書けないです。
大変困っているので、ご教授頂けないでしょうか？
出来れば、そのままマクロに出来るコードを教えて頂けないでしょうか？
宜しくお願い致します。

Aベストアンサー

こんばんは。

#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

他の回答も見る

Qある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか？

Excelの関数について質問します。
ある範囲のせるを検索して、その隣のセルの値を取得するという関数を探しています。
なければユーザー定義で作りたいと思っています。
VLOOKUP関数では一番左端が検索されますが、
それをある範囲まで拡張して、
その右隣の値を取得できるようにしたいのです。
どうかお知恵をお貸しください。

Aベストアンサー

●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す

　=OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1)))

※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定
※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))　⇒　A1:F200で値がX1と一致するセルの行番号

＞その「ある範囲」の中には検索したい値が入っているセルは１つしかありません。
というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、
場...続きを読む

他の回答も見る

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For　～　To　～
　　Worksheets("シートＡ").Activate
　　シートＡの値取得
　　　　　　　：
　　Worksheets("シートＢ").Activate
　　シートＢの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください！

Aベストアンサー

Worksheets("シートＡ").Range("A1")

みたいな感じでできませんか？

他の回答も見る

QExel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks....続きを読む

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列>　<B列>　<C列>
7/1　りんご　100円
7/2　ぶどう　200円
7/2　すいか　300円
7/3　みかん　100円

このような表があって、100円を含む行をそのままの形で、
別のセル（同じシート内）に抜き出したいのですが。

7/1　りんご　100円
7/3　みかん　100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は５００行までとしていますが、必要に応じて変更して下さい

他の回答も見る

QＥｘｃｅｌＶＢＡを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。

以下のようなプログラムをＶＢＡで作成したいと考えています。

Ａ１のセルに値があれば、その値をＢ１に返す。
次にＡ２のセルに値があれば、その値をＢ２に返す。
Ａ行に値がある一番下のセルまで同じようなことをさせたいと考えています。

ＶＢＡは初心者です。
どなかた宜しくお願い致します。

Aベストアンサー

＃２さんと似たものですが・・・・参考にしてください。

Sub test001()
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 2) = Cells(i, 1)
i = i + 1
Loop
End Sub

他の回答も見る

QエクセルのＩＦ関数で、文字が入力されていたならば～

エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またＩＦ関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか？

他の回答も見る

Qエクセルで条件に一致したセルの隣のセルを取得したい

下のような「得点」という名前のシートがあります。
（「田中」のセルがA1です。）

　[ 田中 ][ 10 ][ 200 ]
　[ 山田 ][ 21 ][ 150 ]
　[ 佐藤 ][ 76 ][ 250 ]
　[ 鈴木 ][ 53 ][ 350 ]

別のシートのA1セルに、「佐藤」と入力すると、

　[ 佐藤 ]

「得点」シートから「佐藤」の列を見つけて、B1、C1に

　[ 佐藤 ][ 76 ][ 250 ]

のように表示させたいのですが、B1、C1にはどのような式を書けば良いのでしょうか。
「得点」シートでは氏名が重複する事はありません。
IF文を使うと思うのですが、いまいち良く分かりませんでした。

よろしくおねがい致します。

Aベストアンサー

こんにちは！
VLOOKUP関数で対応できます。
IF関数と併用すればエラー処理が可能です。

Excel2007以降のバージョンであれば
B1セルに
=IFERROR(VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0),"")
としてC1セルまでオートフィルでコピー！
そのまま下へコピーすると行が2行目以降でも対応できます。

Excel2003までの場合は
=IF($A1="","",VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0))

としてみてください、m(_ _)m

他の回答も見る

ページトップ