[已解决]求vba

fghji

book1.rar (14.02 KB, 下载次数: 9)

2014-8-10 20:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-8-10 21:47

1. Sub Macro1()
   
2. Dim w(1 To 3), c As Range
   
3. x = 60
   
4. For Each c In [c2:c4]
   
5.     For i = 1 To Len(c)
   
6.         w(i) = w(i) + Val(Mid(c, i, 1))
   
7.     Next
   
8. Next
   
9. [e3] = "" & (x - w(1) - w(2)) Mod 10 & (x - w(1) - w(3)) Mod 10 & (x - w(2) - w(3)) Mod 10
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

要求2和3，后半部分怎么重复？

su45

你上个帖子咱就没看懂，还是后来看别人的代码才知道的，这个帖子咱还是没看懂！待明白人来吧！

易安1

请勿重复发帖，而附件楼主再看看，自己能否看懂

fghji

dsmch 发表于 2014-8-10 20:49
要求2和3，后半部分怎么重复？

我举例吧:1,c2:c4的百位是1,3,2, 十位是4,6,2, 用60 - 前面6个数=42,再取尾 数是2
                2,c2:c4的百位是1,3,2, 个位是4,5,1, 用60 - 前面6个数=44,再取尾 数是4
                3,c2:c4的十位是4,6,2, 个位是4,5,1, 用60 - 前面6个数=38,再取尾 数是8
               
                    再三个尾数连在一起是"248"放e3

su45

原来是这个意思呀！不过，有dsmch 在此，咱可以站岸上了！

dsmch

1. Sub Macro1()
   
2. Dim w(1 To 3), c As Range
   
3. x = 60
   
4. For Each c In [c2:c4]
   
5.     For i = 1 To Len(c)
   
6.         w(i) = w(i) + Val(Mid(c, i, 1))
   
7.     Next
   
8. Next
   
9. [e3] = "" & (x - w(1) - w(2)) Mod 10 & (x - w(1) - w(3)) Mod 10 & (x - w(2) - w(3)) Mod 10
   
10. End Sub

复制代码