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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение названия кнопки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение названия кнопки
Изменение названия кнопки
pechkin Дата: Понедельник, 08.09.2014, 12:22 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Вопрос вот в чем. Рекордером записал Макрос, кое-что убрал и что-то добавил.В результате получилось так[vba]
Код
Sub Макрос1()
ActiveSheet.Shapes("Button 1").Select
If Selection.Characters.Text = "ДА" Then
Selection.Characters.Text = "НЕТ"
With Selection.Font
.ColorIndex = 5
End With
Else: Selection.Characters.Text = "ДА"
With Selection.Font
.FontStyle = "полужирный"
.ColorIndex = 3
End With
End If
'Range("F20").Select
End Sub
[/vba]
Подскажите пожалуйста- возможно ли сделать тоже самое, но без выделения кнопки (обратиться напрямую или еще как нибудь) Недостаток здесь в том, что после выполнения этого Макроса кнопка остается выделенной. Как снять выделение не выделяя,например,любую ячейку?
Спасибо!


Сообщение отредактировал pechkin - Понедельник, 08.09.2014, 12:25
 
Ответить
СообщениеЗдравствуйте! Вопрос вот в чем. Рекордером записал Макрос, кое-что убрал и что-то добавил.В результате получилось так[vba]
Код
Sub Макрос1()
ActiveSheet.Shapes("Button 1").Select
If Selection.Characters.Text = "ДА" Then
Selection.Characters.Text = "НЕТ"
With Selection.Font
.ColorIndex = 5
End With
Else: Selection.Characters.Text = "ДА"
With Selection.Font
.FontStyle = "полужирный"
.ColorIndex = 3
End With
End If
'Range("F20").Select
End Sub
[/vba]
Подскажите пожалуйста- возможно ли сделать тоже самое, но без выделения кнопки (обратиться напрямую или еще как нибудь) Недостаток здесь в том, что после выполнения этого Макроса кнопка остается выделенной. Как снять выделение не выделяя,например,любую ячейку?
Спасибо!
Автор - pechkin
Дата добавления - 08.09.2014 в 12:22
RAN Дата: Понедельник, 08.09.2014, 12:39 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Enabled_Click()
     If ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ОТКЛЮЧЕНА" Then
         ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ВКЛЮЧЕНА"
     Else
         ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ОТКЛЮЧЕНА"
     End If
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Enabled_Click()
     If ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ОТКЛЮЧЕНА" Then
         ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ВКЛЮЧЕНА"
     Else
         ActiveSheet.DrawingObjects("Блок").Characters.Text = "БЛОКИРОВКА ОТКЛЮЧЕНА"
     End If
End Sub
[/vba]
Автор - RAN
Дата добавления - 08.09.2014 в 12:39
pechkin Дата: Понедельник, 08.09.2014, 13:45 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Спасибо! Все работает!
 
Ответить
СообщениеСпасибо! Все работает!
Автор - pechkin
Дата добавления - 08.09.2014 в 13:45
Alex_ST Дата: Понедельник, 08.09.2014, 17:02 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
Андрей, не узнаю тебя. Ты не заболел?
Без приложенного файла-примера не только советы даёшь, но и какие-то названия сам объектам даёшь, и их текст меняешь...
И самое интересное, что топик-стартеру твой пример подходит! Ты что, в Вольфы Мессинги перекрасился и теперь всё телепатически отгадывать будешь?
Во юзверги-то, не соблюдающие правила форума порадуются!
:)


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеАндрей, не узнаю тебя. Ты не заболел?
Без приложенного файла-примера не только советы даёшь, но и какие-то названия сам объектам даёшь, и их текст меняешь...
И самое интересное, что топик-стартеру твой пример подходит! Ты что, в Вольфы Мессинги перекрасился и теперь всё телепатически отгадывать будешь?
Во юзверги-то, не соблюдающие правила форума порадуются!
:)
Автор - Alex_ST
Дата добавления - 08.09.2014 в 17:02
RAN Дата: Понедельник, 08.09.2014, 20:59 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Леш, а зачем пример? По коду все ясно. Что отгадывать то?
А названия - так это я кусок из рабочего файла выдрал. Вот переименовывать лениво было. :p

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЛеш, а зачем пример? По коду все ясно. Что отгадывать то?
А названия - так это я кусок из рабочего файла выдрал. Вот переименовывать лениво было. :p
Автор - RAN
Дата добавления - 08.09.2014 в 20:59
Alex_ST Дата: Вторник, 09.09.2014, 16:42 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
Ну тогда уж ради примера можно и сильно сократить твою блокировку[vba]
Код
Sub Locked_UnLocked()
    With ActiveSheet.DrawingObjects("Блок").Characters
       .Text = "БЛОКИРОВКА" & IIf(.Text Like "* ОТ*", " В", " ОТ") & "КЛЮЧЕНА"
    End With
End Sub
[/vba] :)


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеНу тогда уж ради примера можно и сильно сократить твою блокировку[vba]
Код
Sub Locked_UnLocked()
    With ActiveSheet.DrawingObjects("Блок").Characters
       .Text = "БЛОКИРОВКА" & IIf(.Text Like "* ОТ*", " В", " ОТ") & "КЛЮЧЕНА"
    End With
End Sub
[/vba] :)
Автор - Alex_ST
Дата добавления - 09.09.2014 в 16:42
pechkin Дата: Среда, 10.09.2014, 17:09 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте. Прошу прощения, если что не так. Вот пример - мне подходит. Спасибо!
К сообщению приложен файл: 7887135.xls (22.5 Kb)
 
Ответить
СообщениеЗдравствуйте. Прошу прощения, если что не так. Вот пример - мне подходит. Спасибо!
Автор - pechkin
Дата добавления - 10.09.2014 в 17:09
Alex_ST Дата: Среда, 10.09.2014, 21:34 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
А так всё-таки покомпактнее будет:[vba]
Код
Sub Макрос2()
     With ActiveSheet.DrawingObjects("Button 1")
         .Characters.Text = "БЛОКИРОВКА" & IIf(.Characters.Text Like "* ОТ*", " В", " ОТ") & "КЛЮЧЕНА"
         .Font.ColorIndex = IIf(.Font.ColorIndex = 5, 3, 5)
     End With
End Sub
[/vba] :)


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеА так всё-таки покомпактнее будет:[vba]
Код
Sub Макрос2()
     With ActiveSheet.DrawingObjects("Button 1")
         .Characters.Text = "БЛОКИРОВКА" & IIf(.Characters.Text Like "* ОТ*", " В", " ОТ") & "КЛЮЧЕНА"
         .Font.ColorIndex = IIf(.Font.ColorIndex = 5, 3, 5)
     End With
End Sub
[/vba] :)
Автор - Alex_ST
Дата добавления - 10.09.2014 в 21:34
RAN Дата: Среда, 10.09.2014, 21:46 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Alex_ST,
Хорошо и хорошо - это когда хорошо и понятно.
Хорошо и не хорошо - это когда хорошо и не понятно, но компактнее. :p

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

Сообщение отредактировал RAN - Среда, 10.09.2014, 21:47
 
Ответить
СообщениеAlex_ST,
Хорошо и хорошо - это когда хорошо и понятно.
Хорошо и не хорошо - это когда хорошо и не понятно, но компактнее. :p
Автор - RAN
Дата добавления - 10.09.2014 в 21:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение названия кнопки
  • Страница 1 из 1
  • 1
Поиск:

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