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

雨雪霏霏

　　在 B2 输入以下公式可以将 A2 的 “978-7-5038-6461-2”在 B2 中转换为“7-5038-6461-3”。
　　请教各位兄弟姐妹：如何把公式用在 VBA 中，即只要活动单元格是在A2中，我运行一下宏，就自动将 A2 中的内容更改为“7-5038-6461-3”。十分感谢！
　　
=MID(A2,5,12)&IF(11-MOD(MID(SUBSTITUTE(A2,"-",),4,1)*10+MID(SUBSTITUTE(A2,"-",),5,1)*9+MID(SUBSTITUTE(A2,"-",),6,1)*8+MID(SUBSTITUTE(A2,"-",),7,1)*7+MID(SUBSTITUTE(A2,"-",),8,1)*6+MID(SUBSTITUTE(A2,"-",),9,1)*5+MID(SUBSTITUTE(A2,"-",),10,1)*4+MID(SUBSTITUTE(A2,"-",),11,1)*3+MID(SUBSTITUTE(A2,"-",),12,1)*2,11)=10,"X",IF(11-MOD(MID(SUBSTITUTE(A2,"-",),4,1)*10+MID(SUBSTITUTE(A2,"-",),5,1)*9+MID(SUBSTITUTE(A2,"-",),6,1)*8+MID(SUBSTITUTE(A2,"-",),7,1)*7+MID(SUBSTITUTE(A2,"-",),8,1)*6+MID(SUBSTITUTE(A2,"-",),9,1)*5+MID(SUBSTITUTE(A2,"-",),10,1)*4+MID(SUBSTITUTE(A2,"-",),11,1)*3+MID(SUBSTITUTE(A2,"-",),12,1)*2,11)=11,0,11-MOD(MID(SUBSTITUTE(A2,"-",),4,1)*10+MID(SUBSTITUTE(A2,"-",),5,1)*9+MID(SUBSTITUTE(A2,"-",),6,1)*8+MID(SUBSTITUTE(A2,"-",),7,1)*7+MID(SUBSTITUTE(A2,"-",),8,1)*6+MID(SUBSTITUTE(A2,"-",),9,1)*5+MID(SUBSTITUTE(A2,"-",),10,1)*4+MID(SUBSTITUTE(A2,"-",),11,1)*3+MID(SUBSTITUTE(A2,"-",),12,1)*2,11)))

LMY123

参考
工作簿1.zip (8.53 KB, 下载次数: 29)

2014-4-18 20:18 上传

点击文件名下载附件

雨雪霏霏

　　感谢 LMY123 兄神速帮忙！确实达到了使用 VBA 的效果！很理想！
　　只是，工程密码多少？我看不到“Sub a()”之外的代码。是在 VBA 中写了自定义函数了吗？
　　我想实现的具体效果是：
　　只要活动单元格是A2，我运行一下宏，就自动将 A2 中原来的“978-7-5038-6461-2”的内容更改为“7-5038-6461-3”——在原单元格上改动，改动之后，活动单元格仍然是A2。也就是说“978-7-5038-6461-2”单元格不论是在工作表中的哪个位置，我只要选中该单元格，运行宏后就改它为“7-5038-6461-3”。

雨雪霏霏

LMY123 发表于 2014-4-18 20:19
参考

　　目前 LMY123 兄的宏，运行起来的时候，感觉还有一些短暂的界面闪动，是不是可以做到界面没有任何变化，只是单元格的结果发生变化？

LMY123

雨雪霏霏 发表于 2014-4-18 21:12
　　目前 LMY123 兄的宏，运行起来的时候，感觉还有一些短暂的界面闪动，是不是可以做到界面没有任何变化 ...

参考

Sub g()
arr = Split(Cells(2, 1), "-")
For x = 1 To UBound(arr) - 1
t = arr(UBound(arr)) + 1
s = s & "-" & arr(x)
Next x
[b2] = Mid(s, 2) & "-" & t
End Sub
Sub g2()
Application.ScreenUpdating = False
[b1] = Split([a2], "-", 2)(1)
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B2"), Type:=xlFillDefault
    Range("B1:B2").Select
    Range("B1").Select
    Selection.ClearContents
Application.ScreenUpdating = True
End Sub

LMY123

雨雪霏霏 发表于 2014-4-18 21:01
　　感谢 LMY123 兄神速帮忙！确实达到了使用 VBA 的效果！很理想！
　　只是，工程密码多少？我看不到“S ...

Sub g()
arr = Split(Cells(2, 1), "-")
For x = 1 To UBound(arr) - 1
t = arr(UBound(arr)) + 1
s = s & "-" & arr(x)
Next x
[a2] = Mid(s, 2) & "-" & t
End Sub

雨雪霏霏

LMY123 发表于 2014-4-18 21:28
Sub g()
arr = Split(Cells(2, 1), "-")
For x = 1 To UBound(arr) - 1

　　感谢 LMY123 兄费心费神编写了新宏！深深感激！
　　第一个宏使用快速，体验很好。
　　第二个宏通过改造也可以实现第一个宏的效果。
　　第三个宏是直接实现了我想要的在原单元格上更改的效果。——感谢 LMY123 兄用心！

　　只是，我再深入测试了一下，VBA 编码得到的结果是错误的，而通过原来的公式手动操作是可以得到正确结果的。不知道问题出在哪里。

13位码—————978-7-5391-3110-8
使用公式的结果正确：7-5391-3110-1
使用编码的结果错误：7-5391-3110-9


13位码—————978-7-5391-3112-2
使用公式的结果正确：7-5391-3112-8
使用编码的结果错误：7-5391-3112-3


13位码—————978-7-5391-3108-5
使用公式的结果正确：7-5391-3108-X
使用编码的结果错误：7-5391-3108-6


　　请看参考帖：
http://club.excelhome.net/thread-387048-1-1.html

雨雪霏霏

LMY123 发表于 2014-4-18 21:28
Sub g()
arr = Split(Cells(2, 1), "-")
For x = 1 To UBound(arr) - 1

　　还有两帖可参考：
http://club.excelhome.net/thread-224404-1-1.html
http://www.douban.com/group/topic/8559059/

雨雪霏霏

LMY123 发表于 2014-4-18 21:28
Sub g()
arr = Split(Cells(2, 1), "-")
For x = 1 To UBound(arr) - 1

　　另外，还有一帖是反方向的，由 10 位转换到 13 位，也可参考：
http://club.excelhome.net/thread-72142-1-1.html

雨雪霏霏

沉得快，顶一下。