Я хочу написать сценарий, который позволяет мне выделять (цвет фона) только некоторые ячейки в пределах выбранного диапазона, например, только ячейки в столбцах COLUMN 2 и ROW 2, даже если я выбираю всю таблицу.
Ex:
Например:
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
Кто-нибудь может мне помочь, пожалуйста?