質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.78%

VBA 別シートの表に含まれる文字があったら、それを返したい

解決済

回答 3

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 414

score 19

初歩的な質問で申し訳ありません。
Sheet1に表1、Sheet2に表2があります。以下例を示します。

■Sheet1
番号 地名
1 ニューヨーク
2 ハワイ
3 京都
4 東京
5 ワシントン

■Sheet2
アメリカ  日本
ニューヨーク 東京
ボストン 神奈川
ロサンゼルス 京都
ハワイ 大阪
ワシントン 福岡

↓やりたいこと
■Sheet1
番号 地名 国名
1 ニューヨーク アメリカ
2 ハワイ アメリカ
3 京都 日本
4 東京 日本
5 ワシントン アメリカ

上記のように、
①Sheet1の2列目を一つずつ検索 (for文など)
②Sheet2の表のアメリカ列と一致 →真:sheet1の3列目にアメリカ
→偽:sheet1の3列目に日本

■試したコード
For i = 2 To xlDown
search= Worksheets("sheet1").Cells(i, 2).Value
If Worksheets("sheet2").Range("A1:A6").Find(What:="search") Then
Worksheets("sheet1").Cells(i,3) = "アメリカ"
Else
Worksheets("sheet1").Cells(i, 3) = "日本"

■問題点
試したコードを実施すると、 オブジェクト変数またはwithブロック変数が設定されていません とエラーが出ます(if文の箇所)。問題点が分からないので解決方法を教えて頂きたいです。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • Y.H.

    2019/08/28 17:19

    で、何が問題になっていて、何を質問されたいのでしょうか?
    具体的に質問に追記ください。

    キャンセル

  • 退会済みユーザー

    2019/08/28 17:21

    複数のユーザーから「問題・課題が含まれていない質問」という意見がありました
    teratailでは、漠然とした興味から票を募るような質問や、意見の主張をすることを目的とした投稿は推奨していません。
    「編集」ボタンから編集を行い、質問の意図や解決したい課題を明確に記述していただくと回答が得られやすくなります。

  • kagobito

    2019/08/28 17:22

    失礼しました。試したコードを実施すると、
    オブジェクト変数またはwithブロック変数が設定されていません
    とエラーが出ますが、問題点が分からないので解決方法を教えて頂きたいです。

    キャンセル

  • tatsu99

    2019/08/28 18:45

    試したコードが提示されていますが、全ての行を提示していますか。
    途中までしか、提示していないように見えますが。

    キャンセル

回答 3

checkベストアンサー

0

■試したコード
For i = 2 To xlDown
search= Worksheets("sheet1").Cells(i, 2).Value
If Worksheets("sheet2").Range("A1:A6").Find(What:="search") Then
Worksheets("sheet1").Cells(i,3) = "アメリカ"
Else
Worksheets("sheet1").Cells(i, 3) = "日本"

問題点が分からないので解決方法を教えて頂きたいです。

えっと、、、
Findメソッドは、
「セル範囲」に対して検索する機能です。
そして、検索をして見つかったら、見つけた「セル範囲」を返します。

例えば、
「A列のセル」を見て「ニューヨーク」という文字が入っているセルを探す。
と命令して、
「A2セル」が見つかったとします。

そうすると、kagobitoさんが書かれている文章は

「もし、(A2セル)がその時は、3列目に(アメリカ)と入力する」

と書かれていますよね?
なんのことかわかります????

「もし、(A2セル)の値がニューヨークならば、その時は3列目に(アメリカ)と入力する」

というように書かないといけないですよね?

オブジェクト変数またはwithブロック変数が設定されていません とエラーが出ます

ここでまずは、「オブジェクト」とは何ぞや?ということを理解しておく
必要があります。(詳しくはネットで検索して確認をしてください。)
ここでは、「オブジェクト≒操作対象」という形で説明します。

つまりFnidメソッドで返ってきた操作対象のセルに対して、
どんな操作をするのかが書かれていないので、
何をしていいかわからないよというエラーです。
※エラーメッセージはズバリのヒントをくれないことが多々ありますので、
注意してください。

今回のFindメソッド件の場合、
検索して見つかった場合は、セル範囲を返しますし、
見つからなかった場合は、「Nothing」を返しますので、
一旦変数に返り値を受けて、
もし、その中身がNothingなら、何もしない。
そうでなければ、帰ってきたセル範囲に対して、
なんらかの操作の指示をしてやる必要があります。
Nothingの場合、操作対象でないので、操作の命令をするとエラーに
なりますので、Nothingかどうかで条件分岐をします。
そして、セルが見つかった場合は、その返り値を再利用したいので、
「変数」にそれを保持しておきます。

Sub test()
    Dim i As Long, j As Long
    Dim rngTarget As Range

    i = 2
    j = Worksheets("Sheet1").Range("A1").End(xlDown).Row

    For i = i To j
        Set rngTarget = Worksheets("Sheet2").Range("A1:A6").Find( _
                        what:=Worksheets("Sheet1").Cells(i, 2).Value)
        If rngTarget Is Nothing Then
        Else
            Worksheets("Sheet1").Cells(i, 3).Value = rngTarget.Offset(, 1).Value
        End If
    Next
End Sub

※普段なら、こんな書き方はしないのですが、
kagobitoさんが書きかけたコードを出来るだけいじらない方が、
kagobitoさんが理解しやすいかなと思ってサンプル書いてます。
他の方の質問と回答などのコードをたくさん見て、
変数(特にオブジェクト変数)の使い方を勉強されてみるといいと思います。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/08/30 14:07

    躓いていた箇所が解決出来ました。
    また、メソッドやオブジェクトから勉強の方向性も示して頂きありがとうございました。
    大変参考になりました。

    キャンセル

0

Findメソッドの戻り値をオブジェクトに入れたらどうでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

問題点はFindの使い方が違うということだけですね。
公式マニュアル
戻り値は以下の通りです。

検索範囲の先頭のセルを表す Range オブジェクト。
一致するデータが見つからなかった場合、このメソッドは Nothing を返します。

よってIf文で直接判定することはできません。
Is Nothingを使いましょう。
また引数whatがリテラル文字列になっています。
直前でsettei変数名を指定するようにしましょう。
修正すると以下のようになります。

If Worksheets("sheet2").Range("A1:A6").Find(What:=search) Is Nothing Then
    Worksheets("sheet1").Cells(i, 3) = "日本"
Else
    Worksheets("sheet1").Cells(i,3) = "アメリカ"
End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.78%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る