Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/После Save As сохранить функцию в новом файле - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » После Save As сохранить функцию в новом файле (Макросы Sub)
После Save As сохранить функцию в новом файле
DAKRAY Дата: Понедельник, 13.01.2014, 14:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Доброго времени суток, уважаемые!

Сделал файл, в котором есть кнопка Save As, после нажатия файл сохраняется с новым названием в формате "Имя фирмы номер счета".
В новом файле остаются указанные листы и нужные для дальнейшей работы (рабочие!) кнопки.

Проблема: сохранить так, чтобы в файле находящаяся функция (в данном примере у меня функция сумма прописью) работала в новом файле.

Как мне уже объясняли - .Copy копирует только сами листы без модулей.
Начал пробовать внести эту функцию в personal.xls. Пробовал по разному: и создавал модуль в персонал книге, затем копировал туда функцию, пробовал сначала экспортировать функцию а потом импортировать в personal.xls. Ничего не помогает. Нигде не нашел информации о том, работают ли вообще функции, которые прописаны в personal.xls или это только к макросам относится? Help!

Файл пример в приложении.

Код кнопки сохранения:

[vba]
Код
Private Sub SaveSheets_Click()
Dim Fname As String
     Application.ScreenUpdating = False
     Fname = ThisWorkbook.Path & "\" & Sheets("Sheet1").Range("A1").Value & " " & Range("B1").Text & ".xls"
     Sheets(Array("Sheet1", "Sheet2")).Copy
     Sheets("Sheet1").Shapes("SaveSheets").Delete
     With ActiveWorkbook
          Application.DisplayAlerts = False
          .SaveAs Filename:=Fname
          Application.ScreenUpdating = True
          Application.DisplayAlerts = True
          '.Close
     End With
     Workbooks("Book_Save.xls").Close 0
End Sub
[/vba]
К сообщению приложен файл: Book_Save.xls (49.5 Kb)
 
Ответить
СообщениеДоброго времени суток, уважаемые!

Сделал файл, в котором есть кнопка Save As, после нажатия файл сохраняется с новым названием в формате "Имя фирмы номер счета".
В новом файле остаются указанные листы и нужные для дальнейшей работы (рабочие!) кнопки.

Проблема: сохранить так, чтобы в файле находящаяся функция (в данном примере у меня функция сумма прописью) работала в новом файле.

Как мне уже объясняли - .Copy копирует только сами листы без модулей.
Начал пробовать внести эту функцию в personal.xls. Пробовал по разному: и создавал модуль в персонал книге, затем копировал туда функцию, пробовал сначала экспортировать функцию а потом импортировать в personal.xls. Ничего не помогает. Нигде не нашел информации о том, работают ли вообще функции, которые прописаны в personal.xls или это только к макросам относится? Help!

Файл пример в приложении.

Код кнопки сохранения:

[vba]
Код
Private Sub SaveSheets_Click()
Dim Fname As String
     Application.ScreenUpdating = False
     Fname = ThisWorkbook.Path & "\" & Sheets("Sheet1").Range("A1").Value & " " & Range("B1").Text & ".xls"
     Sheets(Array("Sheet1", "Sheet2")).Copy
     Sheets("Sheet1").Shapes("SaveSheets").Delete
     With ActiveWorkbook
          Application.DisplayAlerts = False
          .SaveAs Filename:=Fname
          Application.ScreenUpdating = True
          Application.DisplayAlerts = True
          '.Close
     End With
     Workbooks("Book_Save.xls").Close 0
End Sub
[/vba]
Автор - DAKRAY
Дата добавления - 13.01.2014 в 14:49
AndreTM Дата: Понедельник, 13.01.2014, 15:12 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
А как вы обращаетесь с листа к функции в Personal.xls?
Надо примерно так - и тогда ссылки будут работать и в новой книге.

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеА как вы обращаетесь с листа к функции в Personal.xls?
Надо примерно так - и тогда ссылки будут работать и в новой книге.
Автор - AndreTM
Дата добавления - 13.01.2014 в 15:12
DAKRAY Дата: Понедельник, 13.01.2014, 17:01 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
AndreTM, я пробовал просто в ячейку =EURV(D7), где D7 это ячейка с суммой в цифрах. Функция ее переделывает в сумму прописью.

Попробовал как Вы отписали в той теме: =PERSONAL.XLSB!EURV(D7), жму Enter, выскакивает окно Update Values: PERSONAL.XLSB, тут я так понимаю ему нужно указать путь к файлу PERSONAL.XLS. Делаем, ОК, выскакивает след. сообщение (см. приложение):
К сообщению приложен файл: 5211511.gif (45.4 Kb)


Сообщение отредактировал DAKRAY - Понедельник, 13.01.2014, 17:02
 
Ответить
СообщениеAndreTM, я пробовал просто в ячейку =EURV(D7), где D7 это ячейка с суммой в цифрах. Функция ее переделывает в сумму прописью.

Попробовал как Вы отписали в той теме: =PERSONAL.XLSB!EURV(D7), жму Enter, выскакивает окно Update Values: PERSONAL.XLSB, тут я так понимаю ему нужно указать путь к файлу PERSONAL.XLS. Делаем, ОК, выскакивает след. сообщение (см. приложение):
Автор - DAKRAY
Дата добавления - 13.01.2014 в 17:01
AndreTM Дата: Понедельник, 13.01.2014, 17:23 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
Какой XLSB? У вас же 2003-й Офис...
Далее, - вы свою функцию уже поместили в персональную книгу макросов?
И никаких "путей к персональной книге" нигде указывать не надо - если уж персональная книга создана, то она подключается автоматом к любому проекту.

Вообще, вы хоть что-то прочитали про использование personal.xls?

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеКакой XLSB? У вас же 2003-й Офис...
Далее, - вы свою функцию уже поместили в персональную книгу макросов?
И никаких "путей к персональной книге" нигде указывать не надо - если уж персональная книга создана, то она подключается автоматом к любому проекту.

Вообще, вы хоть что-то прочитали про использование personal.xls?
Автор - AndreTM
Дата добавления - 13.01.2014 в 17:23
DAKRAY Дата: Понедельник, 13.01.2014, 17:53 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
То что В лишнее я уже сам понял)) Сработало! Но как-то не полноценно.
Теперь после сохранения в новом файле в ячейке остается =' '!EURV(D7), а не =PERSONAL.XLS!EURV(D7), но по крайней мере сумму словами он пишет.
Если в ячейку D7 вбить новую сумму, почему-то уже не работает.
и при открытии новоиспеченного файла спрашивает Update или Don't update (This workbook contains links to other data sources.) Что не жми - функция в ячейке остается такой же =' '!EURV(D7).

З.Ы. Естественно добавил функцию в персональную книгу.


Сообщение отредактировал DAKRAY - Понедельник, 13.01.2014, 18:05
 
Ответить
СообщениеТо что В лишнее я уже сам понял)) Сработало! Но как-то не полноценно.
Теперь после сохранения в новом файле в ячейке остается =' '!EURV(D7), а не =PERSONAL.XLS!EURV(D7), но по крайней мере сумму словами он пишет.
Если в ячейку D7 вбить новую сумму, почему-то уже не работает.
и при открытии новоиспеченного файла спрашивает Update или Don't update (This workbook contains links to other data sources.) Что не жми - функция в ячейке остается такой же =' '!EURV(D7).

З.Ы. Естественно добавил функцию в персональную книгу.
Автор - DAKRAY
Дата добавления - 13.01.2014 в 17:53
DAKRAY Дата: Вторник, 14.01.2014, 11:55 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Ребят, подскажите, пжл!
Что я не правильно делаю?

В PERSONAL.XLS сохраняю функцию. В ячейку вставляю =PERSONAL.XLS!EURV(D7), пока файл открыт в ячейке так и остается написанное. Все работает!
Сохраняю файл, открываю по новой - в ячейке остается только =' '!EURV(D7). Куда пропадает PERSONAL.XLS.
Я на разных компах пробовал. Не получается.(


Сообщение отредактировал DAKRAY - Вторник, 14.01.2014, 11:57
 
Ответить
СообщениеРебят, подскажите, пжл!
Что я не правильно делаю?

В PERSONAL.XLS сохраняю функцию. В ячейку вставляю =PERSONAL.XLS!EURV(D7), пока файл открыт в ячейке так и остается написанное. Все работает!
Сохраняю файл, открываю по новой - в ячейке остается только =' '!EURV(D7). Куда пропадает PERSONAL.XLS.
Я на разных компах пробовал. Не получается.(
Автор - DAKRAY
Дата добавления - 14.01.2014 в 11:55
RAN Дата: Вторник, 14.01.2014, 12:47 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Копируем функцию в новую книгу.
Сохраняем книгу как надстройку (xla или xlam)
Подключаем надстройку
Забываем о проблеме

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКопируем функцию в новую книгу.
Сохраняем книгу как надстройку (xla или xlam)
Подключаем надстройку
Забываем о проблеме
Автор - RAN
Дата добавления - 14.01.2014 в 12:47
DAKRAY Дата: Вторник, 14.01.2014, 13:07 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
RAN, спасибо!
Попробую сделать.
 
Ответить
СообщениеRAN, спасибо!
Попробую сделать.
Автор - DAKRAY
Дата добавления - 14.01.2014 в 13:07
DAKRAY Дата: Вторник, 14.01.2014, 14:01 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
RAN, получилось все в лучшем виде!) Безмерно благодарен.

[p.s.]Я не забыл о тех стихах) Разгребу с текучкой - обязательно запишу.
Можно поинтересоваться, кто их автор?[/p.s.]


Сообщение отредактировал DAKRAY - Вторник, 14.01.2014, 14:01
 
Ответить
СообщениеRAN, получилось все в лучшем виде!) Безмерно благодарен.

[p.s.]Я не забыл о тех стихах) Разгребу с текучкой - обязательно запишу.
Можно поинтересоваться, кто их автор?[/p.s.]
Автор - DAKRAY
Дата добавления - 14.01.2014 в 14:01
RAN Дата: Вторник, 14.01.2014, 14:43 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[offtop]Артур Конан Дойл "Белый отряд"[/offtop]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[offtop]Артур Конан Дойл "Белый отряд"[/offtop]
Автор - RAN
Дата добавления - 14.01.2014 в 14:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » После Save As сохранить функцию в новом файле (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!