Excel VBA質問箱 IV

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

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


18594 / 76732 ←次へ | 前へ→

【63578】ListBoxに個数を更新表示
質問  tk  - 09/11/18(水) 21:21 -

引用なし
パスワード
   ListBoxをクリックしてセルに値を入力して、ListBoxに入力個数を
更新表示しょうと思っています。
ところがListBoxをクリックして値を入力すると、ListBoxが
真っ白になってしまいます。更新表示できるようにするにはどうす
ればよいでしょうか。

UserForm1モジュール
Private Sub ListBox1_Click()
  ActiveCell.Value = Me.ListBox1.Text
  Set_list
  DoEvents
  Application.Visible = True
End Sub

Private Sub UserForm_Initialize()
  With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = "30;30"
    .TextColumn = 1
  End With
  Set_list
End Sub

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("コマ") = "個数"
  Set myRange = Range("a1:z30")
  For Each r In myRange
    If r.Text <> "" Then
      dic(r.Text) = Application.CountIf(myRange, r.Text) 'key別個数
    End If
  Next

  '-----個数出力
  With UserForm1.ListBox1
    .Clear
    .List = Application.Transpose(Array(dic.keys, dic.Items))
  End With
  Set dic = Nothing
End Sub
5 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 お礼

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