Я долго думал как сформулировать свой вопрос и понял что проще будет скинуть кусок задачи где раскрывается вся суть.
Пояснение к выложенному файлу.
Как то тут на форму мне помогли решить задачу, где ограничивался диапазон закрашиваемых ячеек.
Этот код я решил перебрать оставил только мне необходимое и все бы работало, если бы не встала проблема со значением строки, которая ограничивает закрашиваемый диапазон. Ниже данной строки закрашивать ячейки нельзя.
Подскажите как сделать такой код который бы позволил сделать диапазон изменяемым.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Dim MAX_ROW As Long
Const MIN_ROW As Long = 4
Const MIN_COL As Long = 3
Const MAX_ROW As Long = 12 ' это значение мне надо сделать изменяющимся.
Const MAX_COL As Long = 33
Dim nArr(MIN_ROW To MAX_ROW, MIN_COL To MAX_COL) As Long
' проверяем на попадание в рабочий диапазон
If Target.Row >= MIN_ROW And Target.Row <= MAX_ROW And _
Target.Column >= MIN_COL And Target.Column <= MAX_COL Then
If Selection.Interior.Color = CollorEdit Then
ActiveCell.Select
ActiveCell.Value = ""
Selection.Interior.ColorIndex = 0
Else: Selection.Interior.Color = 0
ActiveCell.Select
Selection.Interior.Color = CollorEdit
End If
End If
End Sub
p.s.
Во вложенном коде, есть две кнопки по добавлению и удалению строк в графике. Но диапазон под закраску ячек не изменяется. Поэтому если в графике больше 9 строк, то 10 и последующие закрашиваться по двойному щелчку не будут... так же и в обратную если меньше 9 строк, то график состоящий из 3-4 строк будет закрашиваться за своими границами...
