怎么用VBA进行格式设置呢

zhuangyongjin

怎么用VBA进行格式设置呢

roych

1. Sub test()
   
2.     Dim i As Long
   
3.     Dim j As Long
   
4.     For i = 1 To 17
   
5.         j = i Mod 4
   
6.         With Sheets(1).Range("A2:H2").Offset(i, 0)
   
7.             Select Case j
   
8.                 Case Is = 1
   
9.                     .Font.Color = vbRed
   
10.                 Case Is = 2
    
11.                     .Font.Bold = True
    
12.                     .Font.Name = "隶书"
    
13.                 Case Is = 3
    
14.                     .Font.Italic = True
    
15.                 Case Is = 0
    
16.                     .Interior.Color = vbYellow
    
17.             End Select
    
18.         End With
    
19.     Next
    
20. End Sub
    

复制代码

代码已修正。

zhuangyongjin

roych 发表于 2015-12-17 17:32
代码已修正。

你好，谢谢您帮忙。已解决了我的问题。
不过，我将行号改为动态的后，需要加一个IF条件，否则空白的单元格也会出现黄色的底纹

1. Sub test()
   
2.     Dim rng As Range
   
3.     'rng.Cells.Interior.Color
   
4.     Dim i As Long, r As Integer
   
5.     Dim j As Long
   
6.     r = [a65536].End(xlUp).Row
   
7.     Cells.ClearFormats
   
8.     For i = 1 To r
   
9.         j = i Mod 4
   
10.         With Sheets(1).Range("A2:H2").Offset(i, 0)
    
11.             If Cells(i + 2, 1) <> "" Then
    
12.                 Select Case j
    
13.                     Case Is = 1
    
14.                         .Font.Color = vbRed
    
15.                     Case Is = 2
    
16.                         .Font.Bold = True
    
17.                         .Font.Name = "隶书"
    
18.                     Case Is = 3
    
19.                         .Font.Italic = True
    
20.                     Case Is = 0
    
21.                         .Interior.Color = vbYellow
    
22.                 End Select
    
23.             End If
    
24.         End With
    
25.     Next
    
26. End Sub

复制代码