[已解决]VBA输出图案到单元格

laoau138

VBA输出图案到单元格

最佳答案

月排行榜 / 总排行榜

france723

2017-5-30 18:22

laoau138 发表于 2017-5-30 18:15
贴一个其它人答案，

不知道你怎样写

不能总依赖别人的代码, 要自己举一反三, 昨天的代码同样思路,换个数就行, 要自己去写

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

复制代码

跳转到最佳答案楼层

france723

http://www.excelpx.com/thread-430663-1-1.html
和你昨天提问的一样, 行数调整即可, 别人写的代码要仔细看才能有进步

laoau138

france723 发表于 2017-5-30 14:57
http://www.excelpx.com/thread-430663-1-1.html
和你昨天提问的一样, 行数调整即可, 别人写的代码要仔细 ...

这个不一样

france723

laoau138 发表于 2017-5-30 17:15
这个不一样

给个提示,数组1,3,5,7,9 数值满足规律 1 + (i - 1) * 2 .  
i 代表它们在数组的次序

laoau138

france723 发表于 2017-5-30 17:41
给个提示,数组1,3,5,7,9 数值满足规律 1 + (i - 1) * 2 .  
i 代表它们在数组的次序

贴一个其它人答案，

不知道你怎样写

Sub lkyy()
str_a = "135797531"
For i = 1 To Len(str_a)
    If i = 1 Then
        s = "*"
    Else
        s = s & Chr(10) & Application.Rept("*", Mid(str_a, i, 1) + 0)
    End If
Next
[a1] = s
End Sub

france723

laoau138 发表于 2017-5-30 18:15
贴一个其它人答案，

不知道你怎样写

不能总依赖别人的代码, 要自己举一反三, 昨天的代码同样思路,换个数就行, 要自己去写

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

复制代码

laoau138

france723 发表于 2017-5-30 18:22
不能总依赖别人的代码, 要自己举一反三, 昨天的代码同样思路,换个数就行, 要自己去写

由于太笨了，专门修练吸星大法来学习

laoau138

france723 发表于 2017-5-30 18:22
不能总依赖别人的代码, 要自己举一反三, 昨天的代码同样思路,换个数就行, 要自己去写

终于看懂了

laoau138

france723 发表于 2017-5-30 18:22
不能总依赖别人的代码, 要自己举一反三, 昨天的代码同样思路,换个数就行, 要自己去写

VBA解析数组第二种方法看不懂  

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