[已解决]VBA高手输出如图6.17所图形圣诞树图案

vbyou127

VBA高手输出如图6.17所图形圣诞树图案

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-8 14:40

1. Sub tt()
   
2.     Columns("A:A").HorizontalAlignment = xlCenter
   
3.     arr = Array(1, 3, 5, 7, 9, 11, 3, 5, 7, 9, 11, 5, 5, 5, 5, 5)
   
4.     For i = 0 To UBound(arr)
   
5.         Cells(i + 1, 1) = Application.WorksheetFunction.Rept("*", arr(i))
   
6.     Next
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

水上漂123

你这些问题，不用高手就可以，学会控制语句，循环就行，网上应该有相关东西

grf1973

1. Sub tt()
   
2.     Columns("A:A").HorizontalAlignment = xlCenter
   
3.     arr = Array(1, 3, 5, 7, 9, 11, 3, 5, 7, 9, 11, 5, 5, 5, 5, 5)
   
4.     For i = 0 To UBound(arr)
   
5.         Cells(i + 1, 1) = Application.WorksheetFunction.Rept("*", arr(i))
   
6.     Next
   
7. End Sub
   

复制代码

grf1973

请看附件。