'== (c) by Valery V Shmeleff Moscow/Russia www.oflameron.ru == Private Sub Label7_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label7.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 0 'Маркер в ячейке, соответствующей savecolor(0) End Sub Private Sub Label8_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label8.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 1 'Маркер в ячейке, соответствующей savecolor(1) End Sub Private Sub Label9_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label9.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 2 'Маркер в ячейке, соответствующей savecolor(2) End Sub Private Sub Label10_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label10.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 3 'Маркер в ячейке, соответствующей savecolor(3) End Sub Private Sub Label11_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label11.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 4 'Маркер в ячейке, соответствующей savecolor(4) End Sub Private Sub Label12_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label12.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 5 'Маркер в ячейке, соответствующей savecolor(5) End Sub Private Sub Label13_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label13.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 6 'Маркер в ячейке, соответствующей savecolor(6) End Sub Private Sub Label14_Click() If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки If firstset = 0 Then Label14.BackColor = &HFF0000 'Маркер СИНЕГО цвета If firstset = 0 Then firstset = 1 'Больше не обрабатывать markersave = 7 'Маркер в ячейке, соответствующей savecolor(7) End Sub Private Sub Save_Color() savecolor(0) = Label7.BackColor 'Запомнить предыдущий цвет фона Label7 savecolor(1) = Label8.BackColor 'Запомнить предыдущий цвет фона Label8 savecolor(2) = Label9.BackColor 'Запомнить предыдущий цвет фона Label9 savecolor(3) = Label10.BackColor 'Запомнить предыдущий цвет фона Label10 savecolor(4) = Label11.BackColor 'Запомнить предыдущий цвет фона Label11 savecolor(5) = Label12.BackColor 'Запомнить предыдущий цвет фона Label12 savecolor(6) = Label13.BackColor 'Запомнить предыдущий цвет фона Label13 savecolor(7) = Label14.BackColor 'Запомнить предыдущий цвет фона Label14 End Sub