[已解决]给单元格加上背景色

kidd1217

Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x




我想在
在小计行 底纹加上黄色

我没加成  郁闷  

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-6-30 21:02

kidd1217 发表于 2012-6-30 20:57
非常感谢

不过我想的不是整行变成黄色， 只想A到H列 之间是黄色的  谢谢

Sub ts()
Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
Range(Cells(x + 1, "A"), Cells(x + 1, "H")).Interior.ColorIndex = 6
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x

End Sub
没有问题了。请看，呵呵，觉得好给个最佳。呵呵。

跳转到最佳答案楼层

ws278106483

楼主给点表格，图片怎么调试啊！

kidd1217

传上了 好的  我已经传上了  

kidd1217

ws278106483 发表于 2012-6-30 20:50
楼主给点表格，图片怎么调试啊！

传上了  谢谢传上了  谢谢传上了  谢谢

ws278106483

Sub ts()
Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
Rows(x + 1).Interior.ColorIndex = 6
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x


End Sub

ws278106483

楼主看下，记得回复哦。呵呵。！！！

kidd1217

ws278106483 发表于 2012-6-30 20:54
Sub ts()
Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1

非常感谢

不过我想的不是整行变成黄色， 只想A到H列 之间是黄色的  谢谢

gdsgzhrsh

Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
RANGE(Cells(X + 1, "a"),Cells(X + 1, "H")).Interior.ColorIndex = 6
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x

ws278106483

Sub ts()
Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
Range(Cells(x + 1, "A"), Cells(x + 1, "H")).Interior.ColorIndex = 6
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x


End Sub

ws278106483

kidd1217 发表于 2012-6-30 20:57
非常感谢

不过我想的不是整行变成黄色， 只想A到H列 之间是黄色的  谢谢

Sub ts()
Dim x As Integer, m1 As Integer, m2 As Integer
m1 = 1
For x = 1 To 1000
If Cells(x, 8) <> Cells(x + 1, 8) Then
m2 = x
Rows(x + 1).Insert
Cells(x + 1, "a") = "小计"
Range(Cells(x + 1, "A"), Cells(x + 1, "H")).Interior.ColorIndex = 6
Cells(x + 1, "h") = Cells(x, "h")
Cells(x + 1, "f") = "=sum(f" & m1 & ":f" & m2 & ")"
m1 = m2 + 2
x = x + 1
End If
Next x

End Sub
没有问题了。请看，呵呵，觉得好给个最佳。呵呵。