[[20190130202008]]　『特定の単語の横のセルの値を取得して他のセルに入』（ひろ）　ページの最後に飛ぶ

『特定の単語の横のセルの値を取得して他のセルに入力するには』（ひろ）

いつもお世話になっております
A B
２０１９年　　　１月
とあった場合
２０１９年　のとなりのセルの１月という文字を取得して他のセルに入力したいのですがどうマクロを書けばよろしいでしょうか
変数を使うのはわかりますが

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 こんばんは！

 なんかどっきっとする様な例題ですねぇ。。。まぁ、、例えなんでしょうけど、、、

 Option Explicit
Sub てすと()
Dim r As Range
Dim 目標 As String
Set r = Sheets("Sheet1").Cells.Find("2019年", , , xlPart, , xlNext, False, False)
If Not r Is Nothing Then
    目標 = r.Offset(, 1).Value
    r.Offset(, 2).Value = 目標
End If
End Sub
（SoulMan） 2019/01/30(水) 20:46

どちらのひろさんかわからないけど、↓参考になりそうですよ。

[[20190129114306]]　『特定の列の特定の単語を検索して　その単語の横の』（ひろ）

（もこな２） 2019/01/30(水) 20:58

 これはこれは、、、色々とつながりがあるのですね。
 もこな２　さん　ありがとうございます。
（SoulMan） 2019/01/30(水) 21:18

Set r = Sheets("Sheet1").Cells.Find("2019年", , , xlPart, , xlNext, False, False)
って
Set r =.Cells(, "a") = "年"
ではだめでしょうか
（ひろ） 2019/01/30(水) 22:19

だめですね。
これまた、どちらのひろさんかわからないが、試せばわかることを聞くのはやめたほうがいいですよ。デバッグ作業は自分ですべきです。

私が思っている方であれば、既に注意を受けているとおもいますが・・・

（もこな２） 2019/01/30(水) 22:22

おまけで。

ちなみにSoulManさんが紹介されているのはFindメソッドといいます。
http://officetanaka.net/excel/vba/cell/cell11.htm
https://www.moug.net/tech/exvba/0050116.html
https://www.moug.net/tech/exvba/0150111.html

個人的には、名前付き引数を省略してしまうと訳が分からなくなるので、慣れないうちから（少なくともFindってなんですか？レベルであれば）名前付き引数を省略することは非推奨です。

（もこな２） 2019/01/30(水) 22:30

vlookup関数は使ったことありますか。
マクロでも使えます。

 Sub test()
    Dim s

    s = Application.VLookup("*年", Sheets("Sheet1").Columns("A:B"), 2, False)
    MsgBox s

 End Sub

（マナ） 2019/01/30(水) 22:57

皆さんありがとうございます
Dim a As Range
Dim 月 As String
'月
Set a = Sheets("Sheet1").Cells.Find("2019年", , , xlPart, , xlNext, False, False)

If Not a Is Nothing Then

    月 = a.Offset(, 1).Value
で取得することができました
（ひろ） 2019/02/01(金) 18:55

う～ん。解決したんでしょうか。

例だと、A列が「2019年」でB列が「1月」の場合、B列の1月を取得して、別セルに出力って読んだんだけど、
出来たっておっしゃるコードは、
シートの【全セル】から、「2019年」を含むセルを検索して、右隣の値を変数「月」に格納するってことになってますけど・・・・

まぁ出来たって言っている以上、私が質問読み間違えて余計なお世話をしているだけですかね。

とりあえず余計なお世話ついでに、LookIn(検索対象)を省略してるから、前回検索（手動も含む）の条件によっては、対象が見つからなくなる気がするのと、例示のようにA列だけ調べればよいのであれば、全セルを対象にするのは無駄に思います。

（もこな２） 2019/02/02(土) 09:52

コメント返信：

[ 一覧(最新更新順) ]

[[20190130202008]] 『特定の単語の横のセルの値を取得して他のセルに入』（ひろ） ページの最後に飛ぶ

[[20190130202008]]　『特定の単語の横のセルの値を取得して他のセルに入』（ひろ）　ページの最後に飛ぶ