[已解决]用VBA输入图案 不用rept函数还能用什么

laoau138

用VBA输入图案  不用rept函数还能用什么


Sub lqxs()
Dim i&, n&
[a:a].HorizontalAlignment = xlRight
For i = 1 To 7
    n = n + 1
    If i < 5 Then
        Cells(n, 1) = Application.Rept("M", i)
    Else
        Cells(n, 1) = Application.Rept("M", 8 - i)
    End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

france723

2017-5-29 17:38

String代替, 二者的参数顺序正好相反

1. Sub lqxz()
   
2. Dim i&, n&
   
3. [a:a].HorizontalAlignment = xlRight
   
4. For i = 1 To 7
   
5.     n = n + 1
   
6.     If i < 5 Then
   
7.         Cells(n, 1) = String(i, "M")
   
8.     Else
   
9.         Cells(n, 1) = String(8 - i, "M")
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

france723

String代替, 二者的参数顺序正好相反

1. Sub lqxz()
   
2. Dim i&, n&
   
3. [a:a].HorizontalAlignment = xlRight
   
4. For i = 1 To 7
   
5.     n = n + 1
   
6.     If i < 5 Then
   
7.         Cells(n, 1) = String(i, "M")
   
8.     Else
   
9.         Cells(n, 1) = String(8 - i, "M")
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

laoau138

france723 发表于 2017-5-29 17:38
String代替, 二者的参数顺序正好相反

VBA数组计算一行左边含有右边多少个


http://www.excelpx.com/thread-430667-1-1.html