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

Вниз

Прошу маленькую подсказку по VBA.   Найти похожие ветки 

 
asafr   (2003-02-06 12:52) [0]

Мне надо немножечко переписать в Excel макрос на добавление строки. Вызываю из Excel "Редактор VBA" и не могу вызвать вышеуказаный макрос: никак не пойму - что нужно сделать... Помогите советом, люди добрые....


 
Наталия   (2003-02-06 13:36) [1]

1)Выбрать слева нужный модуль.
2)Сервис->Макрос->Макросы->Изменить


 
asafr   (2003-02-06 14:31) [2]

Спасибо, Наталья. Но что это за модуль, где находится описание вставки строки?


 
Calm   (2003-02-06 14:46) [3]


> asafr © (06.02.03 14:31)
> Спасибо, Наталья. Но что это за модуль, где находится описание
> вставки строки?

Если я понял, то хочется изменить действия Excel"я, когда он вставляет новую строку в лист?
Мне кажется, что средствами VBA этого не сделать. Во всяком случае, мне не известны стредства, позволяющие выполнять подобные вещи.


 
asafr   (2003-02-06 15:44) [4]

Calm, именно это я и хочу сделать... Неужели все так печально?


 
igorr   (2003-02-06 15:55) [5]

to asafr

В Excel-е есть встроенный recoder.
Запускаешь его так:
Сервис -> Макрос -> Начать запись
Делаешь, что надо, нажимаешь стоп.

Переходишь в
Сервис -> Макрос -> Макросы -> Изменить

Там видишь такой код:
Selection.EntireRow.Insert

и делаешь с ним чего хочешь. Например:
Cells(4, 4).Select
Selection.EntireRow.Insert



 
asafr   (2003-02-06 16:42) [6]

Cпасибо, igorr. Хоть какая-то зацепка уже есть!!!! И это не плохо.


 
Calm   (2003-02-06 17:38) [7]


> igorr © (06.02.03 15:55)

Предложил абсолюно верный способ.
Но изменить реакцию на выбор пункта меню "Вставка\Строки", по-моему, нельзя.

А было бы очень здорово!


 
asafr   (2003-02-07 15:27) [8]

Calm, способ верный... Но выяснилось, что мне он немного не бодходит... Мне именно надо изменить реакцию на выбор пункта меню "Вставка\Строки"...
Жаль... Мне ОЧЕНЬ надо бы...


 
Ketmar   (2003-02-07 15:37) [9]

>asafr © (07.02.03 15:27)
обратись в микрософт, скажи, что ты жить без этого не можешь.

Satanas Nobiscum! 07-Feb-XXXVIII A.S.


 
asafr   (2003-02-07 15:59) [10]

Ketmar, ты прав... А еще поплачусь дяде Билу в жилеточку и пожалуюсь на то, что мой ворованный Oфис ну никак не хочет перепрограммировать событие вставки строки...
Отправил этот вопрос на сайт мастаров VBA - посмотрим на их реакцию...


 
Ketmar   (2003-02-07 16:12) [11]

>asafr © (07.02.03 15:59)
правильно. и поэтому ты его так никогда и не купишь. разве что возьмешь в подарок, если тебе за это доплатят.

Satanas Nobiscum! 07-Feb-XXXVIII A.S.


 
Безымянный среднего рода   (2003-02-08 02:05) [12]

Хм... а если вот так попробовать ? Ну, или что-то вроде этого...
Sub MyIns()
UserForm1.Show
Selection.EntireRow.Insert
End Sub
Sub AutoOpen()
Application.CommandBars("Insert").Controls(2).OnAction = "MyIns"
End Sub



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

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

Наверх





Память: 0.47 MB
Время: 0.008 c
6-76076
NewGuest
2003-01-01 16:29
2003.02.24
Конференция для всех людей работающих с сетью!


9-75732
HellTRooper
2002-08-23 12:35
2003.02.24
DXImageList


8-76036
Luc
2002-11-10 23:23
2003.02.24
Градиент на BMP


14-76089
Ketmar
2003-02-09 16:33
2003.02.24
постинг именинников


14-76081
Nick_N_A
2003-02-01 06:06
2003.02.24
Таблица секций в Exe-шники





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