Excel VBA質問箱 IV

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

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


39260 / 76738 ←次へ | 前へ→

【42593】Re:リストボックスへの表示について
回答  Kein  - 06/9/15(金) 21:06 -

引用なし
パスワード
   重複を除く値をリストにする方法はいろいろありますが、一例として・・

Private Sub UserForm_Initialize()
  Dim C As Range
  Dim i As Long
  Dim MyV() As String

  ReDim MyV(i): MyV(i) = ""
  With Worksheets("Sheet1")
   For Each C In .Range("B2", .Range("B65536").End(xlUp))
     If IsError(Application.Match(C.Value, MyV, 0)) Then
      i = i + 1: ReDim Preserve MyV(i)
      MyV(i) = C.Value: ListBox1.AddItem C.Value
     End If
   Next
  End With
  Erase MyV
End Sub

0 hits

【42591】リストボックスへの表示について あきこ 06/9/15(金) 20:31 質問
【42592】Re:リストボックスへの表示について Blue 06/9/15(金) 21:02 発言
【42593】Re:リストボックスへの表示について Kein 06/9/15(金) 21:06 回答
【42594】Re:リストボックスへの表示について だるま 06/9/15(金) 21:13 回答
【42669】Re:リストボックスへの表示について あきこ 06/9/19(火) 0:48 お礼

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