掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
EXCELVBAで、リストボックスから入力した値を指定のセルにはき出すには？ (ID:76410)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございます。 おかげさまで解決出来ました。 少しかえてみて、 Private Sub CommandButton7_Click() cell = 14 'ワークシート(sheet3)の14行目から開始 For sel = 0 To ListBox1.ListCount - 3 'リストボックスの0行から最終行(最終2行除く)まで反復処理 If ListBox1.Selected(sel) Then Worksheets("sheet3").Activate Worksheets("sheet3").Cells(cell, 5).Value = ListBox1.List(sel,0) '一行づつ入力 cell = cell + 1 'ワークシート(sheet3)への格納順をカウントアップ End If Next End Sub という感じになりました。 ほとんどokuさんのそのままですけど。 ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.