|
>▼tk さん:
こんにちは。
>
>Set_listの一部を変更して
>標準モジュールに
>変数とListSetを追加してみてください。
>
というより
Set_listをそっくり標準モジュールに移動して
Set_listの呼び出しを
Application.OnTime Now(), "Set?list"
で良いですね。
>Sub Set_list()
>Dim a
>Dim dic As Object
>Dim myRange As Range, r As Range
>
> Set dic = CreateObject("Scripting.Dictionary")
> ReDim a(1)
> dic("コマ") = "個数"
For i = 0 To 10
> dic(Chr(Asc("a") + i)) = 0 'コマ
> Next
> Set myRange = Range("a1:z30")
> For Each r In myRange
> If r.Text <> "" Then
> dic(r.Text) = dic(r.Text) + 1 'key別個数
> End If
> Next
> With UserForm1.ListBox1
> .Clear
> .List = Application.Transpose(Array(Dic.keys, Dic.items))
> End With
>End Sub
|
|