Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61054 / 76732 ←次へ | 前へ→

【20303】Re:リストボックスのプロパティ
質問  mickeypapa WEB  - 04/12/4(土) 18:25 -

引用なし
パスワード
   ▼Kobasan さん:
大変申し訳ありませんが、またリストボックスで悩んでおります。
前回は、リストボックスにセットする配列が、一つだったのですが、
今回は、それぞれのリストボックスにそれぞれの配列をセットしたいのですが、

Private Sub UserForm_Initialize() '品名一覧
  Dim myAr1 As Variant
  Dim myAr2 As Variant
  Dim myAr3 As Variant
  Dim myAr4 As Variant
  Dim myAr5 As Variant
  Dim myAr6 As Variant
  Dim myAr7 As Variant
  Dim myAr8 As Variant
  Dim myAr9 As Variant
  Dim myAr10 As Variant
  Dim myAr11 As Variant
   
  myAr1 = Worksheets("U1").Range("A50:A68").Value '配列を指定
  myAr2 = Worksheets("U1").Range("B50:B57").Value
  myAr3 = Worksheets("U1").Range("C50:C63").Value
  myAr4 = Worksheets("U1").Range("D50:D64").Value
  myAr5 = Worksheets("U1").Range("E50:E66").Value
  myAr6 = Worksheets("U1").Range("A70:A83").Value
  myAr7 = Worksheets("U1").Range("B70:B77").Value
  myAr8 = Worksheets("U1").Range("C70:C81").Value
  myAr9 = Worksheets("U1").Range("D70:D77").Value
  myAr10 = Worksheets("U1").Range("E70:E76").Value
  myAr11 = Worksheets("U1").Range("F70:F79").Value
  
  For i = 1 To 11
    Controls("ListBox" & i).List = myAr ←この部分をどのように?
    Controls("ListBox" & i).ListIndex = 0
  Next
それとも他の書き方をしたほうがいいのでしょうか?

また、
Option Explicit
Dim i   As Long
Dim myStr As String

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
  With ListBox1
    For i = 0 To .ListCount - 1
      If .Selected(i) Then
        myStr = myStr & .List(i, 0)
      End If
    Next
  End With
  品名書込
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
  With ListBox1
    For i = 0 To .ListCount - 1
      If .Selected(i) Then
        myStr = myStr & .List(i, 0)
      End If
    Next
  End With
  品名書込
End Sub
このように同じ様なコードを11回書いていますが、これらをまとめるような
書き方はあるのでしょうか?
お忙しいところ申し訳ありませんが、ご教示宜しくお願い致します。

0 hits

【18982】リストボックスのプロパティ mickeypapa 04/10/18(月) 21:33 質問
【18983】Re:リストボックスのプロパティ ISK 04/10/18(月) 22:27 回答
【18984】Re:リストボックスのプロパティ mickeypapa 04/10/18(月) 23:17 お礼
【18986】Re:リストボックスのプロパティ Kobasan 04/10/19(火) 0:27 回答
【19032】Re:リストボックスのプロパティ mickeypapa 04/10/19(火) 22:13 お礼
【20303】Re:リストボックスのプロパティ mickeypapa 04/12/4(土) 18:25 質問
【20306】Re:リストボックスのプロパティ [名前なし] 04/12/4(土) 20:40 回答
【20307】Re:リストボックスのプロパティ mickeypapa 04/12/4(土) 21:56 お礼
【20308】Re:リストボックスのプロパティ kobasan 04/12/4(土) 23:03 回答
【20316】Re:リストボックスのプロパティ mickeypapa 04/12/5(日) 8:58 お礼
【20317】Re:リストボックスのプロパティ kobasan 04/12/5(日) 12:34 発言
【20322】Re:リストボックスのプロパティ mickeypapa 04/12/5(日) 14:42 お礼
【18990】Re:リストボックスのプロパティ Jaka 04/10/19(火) 9:28 回答
【19030】Re:リストボックスのプロパティ mickeypapa 04/10/19(火) 21:16 お礼

61054 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free