插入并突出显示插入的行
插入并突出显示插入的行
提问于 2016-08-03 01:07:30
我有一个代码，可以很好地通过指定2列的值来插入多行。我不确定如何在代码中添加一些颜色来突出显示新插入的行。这是我的代码-
Sub Multiplerows()
Dim rng As Integer, k As Integer
Dim attrib As String
Dim BMI As String
Dim rRange As Range
Dim salesID As Long, salesMkt As String
Set rRange = Selection
On Error Resume Next
rng = InputBox("Enter number:.")
item = InputBox("Enter name of the Item:.")
subject = InputBox("Enter name of the sub item:.")
'If rng = 0 Then Exit Sub
For k = 1 To rng
Rows(rRange.Row).Insert Shift:=xlDown
Next k
For k = rng To 1 Step -1
Cells(rRange.Row - k, 10) = item
Cells(rRange.Row - k, 8) = subject
Next k
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2016-08-03 01:12:38
取决于你到底想要做什么(例如，根据行值突出显示)，但在你的下层循环中，你可以这样做
For k = rng To 1 Step -1
Cells(rRange.Row - k, 10) = item
Cells(rRange.Row - k, 8) = subject
ActiveSheet.Rows(rRange.Row - k).Interior.Color = RGB(255, 0, 0)
Next k这会将新行突出显示为鲜红色。将RGB值更改为您喜欢的任何值。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38726579
复制相关文章
相似问题
腾讯云开发者
