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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть кнопку до тех пор,пока не будет нажата другая кнопка. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть кнопку до тех пор,пока не будет нажата другая кнопка. (Макросы/Sub)
Скрыть кнопку до тех пор,пока не будет нажата другая кнопка.
Tweaker Дата: Вторник, 05.08.2014, 17:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Есть две кнопки, как сделать так, чтобы вторая (CommandButton2_Click) кнопка не появлялась, пока не нажата первая (CommandButton1_Click)?
Поиск не дал результата.
Заранее благодарен.
 
Ответить
СообщениеЗдравствуйте! Есть две кнопки, как сделать так, чтобы вторая (CommandButton2_Click) кнопка не появлялась, пока не нажата первая (CommandButton1_Click)?
Поиск не дал результата.
Заранее благодарен.
Автор - Tweaker
Дата добавления - 05.08.2014 в 17:48
paramedic Дата: Вторник, 05.08.2014, 17:53 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 67
Репутация: 6 ±
Замечаний: 0% ±

Excel 2007
Изначально задать размеры равные 0, затем в макросе первой кнопки вставить типа
[vba]
Код

     ActiveSheet.Shapes("Button 2").Select
     Selection.ShapeRange.Height = 100#
     Selection.ShapeRange.Width = 100#
[/vba]

Я не ламер - я честный чайник
 
Ответить
СообщениеИзначально задать размеры равные 0, затем в макросе первой кнопки вставить типа
[vba]
Код

     ActiveSheet.Shapes("Button 2").Select
     Selection.ShapeRange.Height = 100#
     Selection.ShapeRange.Width = 100#
[/vba]
Автор - paramedic
Дата добавления - 05.08.2014 в 17:53
Tweaker Дата: Вторник, 05.08.2014, 18:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Может что-то я не так пишу вот: [vba]
Код
Public Sub buttonVis
If CommandButton1_Click then Commandbutton2.Visible = True Else CommandButton2.Visible = False    
End Sub
[/vba]


Сообщение отредактировал Tweaker - Вторник, 05.08.2014, 18:27
 
Ответить
СообщениеМожет что-то я не так пишу вот: [vba]
Код
Public Sub buttonVis
If CommandButton1_Click then Commandbutton2.Visible = True Else CommandButton2.Visible = False    
End Sub
[/vba]
Автор - Tweaker
Дата добавления - 05.08.2014 в 18:25
_Boroda_ Дата: Вторник, 05.08.2014, 18:31 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16711
Репутация: 6502 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
End Sub
[/vba]
А предварительно в коде или свойствах поставьте СВ2 видимость Фелс. см файл

[p.s.]Кнопка для кода VBA - решетка, а буква Fx - это код для формул.
К сообщению приложен файл: 4752752.xlsm (19.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
End Sub
[/vba]
А предварительно в коде или свойствах поставьте СВ2 видимость Фелс. см файл

[p.s.]Кнопка для кода VBA - решетка, а буква Fx - это код для формул.
Автор - _Boroda_
Дата добавления - 05.08.2014 в 18:31
kikim Дата: Среда, 06.08.2014, 09:16 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо. Мне тоже пригодилось.


Сообщение отредактировал kikim - Среда, 06.08.2014, 09:17
 
Ответить
Сообщение_Boroda_, Спасибо. Мне тоже пригодилось.
Автор - kikim
Дата добавления - 06.08.2014 в 09:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть кнопку до тех пор,пока не будет нажата другая кнопка. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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