自定义查找函数

温馨云

绝峰 发表于 2025-3-24 20:33
谢谢！如果有的产品没有规格，它就会出错了，实事确实是有产品规格为空的，请问这个怎么解决？

请部是哪里出错？如果是宏那个不想显示“请选择：”，就把代码
t.Value = "请选择:"            
这一句改成
t.Value = ""
就可以了
如果是有效性那个出错，具体是怎么出错的，请描述一下具体是怎么操作的。

titi012

1. =OFFSET(产品型号!$D$3,MATCH($C$3,产品型号!$C$4:$C$999,),,COUNTIF(产品型号!$C$4:$C$999,$C$3))

复制代码

在E3的数据有效性输入公式，注意产品型号表的数据必须要按型号排列。

温馨云

titi012 发表于 2025-3-25 09:25
在E3的数据有效性输入公式，注意产品型号表的数据必须要按型号排列。

好用，我的版本不能对其它工作表引用，用两个定义名称解决了。感谢分享好方法！

绝峰

titi012 发表于 2025-3-25 09:25
在E3的数据有效性输入公式，注意产品型号表的数据必须要按型号排列。

非常感谢！

绝峰

温馨云 发表于 2025-3-25 08:56
请部是哪里出错？如果是宏那个不想显示“请选择：”，就把代码
t.Value = "请选择:"            
这一 ...

如果有规格为空，会提示运行出错，Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d(1), m%, ar, i%, k$, va, t, s$
    Set d(0) = CreateObject("scripting.dictionary")
    Set d(1) = CreateObject("scripting.dictionary")
    If Target.Address <> "$C$3" Then Exit Sub
    If Target.Value = "" Then Exit Sub
    m = Sheet2.[C4].End(4).Row
    ar = Sheet2.[C4].Resize(m, 2)
    For i = 1 To UBound(ar)
        d(0)(ar(i, 1)) = ""
        d(1)(ar(i, 1) & "|" & ar(i, 2)) = ""
    Next i
   
    k = Join(d(0).keys, ",")
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=k
        .ShowInput = True
        .InCellDropdown = True
    End With
    va = Target.Value
    Set t = Target.Offset(0, 2)
    t.Value = "请选择:"
    For Each f In d(1).keys
        If InStr(f, va) > 0 Then
            s = s & Split(f, "|")(1) & ","
        End If
    Next f
    s = Mid(s, 1, Len(s) - 1)
    With t.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s（这句有错）
        .ShowInput = True
        .InCellDropdown = True
    End With
    Set d(0) = Nothing
    Set d(1) = Nothing
End Sub

绝峰

温馨云 发表于 2025-3-25 08:56
请部是哪里出错？如果是宏那个不想显示“请选择：”，就把代码
t.Value = "请选择:"            
这一 ...

另外，我还有一个东东，在excel2003版本可以运行，但用WPS时就会出错，附件随后传上去，请帮忙看一下是什么原因，非常感谢！

温馨云

绝峰 发表于 2025-3-25 11:20
另外，我还有一个东东，在excel2003版本可以运行，但用WPS时就会出错，附件随后传上去，请帮忙看一下是什 ...

密码是多少呀？虽然我很菜，但是很好奇，总想多学些东西。

温馨云

绝峰 发表于 2025-3-25 11:15
如果有规格为空，会提示运行出错，Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d(1), ...

改成这样试试：
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=IIf(s <> Empty, s, Chr(9))

titi012

温馨云 发表于 2025-3-25 10:41
好用，我的版本不能对其它工作表引用，用两个定义名称解决了。感谢分享好方法！

如果你想要公式解决问题，最好还是在公式版发贴。
在这里的话，大家更喜欢用VBA来解决问题。

温馨云

titi012 发表于 2025-3-25 18:04
如果你想要公式解决问题，最好还是在公式版发贴。
在这里的话，大家更喜欢用VBA来解决问题。

您说的对！绝对支持！

可是我不是楼主。