解決済み

VBA リストボックスの値をセルに転記

  • 困ってます
  • 質問No.9579016
  • 閲覧数51
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 54% (84/153)

よろしくお願いします。
したいことは、
ユーザーフォームのリストボックスで複数の値を選んで複数セルに転記する。
ActiveCell.offset(10, 5) ⇐ リストボックスで選んだ1つ目
ActiveCell.offset(11, 5) ⇐ リストボックスで選んだ2つ目
ActiveCell.offset(12, 5) ⇐ リストボックスで選んだ3つ目

下の構文では1つしか転記できません。

Dim n As Integer, s As String
For n = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(n) Then
s = s & ListBox3.List(n) & vbCrLf
ActiveCell.offset(10, 5).Value = s
End If
Next

質問者が選んだベストアンサー

  • 回答No.1

ベストアンサー率 50% (227/448)

Excel(エクセル) カテゴリマスター
元のコードだと最終的にActiveCell.offset(10, 5)に選択された値が改行コードで連結された文字列が入るだけですよ。
こんな感じで如何。

Dim n As Integer, nRow
nRow = 10
For n = 0 To ListBox3.ListCount - 1
  If ListBox3.Selected(n) Then
    ActiveCell.Offset(nRow, 5).Value = ListBox3.List(n)
    nRow = nRow + 1
  End If
Next
お礼コメント
1211M

お礼率 54% (84/153)

mt2015 様
早速の回答ありがとうございます。
完璧です。
投稿日時 - 2019-01-18 22:03:27
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


OKWAVE若者応援スペシャル企画

ピックアップ

ページ先頭へ