怎么用vb或vba程序把一个excel工作簿里的多个工作表特定单元格填充颜色

这个很简单，问题是特定的单元格是哪些？我假设都是单元格A1，颜色填充红色。

则代码：

Sub 宏1()

Sheets("Sheet1")Select

Range("A1")Select

With SelectionInterior

Pattern = xlSolid

PatternColorIndex = xlAutomatic

Color = 255

TintAndShade = 0

PatternTintAndShade = 0

End With

End Sub

以上代码为将SHEET1，SHEET2以及SHEET3三个工作表的A1单元格涂成红色。

vb没有做填充的函数

但是你可以调用API函数来实现

声明这个之后，调用就可以了。

注意，有些多边形可能会造成填充色溢出，具体原因不明

'填充颜色的DLL声明 wfilltype =1:crcolor的颜色为需替换的颜色 =0:crcolor为边界的颜色

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Set rng1 = Worksheets("Sheet1")Range("A1:A2")

Set rng2 = Worksheets("Sheet1")Range("A1:A20")

rng1AutoFill Destination:=rng2

自带的帮助就有相关的信息：

先设置两个RANGE变量，用rng1作为数据源，自动填充rng2区域

两个区域可以用别的语句先计算好，然后再填充

等着追加50分

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long

Private Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" Alias "CreateSolidBrush" (ByVal crColor As Long) As Long

Private Declare Function Polygon Lib "gdi32" Alias "Polygon" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long

Private Sub Form_Click()

dim pt(2) as pointapi

pt(0)x=200:pt(0)y=200

pt(1)x=300:pt(1)y=300

pt(2)x=100:pt(2)y=300

hpen = CreatePen(0, 1, 边框颜色) '创建画笔

SelectObject Mehdc, hpen '使用画笔

hbrush = CreateSolidBrush(填充颜色) '创建笔刷

SelectObject Mehdc, hbrush '使用笔刷

Polygon Mehdc, pt(0), 3 '绘制并填充多边形

DeleteObject hpen '删除画笔和笔刷

DeleteObject hbrush

end sub

以上就是关于怎么用vb或vba程序把一个excel工作簿里的多个工作表特定单元格填充颜色全部的内容，包括:怎么用vb或vba程序把一个excel工作簿里的多个工作表特定单元格填充颜色、计算机图形学中 多边形填充 的 VB 程序怎么编呀、EXCEL中VB编程关于自动填充代码的问题(高手进)等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！