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

Вход

Регистрация

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

 

= Мир MS Excel/Определенный переменной Checkbox Visible - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определенный переменной Checkbox Visible (Макросы/Sub)
Определенный переменной Checkbox Visible
Валерьянка Дата: Четверг, 03.04.2014, 11:31 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Доброго дня!

Подскажите, пжт, что не так в моем макросе?

Мне надо чтобы определенный переменной Чекбокс становился видимым

[vba]
Код
Sub ДобавитьСтроку()
Dim PS, ES, NPp, NDo, NChek As Integer
Dim TChB
PS = Sheets(1).Range("b" & Rows.Count).End(xlUp).Row  
ES = PS + 1 NDo = Sheets(1).Range("b" & PS).Value  
NPp = NDo + 1  
NChek = NDo + 2
Sheets(1).Range("b" & ES) = NPp

TChB = "Sheets(1).CheckBox" & NChek
TChB.Visible = True
End Sub
[/vba]


Сообщение отредактировал Валерьянка - Четверг, 03.04.2014, 11:33
 
Ответить
СообщениеДоброго дня!

Подскажите, пжт, что не так в моем макросе?

Мне надо чтобы определенный переменной Чекбокс становился видимым

[vba]
Код
Sub ДобавитьСтроку()
Dim PS, ES, NPp, NDo, NChek As Integer
Dim TChB
PS = Sheets(1).Range("b" & Rows.Count).End(xlUp).Row  
ES = PS + 1 NDo = Sheets(1).Range("b" & PS).Value  
NPp = NDo + 1  
NChek = NDo + 2
Sheets(1).Range("b" & ES) = NPp

TChB = "Sheets(1).CheckBox" & NChek
TChB.Visible = True
End Sub
[/vba]
Автор - Валерьянка
Дата добавления - 03.04.2014 в 11:31
RAN Дата: Четверг, 03.04.2014, 11:43 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Это не так
[vba]
Код
TChB.Visible = True
[/vba]
А для того, чтобы определить, как нужно так, нужен файл.
CheckBox CheckBox'у рознь.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЭто не так
[vba]
Код
TChB.Visible = True
[/vba]
А для того, чтобы определить, как нужно так, нужен файл.
CheckBox CheckBox'у рознь.
Автор - RAN
Дата добавления - 03.04.2014 в 11:43
Валерьянка Дата: Четверг, 03.04.2014, 12:21 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
RAN, пример вложен
К сообщению приложен файл: 8276724.xlsm (42.1 Kb)


Сообщение отредактировал Валерьянка - Четверг, 03.04.2014, 12:34
 
Ответить
СообщениеRAN, пример вложен
Автор - Валерьянка
Дата добавления - 03.04.2014 в 12:21
Валерьянка Дата: Четверг, 03.04.2014, 13:48 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Цитата RAN, 03.04.2014 в 11:43, в сообщении № 2
Это не так
TChB.Visible = True

А как будет правильно?
 
Ответить
Сообщение
Цитата RAN, 03.04.2014 в 11:43, в сообщении № 2
Это не так
TChB.Visible = True

А как будет правильно?
Автор - Валерьянка
Дата добавления - 03.04.2014 в 13:48
RAN Дата: Четверг, 03.04.2014, 14:09 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
На форме так
[vba]
Код
Controls("CheckBox" & 1).Value = True
[/vba]
А как достучаться до чекбокса на листе - не знаю.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНа форме так
[vba]
Код
Controls("CheckBox" & 1).Value = True
[/vba]
А как достучаться до чекбокса на листе - не знаю.
Автор - RAN
Дата добавления - 03.04.2014 в 14:09
_Boroda_ Дата: Четверг, 03.04.2014, 14:22 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16957
Репутация: 6631 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А вот так? У меня работает
[vba]
Код
TChB = "CheckBox" & NChek
Sheets(1).Shapes.Range(TChB).Visible = True
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА вот так? У меня работает
[vba]
Код
TChB = "CheckBox" & NChek
Sheets(1).Shapes.Range(TChB).Visible = True
[/vba]
Автор - _Boroda_
Дата добавления - 03.04.2014 в 14:22
Валерьянка Дата: Четверг, 03.04.2014, 15:17 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010

_Boroda_, Всё работает!!! hands

_Boroda_, RAN, спасибо!!!
 
Ответить
Сообщение
_Boroda_, Всё работает!!! hands

_Boroda_, RAN, спасибо!!!
Автор - Валерьянка
Дата добавления - 03.04.2014 в 15:17
Валерьянка Дата: Понедельник, 07.04.2014, 09:40 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,
А что я не так делаю? по аналогии с Visible пытаюсь сделать .Value (установить/снять флаг)
[vba]
Код
TChB = "CheckBox" & NChek
Sheets(1).Shapes.Range(TChB).Value = True
[/vba]
не подходит
:(
 
Ответить
Сообщение_Boroda_,
А что я не так делаю? по аналогии с Visible пытаюсь сделать .Value (установить/снять флаг)
[vba]
Код
TChB = "CheckBox" & NChek
Sheets(1).Shapes.Range(TChB).Value = True
[/vba]
не подходит
:(
Автор - Валерьянка
Дата добавления - 07.04.2014 в 09:40
RAN Дата: Понедельник, 07.04.2014, 10:39 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Почему не работает, понятно.
Shapes - это фигура. У нее есть свойство Visible но нет Value.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПочему не работает, понятно.
Shapes - это фигура. У нее есть свойство Visible но нет Value.
Автор - RAN
Дата добавления - 07.04.2014 в 10:39
anvg Дата: Понедельник, 07.04.2014, 10:45 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
[vba]
Код

Sheets(1).Shapes("Checkbox1").OLEFormat.Object.Object.Value = True
[/vba]
или
[vba]
Код

Sheets(1).OLEObjects("Checkbox1").Object.Value = True
[/vba]
Успехов.


Сообщение отредактировал anvg - Понедельник, 07.04.2014, 10:50
 
Ответить
Сообщение[vba]
Код

Sheets(1).Shapes("Checkbox1").OLEFormat.Object.Object.Value = True
[/vba]
или
[vba]
Код

Sheets(1).OLEObjects("Checkbox1").Object.Value = True
[/vba]
Успехов.
Автор - anvg
Дата добавления - 07.04.2014 в 10:45
Валерьянка Дата: Понедельник, 07.04.2014, 11:22 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
anvg, спасибо
 
Ответить
Сообщениеanvg, спасибо
Автор - Валерьянка
Дата добавления - 07.04.2014 в 11:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определенный переменной Checkbox Visible (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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