[已解决]求vba

fghji

book1.rar (18.72 KB, 下载次数: 11)

2014-8-10 14:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-8-10 15:29

1. Sub Macro1()
   
2. Dim w(1 To 3)
   
3. z = [c4]
   
4. For i = 1 To Len(z)
   
5.     w(i) = Val(Mid(z, i, 1))
   
6. Next
   
7. [e3] = "" & Application.Sum(w) Mod 10
   
8. [f3] = "" & Application.Max(w) - Application.Min(w)
   
9. [g3] = "" & w(1) & w(2)
   
10. [g4] = "" & w(1) & w(3)
    
11. [g5] = "" & w(2) & w(3)
    
12. [f5] = "" & Abs(w(1) - w(2)) & Abs(w(1) - w(3)) & Abs(w(2) - w(3))
    
13. End Sub

复制代码

跳转到最佳答案楼层

su45

4,把g3的最大数减最小数的差跟g4的最大数减最小数的差再跟g5的最大数减最小数的差相连放f5

没看明白

fghji

su45 发表于 2014-8-10 14:44
4,把g3的最大数减最小数的差跟g4的最大数减最小数的差再跟g5的最大数减最小数的差相连放f5

没看明白

我举例吧:g3是47,最大数是7,最小数是4,差就是3,同理最后的结果是330

dsmch

1. Sub Macro1()
   
2. Dim w(1 To 3)
   
3. z = [c4]
   
4. For i = 1 To Len(z)
   
5.     w(i) = Val(Mid(z, i, 1))
   
6. Next
   
7. [e3] = "" & Application.Sum(w) Mod 10
   
8. [f3] = "" & Application.Max(w) - Application.Min(w)
   
9. [g3] = "" & w(1) & w(2)
   
10. [g4] = "" & w(1) & w(3)
    
11. [g5] = "" & w(2) & w(3)
    
12. [f5] = "" & Abs(w(1) - w(2)) & Abs(w(1) - w(3)) & Abs(w(2) - w(3))
    
13. End Sub

复制代码

dsmch

………………