[已解决]VBA程序代码问题，

xjc158

那位高手帮我设一段代码
就是从A1到A10这10行中，其是任意一行的字符数大于50个时，这10行字的字号设为24，每行的行高设为30，小于待于50大于等于30个时，这10行字的字号设为28，行高设为36，小于30个大于等于20个时，每行的字号设为32，行高设为40，小于20个字符时，字号设为40，行高设为45，请高手帮我设一下，现在，真不会设这样的代码。谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-28 13:37

1. 
   
2. Sub TEST()
   
3.     For I = 1 To 10
   
4.         If Len(Cells(I, 1)) > N Then N = Len(Cells(I, 1))
   
5.     Next
   
6.     With Rows("1:10")
   
7.         Select Case N
   
8.         Case Is > 50
   
9.             .RowHeight = 30
   
10.             .Font.Size = 24
    
11.         Case Is >= 30
    
12.             .RowHeight = 36
    
13.             .Font.Size = 28
    
14.         Case Is >= 20
    
15.             .RowHeight = 40
    
16.             .Font.Size = 32
    
17.         Case Else
    
18.             .RowHeight = 45
    
19.             .Font.Size = 40
    
20.         End Select
    
21.     End With
    
22. End Sub

复制代码

跳转到最佳答案楼层

adders

这是一个可以借助录制宏的方式解决的典型案例.

除此之外,你只需要知道用len(单元格),来判断字符数多少,就可以自己写出这段代码来.

自己实践一下对提高理解有好处

zjdh

1. 
   
2. Sub TEST()
   
3.     For I = 1 To 10
   
4.         If Len(Cells(I, 1)) > N Then N = Len(Cells(I, 1))
   
5.     Next
   
6.     With Rows("1:10")
   
7.         Select Case N
   
8.         Case Is > 50
   
9.             .RowHeight = 30
   
10.             .Font.Size = 24
    
11.         Case Is >= 30
    
12.             .RowHeight = 36
    
13.             .Font.Size = 28
    
14.         Case Is >= 20
    
15.             .RowHeight = 40
    
16.             .Font.Size = 32
    
17.         Case Else
    
18.             .RowHeight = 45
    
19.             .Font.Size = 40
    
20.         End Select
    
21.     End With
    
22. End Sub

复制代码

xjc158

回复 adders 的帖子

谢谢！我试一下吧！祝生活愉快！万事如意！

xjc158

回复 zjdh 的帖子

太感谢了，这对我帮助很大，谢谢！祝：生活愉快！事事如意！

太得闲

绝对不是路过 来学习学习 谢谢