EXCEL设置下拉菜单的问题及多条件汇总问题

goodlaugh

大侠门，新年好！遇到了2个问题，不知怎么解决，有没愿意帮忙看看，谢谢！问题：1、记录表，E列为一级下拉菜单，根据一级下拉菜单，设置F列二级菜单，如附件：记录表里，E列大类下拉选项，是考核分值表的B列；记录表里，F列大类下拉选项，是考核分值表的C列；2、班组总分，用=SUMPRODUCT((记录表!$C$4:$C$300=$B4)*(MONTH(记录表!$D$4:$D$300)=COLUMN()-2)*(记录表!$G$4:$G$300)),不知道为什么汇总不出数据，应该是记录表!$G$4:$G$300有空值的原因，怎解决存在空值汇总的问题呢？

tzDel

month函数不支持数组

goodlaugh

tzDel 发表于 2025-2-4 19:34
month函数不支持数组

那只能由sumifs对么？

quqiyuan

第二问的公式：
=SUMPRODUCT(IFERROR((记录表!$C$4:$C$300=$B4)*(MONTH(记录表!$D$4:$D$300)=COLUMN()-2)*(记录表!$G$4:$G$300),))

goodlaugh

quqiyuan 发表于 2025-2-4 20:18
第二问的公式：
=SUMPRODUCT(IFERROR((记录表!$C$4:$C$300=$B4)*(MONTH(记录表!$D$4:$D$300)=COLUMN()-2)* ...

好象没啥用，我试过了

quqiyuan

goodlaugh 发表于 2025-2-4 20:50
好象没啥用，我试过了

为什么没用？

是不是没有数组三键？

goodlaugh

quqiyuan 发表于 2025-2-4 20:58
为什么没用？

是不是没有数组三键？

还真是这样，谢谢！

3190496160

Dim d As Object
Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    T.Offset(, 1).Select
    With T.Offset(, 1).Validation
        .Delete
        .Add 3, 1, 1, Join(d(T.Value).keys, ",")
    End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    Set d = CreateObject("scripting.dictionary")
    With Sheets("考核分值表")
        r = .Cells(Rows.Count, 3).End(xlUp).Row
        If r < 3 Then MsgBox "考核分值表为空！": End
        ar = .Range("a3:d" & r)
    End With
    For i = 2 To UBound(ar)
        If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
        If ar(i, 2) <> "" Then
            If Not d.exists(ar(i, 2)) Then Set d(ar(i, 2)) = CreateObject("scripting.dictionary")
            d(ar(i, 2))(ar(i, 3)) = ""
        End If
    Next i
    With T.Validation
        .Delete
        .Add 3, 1, 1, Join(d.keys, ",")
    End With
End If
End Sub

3190496160

vba二级联动菜单
11.rar (22.83 KB, 下载次数: 5)

2025-2-5 13:35 上传

点击文件名下载附件

goodlaugh

3190496160 发表于 2025-2-5 13:35
vba二级联动菜单

厉害，谢谢老师！