Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.008 c
8-88079
2ut
2002-12-19 23:41
2003.03.27
Вопрос скорее к мастерам!?


6-88123
Dmitriy_R
2003-02-03 12:59
2003.03.27
Email Server


3-87839
Nazer
2003-03-10 17:04
2003.03.27
Пароль и логин для базы данных IB


3-87791
bpv
2003-03-05 10:39
2003.03.27
драйвера доступа к базе данных


3-87787
Олеся
2003-03-08 06:40
2003.03.27
DecisionCube and IBQuery





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский