よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■13409 / inTopicNo.1)  2つのフォーム間でリストボックス複数選択
  
□投稿者/ 斎藤 -(2019/09/02(Mon) 20:35:45)
    お世話になります。

    標題についてですが、以下のようなことを行いたいと考えています。
    @商品シートを作成しユーザーフォーム1に商品選択ボタンと空のリスボックスを配置。
    A商品選択ボタンを押した時にユーザーフォーム2を開いて商品シートを参照したリストボックスを表示。
    Bユーザーフォーム2のリストボックスで複数選択し、追加ボタンを押下した時にユーザーフォーム1に反映する。
    Bの方法が分からず調べております。
    何か方法がありましたらご教示ください。

    よろしくお願いいたします。
引用返信/返信 削除キー/
■13410 / inTopicNo.2)  Re[1]: 2つのフォーム間でリストボックス複数選択
□投稿者/ よねさん -(2019/09/03(Tue) 07:38:42)
引用返信/返信 削除キー/
■13411 / inTopicNo.3)  Re[2]: 2つのフォーム間でリストボックス複数選択
□投稿者/ 斎藤 -(2019/09/03(Tue) 13:42:02)
    ご返信頂きありがとうございます。
    
    当初はリストボックスからリストボックスと考えておりましたが、
    商品の数量を入れる必要がある為、
    リストボックスから以下の項目を入れた場合、それぞれテキストボックスに反映する事は可能でしょうか。
    
    品名、規格、単価をリストボックスから選択(商品を複数選択)
    
    品名、規格、単価、数量をテキストボックスで作成し、数量によって単価の合計を変える。
    
    イメージとしては以下のような感じです。
    
     品名     規格    単価    数量     小計
    @txt品名1 txt規格1 txt単価1 txt数量1 lbl小計1
    Atxt品名2 txt規格2 txt単価2 txt数量2 lbl小計2
    Btxt品名3 txt規格3 txt単価3 txt数量3 lbl小計3
    Ctxt品名4 txt規格4 txt単価4 txt数量4 lbl小計4
    Dtxt品名5 txt規格5 txt単価5 txt数量5 lbl小計5
    
    合計金額:lbl小計1〜lbl小計5
    
    アドバイスを頂けますと幸いです。
    よろしくお願い致します。

引用返信/返信 削除キー/
■13412 / inTopicNo.4)  Re[3]: 2つのフォーム間でリストボックス複数選択
□投稿者/ よねさん -(2019/09/03(Tue) 14:49:36)
    > 品名、規格、単価をリストボックスから選択(商品を複数選択)
    > 品名、規格、単価、数量をテキストボックスで作成し、数量によって単価の合計を変える。
    数量はどこから引っ張ってくるのか、書いてありませんが、
    合計はそれぞれ表示している単価と数量を掛け算するだけではないのですか?
    (それぞれの値がテキストの場合は、数値に変換する手間が必要かもしれません)
    
    リストボックスで選択している行の値を取得すれば
    その値を表示するのはリストボックスでもテキストボックスでも同じと思います。
    なんなら、作業用のシートを準備して、そこに書き出せば計算も簡単ですよね?
    (たぶんシートではテキストと数値の違いなど手間がいらないかもしれないし、
    シートならその違いも判断しやすいと思います)
    テキストボックスにもそのシートから書き出せば済みますし、
    作業用のシートを介すればVBAのコードを書くのも楽かもしれません。

引用返信/返信 削除キー/
■13413 / inTopicNo.5)  Re[4]: 2つのフォーム間でリストボックス複数選択
□投稿者/ 斎藤 -(2019/09/05(Thu) 22:18:10)
    アドバイス頂きありがとうございます。
    数量については手入力で考えております。

    選択したものを別シートに貼り付けるまではできたのですが、
    それを別のユーザーフォームにあるテキストボックスに
    反映させる方法が分かりません。

    行いたいこととしましては、
    @ユーザーフォーム1にテキストボックスを配置し、商品選択ボタンを配置。
    A商品選択のユーザーフォーム2を開き、リストボックスの中から項目を複数選択。
    B「追加」ボタンで別シートに選択項目をコピー。
    C別シートの項目をユーザーフォーム1のテキストボックスに反映。

    以上の方法をご教示頂けますようお願い致します。
引用返信/返信 削除キー/
■13414 / inTopicNo.6)  Re[5]: 2つのフォーム間でリストボックス複数選択
□投稿者/ よねさん -(2019/09/06(Fri) 09:20:02)
    > 行いたいこととしましては、
    > @ユーザーフォーム1にテキストボックスを配置し、商品選択ボタンを配置。
    > A商品選択のユーザーフォーム2を開き、リストボックスの中から項目を複数選択。
    > B「追加」ボタンで別シートに選択項目をコピー。
    
    ここまではできているようですね。
    
    > C別シートの項目をユーザーフォーム1のテキストボックスに反映。
    ここをどうするか? ということですね。
    ユーザーフォーム1にコマンドボタンを配置して、これをクリックするとシートの値を
    テキストボックスに表示する。という方法ではいかがですか?
    どのようなタイミングでテキストボックスを書き換えるコードを実行するのか・・・ということですよね?
    
    簡単な例ですが、標準モジュールには
    Sub test()
        Load UserForm1
        UserForm1.Show vbModeless
    End Sub
    ユーザーフォームへはテキストボックスとコマンドボタンが配置しています。
    Private Sub UserForm_Initialize()
        TextBox1.Value = "AAA"
    End Sub
    Private Sub CommandButton1_Click()
        TextBox1.Value = Worksheets("Sheet1").Range("B2").Value
    End Sub
    
    B2セルの値を変更して、フォームのコマンドボタンを押すと、B2セルの値が表示されます。

引用返信/返信 削除キー/
■13415 / inTopicNo.7)  Re[6]: 2つのフォーム間でリストボックス複数選択
□投稿者/ 斎藤 -(2019/09/11(Wed) 15:30:28)
    ご返信が遅れてしまい申し訳ありません。
    アドバイスを頂けて無事に対応することができました。

    ご迷惑をお掛けしますが、また質問したことがありましたら
    ご相談させて頂きます。
    よろしくお願い致します。
引用返信/返信 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -