判断是否回文数

香川群子

mikezhan 发表于 2018-3-6 15:20
少用函数。多用VBA. 我现在看到这种为了解决问题，写的一长条象 四脚蛇一样的函数，头都痛。

哈哈哈。形容的不错。

香川群子

mikezhan 发表于 2018-3-6 16:03
布尔值。可以直接在我的代码中，替换不就成了？

那就建个模块写个自定义函数，可以直接在工作表中使用。

1. Function f(a$) As Boolean
   
2.     n = Len(a)
   
3.     For i = 1 To Int(n / 2) '仅需检查字符长度的一半次数
   
4.         If Mid(a, i, 1) <> Mid(a, n - i + 1, 1) Then Exit Function '依次检查两端字符，不同时即可退出
   
5.     Next
   
6.     f = True '都相同时即可判断为回文数
   
7. End Function

复制代码

确实，用VBA代码的话，计算逻辑简单，计算效率也是最高的。

并且，不仅仅局限于数字，任何英文字符或中文字符是否回文数，都可以这样判断。

lsdongjh

1. Function F(rg As Range)
   
2.     Dim strTemp As String
   
3.     strTemp = Trim(rg.Value)
   
4.     If strTemp <> "" Then
   
5.         If StrReverse(strTemp) = strTemp Then
   
6.             F = True
   
7.         Else
   
8.             F = False
   
9.         End If
   
10.     Else
    
11.         F = ""
    
12.     End If
    
13. End Function
    

复制代码

问山8828680

SUMPRODUCT(--TEXT(MID(A1,ROW($1:$99),1),"0;;0;!0")*10^(ROW($1:$99)-1))=A1