Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 30.10.2009, 20:31   #1
Apostolx
Пользователь
 
Аватар для Apostolx
 
Регистрация: 14.09.2009
Адрес: Росия Саратовская область р.п. Турки
Сообщений: 48
Репутация: 10
По умолчанию Макрос для кнопки появление и удаление надписи в определенном месте с условием

Привет всем програмистам
Есть такая задача есть документ в него вносятся люди список людей разный, но в конце списка должна забиваться должность и фамилия можно одной ячейкой можно несколько как это выглядет смотрите в файле.
Все это должно происходить при нажатии одной кнопки.
Один раз нажал надпись появилась в
второй раз нажал надпись удалилась

Помогите пожалуйста
Вложения
Тип файла: rar Книга1.rar (5.3 Кб, 9 просмотров)
Apostolx вне форума   Ответить с цитированием
Старый 30.10.2009, 23:03   #2
EugeneS
Форумчанин
 
Регистрация: 06.08.2009
Адрес: Киев - Херсон
Сообщений: 472
Репутация: 79
По умолчанию

см. вложение
Вложения
Тип файла: zip Книга1_1.zip (12.4 Кб, 21 просмотров)
EugeneS вне форума   Ответить с цитированием
Старый 03.11.2009, 22:42   #3
Apostolx
Пользователь
 
Аватар для Apostolx
 
Регистрация: 14.09.2009
Адрес: Росия Саратовская область р.п. Турки
Сообщений: 48
Репутация: 10
По умолчанию

мне нужна одна кнопка но что бы работала как две один раз нажал надпись появилась второй раз нажал надпись удалилась и т.д.
__________________
ICQ 26-55-99-888
Apostolx вне форума   Ответить с цитированием
Старый 03.11.2009, 23:12   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Адрес: Россия, Урал
Сообщений: 6,822
Репутация: 1220

skype: ExcelVBA.ru
По умолчанию

Так, что ли, надо?



Вот весь код:
Код:

Private Sub ToggleButton1_Click()
    Range("a17:d18").Font.Color = IIf(Me.ToggleButton1.Value, vbBlack, vbWhite)
End Sub

EducatedFool вне форума   Ответить с цитированием
Старый 05.11.2009, 11:46   #5
Apostolx
Пользователь
 
Аватар для Apostolx
 
Регистрация: 14.09.2009
Адрес: Росия Саратовская область р.п. Турки
Сообщений: 48
Репутация: 10
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Так, что ли, надо?

Вот весь код:
Код:

Private Sub ToggleButton1_Click()
    Range("a17:d18").Font.Color = IIf(Me.ToggleButton1.Value, vbBlack, vbWhite)
End Sub

ну не совсем так смысл в том что в послеедующем этот документ переносится в TXT фаил в котором уже не ставятся белые или черные буквы там они все равно будут видны
Ну я просто не знаю как это грамотно написать в макросе чтобы была проверка
Если есть надпись после списка то ее убрать если нет надписи то ее написать, что то типа токого
Проблема в том что эта строчка она меняет свое положение в зависимости от количества людей вписонных в список я не знаю как ее выделить и работать с ней
__________________
ICQ 26-55-99-888
Apostolx вне форума   Ответить с цитированием
Старый 05.11.2009, 16:02   #6
EugeneS
Форумчанин
 
Регистрация: 06.08.2009
Адрес: Киев - Херсон
Сообщений: 472
Репутация: 79
По умолчанию

см. вложение

Первый раз невнимательно прочитал условие, прошу прощения
Вложения
Тип файла: zip Книга1_1.zip (12.0 Кб, 8 просмотров)
EugeneS вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TeeChart Pro 8 : Надписи для осей Mikhail-66 Компоненты Delphi 1 15.01.2010 16:07
добавление и удаление столбцов в DBGrid по нажатию кнопки MargoNik БД в Delphi 6 27.04.2009 15:44
Запрос на удаление с условием Dimok82 SQL, базы данных 1 13.03.2009 19:19
Как сделать чтобы файл автоматически создался в определенном месте? DM_bite Помощь студентам 6 04.08.2008 19:11
как заставить работать макрос при определенном значении ячейки? Град Microsoft Office Excel 5 30.05.2008 16:06


18:39.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru