ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переименовать форму в Экселе
23 сообщений из 23, страница 1 из 1
Переименовать форму в Экселе
    #38835027
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Не думал, что такая это серьезная проблема....
Как переименовать форму в Экселе?
2007, 7
Спасибо

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Чтобы наступила смерть - необходима жизненная сила !!!
...
Рейтинг: 0 / 0
16.12.2014, 13:46
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835039
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
...
Рейтинг: 0 / 0
16.12.2014, 13:53
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835041
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Shocker.Pro,

ООООООчень смешно, если бы так - я бы свой вопрос задал в МО.....


КОДОМ НАДА !!!
...
Рейтинг: 0 / 0
16.12.2014, 13:55
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835051
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Microsoft Visual Basic for Applications Extensibility

в референсы и работайте через VBE.ActiveVBProject
...
Рейтинг: 0 / 0
16.12.2014, 14:00
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835059
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SteplerКОДОМ НАДА !!!накуя? не могу придумать, зачем это может понадобиться.
...
Рейтинг: 0 / 0
16.12.2014, 14:05
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835068
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Shocker.Pro,

Извини, может резко тебе ответил...
Дело в том, что хочу автоматом при запуске книги для нескольких форм их зумировать, что для каждой енто не писать:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub ФормаВЭкран()
 'FIO -  имя формы
Kw = FIO.Width / Application.UsableWidth  'коэффициент ширины макета/ширине экрана
Min = IIf(100 / Kw > 400, 400, 100 / Kw)
Max = IIf(100 * Kw < 10, 10, 100 * Kw)
If FIO.Width - Application.UsableWidth > 0 Then
FIO.Zoom = Max
Else
FIO.Zoom = Min
End If
FIO.Width = Application.UsableWidth - 10
 FIO.Height = Application.UsableHeight
 FIO.Show
End Sub
...
Рейтинг: 0 / 0
16.12.2014, 14:10
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835072
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
см , что я написал. там не надо тебе переименовывать ничего, просто по компонентам пробежишься в цикле и поменяешь размер
...
Рейтинг: 0 / 0
16.12.2014, 14:13
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835075
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Steplerих зумироватькак это связано с переименованием?

ЗЫ: Костя ответил
...
Рейтинг: 0 / 0
16.12.2014, 14:16
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835076
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
если же и дальше страдать хочешь , то вот так

Код: vbnet
1.
ThisWorkbook.VBProject.VBComponents("Userform1").Name = "MyNewName"
...
Рейтинг: 0 / 0
16.12.2014, 14:16
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835079
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Konst_One,

Посмотрел, но не нашел оператора Rename.....
...
Рейтинг: 0 / 0
16.12.2014, 14:22
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835087
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
SteplerKonst_One,

Посмотрел, но не нашел оператора Rename.....

=)
ещё раз почитай, что тут понаписали тебе и подумай
...
Рейтинг: 0 / 0
16.12.2014, 14:27
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835098
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Konst_One,
Спасибо,
попробовал, пишет что "Индекс вне диапазона".....
счас бьюсь с ентим...
...
Рейтинг: 0 / 0
16.12.2014, 14:32
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835131
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Stepler,

интересно то, что переименование прошло, но что за фигня с моим предыдущим сообщением - не пойму...



Однако, всем большое спасибо...
...
Рейтинг: 0 / 0
16.12.2014, 14:52
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835759
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Konst_Oneесли же и дальше страдать хочешь , то вот так

Код: vbnet
1.
ThisWorkbook.VBProject.VBComponents("Userform1").Name = "MyNewName"



Страдаю.... в макросе запоминаю имя Формы, чтобы его после корректировок размера формы восстановить, но на этапе кода выше получается это (см.рисунок):
как уравновесить? Помогите, плз
...
Рейтинг: 0 / 0
17.12.2014, 10:47
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835765
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
А тебя не учили в школе, что текстовые литералы надо в кавычки брать? я уж не говорю об обязательном определении переменных...
...
Рейтинг: 0 / 0
17.12.2014, 10:51
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835768
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Или у тебя в этом Public ап As Хрензнаетчто лежит неведомая хрень.
...
Рейтинг: 0 / 0
17.12.2014, 10:53
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835773
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Akina,
просто фотка первой попытки....пробовал и с кавычками и не с хренью и с определением переменных = тот же мячик, только в профиль....
...
Рейтинг: 0 / 0
17.12.2014, 10:57
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835790
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Akina,

Вот тебе профиль мячика...
...
Рейтинг: 0 / 0
17.12.2014, 11:12
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38835819
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Тебе точно надо форму переименовать? или достаточно изменить её Caption?
...
Рейтинг: 0 / 0
17.12.2014, 11:38
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38836134
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
AkinaТебе точно надо форму переименовать? или достаточно изменить её Caption?
а как я через "Caption" смогу изменить параметры формы - все равно надо будет указывать имя формы... 17004325


Так и не понял почему выдает ошибку, пришлось шаманским способом через ячейки листа, где прописываются в цикле названия форм.
...
Рейтинг: 0 / 0
17.12.2014, 15:56
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38836179
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Stepler,
попробуй так
Код: vbnet
1.
ThisWorkbook.VBProject.VBComponents(("Userform1")).Name = "MyNewName"


или
Код: vbnet
1.
ThisWorkbook.VBProject.VBComponents(CStr("Userform1")).Name = "MyNewName"



конечно, при условии, что форма с таким именем точно существует в книге с кодом.
А вообще мне не совсем ясно какие-такие параметры надо менять у формы, чтобы для этого пришлось такой изврат сотворять. Почему нельзя завести глобальную переменную, которой назначать ссылку на саму форму? Или для каждой формы, размеры которой необходимо менять назначить для свойства "tag" значение "change" и ориентируясь на него вызывать функцию изменения параметров для формы или нет. В саму функцию передавать ссылку на форму.
...
Рейтинг: 0 / 0
17.12.2014, 16:49
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38836638
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
The_PristStepler,
конечно, при условии, что форма с таким именем точно существует в книге с кодом.

для уточнения имени я делаю проверку список существующих форм...
The_PristStepler,
Или для каждой формы, размеры которой необходимо менять назначить для свойства "tag" значение "change" и ориентируясь на него вызывать функцию изменения параметров для формы или нет. В саму функцию передавать ссылку на форму.
А вот енто интересно, поподробнее можно с тегом....(ни разу с ним не работал) изменить и что? вызывать функцию откуда и чем икакую ссылку?
...
Рейтинг: 0 / 0
18.12.2014, 09:21
| Ответить | Цитировать | Написать  
Переименовать форму в Экселе
    #38836642
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
The_PristStepler,
А вообще мне не совсем ясно какие-такие параметры надо менять у формы...
Мониторы у всех разные, некоторые формы почти в полный экран и могут не поместиться....
...
Рейтинг: 0 / 0
18.12.2014, 09:24
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переименовать форму в Экселе
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2156094]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 9ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 295ms
total:  430ms
созд. / загр.: 430ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]