こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

よろしくお願いします。
したいことは、
ユーザーフォームのリストボックスで複数の値を選んで複数セルに転記する。
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

投稿日時 - 2019-01-18 18:30:18

QNo.9579016

困ってます

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

元のコードだと最終的に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

投稿日時 - 2019-01-18 20:23:18

お礼

mt2015 様
早速の回答ありがとうございます。
完璧です。

投稿日時 - 2019-01-18 22:03:27

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-