Vba公式问题

wgw628

VAB编的公式，有时用到此公式的单元格全部自动变文本格式，导致公式无法自动计算，要全部用到此单元格的格式重新设置才会恢复。请老师看看什么问题，这种现像是偶尔会出现，只有这个公式会这样。我用的是excel2021版本



Function base_BH(nNum)
        Application.Calculation = xlManual
    nNump = ""
    For i = 0 To 9
        If InStr(nNum, i) > 0 Then nNump = nNump & i
    Next
    tx = "501 160 270 380 490"
    zRC_Limt = Split(tx, " ")
    pNum = ""
    Select Case Len(nNump)
        Case 1:
                pNum = zRC_Limt((nNump) Mod 5)
        Case 2:
                Dim tmp(3)
                For i = 1 To 2
                    For j = i + 1 To Len(nNum)
                        If Mid(nNum, i, 1) = Mid(nNum, j, 1) Then tmp(j) = 1
                    Next
                Next
                Dim Num(3)
                For j = 1 To Len(nNum)
                    Num(j) = Mid(nNum, j, 1)
                    If tmp(j) = 1 Then Num(j) = (Mid(nNum, j, 1) + 5) Mod 10
                Next
                pNum = Num(1) & Num(2) & Num(3)
                If Mid(nNump, 1, 1) Mod 5 = Mid(nNump, 2, 1) Mod 5 Then pNum = zRC_Limt(Mid(nNump, 1, 1) Mod 5)
        Case 3:
                pNum = nNum
    End Select
    base_BH = pNum
        Application.Calculation = xlAutomatic
End Function

山菊花

公式返回的结果是一个文本，但公式不会改变单元格格式，问题的根源不在公式，不在函数，应该是操作。

大灰狼1976

函数加个类型好了，比如Function base_BH(nNum) As Long

wgw628

大灰狼1976 发表于 2024-3-12 10:23
函数加个类型好了，比如Function base_BH(nNum) As Long

老师，加了个类型后，出现一个新问题，当第3位数中第一个数是0的时候，变成2位数了，也就是0没有了。

大灰狼1976

wgw628 发表于 2024-3-12 11:18
老师，加了个类型后，出现一个新问题，当第3位数中第一个数是0的时候，变成2位数了，也就是0没有了。

我只是举个例子，不一定适合真实需求，这个函数本身想要实现什么功能我也没有研究，如果要保留前置0的话，那就只能返回变体型或者字符型，这个可以根据实际情况修改。

wgw628

大灰狼1976 发表于 2024-3-12 11:24
我只是举个例子，不一定适合真实需求，这个函数本身想要实现什么功能我也没有研究，如果要保留前置0的话 ...

老师能帮我修改一下吗，这个公式的功能就是3位数中有重复数字转换成不重复的。比如555变成501，055变，015，255变成250。

三个数相同的变成这样501 160 270 380 490，两个数相同的，其中一个加5后，再减相同数。

大灰狼1976

wgw628 发表于 2024-3-12 11:32
老师能帮我修改一下吗，这个公式的功能就是3位数中有重复数字转换成不重复的。比如555变成501，055变，01 ...

公式的功能你自己设置好就行了，我刚才回答的只是返回的类型，要根据实际情况设定，或者在后续使用的时候做处理。

wgw628

大灰狼1976 发表于 2024-3-12 11:52
公式的功能你自己设置好就行了，我刚才回答的只是返回的类型，要根据实际情况设定，或者在后续使用的时候 ...

老师后续如何处理？

大灰狼1976

wgw628 发表于 2024-3-12 12:00
老师后续如何处理？

你刚才的函数代码，我试了一下确实返回到单元格变成字符格式，但其他公式引用它的时候也能正常计算，不排除有些函数要求必须是数值型，这个时候可以在引用的时候加上VALUE()，这只是举个例子。

wgw628

大灰狼1976 发表于 2024-3-12 12:12
你刚才的函数代码，我试了一下确实返回到单元格变成字符格式，但其他公式引用它的时候也能正常计算，不排 ...

就是不知道VALUE()加在那个位置