在 VBA 中如何使用以下函数公式？——感谢 LMY123、liu-aguang 大侠鼎力相助

liu-aguang

看看是不是这个意思:

1. Sub test()
   
2.     Dim su&, ar, f
   
3.     If Selection.Count <> 1 Then Exit Sub
   
4.     ar = Split(Selection.Value, "-")
   
5.     For i = 1 To 9
   
6.         su = su + Mid(ar(1) & ar(2) & ar(3), i, 1) * (11 - i)
   
7.     Next
   
8.     Select Case su Mod 11
   
9.         Case 0
   
10.             f = 0
    
11.         Case 1
    
12.             f = "X"
    
13.         Case Else
    
14.             f = 11 - su Mod 11
    
15.     End Select
    
16.     Selection.Value = ar(1) & "-" & ar(2) & "-" & ar(3) & "-" & f
    
17. End Sub
    

复制代码

liu-aguang

13 to 10_isbn.rar (9.23 KB, 下载次数: 13)

2014-4-20 15:21 上传

点击文件名下载附件

雨雪霏霏

liu-aguang 发表于 2014-4-20 15:14
看看是不是这个意思:

非常感谢 liu-aguang 大侠出手救困！代码非常简洁巧妙！测试了很多组数据，完美解决我所有的问题！
再次感谢！！

yjh_27

做了二个互相转的自定义函数

clq941119

我来占个楼，完全不懂你们在说些什么，哈哈