[已解决]如何将不足位数的数字前面补0

godnes

单位为Q的充值点数值是4位数，不为Q的充值点数就是5位数。
不足4或5位的点数前面补0，

最佳答案

月排行榜 / 总排行榜

yagi

2013-6-18 20:19

代码如下：

1. Sub 按钮1_Click()
   
2. '1、注意代码书写格式
   
3. '2、注意循环控制结构
   
4. '3、注意字符串的FORMAT函数用法
   
5. Dim i, j As Integer
   
6. Dim tmpStr As String
   
7. Dim arr
   
8. arr = Range("a7:d" & [b65536].End(3).Row)
   
9. j = 1
   
10. On Error GoTo Err
    
11. For i = 1 To UBound(arr)
    
12.     If arr(i, 4) = "Q" Then
    
13.         tmpStr = tmpStr & Format(CStr(arr(i, 2)) & Format(CStr(arr(i, 3)), "0000") & CStr(arr(i, 4)), "@@@@@@@@@@@@")
    
14.     Else
    
15.         tmpStr = tmpStr & Format(CStr(arr(i, 2)) & Format(CStr(arr(i, 3)), "00000"), "@@@@@@@@@@@@")
    
16.     End If
    
17.     If j Mod 4 = 0 Then
    
18.         tmpStr = tmpStr & Chr(10)
    
19.     End If
    
20.     j = j + 1
    
21. Next i
    
22. Sheet1.Range("L1") = tmpStr
    
23. Err:
    
24.     Exit Sub
    
25. End Sub
    

复制代码

跳转到最佳答案楼层

w2001pf

你的表中的模块是自己写的吗？在你的基础上修改吗？

cjainwei

1. Sub t()
   
2. Dim str As String
   
3. Dim i As Integer
   
4. For i = 7 To 15
   
5.     If Cells(i, 4) = "Q" Then
   
6.         str = str & Cells(i, 2) & Format(Cells(i, 3), "0000Q") & "    "
   
7.     Else
   
8.          str = str & Cells(i, 2) & Format(Cells(i, 3), "00000") & "    "
   
9.     End If
   
10. Next
    
11. Range("F1")=str
    
12. 
    
13. End Sub

复制代码

godnes

恩，一半是网上大侠帮写的。一半是自己写的。写的不对。执行不了

godnes

实现了功能：在点击确定后，左边明细，自动生成以上格式明细，4个一换行并在一个单元格里。
arr = Range("a7:d" & [b65536].End(3).Row)
For i = 1 To UBound(arr)
rn = rn & "   " & arr(i, 2) & arr(i, 3) & arr(i, 4)
If i Mod 3 = 0 And x = 0 Then
rn = rn & "   " & arr(i, 2) & arr(i, 3) & arr(i, 4) & Chr(10)
End If
Next
Cells(1, "l") = rn
End Sub

单位为Q的充值点数值是4位数，不为Q的充值点数就是5位数。不足4或5位的点数前面补0
这个没有实现

yagi

看看能否满足你的要求：

yagi

代码如下：

1. Sub 按钮1_Click()
   
2. '1、注意代码书写格式
   
3. '2、注意循环控制结构
   
4. '3、注意字符串的FORMAT函数用法
   
5. Dim i, j As Integer
   
6. Dim tmpStr As String
   
7. Dim arr
   
8. arr = Range("a7:d" & [b65536].End(3).Row)
   
9. j = 1
   
10. On Error GoTo Err
    
11. For i = 1 To UBound(arr)
    
12.     If arr(i, 4) = "Q" Then
    
13.         tmpStr = tmpStr & Format(CStr(arr(i, 2)) & Format(CStr(arr(i, 3)), "0000") & CStr(arr(i, 4)), "@@@@@@@@@@@@")
    
14.     Else
    
15.         tmpStr = tmpStr & Format(CStr(arr(i, 2)) & Format(CStr(arr(i, 3)), "00000"), "@@@@@@@@@@@@")
    
16.     End If
    
17.     If j Mod 4 = 0 Then
    
18.         tmpStr = tmpStr & Chr(10)
    
19.     End If
    
20.     j = j + 1
    
21. Next i
    
22. Sheet1.Range("L1") = tmpStr
    
23. Err:
    
24.     Exit Sub
    
25. End Sub
    

复制代码

godnes

是用format，非常感谢！