Excel VBA質問箱 IV

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

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


18584 / 76732 ←次へ | 前へ→

【63588】Re:ListBoxに個数を更新表示
発言  Yuki  - 09/11/19(木) 11:04 -

引用なし
パスワード
   >▼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
3 hits

【63578】ListBoxに個数を更新表示 tk 09/11/18(水) 21:21 質問
【63580】Re:ListBoxに個数を更新表示 tk 09/11/18(水) 21:43 発言
【63584】Re:ListBoxに個数を更新表示 ichinose 09/11/19(木) 6:19 発言
【63592】Re:ListBoxに個数を更新表示 tk 09/11/19(木) 21:00 お礼
【63587】Re:ListBoxに個数を更新表示 Yuki 09/11/19(木) 10:40 発言
【63588】Re:ListBoxに個数を更新表示 Yuki 09/11/19(木) 11:04 発言
【63593】Re:ListBoxに個数を更新表示 tk 09/11/19(木) 21:08 お礼

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