teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2018/11/01 07:36

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -4,4 +4,16 @@
4
4
  MsgBox ListBox1.List(ListBox1.ListIndex, 0)
5
5
  または
6
6
  MsgBox ListBox1.Text
7
+ ```
8
+
9
+ 追記
10
+ 範囲選択したセルの値を結合してメッセージボックスに表示する。
11
+ ```VBA
12
+ Dim r1 As Variant
13
+ Dim r2 As Variant
14
+ With Worksheets("入力画面")
15
+ r1 = .Range(.Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 1), .Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 11))
16
+ r2 = WorksheetFunction.Transpose(WorksheetFunction.Transpose(r1))
17
+ MsgBox Join(r2, "")
18
+ End With
7
19
  ```