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

Вход

Регистрация

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

 

= Мир MS Excel/"Сохранить как" в зависимости от значения ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » "Сохранить как" в зависимости от значения ячейки (Формулы/Formulas)
"Сохранить как" в зависимости от значения ячейки
HoBU4OK Дата: Суббота, 12.07.2014, 14:36 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Вопрос о возможности или не возможности написания скорее всего макроса...
Существует шаблон под названием "шаблон.хls"
В ячейке А1 = текст "шаблон" , то файл сохранить как "шаблон.хls"
если в ячейке А1 текст "14.07.2014", то файл сохранить как "14.07.2014.хls"

Заранее спасибо

ЗЫ очень любопытно и очень помогло бы в работе...

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеДобрый день!
Вопрос о возможности или не возможности написания скорее всего макроса...
Существует шаблон под названием "шаблон.хls"
В ячейке А1 = текст "шаблон" , то файл сохранить как "шаблон.хls"
если в ячейке А1 текст "14.07.2014", то файл сохранить как "14.07.2014.хls"

Заранее спасибо

ЗЫ очень любопытно и очень помогло бы в работе...
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 14:36
Serge_007 Дата: Суббота, 12.07.2014, 15:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DJ_Marker_MC, 18.06.2014 в 14:15, в сообщении № 3
Название файла в макросе ниже берется с "Лист1" ячейка "а1"

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DJ_Marker_MC, 18.06.2014 в 14:15, в сообщении № 3
Название файла в макросе ниже берется с "Лист1" ячейка "а1"
Автор - Serge_007
Дата добавления - 12.07.2014 в 15:21
HoBU4OK Дата: Суббота, 12.07.2014, 15:31 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
На первый взгляд то что надо, только он написан для версий 2007+, а у меня 2003...

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеНа первый взгляд то что надо, только он написан для версий 2007+, а у меня 2003...
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 15:31
Serge_007 Дата: Суббота, 12.07.2014, 15:34 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата HoBU4OK, 12.07.2014 в 15:31, в сообщении № 3
он написан для версий 2007+
HoBU4OK, какая именно строка кода позволила Вам сделать такой вывод?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата HoBU4OK, 12.07.2014 в 15:31, в сообщении № 3
он написан для версий 2007+
HoBU4OK, какая именно строка кода позволила Вам сделать такой вывод?
Автор - Serge_007
Дата добавления - 12.07.2014 в 15:34
HoBU4OK Дата: Суббота, 12.07.2014, 16:07 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
У меня ни как не получается им воспользоваться... :(
видимо что-то делаю не так, а с макросами я "ознакомился" пару дней назад... %)

ЗЫ так что от пошаговой инструкции не откажусь yes

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Суббота, 12.07.2014, 16:08
 
Ответить
СообщениеУ меня ни как не получается им воспользоваться... :(
видимо что-то делаю не так, а с макросами я "ознакомился" пару дней назад... %)

ЗЫ так что от пошаговой инструкции не откажусь yes
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 16:07
_Boroda_ Дата: Суббота, 12.07.2014, 16:37 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В самом простом виде (без выбора папки и прочих рюшечек) можно так:[vba]
Код
Sub Save1()
On Error Resume Next
     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & ".xls"
End Sub
[/vba]
Добавил еще строчку по ошибки
К сообщению приложен файл: hghgjhgjg.xls (19.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ самом простом виде (без выбора папки и прочих рюшечек) можно так:[vba]
Код
Sub Save1()
On Error Resume Next
     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & ".xls"
End Sub
[/vba]
Добавил еще строчку по ошибки
Автор - _Boroda_
Дата добавления - 12.07.2014 в 16:37
HoBU4OK Дата: Суббота, 12.07.2014, 17:32 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Возможно что у меня не запускается макрос из-за переименования 1 листа (назв "Комерц")???

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеВозможно что у меня не запускается макрос из-за переименования 1 листа (назв "Комерц")???
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 17:32
_Boroda_ Дата: Суббота, 12.07.2014, 17:46 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Название листа тут вообще никакой рояли не играет.
Или у Вас просто не разрешены макросы, или Вы не сохранили предварительно мой файл.
Нужно сделать так:
1. Открыть Excel, пойти Сервис - Макрос - Безопасность - поставить "Средняя";
2. Сохранить отсюда мой файл к себе на диск.
3. Открыть мой файл, на вопрос о макросах ответить "Разрешить", поменять значение в А1, нажать кнопку.
К сообщению приложен файл: tyth.xls (19.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНазвание листа тут вообще никакой рояли не играет.
Или у Вас просто не разрешены макросы, или Вы не сохранили предварительно мой файл.
Нужно сделать так:
1. Открыть Excel, пойти Сервис - Макрос - Безопасность - поставить "Средняя";
2. Сохранить отсюда мой файл к себе на диск.
3. Открыть мой файл, на вопрос о макросах ответить "Разрешить", поменять значение в А1, нажать кнопку.
Автор - _Boroda_
Дата добавления - 12.07.2014 в 17:46
HoBU4OK Дата: Суббота, 12.07.2014, 18:01 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, спасибо за терпение с нубом
файл Ваш загрузил и сохранил, открыл Alt+f11, скопировал, открыл свой файл, открыл Alt+f11, в инсерт - модуль, вставил скопированное, закрыл макросы, сохранился НИ ЧЕГО не поменялось...

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
Сообщение_Boroda_, спасибо за терпение с нубом
файл Ваш загрузил и сохранил, открыл Alt+f11, скопировал, открыл свой файл, открыл Alt+f11, в инсерт - модуль, вставил скопированное, закрыл макросы, сохранился НИ ЧЕГО не поменялось...
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 18:01
HoBU4OK Дата: Суббота, 12.07.2014, 18:15 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Цитата
...чтобы при сохранении файла он автоматически сохранялся с нужным именем...


Да именно... В вашем файле появляется волшебная кнопка "Сохранить" у меня же не происходит ровным счетом ни каких изменений...

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
Сообщение
Цитата
...чтобы при сохранении файла он автоматически сохранялся с нужным именем...


Да именно... В вашем файле появляется волшебная кнопка "Сохранить" у меня же не происходит ровным счетом ни каких изменений...
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 18:15
_Boroda_ Дата: Суббота, 12.07.2014, 18:50 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Ну конечно не происходит, я эту кнопку сам вручную нарисовал.
Идете Вид - Панели инструментов - ставите галку напротив "Формы". Появится панелька с формами. Берете оттуду кнопку и вставляете у себя в файле. Excel спросит сам, какой макрос туда привязать и выдаст список. Выбираете нужный макрос (у меня это Save1).
Можно сделать автоматически - при любом сохранении книга сохраняется с тем названием, которое в ячейке А1. Но не советую, с кнопкой лучше

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНу конечно не происходит, я эту кнопку сам вручную нарисовал.
Идете Вид - Панели инструментов - ставите галку напротив "Формы". Появится панелька с формами. Берете оттуду кнопку и вставляете у себя в файле. Excel спросит сам, какой макрос туда привязать и выдаст список. Выбираете нужный макрос (у меня это Save1).
Можно сделать автоматически - при любом сохранении книга сохраняется с тем названием, которое в ячейке А1. Но не советую, с кнопкой лучше
Автор - _Boroda_
Дата добавления - 12.07.2014 в 18:50
HoBU4OK Дата: Суббота, 12.07.2014, 19:09 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Спасибо огромное, все получилось...
hands hands pray pray pray

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеСпасибо огромное, все получилось...
hands hands pray pray pray
Автор - HoBU4OK
Дата добавления - 12.07.2014 в 19:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » "Сохранить как" в зависимости от значения ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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