Excel VBA 変数 ワークシートへ反映
支店毎に売上集計を行うVBAを現在作成中です。
sheet3に支店名をリストにしており、ユーザーフォームのテキストボックスとコマンドボックスを配置し、テキストボックスに支店名を入力してコマンドボックスを押す事でsheet1の決まったセルに商品毎の金額の合算が出る様にしたいと考えています。
金額の集計表は別にあり、列の一番目に支店名、2番目に商品名、3番目に取引内容が反映されております。
今回ご相談させて頂きたいのは、ユーザーフォームのコマンドでどの様に入力したら良いかという事です。下記にユーザーフォームで現在までに入力した内容を記載します。
Sub 売上集計()
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
Dim Result As Long
For i = 1 To 100
GroupName = Sheets(3).Cells(i, 1).Value
Range("A1").AutoFilter field:=1, Criteria1:=Array("" & GroupName & ""), Operator:=xlFilterValues
Range("A1").AutoFilter field:=2, Criteria1:=Array("商品名A"), Operator:=xlFilterValues
Range("A1").AutoFilter field:=3, Criteria1:=Array("売上", "返品"),
Operator:=xlFilterValues
result1 = WorksheetFunction.Subtotal(9, Range("BF:BF"))
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
End Sub
上記希望内容についてユーザーフォームのコマンドに入力すべき内容をご存知の方、何卒ご教示願います。
お礼
迅速なお返事本当にありがとうございました。 うまくいきました。