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

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

■13422 / 4階層) 　リストボックスからの修正
□投稿者/ 斎藤 -(2019/09/21(Sat) 10:32:37)
    よね様

    申し訳ありません。自己解決いたしました。

    いろいろ調べてみて、以下の場所を変更したところ、思うような処理になりました。

    Private Sub lstデータリスト_Click()
    With lstデータリスト
    lbl管理番号.Caption = .List(.ListIndex, 0)
    txt商品名.Text = .List(.ListIndex, 1)
    txt規格.Text = .List(.ListIndex, 2)
    txt定価.Text = .List(.ListIndex, 3)

    ↓↓↓↓↓

    Private Sub lstデータリスト_AfterUpdate() '←イベントを変更
    Dim targetRow As Integer
    targetRow = lstデータリスト

    With Worksheets("商品マスタ")

    lbl管理番号.Caption = .Cells(targetRow + 1, 1)
    txt商品名.Text = .Cells(targetRow + 1, 2)
    txt規格.Text = .Cells(targetRow + 1, 3)
    txt定価.Text = .Cells(targetRow + 1, 4)

    End With

    End Sub


    拙い質問にご回答いただきありがとうございます。
    また何かありましたらご相談させていただきますので、何とぞよろしくお願いいたします。

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[3]: リストボックスからの修正 /よねさん →Re[5]: リストボックスからの修正 /よねさん
　
上記関連ツリー

Nomal リストボックスからの修正 / 斎藤 (19/09/20(Fri) 00:49) #13416
└Nomal Re[1]: リストボックスからの修正 / よねさん (19/09/20(Fri) 09:02) #13417
  └Nomal Re[2]: リストボックスからの修正 / 斎藤 (19/09/20(Fri) 14:10) #13418
    └Nomal Re[3]: リストボックスからの修正 / よねさん (19/09/20(Fri) 14:47) #13419
      ├Nomal Re[4]: リストボックスからの修正 / 斎藤 (19/09/20(Fri) 17:20) #13420
      └Nomal リストボックスからの修正 / 斎藤 (19/09/21(Sat) 10:32) #13422 ←Now
        └Nomal Re[5]: リストボックスからの修正 / よねさん (19/09/21(Sat) 12:20) #13423

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Pass/

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

- Child Tree -