VBA 文本的比较

wongkaye

请教各位大神，我想对比两个文本字符串的大小，并返回较大的那个字符串，如何写简要的代码？如：比较"西安","西宁"，并返回其中较大的那个。谢谢！

huang1314wei

wongkaye

谢谢！我想使用如a=application.max("西安","西宁")，返回a=西安。但是，这样数据类型不匹配，max无法比较字符串，请教如何处理？

duquancai

wongkaye 发表于 2018-6-16 15:24
谢谢！我想使用如a=application.max("西安","西宁")，返回a=西安。但是，这样数据类型不匹配，max无法比较 ...

1. Sub main()
   
2.     Dim js As Object, s$
   
3.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
4.     js.Language = "JavaScript"
   
5.     s = "function fun(a,b){return a>b?a:b;};"
   
6.     MsgBox js.eval(s & ";fun('西安','西宁')")
   
7. End Sub

复制代码

schliemann

1. Sub 比较()
   
2. Dim str1 As String
   
3. Dim str2 As String
   
4. 
   
5. str1 = "西安"
   
6. str2 = "西宁"
   
7. 
   
8. If StrComp(str1, str2, vbbinary) > 0 Then
   
9.     MsgBox str1
   
10. Else: MsgBox str2
    
11. End If
    
12. 
    
13. End Sub

复制代码

schliemann

wongkaye 发表于 2018-6-16 15:24
谢谢！我想使用如a=application.max("西安","西宁")，返回a=西安。但是，这样数据类型不匹配，max无法比较 ...

那就用VBA的内置字符串比较函数strComp，不要用max函数。

wongkaye

duquancai 发表于 2018-6-16 18:48

非常感谢，受教！

wongkaye

schliemann 发表于 2018-6-17 09:02
那就用VBA的内置字符串比较函数strComp，不要用max函数。

非常感谢，受教！

wongkaye

duquancai 发表于 2018-6-16 18:48

想咨询下，西安>西宁，在VBA中比较的是两者的什么数值呢？可有办法取得这两者的数值？谢谢！