我想编写一个脚本,使我可以仅在选定范围内突出显示(背景颜色)某些单元格,例如仅在第2列和第2行中的单元格,即使我选择整个表格也是如此。
示例:
我正在尝试完成的代码:
示例:
For each cell in selected range {
If selected cell[i][j] is within allowed range {
cell background color = green
};
};
function BackgroundColor() {
var spreadsheet = SpreadsheetApp.getActive();
var sheet = spreadsheet.getActiveSheet();
var range = sheet.getActiveRange();
var cells = range.getValues();
var numRows = range.getNumRows();
var numCols = range.getNumColumns();
for (var i = 0; i < numRows; i++) {
for (var j = 0; j < numCols; j++) {
if (range.getValues()[i][j] == '') {
range.setBackground('#00B050').setFontColor('#ffffff')
}
}
}
range.setValues(cells);
};
我能够在VBA中实现它:
Sub cmdGreen()
Dim Cel As Range
Dim GreenArrayCount As Integer
Dim InteriorColor As Long, FontColor As Long
Dim GreenArray() As Variant
Dim BodyRange As String
InteriorColor = VBA.RGB(0, 176, 80) 'interior in green
FontColor = VBA.RGB(255, 255, 255) 'font in white
GreenArray = Array("COLUMN 2", "ROW 2")
BodyRange = ActiveSheet.ListObjects(1).DataBodyRange.Address
For Each Cel In Application.Selection.Cells
If Not Intersect(Cel, Range(BodyRange)) Is Nothing Then
For GreenArrayCount = LBound(GreenArray) To UBound(GreenArray)
If (ActiveSheet.ListObjects(1).HeaderRowRange(Cel.Column).Value _
= GreenArray(GreenArrayCount) Or _
ActiveSheet.ListObjects(1).DataBodyRange(Cel.Row - 1, 1).Value _
= GreenArray(GreenArrayCount)) Then
Cel.Interior.Color = InteriorColor
Cel.Font.Color = FontColor
End If
Next GreenArrayCount
End If
Next Cel
End Sub
有人能帮助我吗?
这个问题与IT技术无关。