Excel VBA質問箱 IV

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

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


12156 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   次のようなもし、シート1の範囲("A1:Z10")の、あるセルの値が ”合”であれば、
そのセルの右隣のセルに、
シート2の セルA1 を貼り付けたいのです。


findで、"合"を検索して、ペーストする方法を試したのですが、
それだと、一カ所しか貼り付けできません。
良い方法はないでしょうか?
教えてください。

【12033】Re:検索と貼り付け
回答  Jaka  - 04/3/22(月) 16:45 -

引用なし
パスワード
   こんにちは。

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

findのヘルプを良く読んで見てください。
特にFindNextの部分
参考になる?
[#10169]

【12035】Re:検索と貼り付け
回答  こうちゃん E-MAIL  - 04/3/22(月) 16:52 -

引用なし
パスワード
   だいちさん、Jakaさん、こんにちは

>次のようなもし、シート1の範囲("A1:Z10")の、あるセルの値が ”合”であれば、
>シート2の セルA1 を貼り付けたいのです。
>
>
>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 -

引用なし
パスワード
   お返事ありがとうございます。
いい足りなかったことがありました。ごめんなさい。

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

セルが、”合”のときは、右隣にシート2のA1を
セルが、”乙”のときは、右隣にシート2のA2を
セルが、”老”のときは、右隣にシート2のA3を
 ・
 ・
 ・
(以下全124通り)


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

<<沖縄三味線の楽譜を便利に作れるマクロをつくりたい!>>

【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 -

引用なし
パスワード
   だいちさん、こんにちは

>ワークシート関数だと条件が7つまでなのです。
>
>セルが、”合”のときは、右隣にシート2のA1を
>セルが、”乙”のときは、右隣にシート2のA2を
>セルが、”老”のときは、右隣にシート2のA3を
> ・
> ・
> ・
>(以下全124通り)
>
>
>ということをしたいと考えているので、
>マクロでなんとかならないでしょうか?
>
><<沖縄三味線の楽譜を便利に作れるマクロをつくりたい!>>

マクロで、ということなので、あとは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を外しても良いけど。詳しくはヘルプ見てね。

>全124通り
ちょっと考えて見ようかなぁ!関数の方。

【12060】関数編
回答  Jaka  - 04/3/23(火) 10:50 -

引用なし
パスワード
   関数編

Sheet2のB列に

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

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

  A B
1    合
2    乙
3    老
4    ・
5    ・
    ・
    ・
124   ・


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

=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をコピーして、C列E列G列...に貼りつける。


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

こうちゃん さん こんにちは。
お願いしますって言われても、私は、楽器ひけませんって。
猫踏んじゃったなら出だしだけ...。
なんとなく作ってたらINDEXを使いましたが、
決して逆らったわけではありません。

12156 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free