Прошу помощи по вопросу: Задача сделать выключатель. -при нажатии выключателя его название должно меняться с "выкл"на "вкл" - при нажатии выключателя цвет текста заданной ячейки меняется на белый (не отображается на белом фоне) и надпись на выключателе появляется "вкл", повторное нажатие цвет текста черный и надпись "выкл" Спасибо за помощь!
Прошу помощи по вопросу: Задача сделать выключатель. -при нажатии выключателя его название должно меняться с "выкл"на "вкл" - при нажатии выключателя цвет текста заданной ячейки меняется на белый (не отображается на белом фоне) и надпись на выключателе появляется "вкл", повторное нажатие цвет текста черный и надпись "выкл" Спасибо за помощь!NeWru
buchlotnik, долго смотрел, ребенок проснулся:) конструктор откл, так и не работает. Возникла идея условного форматирования. Есть там такая возможность: если ячейка А содержит текст (не пустая) то ячейка В форматируется с черным текстом, а если А пустая то В тоже
buchlotnik, долго смотрел, ребенок проснулся:) конструктор откл, так и не работает. Возникла идея условного форматирования. Есть там такая возможность: если ячейка А содержит текст (не пустая) то ячейка В форматируется с черным текстом, а если А пустая то В тожеNeWru
вот эти две кнопки необходимо в один выключатель объединить, и чтобы на нем менялась надпись вкл выкл при видимом и невидимом тексте (содержимом ячейки А1)
вот эти две кнопки необходимо в один выключатель объединить, и чтобы на нем менялась надпись вкл выкл при видимом и невидимом тексте (содержимом ячейки А1)NeWru
реально не понимаю "на кой это надо", но можно так: [vba]
Код
Private Sub CommandButton1_Click() Range("A1").Select With Selection If .NumberFormat = ";;;" Then .NumberFormat = "General" CommandButton1.Caption = "вкл" Else .NumberFormat = ";;;" CommandButton1.Caption = "выкл" End If End With End Sub
[/vba]
реально не понимаю "на кой это надо", но можно так: [vba]
Код
Private Sub CommandButton1_Click() Range("A1").Select With Selection If .NumberFormat = ";;;" Then .NumberFormat = "General" CommandButton1.Caption = "вкл" Else .NumberFormat = ";;;" CommandButton1.Caption = "выкл" End If End With End Sub
спасибо большое! пойдет такой вариант! На пальцах если объяснить для чего нужно: -есть список с датами месяца расположенными по порядку в столбцах сверху вниз слева направо. В одном столбце 6 дат со списками ниже (в одну строку нельзя расположить) -под каждой датой месяца список -если в месяце нет 29,30,31 числа список не заполнится, а дату нужно спрятать
спасибо большое! пойдет такой вариант! На пальцах если объяснить для чего нужно: -есть список с датами месяца расположенными по порядку в столбцах сверху вниз слева направо. В одном столбце 6 дат со списками ниже (в одну строку нельзя расположить) -под каждой датой месяца список -если в месяце нет 29,30,31 числа список не заполнится, а дату нужно спрятатьNeWru
Сообщение отредактировал NeWru - Суббота, 19.03.2016, 12:18
-есть список с датами месяца расположенными по порядку в столбцах сверху вниз слева направо. В одном столбце 6 дат со списками ниже (в одну строку нельзя расположить) -под каждой датой месяца список
-есть список с датами месяца расположенными по порядку в столбцах сверху вниз слева направо. В одном столбце 6 дат со списками ниже (в одну строку нельзя расположить) -под каждой датой месяца список
не по теме вопрос есть. В файлах со списками раскрывающимися иногда перестают списки работать, т.е. формула во вкладке "проверка данных" для этого списка пропадает. В чем причина? проявляется после сохранения из 2010 офиса в 2007 в основном. Спрашиваю, т.к. предложен был вариант со списком
не по теме вопрос есть. В файлах со списками раскрывающимися иногда перестают списки работать, т.е. формула во вкладке "проверка данных" для этого списка пропадает. В чем причина? проявляется после сохранения из 2010 офиса в 2007 в основном. Спрашиваю, т.к. предложен был вариант со спискомNeWru
Сообщение отредактировал NeWru - Суббота, 19.03.2016, 15:05