[已解决]求个vba

lmknj

Book2b.rar (8.17 KB, 下载次数: 10)

2012-2-16 16:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-2-16 17:07

1. Sub Test_JUST()
   
2.     Dim Arr, i As Byte, j As Byte, ar(1 To 510, 1 To 1) As String, a(1 To 3) As Byte
   
3.     Dim m As Byte, n As Byte, k As Integer
   
4.     Arr = [d5:t7]
   
5.     For i = 1 To 3
   
6.         For j = 1 To 17
   
7.             For m = 1 To 3
   
8.                 a(m) = CByte(Mid(Arr(i, j), m, 1))
   
9.             Next m
   
10.             For n = 0 To 9
    
11.                 k = k + 1
    
12.                 For m = 1 To 3
    
13.                     ar(k, 1) = ar(k, 1) & (a(m) + n) Mod 10
    
14.                 Next m
    
15.             Next n
    
16.     Next j, i
    
17.     Range("e12:e" & Rows.Count).Clear
    
18.     [e12].Resize(510) = ar
    
19. End Sub

复制代码

试试效果

跳转到最佳答案楼层

zjdh

按位加数进位吗？是否只显示3位？

lmknj

zjdh 发表于 2012-2-16 16:39
按位加数进位吗？是否只显示3位？

只要固定三位,如百位2+9=1

zjdh

计算.rar (9.88 KB, 下载次数: 4)

2012-2-16 16:55 上传

点击文件名下载附件

lmknj

zjdh 发表于 2012-2-16 16:56

我表里面没有显示前面0

liuguansky

1. Sub Test_JUST()
   
2.     Dim Arr, i As Byte, j As Byte, ar(1 To 510, 1 To 1) As String, a(1 To 3) As Byte
   
3.     Dim m As Byte, n As Byte, k As Integer
   
4.     Arr = [d5:t7]
   
5.     For i = 1 To 3
   
6.         For j = 1 To 17
   
7.             For m = 1 To 3
   
8.                 a(m) = CByte(Mid(Arr(i, j), m, 1))
   
9.             Next m
   
10.             For n = 0 To 9
    
11.                 k = k + 1
    
12.                 For m = 1 To 3
    
13.                     ar(k, 1) = ar(k, 1) & (a(m) + n) Mod 10
    
14.                 Next m
    
15.             Next n
    
16.     Next j, i
    
17.     Range("e12:e" & Rows.Count).Clear
    
18.     [e12].Resize(510) = ar
    
19. End Sub

复制代码

试试效果