Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Вниз

EXCEL: создание особого файла...   Найти похожие ветки 

 
VID   (2003-03-11 21:59) [0]

Возникла необходимость реализации такой задачи:
создание EXCEL совместимого файла, который при своём запуске сделает следущее:
1. Создаст макрос с таким кодом
Sub SetTextFormat()
Cells.Select
Range("D1").Activate
Selection.NumberFormat = "@"
Range("A1").Select
End Sub
2. На панели инструментов в любом месте добавит кнопку какую-нить, и присвоит ей выполнение этого макроса.
Созданный макрос ( и кнопка на панели инструментов) должен сохранятся в экселе и после закрытия этого самого экселя.

Кто может, помогите пожалуйста, а то проект надо сдавать в ближайшее время, а дело вот за этим стало.


 
sad   (2003-03-12 10:08) [1]

в экскел файле открываешь редактор Visual Basic, находишь на вкладке VBA project Эта книга в редакторе кода выбираешь Workbook процедура Open вставляешь
Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
ID:=2950, Before:=1, Temporary:=True
Application.CommandBars("Formatting").Controls(1).OnAction = "SetTextFormat"
макрос должен уже быть написан ,
при открытии документа создается кнопка на нее навешивается выполнение твоего макроса,
Temporery указывает на то, что после закрытия экселя кнопка удаляется.
работает в XP



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
1-87922
Oops
2003-03-17 13:06
2003.03.27
Запрещение удаления символов маски с Маски Ввода


3-87866
Ruslan_
2003-03-08 20:13
2003.03.27
Как правильно управлять явной транзакцией?


1-88029
Yorick
2003-03-10 11:14
2003.03.27
Перетаскование формы


14-88189
Дмитрий К.К.
2003-03-11 06:27
2003.03.27
Именинники 11 марта


3-87800
RealShip
2003-03-07 10:10
2003.03.27
Что это за ошибка такая?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский