[已解决]VBA高手输出如图6.16所图形121123

vbyou127

VBA高手输出如图6.16所图形121123

最佳答案

月排行榜 / 总排行榜

just2seeusmile

2016-3-8 15:10

1. Sub p()
   
2. For Each Cell In Range(Cells(1, 1), Cells(8, 8))
   
3. If Cell.Row + Cell.Column > 8 Then
   
4. Cell.Value = Cell.Row + Cell.Column - 8
   
5. End If
   
6. Next
   
7. For Each Cell In Range(Cells(1, 9), Cells(8, 15))
   
8. Cell.Value = Cells(Cell.Row, (16 - Cell.Column)).Value
   
9. Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     Columns("A:A").HorizontalAlignment = xlCenter
   
3.     For i = 1 To 8
   
4.         tmp = "'"
   
5.         For k = 1 To i
   
6.             tmp = tmp & k
   
7.         Next
   
8.         For k = i - 1 To 1 Step -1
   
9.             tmp = tmp & k
   
10.         Next
    
11.         Cells(i, 1) = tmp
    
12.     Next
    
13. End Sub
    

复制代码

just2seeusmile

1. Sub p()
   
2. For Each Cell In Range(Cells(1, 1), Cells(8, 8))
   
3. If Cell.Row + Cell.Column > 8 Then
   
4. Cell.Value = Cell.Row + Cell.Column - 8
   
5. End If
   
6. Next
   
7. For Each Cell In Range(Cells(1, 9), Cells(8, 15))
   
8. Cell.Value = Cells(Cell.Row, (16 - Cell.Column)).Value
   
9. Next
   
10. End Sub

复制代码