有30款产品分别有10个店一个月的销售记录在另一个表里求出每一款产品一个月的销售

llj-90

Sheet1里那30款产品怎么可以直接映射到A1那个单元格里可以点击下拉呢？同样怎么把10个店面名字映射到B1单元格里呢？30多款产品分别有10个店左右一个月的销售量记录，在另一个工作表里求出每一款产品每一个店销一个月的销售数量是多少？在另一个表的A1点击下拉是30款产品名称。选择每一款产品时在C1单元格里显示那款产品一个月的总销售数量。在B1那里点击下拉选择某一店铺时就统计那款产品在那个店里销售的数量显示在C1单元格里。这个功能怎样去实现？  急、急用，求各位大神解答一下，谢谢

llj-90

张数跟方数也是一起的

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=567518&extra=&mobile=

3190496160

vba代码是可以解决你的问题的，但是，
问题表述不是很清楚明白：
1、附件只有一个工作表，你究竟是要在哪里的a1，b1单元格形成下拉菜单？
2、要计算一个月的销量，但是，数据源表中并没有日期字段？

3190496160

Sub 菜单()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:e" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(ar(i, 1)) = ""
    End If
    If Trim(ar(i, 2)) <> "" Then
        dc(ar(i, 2)) = ""
    End If
Next i
Range("A1").Select
With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",")
End With
Range("b1").Select
With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(dc.keys, ",")
End With
Application.ScreenUpdating = True
End Sub

3190496160

工作簿1.rar (48.75 KB, 下载次数: 1)

2023-3-11 11:30 上传

点击文件名下载附件

llj-90

3190496160 发表于 2023-3-11 11:19
vba代码是可以解决你的问题的，但是，
问题表述不是很清楚明白：
1、附件只有一个工作表，你究竟是要在哪 ...

这是我用数据透视表得出来的数据，表格没有发全在sheet2表的A1点击下拉是30款产品名称。选择每一款产品时在C1单元格里显示那款产品一个月的总销售数量。在B1那里点击下拉选择某一店铺时就统计那款产品在那个店里销售的数量显示在C1单元格里。这个功能怎样去实现？

3190496160

vba代码完成，
进入sheet2自动建立两个下拉菜单，
具体如何统计看不明白

llj-90

这个表能表达的清楚吗?? 有个大神这样解的，但我得出来的数据都是0，没有实数，不明白那里错了

llj-90

3190496160 发表于 2023-3-11 11:30

没有安装宏，这个有点麻烦