[已解决]请大神帮忙看看这程序怎么简写

a543770434

dear 各位大神

请帮忙看看如何简写这个程式，新手，写的很是渣渣。。。。。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-5 16:57

1. Sub test()
   
2.     Dim x As Integer
   
3.     tmp = 0
   
4.     For x = 1 To 25
   
5.      If Range("b" & x) <> "" Then tmp = tmp + 10
   
6.      Range("a" & x) = "'" & Format(tmp, "0000")
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

gufengaoyue

应该不难。
只是没看明白你的意思。
你想要的过程是什么？

a543770434

gufengaoyue 发表于 2016-4-5 16:37
应该不难。
只是没看明白你的意思。
你想要的过程是什么？

只是想知道，合在一起应该怎么写，其实我遇到了个难题，我不知道当数字的格式是文字的时候，应该怎么相加，比如A1是0010，A2是0020，那么A1+A2怎么样才能=0030...

grf1973

1. Sub test()
   
2.     Dim x As Integer
   
3.     tmp = 0
   
4.     For x = 1 To 25
   
5.      If Range("b" & x) <> "" Then tmp = tmp + 10
   
6.      Range("a" & x) = "'" & Format(tmp, "0000")
   
7.     Next
   
8. End Sub
   

复制代码

grf1973

请看附件。

gufengaoyue

a543770434 发表于 2016-4-5 16:49
只是想知道，合在一起应该怎么写，其实我遇到了个难题，我不知道当数字的格式是文字的时候，应该怎么相加 ...

假设 A = 0010 , B = 0020
那么 按你的意思可以这么处理

C = FORMAT(VAL(A) +VAL(B), "0000")

这样的话，C 就 = 0030 了，你试试。

这个你会了，问题就应该解决了。

a543770434

gufengaoyue 发表于 2016-4-5 17:04
假设 A = 0010 , B = 0020
那么 按你的意思可以这么处理

我试试，你的我也想给最佳答案，都想给哈

a543770434

grf1973 发表于 2016-4-5 16:59
请看附件。

十分感谢，这样我又可以研究好久了