|
▼経理担当 さん:
>▼Yuki さん:
>県名はユーザーフォーム上に(ラベルとして)配置してます。
>件数は県名の隣にラベルで表示を考えております。
では県名のラベルのコントロール名は
Label1 〜 Label10
それで件数のラベルのコントロール名は
Label11 〜 Label20
とします。
コマンドボタンで処理します。
Private Sub CommandButton1_Click()
Dim Dic As Object
Dim v1 As Variant
Dim v2 As Variant
Dim i As Long
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To 10
Dic(Me.Controls("Label" & i).Caption) = 0
Next
' シート名は環境に合わせて変更
With Worksheets("Sheet2")
' 集計用のデータ
v2 = .Range("H1", "H" & .Range("H" & Rows.Count).End(xlUp).Row).Value
End With
' データ加算
For i = 1 To UBound(v2)
' 同一ITEMに追加
If Dic.Exists(v2(i, 1)) Then
Dic(v2(i, 1)) = Dic(v2(i, 1)) + 1
End If
Next
v2 = Dic.Items
For i = LBound(v2) To UBound(v2)
' ラベルに表示
Me.Controls("Label" & i + 11).Caption = vbTab & v2(i)
Next
End Sub
|
|