vba单元格颜色 vba单元格颜色代码

在EXCEl中，用VBA实现单元格颜色改变

这儿就能搞定了 不需要VBA

vba单元格颜色 vba单元格颜色代码

vba单元格颜色 vba单元格颜色代码

dim i%,r%

Whit Sheets["表名称"]

r=.Range["A65536"].End(xlup).Row

For i=1 to r

If .Cells(i,1) .Value<20 Then

.Cells(i,1).Font.ColorIndex=4

Eed If

If .Cells(i,1) .Value>19 And .Cells(i,1) .Value<41 Then

.Cells(i,1).Font.ColorIndex=6

End If

If .Cells(i,1) .Value>40 Then

.Cells(i,1).Font.ColorIndex=3

End If

Next i

End With

Excel 如何使用VBA在指定区域中选择单元格后，自动填充颜色，二次点选则清除颜色？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '自动到 零售单

Dim tr, tc

tr = Target.Row

tc = Target.Column

If tr > 1 And tr <= 36 And tc <= 14 And Cells(tr, tc).Interior.ColorIndex = xlNone Then

Cells(tr, tc).Interior.ColorIndex = 4

Else

Cells(tr, tc).Interior.ColorIndex = xlNone

End If

End Sub

试下

vba单元格颜色 vba单元格颜色代码

利用vba有条件设置单元格颜色

Sub test()

Dim i%, j%, k%

k = [a65536].End(xlUp).Row

For i = k To 5 Step -1

For j = i - 2 To 3 Step -1

If Cells(i - 1, 1) = Cells(j - 1, 1) And Cells(i - 2, 1) = Cells(j - 2, 1) Then

If Cells(i, 1) = Cells(j, 1) Then

Cells(i, 1).Interior.Color = vbRed

Exit For

' Else

' Exit For

End If

End If

Next j

Next i

End Sub

你这问题描述的太吃力了

看看是不是你要的结果吧

不是的话你把else和它下面那行取消注释

excel vba中填充单元格颜色

没看明白你的意思。

VBA中，单元格填充色的属性是：range.interior.color或range.interior.colorindex

都是可读可写属性，请参考。

Sub xx()

Dim n&

n = Cells(Rows.Count, 1).End(xlUp).Row - 1

Range("j1:bf" & n).Interior.Color = vbYellow

End Sub