Office中国论坛/Access中国论坛

标题: 怎么用VBA进行格式设置呢 [打印本页]
作者: zhuangyongjin    时间: 2015-12-17 16:01
标题: 怎么用VBA进行格式设置呢
怎么用VBA进行格式设置呢
作者: roych    时间: 2015-12-17 17:32
本帖最后由 roych 于 2015-12-18 14:40 编辑
  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
复制代码
代码已修正。[attach]57569[/attach]
作者: zhuangyongjin    时间: 2015-12-21 10:26
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
复制代码




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3