Как сохранять функции, чтобы использовать их в новых книгах?

Программирование на Visual Basic for Applications
sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Как сохранять функции, чтобы использовать их в новых книгах?

Сообщение sonata » 20.06.2003 (Пт) 11:34

Написала простенькую функцию для определения квартала по дате... Вопрос в следующем мне хочется ее использовать в каждой книге.
Куда ее нужно скопировать, чтобы пользоваться ею при открытии новой рабочей книги?Ведь по-умолч.фукция сохраняется в текущей книге?Очень надо...Наверное вопрос не новый, может быть есть его решение?

Код: Выделить всё
Function Kvartal(date1)
Dim month1 As Integer
Dim year1 As Integer
'Определение квартала по дате...

month1 = Month(date1)
year1 = Year(date1)
If (month1 = 1 Or month1 = 2 Or month1 = 3) Then
Kvartal = 1 & "кв" & year1
ElseIf (month1 = 4 Or month1 = 5 Or month1 = 6) Then
Kvartal = 2 & "кв" & year1
ElseIf (month1 = 7 Or month1 = 8 Or month1 = 9) Then
Kvartal = 3 & "кв" & year1
ElseIf (month1 = 10 Or month1 = 11 Or month1 = 12) Then
Kvartal = 4 & "кв" & year1
End If
End Function

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 20.06.2003 (Пт) 11:47

Простейший выход - это написать надстройку и подключить ее к Excel.

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 20.06.2003 (Пт) 11:56

Находишь папку ......Application Data\Microsoft\Шаблоны и добавляешь туда свой шаблон с нужной функцией... :roll:

sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Сообщение sonata » 20.06.2003 (Пт) 12:28

Нашла эту папку, там лежит файл Normal.dot а как мне свою функцию запихнуть в него или просто создать новый файл с расширением *.dot и записать в него свою функцию ?
Можно попобробнее...Очень была бы благодарна....

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 20.06.2003 (Пт) 13:00

Да, прописываешь ее в одном из модулей Normal.dot, а для Экселя, то создаешь в этой папке новый экселевский файл и прописываешь там функцию (или создаешь в этой папке еще папку и кидаешь туда этот файл (шаблон) - в таком случае при создании нового файла будут предложены различные шаблоны, появится диалог "Создать" и в нем будут закладки, одной из которых будет название той папки, которую мы создали и запихнули свой шаблон).....

sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Сообщение sonata » 20.06.2003 (Пт) 13:17

Создала Excel-файл, вставила в модуль свои функции...
сохранила этот файл как шаблон, в той папке, кот. Вы сказали, впрочем, Excel сам сохранил этот файл в ней...получился файл с расширением Function_VBA.xlt , но, когда я создаю новый Excel-файл, то данные функции не появляются в нем.

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 20.06.2003 (Пт) 14:28

Попробуй сохранить шаблон в формате xls. Потом при создании новой книги вибираешь этот шаблон. Заходишь в функции (определенные пользователем) и выбираешь нужную....

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 21.06.2003 (Сб) 6:36

А кто справку читать будет по экселю? :wink:

Создание шаблона для новых книг

  1. Создайте книгу, содержащую листы, стандартный текст (такой, как заголовки страниц, подписи строк и столбцов), формулы, макросы, стили, и другие элементы форматирования, которые должны быть в книгах, основанных на шаблоне.
  2. Выберите команду Сохранить как в меню Файл.
  3. Выберите Шаблон (*.xlt) в списке Тип файла.
  4. Чтобы создать стандартный шаблон книги, выберите либо папку XLStart (находящуюся в папке Microsoft Excel)
  5. В поле Имя файла введите Книга, чтобы создать стандартный шаблон книги.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Сообщение sonata » 21.06.2003 (Сб) 9:48

GSerg, спасибо большое, все прекрасно заработало!!!!!!Я- в восторге!!!!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 21.06.2003 (Сб) 9:59

:)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60

    TopList