CheckBox включенный по умолчанию при загрузке формы...

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » CheckBox включенный по умолчанию при загрузке формы... (Формулы/Formulas)

televnoy

Дата: Среда, 19.04.2017, 14:51 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер, как включить CheckBox при загрузке формы?

Пытаюсь как то так, не выходит...

[vba]

Код

Private Sub UserForm_Initialize()
CheckBox1.Value = True
CheckBox2.Value = True
End Sub

[/vba]

О-па! 0_o

Ответить

_Boroda_

Дата: Среда, 19.04.2017, 14:56 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

У меня работает. Покажите в файле

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

televnoy

Дата: Среда, 19.04.2017, 15:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, ну скорее всего ошибка где то =(
Устал читить.... =)
При том способе включен только один CheckBox - второй, первый пропадает...

Да еще забыл с WorctopOpen убрать лишнее...

К сообщению приложен файл: __-4-.xlsm (65.1 Kb)

О-па! 0_o

Сообщение отредактировал televnoy - Среда, 19.04.2017, 15:14

Ответить

televnoy

Дата: Среда, 19.04.2017, 15:19 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, Этот файл почище будет....

К сообщению приложен файл: 3609117.xlsm (63.3 Kb)

О-па! 0_o

Ответить

buchlotnik

Дата: Среда, 19.04.2017, 15:22 | Сообщение № 5

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

так у вас у чекбоксов visible = false стоит в свойствах

К сообщению приложен файл: -4-.xlsm (65.1 Kb)

Ответить

_Boroda_

Дата: Среда, 19.04.2017, 15:29 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А если принудительно дописать?
[vba]

Код

        CheckBox2.Visible = True
        CheckBox1.Visible = True
    Else

[/vba]
Файл, который "почище" уже не смотрел
А в свойствах переустанавливать не стал - не знаю причину установки в False

Ответить

RAN

Дата: Четверг, 20.04.2017, 09:37 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub UserForm_Initialize()
'____________________________________________________
  CheckBox1.Value = True
  CheckBox2.Value = True
  '__________________________________________________
    SpinButton1.Min = 1
    SpinButton1.Max = 10
  If CheckBox1.Value = True Then
CheckBox1.Caption = "Включен ручной ввод товара"
vbComboBox2.Visible = False
xxxTextBox1.Visible = True
xxxTextBox2.Visible = True
xxxTextBox3.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Label3.Visible = False
CheckBox2.Enabled = True
CheckBox2.Visible = True

Else
CheckBox1.Caption = "Отключен ручной ввод товара"
vbComboBox2.Visible = True
xxxTextBox1.Visible = False
xxxTextBox2.Visible = False
xxxTextBox3.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label3.Visible = True
CheckBox2.Enabled = False
End If
cbComboBox1.Value = Worksheets("Чек").Range("j5").Value
End Sub

[/vba]
Обалденный код!

О каких Else может идти речь при наличии строки
[vba]

Код

CheckBox1.Value = True

[/vba]?????
Установите в свойствах контролов нужные параметры, и все это превратится в
[vba]

Код

Sub UserForm_Initialize()
cbComboBox1.Value = Worksheets("Чек").Range("j5").Value
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 20.04.2017, 09:38

Ответить

televnoy

Дата: Четверг, 20.04.2017, 11:50 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо всем за ответ. Воспользовался советом buchlotnik, все гениальное просто.
Что касается ответа RAN, приму к сведению, да бред маленько получается, просто изначально одно писал, после уже пожелания другие стали, точнее изначально они не были согласованны, и стал лепить из того что было. А лист почистил когда, до этих пару сток, понял в чем причина

Цитата

так у вас у чекбоксов visible = false стоит в свойствах

Всем огромное спасибо за участие.