Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
655 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79105】文字が含まれていたら転記 マリモ 17/5/11(木) 16:43 質問[未読]
【79106】Re:文字が含まれていたら転記 β 17/5/11(木) 19:58 発言[未読]
【79107】Re:文字が含まれていたら転記 通りすがり 17/5/12(金) 1:06 発言[未読]
【79188】Re:文字が含まれていたら転記 unko 17/6/5(月) 15:26 回答[未読]
【79196】Re:文字が含まれていたら転記 通りすがり 17/6/11(日) 19:49 発言[未読]
【79105】文字が含まれていたら転記
質問  マリモ  - 17/5/11(木) 16:43 -
引用なし
パスワード
   Sheet1に
a1=りんごがすき
a2=ぶどうがきらい

Sheet2に
a1=種類　b1=重さ　c1=地域
a2=りんご　b2=500g　c2=青森
a3=ぶどう　b3=300g　c3=山梨

上記のように書かれているとします。
Sheet1のA列には抽出したい文字が含まれており
Sheet2のA列の種類の文字が含まれていたら
種類、重さ、地域を紐付て表示したいのですが・・。

何かいい方法がございましたら
ご教示いただけるとありがたいです。　
【79106】Re:文字が含まれていたら転記
発言  β  - 17/5/11(木) 19:58 -
引用なし
パスワード
   ▼マリモ さん：

>種類、重さ、地域を紐付て表示したいのですが・・。

どのセルに、どのように表示するのですか？

>種類、重さ、地域を紐付て表示したいのですが・・。

たとえば　りんごもぶどうもすき　という文字列の場合、
何をどのように表示するのですか？
【79107】Re:文字が含まれていたら転記
発言  通りすがり  - 17/5/12(金) 1:06 -
引用なし
パスワード
   ここの板のポリシーに記載されている事柄です。

>もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください
【79188】Re:文字が含まれていたら転記
回答  unko  - 17/6/5(月) 15:26 -
引用なし
パスワード
   ▼マリモ さん：
如何ですか？

Sub 文字が含まれていたら転記()

Dim a As Long
Dim i As Long

For a = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To 3


If InStr(Cells(a, 1).Value, Worksheets("Sheet3").Cells(a, 1).Value) > 0 Then


Cells(a, i).Value = Worksheets("Sheet3").Cells(a, i).Value


End If

Next
Next

End Sub
【79196】Re:文字が含まれていたら転記
発言  通りすがり  - 17/6/11(日) 19:49 -
引用なし
パスワード
   ○koさんの回答は？？です。

シートの指定が無い部分があるし、シート名が間違ってる部分もあります。
インデントもきちんとつけた方がいいです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
655 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free