VBA改单元格底纹

Private Sub 测试()

Dim rg As Range

Dim rgs As Range

Dim rng As Range

Dim rngs As Range

Set rgs = Range("AJ1:AJ100")

For Each rg In rgs

If rg <> "" Then

Set rngs = Range(rg.Offset(0, -24), rg.Offset(0, -2))

For Each rng In rngs

If rng.Interior.Color = 192 Then  '这个192 颜色不是你要的橙色,你自己改一下就行,我今给你演示一下

rng.Interior.Color = RGB(0, 0, 255) '在这个演示过程中,我将红色改为了蓝色

End If

Next

End If

Next

End Sub

*** 作方法如下：

1、打开Excel应用程序；

2、新建一个工作簿；

3、选中区域，右击设置单元格格式；

4、选择好边框样式，然后点击单元格四周设置边框；

5、选择合适的底纹，然后确定；

6、结果如图。

扩展资料：

如何将Excel表格底色换成淡绿色：

1、第一步：通过360图片搜索一下“淡绿色”，选择一张自己喜欢舒服干净的纯“淡绿色”图片保存到当地（如下图）；

2、第二步：打开EXCEL表格，选择“页面布局”中的“背景”点击打开（如下图）；

3、第三步：点击打开“背景”后，找到你存放的淡绿色图片双击（如下图）；

4、第四步：这个时候EXCEL表格的底色就换成淡绿色了（如下图）；

5、第五步：当然，如果你想编辑完表格后不需要淡绿色进行打印的话，点击“页面布局”中的“删除背景”就行了（如下图）。

Excel中是不可以单独对文字加底纹的，加底纹是针对单元格，如果要突出显示文字，可以为文字加颜色。

1、电脑打开Excel表格，选中一个单元格。

2、选中单元格后，如果要加底纹，点击像油漆桶的图标，如果要给文字改颜色，点击A图标。

3、点击选择底纹，单元格底纹就做好了。

---