No.2ベストアンサー
- 回答日時:
こんにちは、みっちょです。
セルの途中を1列飛ばした範囲をリストとしたいのでしょうか?
それであればセル内容の変更に同期させる必要が無いのであれば、
Dim tV As Variant, LL As Long, tI As Long
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "150;0;150;0;0"
LL = Worksheets("シートA").Cells(Rows.Count, 5).End(xlUp).Row
ReDim tV(LL - 6, 4)
For tI = 6 To LL
tV(tI - 6, 0) = Worksheets("シートA").Cells(tI, 3).Value
tV(tI - 6, 2) = Worksheets("シートA").Cells(tI, 4).Value
tV(tI - 6, 3) = Worksheets("シートA").Cells(tI, 5).Value
tV(tI - 6, 4) = Worksheets("シートA").Cells(tI, 6).Value
Next
ListBox1.List = tV
などとやれば、リストの内容をセルより更新できます。
逆に先にリスト側に出来上がっている内容をセルに移すには、
Dim tV As Variant, LL As Long, tI As Long
tV = ListBox1.List
LL = UBound(tV)
For tI = 0 To LL
Worksheets("シートA").Cells(tI + 5, 3).Value = tV(tI, 0)
Worksheets("シートA").Cells(tI + 5, 4).Value = tV(tI, 2)
Worksheets("シートA").Cells(tI + 5, 5).Value = tV(tI, 3)
Worksheets("シートA").Cells(tI + 5, 6).Value = tV(tI, 4)
Next
などとやれば可能です。こういった感じではいかがでしょう?
No.1
- 回答日時:
こんにちは、みっちょです。
意図されていることが良く解りませんが、
4項目程度ならベタ打ちしてはどうでしょう?
Worksheets("シートA").Range("C6").Value = ListBox1.List(ListBox1.ListIndex, 0)
Worksheets("シートA").Range("D6").Value = ListBox1.List(ListBox1.ListIndex, 2)
Worksheets("シートA").Range("E6").Value = ListBox1.List(ListBox1.ListIndex, 3)
Worksheets("シートA").Range("F6").Value = ListBox1.List(ListBox1.ListIndex, 4)
こんな感じでは求める結果は得られませんか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA リスト表示していますが 3 2023/05/18 12:12
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ShowAllDataのエラーを回避したい
Access(アクセス)
-
リストボックスから複数行を選択し、その複数のデータをセルに入力したい
Visual Basic(VBA)
-
UserForm1.Showでエラーになります。
工学
-
-
4
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
5
Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームに入力したデ...
-
別のシートから値を取得するとき
-
VBA 検索して一致したセル...
-
excelのマクロで該当処理できな...
-
エクセル・マクロ シートの非...
-
同じ作業を複数のシートに実行...
-
実行時エラー'1004': WorkSheet...
-
実行時エラー1004「Select メソ...
-
ブック名、シート名を他のモジ...
-
VBAで同じシート名のコピー時は...
-
Excel VBA 複数行を数の分だけ...
-
Excel VBA リンク先をシート...
-
シートが保護されている状態で...
-
VBA 最終行まで数式をコピーする
-
VBA 入力月で該当シートを選択...
-
エクセルVBA Ifでシート名が合...
-
ExcelVBA:複数の特定のグラフ...
-
別のシートを参照して計算する方法
-
エクセルのシート名変更で重複...
-
VBA 存在しないシートを選...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報