Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/запуск макроса по нажатию на чекбокс на форме - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » запуск макроса по нажатию на чекбокс на форме (Макросы/Sub)
запуск макроса по нажатию на чекбокс на форме
kpk17 Дата: Вторник, 31.12.2013, 23:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
помогите пожалуйста найти ошибку.
если установлен чекбокс, то ширина формы должна стать 565, если не выбран чек то 400.

[vba]
Код
Public Sub CheckBox_Change()
If CheckBox4.Value = True Then
UserForm8.Width = 565
Else
UserForm8.Width = 400
CheckBox4 = False
End If
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Вторник, 19.05.2015, 10:49
 
Ответить
Сообщениепомогите пожалуйста найти ошибку.
если установлен чекбокс, то ширина формы должна стать 565, если не выбран чек то 400.

[vba]
Код
Public Sub CheckBox_Change()
If CheckBox4.Value = True Then
UserForm8.Width = 565
Else
UserForm8.Width = 400
CheckBox4 = False
End If
End Sub
[/vba]
Автор - kpk17
Дата добавления - 31.12.2013 в 23:40
Hugo Дата: Среда, 01.01.2014, 00:18 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Без примера - ну попробуйте me.repaint...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеБез примера - ну попробуйте me.repaint...
Автор - Hugo
Дата добавления - 01.01.2014 в 00:18
alex77755 Дата: Среда, 01.01.2014, 00:21 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Всё проще:
[vba]
Код
Private Sub CheckBox1_Click()
     Width = 565 - 165 * CheckBox1
End Sub
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеВсё проще:
[vba]
Код
Private Sub CheckBox1_Click()
     Width = 565 - 165 * CheckBox1
End Sub
[/vba]
Автор - alex77755
Дата добавления - 01.01.2014 в 00:21
kpk17 Дата: Среда, 01.01.2014, 12:33 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Цитата alex77755, 01.01.2014 в 00:21, в сообщении № 3
Всё проще:

не выходит
хотя на тестовом файле все сделал, буду думать. спасибо


Сообщение отредактировал kpk17 - Среда, 01.01.2014, 12:40
 
Ответить
Сообщение
Цитата alex77755, 01.01.2014 в 00:21, в сообщении № 3
Всё проще:

не выходит
хотя на тестовом файле все сделал, буду думать. спасибо
Автор - kpk17
Дата добавления - 01.01.2014 в 12:33
AndreTM Дата: Среда, 01.01.2014, 14:36 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
alex77755, в VBA vbTrue = -1. Соответственно, ширина будет 730, причём при True :)
Так что считаем от False:
[vba]
Код
Private Sub CheckBox1_Click()
      Width = 400 - 165 * CheckBox1.Value
End Sub
[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщениеalex77755, в VBA vbTrue = -1. Соответственно, ширина будет 730, причём при True :)
Так что считаем от False:
[vba]
Код
Private Sub CheckBox1_Click()
      Width = 400 - 165 * CheckBox1.Value
End Sub
[/vba]
Автор - AndreTM
Дата добавления - 01.01.2014 в 14:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » запуск макроса по нажатию на чекбокс на форме (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!