День добрый, нашел макрос в интернете. Все работает, но нужно немного подредактировать его
1) можно ли задать какую-нить комбинацию клавиш, чтоб этот макрос совершался ( любую, к примеру alt+v) 2) нужно чтобы название файла бралось из ячейки ( к примеру А1 листа 1) и вставлялось при сохранении файла 3) Чтобы в названии файла всегда присутствовала аббревиатура "СБ" Т.е. при сохранении файла должно получиться следующее: "название из ячейки" + "СБ" + "сегодняшняя дата". название исходного файла или "Копия" быть не должно. Заранее спасибо.
[vba]
Код
Sub Макрос1() Dim Wb As Workbook Dim WbName As String Dim iPath As String Dim iFileName As String Set Wb = ActiveWorkbook WbName = Wb.Name iPath = ThisWorkbook.Path & "\" iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".xls" 'для проверки существования такого же файла If Dir(iPath + iFileName) <> "" Then MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation Exit Sub End If Wb.SaveCopyAs (iPath + iFileName) End Sub
[/vba]
День добрый, нашел макрос в интернете. Все работает, но нужно немного подредактировать его
1) можно ли задать какую-нить комбинацию клавиш, чтоб этот макрос совершался ( любую, к примеру alt+v) 2) нужно чтобы название файла бралось из ячейки ( к примеру А1 листа 1) и вставлялось при сохранении файла 3) Чтобы в названии файла всегда присутствовала аббревиатура "СБ" Т.е. при сохранении файла должно получиться следующее: "название из ячейки" + "СБ" + "сегодняшняя дата". название исходного файла или "Копия" быть не должно. Заранее спасибо.
[vba]
Код
Sub Макрос1() Dim Wb As Workbook Dim WbName As String Dim iPath As String Dim iFileName As String Set Wb = ActiveWorkbook WbName = Wb.Name iPath = ThisWorkbook.Path & "\" iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".xls" 'для проверки существования такого же файла If Dir(iPath + iFileName) <> "" Then MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation Exit Sub End If Wb.SaveCopyAs (iPath + iFileName) End Sub
Название файла в макросе ниже берется с "Лист1" ячейка "а1" [vba]
Код
Sub Макрос1() Dim Wb As Workbook Dim WbName As String Dim iPath As String Dim iFileName As String Set Wb = ActiveWorkbook WbName = Wb.Name iPath = ThisWorkbook.Path & "\" iFileName = Worksheets("Лист1").[a1].Value + "_" + "СБ" + "_" + Format(Date, "yyyy/mm/dd") + ".xls" 'для проверки существования такого же файла If Dir(iPath + iFileName) <> "" Then MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation Exit Sub End If Wb.SaveCopyAs (iPath + iFileName) End Sub
[/vba]
а запуск макроса по сочетанию клавиш, нужно настроить. В екселе с данным макросом нажмите ALT+F8 выберите свой "Макрос1" и зайдите в параметры, тут и укажите сочетание клавиш для его запуска
Название файла в макросе ниже берется с "Лист1" ячейка "а1" [vba]
Код
Sub Макрос1() Dim Wb As Workbook Dim WbName As String Dim iPath As String Dim iFileName As String Set Wb = ActiveWorkbook WbName = Wb.Name iPath = ThisWorkbook.Path & "\" iFileName = Worksheets("Лист1").[a1].Value + "_" + "СБ" + "_" + Format(Date, "yyyy/mm/dd") + ".xls" 'для проверки существования такого же файла If Dir(iPath + iFileName) <> "" Then MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation Exit Sub End If Wb.SaveCopyAs (iPath + iFileName) End Sub
[/vba]
а запуск макроса по сочетанию клавиш, нужно настроить. В екселе с данным макросом нажмите ALT+F8 выберите свой "Макрос1" и зайдите в параметры, тут и укажите сочетание клавиш для его запускаDJ_Marker_MC
Сообщение отредактировал DJ_Marker_MC - Среда, 18.06.2014, 14:18
А не подскажите ещё момент. Если в макросе я меня формат на .xlsx, то возникает ошибка.
А если открываю файл то у меня вылезает окошко с предупреждением. Вроде разобрался. Дело в том что изначально у меня в моем файле выполняется макрос другой ещё. И файл имеет расширение xlsm - и при выполнении макроса в xls - он открывает с предупреждением, а в xlsx - ошибка. Решил проблему. тем, что исходный файл xlsm перевел в формат xlsx. Но все равно странно, что ошибка была.
DJ_Marker_MC, Уважаемый, спасибо.
А не подскажите ещё момент. Если в макросе я меня формат на .xlsx, то возникает ошибка.
А если открываю файл то у меня вылезает окошко с предупреждением. Вроде разобрался. Дело в том что изначально у меня в моем файле выполняется макрос другой ещё. И файл имеет расширение xlsm - и при выполнении макроса в xls - он открывает с предупреждением, а в xlsx - ошибка. Решил проблему. тем, что исходный файл xlsm перевел в формат xlsx. Но все равно странно, что ошибка была.nifra
Абсолютно ничего странного. Формат сохранения по умолчанию в 2007+ xlsx Вы в нем и сохраняли, только расширение принудительно на xls меняли F1 способствует пониманию
Абсолютно ничего странного. Формат сохранения по умолчанию в 2007+ xlsx Вы в нем и сохраняли, только расширение принудительно на xls меняли F1 способствует пониманиюRAN
Вот выкладываю файл. в нем при нажатии на картинку выполняется макрос, который выделяет нужные мне слова в красный цвет в одной ячейке (согласно словарю) Файл формата xlsm.
Второй макрос, тот что выложили здесь. только я поменял формат на xlsx и после этого файл не открывается созданный файл. работает на клавишу (ctrl+q). Если в макросе оставить xls, то при открытии будет предупреждение. Можно как то обойти все это дело (предупреждения) ?
Если я исходный свой файл сохраняю в xlsx, то макрос по выделению цветом не работает.
Вот выкладываю файл. в нем при нажатии на картинку выполняется макрос, который выделяет нужные мне слова в красный цвет в одной ячейке (согласно словарю) Файл формата xlsm.
Второй макрос, тот что выложили здесь. только я поменял формат на xlsx и после этого файл не открывается созданный файл. работает на клавишу (ctrl+q). Если в макросе оставить xls, то при открытии будет предупреждение. Можно как то обойти все это дело (предупреждения) ?
Если я исходный свой файл сохраняю в xlsx, то макрос по выделению цветом не работает.nifra
Добрый день, уважаемые знатоки! У меня тоже одна из задач макроса - сохранить несколько листов в новой книге и назвать ее названием из ячейки А2 в листе "КП" Я честно записала макроредактор (он еще сохраняет как значения и разгруппировывает листы в исходном файле) Надеялась потом в vba вручную изменить название файла на ссылку к ячейке B1 из файла "пример" лист "КП", но сколько бы я ни тыркалась, у меня выдает разные ошибки, но работать отказывается. Приложу в тексте только часть, которая отвечает за сохранение, полностью в примере. Как мне изменить код, чтобы вместо "пример_сохранить_как" была ссылка на ячейку B1 из листа "КП" (выделила цветом)?
И еще вопрос, можно ли сделать так, чтобы в самом конце изначальный файл закрылся без сохранений изменений? Макроредактором естественно не получилось такое записать Помогите, пожалуйста!
Добрый день, уважаемые знатоки! У меня тоже одна из задач макроса - сохранить несколько листов в новой книге и назвать ее названием из ячейки А2 в листе "КП" Я честно записала макроредактор (он еще сохраняет как значения и разгруппировывает листы в исходном файле) Надеялась потом в vba вручную изменить название файла на ссылку к ячейке B1 из файла "пример" лист "КП", но сколько бы я ни тыркалась, у меня выдает разные ошибки, но работать отказывается. Приложу в тексте только часть, которая отвечает за сохранение, полностью в примере. Как мне изменить код, чтобы вместо "пример_сохранить_как" была ссылка на ячейку B1 из листа "КП" (выделила цветом)?
И еще вопрос, можно ли сделать так, чтобы в самом конце изначальный файл закрылся без сохранений изменений? Макроредактором естественно не получилось такое записать Помогите, пожалуйста!Goodzel