• ベストアンサー

VBA　見つからなかった時の処理

VBAで検索した文字が見つかったら処理をしますが、 見つからなかったらエラーになります。 見つからなかった場合に何もしない様に変えていただけないでしょうか？ Sheets("Sheet3").Range("A1") = _ Sheets("Sheet1").Cells.Find("あああ").Offset(1, 0)

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

  • ベストアンサー
  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.2

NO1です。 前回答では見つかなかったらマクロ終了としましたが、当該マクロを続行させる場合の例です。 Set wk = Sheets("Sheet1").Cells.Find("あああ") If Not wk Is Nothing Then Sheets("Sheet3").Range("A1") = wk.Offset(1, 0) End If ～以下継続

fightman11
質問者

お礼

ありがとうございます、バッチリです。 解決しました。

その他の回答 (2)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

こんなところへ質問する前に、Ｇｏｏｇｌｅででも「Ｆｉｎｄ　ＶＢＡ」などで照会すれば、沢山記事が出ますので勉強してからにすべきでしょう。 http://officetanaka.net/excel/vba/cell/cell11.htm ＶＢＡをやるならマクロの記録、ＷＥＢ照会、手元のＶＢＡ書籍の記述参照はまず心がけなけばならないでしょう。 ＞Findメソッドは、引数Whatに指定した検索値が見つかった場合は、見つかったセル(Rangeオブジェクト)を返します。ただし、見つからなかった場合はNothingという特別な状態を返します これを検知します。 ーー ・外に該当が複数ありえる場合は、ＦｉｎｄＮｅｘｔを使う ・該当の最後まで検索されて後は、最初の該当分のセルに戻る。 ことを体験すること。後者の検知で検索は終わることになります。 ＞Sheets("Sheet1").Cells.Find("あああ").Offset(1, 0) Ｏｆｆｓｅｔ利用は、まず該当のデータがあるセルをとらえて、その後次の行に記述したほうが良いと思う。 初心者の場合は余り複数のことを複合化した記述はしないほうが良いでしょう。

  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.1

一例です。 Set wk = Sheets("Sheet1").Cells.Find("あああ") If wk Is Nothing Then Exit Sub Sheets("Sheet3").Range("A1") = wk.Offset(1, 0)

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセル　実行時エラー 438

    Sheets("シート1").Column("a").Find(What:="検索文字").Row で 実行時エラー 438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 が発生する理由は、セルに検索文字がないからですか？ それとも文法が間違っているからですか？ Sheets("シート1").Column("a").Find(What:="検索文字").Row だとエラーになるのに、 Sheets("シート1").cells.Find(What:="検索文字").Row これだと検索文字が入ってる行番号を返します。 Ａ列には、検索文字が入っているのに、 .Column("a")だとダメで、.cellsだと問題ない理由は何でしょうか？ Column(1)にしてもエラーになります。

  • VBA　実行時エラー　1004　の表示が出る

    下記のVBAを作成していてエラーが出てしまいます やりたいこととしてはボタンを選択すると 特定のシート[AAA]の最終行を取得して 別シート[BBB]の2行目をシート[AAA]との最終行までコピーすることです --- Private Sub CommandButton_Click() Sheets("AAA").Range("A1", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Resize(, 3).Formula = Sheets("BBB").Range("B2:D2").Formula End Sub

  • VBAのCopyコマンドについて

    エクセルVBAでシート3のRangeの値をからシート2のRangeへデータをコピーしようとしているのですが Sheets(3).Range("B3:B100").Copy _ Sheets(2).Range(Cells(3, col2 - 1), Cells(100, col2 - 1)) がうまくいって、 Sheets(3).Range(Cells(2, col1), Cells(100, col1)).Copy _ sheets(2).Range(Cells(2, col2), Cells(100, col2)) が何故、オブジェクト定義エラーになってしまうのがわかりません。 col1、col2は列の変数です。 よろしくお願いします。

  • Excel VBA 指定シートの取込

    こんにちは。 ExcelのVBAを使用して、異なるBookのシートを取込みたいのですが、 シートが無かった場合の処理方法がわかりません。 現在のコードは下記の様になっております。 With Workbooks.Open"BOOK1.xls" .Worksheets("Sh1").Cells.Copy ThisWorkbook.Sheets("Sheet1").Range("A1") .Worksheets("Sh2").Cells.Copy ThisWorkbook.Sheets("Sheet2").Range("A1") .Worksheets("Sh3").Cells.Copy ThisWorkbook.Sheets("Sheet3").Range("A1") .Close End With Book1に指定したシートが無い場合、何もしないようにしたいのですが、 どの様に書き換えれば宜しいでしょうか？ よろしくお願いします。

  • VBA:実行時エラー1004

    VBAにて以下のコードを実行すると実行時エラー1004が出ます。 dim tokuisakicode as string If Not Sheets("sheet2").Range("A" & cnt2).Value = Sheets("sheet2").Range("A" & cnt2 - 1).Value Then 　tokuisakicode = Sheets("Sheet2").Cells(cnt2, 1).Value ↓エラーが出る行 　Sheets("A").Cells(1, cnt6).Value = tokuisakicode ↑エラーが出る行 　cnt2 = cnt2 + 1 　cnt6 = cnt6 + 1 Else 　cnt2 = cnt2 + 1 End If エラー1004は自分の経験上記述ミスなどのケアレスミスが多いのですが、今回は原因がどうしてもわかりません。 お分かりの方みえたらお教えください。

  • 最終行／処理対象のデータまでを表すＶＢＡ

    こんばんは、データの最終行／処理する対象のセルまで処理する場合のＶＢＡの記述について質問させてください！ＶＢＡの最終行／処理する対象のセルまで選択するために使用する記述方法が何種類かありますが、そのうち、書籍やネットで検索しても出てこない記述方法について今一つ理解ができていません(T_T) 本屋で売っている書籍やネットで検索すると出てくる記述方法 Range～.End(xlUp).Row Range～.CurrentRegion Range～.SpecialCells(xlLastCell) Range～.Cells(Rows.Count, 1).End(xlUp).Row 上記のようなＶＢＡは書籍やネットで検索すると説明や違いについても出てくるので、説明を読めば理解ができるのですが、 Sheets("テスト").Range("A1:C" & Sheets("テスト").Cells　_(1).CurrentRegion.Rows.Count) Range("A1").CurrentRegion.Cells(Range _("A1").CurrentRegion.Cells.Count).Row 上記のようなＶＢＡについては検索しても説明など出てこないうえに、 なぜ上記のような記述になるのかあまり理解できていません(>_<) 書籍やネットで検索すると出てくる「Range～.CurrentRegion」などの記述方法から何となく、CurrentRegionやCells.Countを使わないといけないというのは理解できますが、なぜ「～CurrentRegion.Rows.Count)」はRowsがカッコの中に入っていて、「～CurrentRegion.Cells.Count).Row」はカッコの外に出ているのか？？といった細かいことが分からずにいます。。。 半ば丸暗記のようにして使ってしまっているのですが、もし上記のようなＶＢＡについてわかるかたがいらっしゃれば、ご教授いただけるととても嬉しいです！ また、上記以外にもまだ検索しても出てこないようなＶＢＡがあるのでしょうか？？ 頭が混乱しそうです！(゜Д゜;)

  • Matchの処理について

    下記の処理がどうしてもうまくいかなくて、 皆様のお知恵を拝借できればありがたいです。 Sheet1に下記のように縦に３列データがならんでいます。 A　　あ　　10 A　　い　　12 A　　う　　16 B　　あ　　19 B　　い　　15 B　　う　　 7 これをもとにSheet2に下記の通りマトリクス形式に 変換する。 　　あ　　い　　う A 　10　　12　　16 B 　19　　15　　 7 これを処理しようと以下の通り記述したのですが、 マッチする項目がなかった場合、どうも行（列）が ずれてヒットしているようです。 On Error Resume Nextが原因のような気がするのですが。 これを回避するにはどうしたらよろしいでしょうか？ お助けください～。 よろしくお願い致します。 Dim i As Long Dim j As Long Dim k As Long Dim 検索値A As Variant Dim 検索値B As Variant On Error Resume Next i = 2 Do While (Sheets("SHEET1").Cells(i, 1) <> "") 検索値A = Sheets("SHEET1").Cells(i, 1).Value 検索値B = Sheets("SHEET1").Cells(i, 2).Value j = Application.Match(検索値A, Sheets("Sheet2").Range("範囲A"), 0) k = Application.Match(検索値B, Sheets("Sheet2").Range("範囲B"), 0) Sheets("Sheet2").Cells(j, k).Value =Sheets("SHEET1").Cells(i, 3) i = i + 1 Loop End Sub

  • エクセルVBAで選択していないシートのセルコピー

    エクセルVBAで質問させてください。 現在選択していないシートから、セルの書式ごとコピーして貼り付けたいのです。 たとえば Sheets(1).Range(Cells(1, 1), Cells(4, 1)).Copy Sheets(2).Range("A1") 等とすると、Sheets(2)が選択されている状態だとエラーになってしまいます。 おそらく、Copyメソッドというのは、選択されているシートにのみ有効だからなのではないか、と思いますが、セルの値だけでなくフォントその他の書式を、別のシート（現在アクティブでない）から持ってくる方法はありますか？

  • VBAでエラー時にメッセージを表示したい

    こんばんわ！ エクセルのVBAについて質問です。 以下のように組み込みDATAシートからフィルターをかけて抽出シートへ結果を表示するようになっていますが、DATAシートにデーターがない状態でするとエラーになりますがその際にDATAシートにデーターが入っていませんとメッセージボックスが出る様にするにはどうすればいいでしょうか？ まだまだ勉強中の身ですので教えて頂ければ有難いです。 お手数ですが宜しくお願いします。 Sub 抽出() Application.ScreenUpdating = False Sheets("抽出").Activate Cells.Clear Sheets("抽出").Range("A1").Value = Sheets("DATA").Range("A2").Value Sheets("抽出").Range("B1").Value = Sheets("DATA").Range("B2").Value Sheets("抽出").Range("C1").Value = Sheets("DATA").Range("C2").Value Sheets("抽出").Range("D1").Value = Sheets("DATA").Range("D2").Value Sheets("DATA").Range("A3").CurrentRegion.AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("検索").Range("A1:D2"), _ CopyToRange:=Sheets("抽出").Range("A1"), _ Unique:=False Sheets("抽出").Columns("A:D").AutoFit Application.ScreenUpdating = True End Sub

  • エクセルVBA　での繰り返し処理について

    エクセルVBA　での繰り返し処理について 以下の作業を２０回繰り返そうとしています（別シートから持ってきた値を「行列を入れ替えて」貼り付け） 　　 Sheets("初期設定").Select Range("A6:C6").Select Selection.Copy Sheets(TS).Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 　　「初期設定」シートの方は1行ずつ並んでいるので、「2回目」の「2行目」は 　　「 Range("A7:C7").Select」になり、 　　「TS」シートの20行後に貼り付けたいので、「2回目」の「5行目」は 　　「Range("B24").Select」　になります 　　これを、for ～　next　を使い、以下のようにしてみましたが、上手くいきません。 　　 For j = 6 To 26 For k = 4 To 384 Step 20 Sheets("初期設定").Select Range(Cells(j, 1), Cells(j, 3)).Select Selection.Copy Sheets(TS).Select Cells(k, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Next k Next j 　1分程度ループし続けた後、「初期設定」シートの最終行だけが貼り付けられてしまいました。 どこをどのように直せばいいのかお教えください。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する