Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12157 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12029】検索と貼り付け だいち 04/3/22(月) 15:55 質問
【12033】Re:検索と貼り付け Jaka 04/3/22(月) 16:45 回答
【12040】Re:検索と貼り付け だいち 04/3/22(月) 17:15 質問
【12044】Re:検索と貼り付け Jaka 04/3/22(月) 17:27 回答
【12049】Re:検索と貼り付け だいち 04/3/22(月) 18:07 発言
【12055】スペル間違えていました。 Jaka 04/3/23(火) 9:40 回答
【12035】Re:検索と貼り付け こうちゃん 04/3/22(月) 16:52 回答
【12043】Re:検索と貼り付け だいち 04/3/22(月) 17:25 発言
【12046】Re:検索と貼り付け こうちゃん 04/3/22(月) 17:34 発言
【12060】関数編 Jaka 04/3/23(火) 10:50 回答
【12029】検索と貼り付け
質問  だいち  - 04/3/22(月) 15:55 -
引用なし
パスワード
   次のようなもし、シート１の範囲（"A1:Z10"）の、あるセルの値が　”合”であれば、
そのセルの右隣のセルに、
シート２の　セルA１　を貼り付けたいのです。


findで、"合"を検索して、ペーストする方法を試したのですが、
それだと、一カ所しか貼り付けできません。
良い方法はないでしょうか？
教えてください。
【12033】Re:検索と貼り付け
回答  Jaka  - 04/3/22(月) 16:45 -
引用なし
パスワード
   こんにちは。

>findで、"合"を検索して、ペーストする方法を試したのですが、
>それだと、一カ所しか貼り付けできません。

findのヘルプを良く読んで見てください。
特にFindNextの部分
参考になる？
[#10169]
【12035】Re:検索と貼り付け
回答  こうちゃん E-MAIL  - 04/3/22(月) 16:52 -
引用なし
パスワード
   だいちさん、Jakaさん、こんにちは

>次のようなもし、シート１の範囲（"A1:Z10"）の、あるセルの値が　”合”であれば、
>シート２の　セルA１　を貼り付けたいのです。
>
>
>findで、"合"を検索して、ペーストする方法を試したのですが、
>それだと、一カ所しか貼り付けできません。
>良い方法はないでしょうか？
>教えてください。

計算式じゃだめですか？
>そのセルの右隣のセルに、
ってことなので、B1セルに計算式設定して、10行までコピー、それをB列、D列・・Z列にコピーってのじゃだめですか？
=IF(A1="合",Sheet2!$A$1,"")

＃仕様の受け取り方が違うかな?違ったらごめんなさい。
【12040】Re:検索と貼り付け
質問  だいち  - 04/3/22(月) 17:15 -
引用なし
パスワード
   Find、コピー、貼り付けの順番でいいのか、わかりません。
自分なりに作っているのですが、どこが問題かアドバイスいただけませんか？


Sub テスト15()
With Worksheets(1).Range("a1:z13")
　 Set c = .Find("合")
　　If Not c Is Nothing Then
　　　　Worksheets(3).Range("a1").Copy
　　　　Worksheets(1).c.offset(0,1).Paste
　　　　Do
　　　　　　Set c = .FindNext(c)
　　　　Loop While Not c Is Nothing
　　End If
End With
End Sub
【12043】Re:検索と貼り付け
発言  だいち  - 04/3/22(月) 17:25 -
引用なし
パスワード
   お返事ありがとうございます。
いい足りなかったことがありました。ごめんなさい。

ワークシート関数だと条件が７つまでなのです。

セルが、”合”のときは、右隣にシート２のA１を
セルが、”乙”のときは、右隣にシート２のA2を
セルが、”老”のときは、右隣にシート２のA3を
　・
　・
　・
（以下全１２４通り）


ということをしたいと考えているので、
マクロでなんとかならないでしょうか？

＜＜沖縄三味線の楽譜を便利に作れるマクロをつくりたい！＞＞
【12044】Re:検索と貼り付け
回答  Jaka  - 04/3/22(月) 17:27 -
引用なし
パスワード
   ▼だいち さん：
>Find、コピー、貼り付けの順番でいいのか、わかりません。
>自分なりに作っているのですが、どこが問題かアドバイスいただけませんか？
>
>
>Sub テスト15()
>With Worksheets(1).Range("a1:z13")
>　 Set c = .Find("合")
>　　If Not c Is Nothing Then
　　　　savadd=C.address
>　　　　Do
>　　　　Worksheets(3).Range("a1").Copy
>　　　　Worksheets(1).c.offset(0,1).Paste

>　　　　　　Set c = .FindNext(c)
>　　　　Loop until savadd=c.address
　　 esle
　　　　msgbox "ありません"
>　　End If
>End With
>End Sub
【12046】Re:検索と貼り付け
発言  こうちゃん E-MAIL  - 04/3/22(月) 17:34 -
引用なし
パスワード
   だいちさん、こんにちは

>ワークシート関数だと条件が７つまでなのです。
>
>セルが、”合”のときは、右隣にシート２のA１を
>セルが、”乙”のときは、右隣にシート２のA2を
>セルが、”老”のときは、右隣にシート２のA3を
>　・
>　・
>　・
>（以下全１２４通り）
>
>
>ということをしたいと考えているので、
>マクロでなんとかならないでしょうか？
>
>＜＜沖縄三味線の楽譜を便利に作れるマクロをつくりたい！＞＞

マクロで、ということなので、あとはJakaさん、お願いします。
＃蛇足になりますが、ワークシート関数でいえばVLOOKUPあたりでいいような・・
【12049】Re:検索と貼り付け
発言  だいち  - 04/3/22(月) 18:07 -
引用なし
パスワード
   度々、お返事ありがとうございます。
なかなか解決には至りません。

プロパティとメソッドに問題があると、表示されます。
もうすこし、シンプルなコマンドの方がいいんですかね。
考えてみます。

今後とも、アドバイスよろしくお願いします。
【12055】スペル間違えていました。
回答  Jaka  - 04/3/23(火) 9:40 -
引用なし
パスワード
   すみません。

esle
↓
Else

>プロパティとメソッドに問題があると、表示されます。

たぶんこれ。
>Worksheets(1).c.offset(0,1).Paste
　↓
c.Offset(, 1).PasteSpecial Paste:=xlValues
'Paste:=xlValuesを外しても良いけど。詳しくはヘルプ見てね。

>全１２４通り
ちょっと考えて見ようかなぁ！関数の方。
【12060】関数編
回答  Jaka  - 04/3/23(火) 10:50 -
引用なし
パスワード
   関数編

Sheet2のＢ列に

"合"のときは、A1を
"乙"のときは、A2を
"老"のときは、A3を

と、下記の様に見合った文字を入れておき、

　　Ａ　Ｂ
1 　　　合
2 　　　乙
3 　　　老
4 　　　・
5 　　　・
　　　　・
　　　　・
124 　　・


Sheet1のＢ１に書き関数を入れ下にフィル。

=INDEX(Sheet2!$A$1:$B$124,MATCH(OFFSET(B1,0,-1,1,1),Sheet2!$B$1:$B$124,0),1)

エラー時に空白にしたいときは、（適当な位置で改行してあります。）

=IF(ISNA(INDEX(Sheet2!$A$1:$B$124,MATCH(OFFSET(B1,0,-1,1,1),
Sheet2!$B$1:$B$124,0),1)),"",INDEX(Sheet2!$A$1:$B$124,
MATCH(OFFSET(B1,0,-1,1,1),Sheet2!$B$1:$B$124,0),1))

B1〜B124をコピーして、Ｃ列Ｅ列Ｇ列．．．に貼りつける。


▼こうちゃん さん：
>マクロで、ということなので、あとはJakaさん、お願いします。
>＃蛇足になりますが、ワークシート関数でいえばVLOOKUPあたりでいいような・・

こうちゃん さん　こんにちは。
お願いしますって言われても、私は、楽器ひけませんって。
猫踏んじゃったなら出だしだけ．．．。
なんとなく作ってたらINDEXを使いましたが、
決して逆らったわけではありません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12157 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free