Excel VBA質問箱 IV

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

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


12205 / 13644 ツリー ←次へ | 前へ→

【11690】文字の置換について neo 04/3/14(日) 21:31 質問
【11691】Re:文字の置換について かみちゃん 04/3/14(日) 21:40 発言
【11702】Re:文字の置換について neo 04/3/15(月) 7:27 質問
【11704】Re:文字の置換について Jカーター 04/3/15(月) 9:20 回答
【11705】Re:文字の置換について Asaki 04/3/15(月) 9:22 回答
【11707】Re:文字の置換について かみちゃん 04/3/15(月) 9:43 発言
【11751】Re:文字の置換について neo 04/3/15(月) 20:55 質問
【11761】Re:文字の置換について かみちゃん 04/3/16(火) 0:19 回答

【11690】文字の置換について
質問  neo  - 04/3/14(日) 21:31 -

引用なし
パスワード
   sheet1に1000件以上のデータがあり、A列をキーとしてtextboxに文字を入力しコマンドボタンで抽出したいデータを検索をかけるとシート2にデータが転記されるようなマクロを組むことができました。
ここからが難問です。
sheet2で抽出されたデータのなかからさらに選択をしたものを修正してA2:V2に表示しました。この表示されたデータをもう一度A列をキーとしてsheet1のA列とマッチする行に文字を返すのはどうしたらいいのか悩んでいます。過去の投稿もチェックしましたが、わかりませんでした。 よろしくお願いします。

【11691】Re:文字の置換について
発言  かみちゃん  - 04/3/14(日) 21:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>sheet2で抽出されたデータのなかからさらに選択をしたものを修正してA2:V2に表示しました。この表示されたデータをもう一度A列をキーとしてsheet1のA列とマッチする行に文字を返すのはどうしたらいいのか悩んでいます。過去の投稿もチェックしましたが、わかりませんでした。 よろしくお願いします。

ご質問内容がよく理解できないので、以下の点に整理して教えていただけますか?
・Sheet1のデータ(A列のみ)
・TextBoxの値
・Sheet2への転記結果
・さらに選択とは?
・選択したものを修正してA2:V2に表示したイメージ
・期待している結果

【11702】Re:文字の置換について
質問  neo  - 04/3/15(月) 7:27 -

引用なし
パスワード
   sheet1のデータは横列に22項目あり(a〜v列)、a列に4文字それぞれ入力しています。
このa列を検索キーとしてtextboxに文字を入力して検索させると、そのa列の文字に該当する行がsheet2のA2〜V2に表示されるように設定しました。
この表示された結果を修正して(a列の文字は変更しません)、修正した結果を再度sheet1の同じ行に戻したいのです。うまく伝えられなくてすみません。
こんな感じなのですが〜〜コレで伝わるでしょうか

【11704】Re:文字の置換について
回答  Jカーター  - 04/3/15(月) 9:20 -

引用なし
パスワード
   こんにちは。
>このa列を検索キーとして
>textboxに文字を入力して検索させると、
>そのa列の文字に該当する行がsheet2のA2〜V2に表示されるように設定しました。

これが出来ているならその逆をやればいいと思います。

とりあえず
上記動作のコードをここに書いてみてはどうでしょうか?

【11705】Re:文字の置換について
回答  Asaki  - 04/3/15(月) 9:22 -

引用なし
パスワード
   こんにちは。
後ろから失礼します。

Sheet2の修正したデータのA列に対応する項目を、Sheet1のA列から検索して、
そこに戻してやればよいのではないでしょうか?

それで上手くいきそうなら、まずは、検索のマクロの記録をお試しください。

【11707】Re:文字の置換について
発言  かみちゃん  - 04/3/15(月) 9:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>こんな感じなのですが〜〜コレで伝わるでしょうか

以下のようなことをしたいということですか?
・Sheet1のデータ
    A  B  C ・・・
  1 A111 B111 C111
  2 A222 B222 C222
  3 A333 B333 C333
・TextBoxの値
  A222
・Sheet2への転記結果 → ここまでできているということですね?
    A  B  C ・・・
  1 A222 B222 C222
・選択したものを修正してA2:V2に表示したイメージ
    A  B  C ・・・
  1 A222 B223 C223

  Sheet2のA1は、Sheet1へ戻すために修正しないということでいいですか?
  Sheet2の2行目以下は何もデータがないということでいですか?
  修正した結果は、どのように反映させたいのですか?ボタンをクリック
  するとか、単にマクロを実行するのかなど。

・期待しているSheet1の結果
    A  B  C ・・・
  1 A111 B111 C111
  2 A222 B223 C223 ← 修正された
  3 A333 B333 C333

【11751】Re:文字の置換について
質問  neo  - 04/3/15(月) 20:55 -

引用なし
パスワード
   ▼かみちゃん さん:
お世話になってます
そのとうりです!うまく伝えられなくてすみません

>  Sheet2のA1は、Sheet1へ戻すために修正はしません
>  Sheet2のA3以降、データがあります。
>  修正した結果は、ボタンをクリックして処理を実行したいのですがーーー
どうでしょうか?

【11761】Re:文字の置換について
回答  かみちゃん  - 04/3/16(火) 0:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>  Sheet2のA1は、Sheet1へ戻すために修正はしません
>>  Sheet2のA3以降、データがあります。
>>  修正した結果は、ボタンをクリックして処理を実行したいのですがーーー
>どうでしょうか?

であれば、JカーターさんやAsakiさんと同意見なのですが、いかがでしょうか?
textboxの値をSheet1から検索して、Shhet2の2行目に貼り付けるのができているのならば、Sheet2のA2の値がtextboxの値だとして、同じ要領でSheet1のA列を検索して、一致した行のA列からV列に貼り付ければいいのです。

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