Excel VBA質問箱 IV

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

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


35273 / 76732 ←次へ | 前へ→

【46660】Re:ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい
回答  MOON  - 07/2/9(金) 22:35 -

引用なし
パスワード
   ▼ToShiYo さん:

こんにちは。
色々なやり方がありますが、
自分はこんな感じでやるのが好みです。

フォームモジュール

Option Explicit

Private Sub UserForm_Initialize()
Macro1
End Sub

標準モジュール

Sub Macro1()

Dim dic As Object
Dim i As Long
Dim mykey As String

Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
  For i = 7 To .Cells(.Rows.Count, 1).End(xlUp).Row
    mykey = .Cells(i, 1).Value
    If Not dic.Exists(mykey) Then dic.Add mykey, mykey
  Next
End With

UserForm1.ListBox1.List = dic.Keys
Set dic = Nothing

End Sub
1 hits

【46659】ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい ToShiYo 07/2/9(金) 21:24 質問
【46660】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/9(金) 22:35 回答
【46666】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/10(土) 19:29 お礼
【46701】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/12(月) 19:12 回答
【46744】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/13(火) 19:56 お礼

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