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

Вход

Регистрация

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

 

= Мир MS Excel/Имеется вып список макросов,какие варианты улучшить - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имеется вып список макросов,какие варианты улучшить (Макросы/Sub)
Имеется вып список макросов,какие варианты улучшить
micholap_denis Дата: Вторник, 01.03.2022, 01:04 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Есть выпадающий список с именами макросов, все работает, не устраивает то что нет возможности увеличить шрифт списка , какие варианты может есть ,чем заменить как улучшить
Главное удобство и без лишних кнопок...может через форму или ещё как .
Пример сделаю и выложу
 
Ответить
СообщениеЕсть выпадающий список с именами макросов, все работает, не устраивает то что нет возможности увеличить шрифт списка , какие варианты может есть ,чем заменить как улучшить
Главное удобство и без лишних кнопок...может через форму или ещё как .
Пример сделаю и выложу
Автор - micholap_denis
Дата добавления - 01.03.2022 в 01:04
Nic70y Дата: Вторник, 01.03.2022, 08:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
может через форму
как по мне, вполне норм вариант.

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
может через форму
как по мне, вполне норм вариант.
Автор - Nic70y
Дата добавления - 01.03.2022 в 08:05
micholap_denis Дата: Вторник, 01.03.2022, 09:24 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Nic70y, а скиньте пожалуйста рабочий пример
попробую и себе сделать
 
Ответить
СообщениеNic70y, а скиньте пожалуйста рабочий пример
попробую и себе сделать
Автор - micholap_denis
Дата добавления - 01.03.2022 в 09:24
Nic70y Дата: Вторник, 01.03.2022, 09:27 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
micholap_denis, у меня нет рабочего варианта,
я не запускаю макросы выбирая их из списка.
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
Пример сделаю и выложу
выложите,
на нем будет понятно.

ЮMoney 41001841029809
 
Ответить
Сообщениеmicholap_denis, у меня нет рабочего варианта,
я не запускаю макросы выбирая их из списка.
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
Пример сделаю и выложу
выложите,
на нем будет понятно.
Автор - Nic70y
Дата добавления - 01.03.2022 в 09:27
Апострофф Дата: Вторник, 01.03.2022, 09:46 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
micholap_denis, код формы
[vba]
Код
Private Sub ListBox1_Click()
Application.Run ListBox1
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Array("MAC1", "MAC2", "MAC3")
End Sub
[/vba]
код модуля
[vba]
Код
Sub MAIN()
UserForm1.Show 0
End Sub
Sub MAC1()
MsgBox UserForm1.ListBox1
End Sub
Sub MAC2()
MsgBox UserForm1.ListBox1
End Sub
Sub MAC3()
MsgBox UserForm1.ListBox1
End Sub
[/vba]
 
Ответить
Сообщениеmicholap_denis, код формы
[vba]
Код
Private Sub ListBox1_Click()
Application.Run ListBox1
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Array("MAC1", "MAC2", "MAC3")
End Sub
[/vba]
код модуля
[vba]
Код
Sub MAIN()
UserForm1.Show 0
End Sub
Sub MAC1()
MsgBox UserForm1.ListBox1
End Sub
Sub MAC2()
MsgBox UserForm1.ListBox1
End Sub
Sub MAC3()
MsgBox UserForm1.ListBox1
End Sub
[/vba]
Автор - Апострофф
Дата добавления - 01.03.2022 в 09:46
RAN Дата: Вторник, 01.03.2022, 09:53 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
не устраивает то что нет возможности увеличить шрифт списка , какие варианты может есть

ComboBox

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата micholap_denis, 01.03.2022 в 01:04, в сообщении № 1 ()
не устраивает то что нет возможности увеличить шрифт списка , какие варианты может есть

ComboBox
Автор - RAN
Дата добавления - 01.03.2022 в 09:53
micholap_denis Дата: Вторник, 01.03.2022, 10:08 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Nic70y, вот что имею, но в оригинале таблица большая масштаб 60-70% и шрифт очень мелкий
да и че то ошибки при выборе макроса -- меняет имя почемуто в выпадающем списке
К сообщению приложен файл: 4383418.xlsm (28.1 Kb)
 
Ответить
СообщениеNic70y, вот что имею, но в оригинале таблица большая масштаб 60-70% и шрифт очень мелкий
да и че то ошибки при выборе макроса -- меняет имя почемуто в выпадающем списке
Автор - micholap_denis
Дата добавления - 01.03.2022 в 10:08
Nic70y Дата: Вторник, 01.03.2022, 11:12 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
ну, как-то так
вариант в файле
К сообщению приложен файл: 18.xlsm (29.7 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениену, как-то так
вариант в файле
Автор - Nic70y
Дата добавления - 01.03.2022 в 11:12
micholap_denis Дата: Вторник, 01.03.2022, 19:25 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Nic70y, спасибо
отлично.
 
Ответить
СообщениеNic70y, спасибо
отлично.
Автор - micholap_denis
Дата добавления - 01.03.2022 в 19:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имеется вып список макросов,какие варианты улучшить (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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