![]() |
|
IT и Связь Обсуждение "айтишных" вопросов и средств связи |
![]() |
|
Опции темы | Опции просмотра |
![]() |
#1 |
Пенсионер всея Ирландея
|
![]()
не знаю правильно ли задаю вопросы но попробую.
значит так есть INVOICE в Excel что нужно: 1) что бы номер INVOICE автоматически менялся ( к примеру вчера был последний INVOICE номер 1237 и что бы сегодня при заполнение автоматически поменялся на 1238 , ну как то так) 2) что бы при сохранение в нужную папку автоматом писалось номер INVOICE ( если такое возможно ) всем заранее спасибо. |
![]() |
![]() |
Зарегистрируйтесь или войдите под своим именем, чтобы спрятать этот рекламный блок |
![]() |
#2 |
Заслуженный Участник
|
![]()
в гугле же много на эту тему...
https://www.google.ie/search?q=excel...ened+file+name
__________________
CARPE DIEM! |
![]() |
![]() |
Благодарность от: | Pasha74 (11.01.2014) |
![]() |
#3 |
Пенсионер всея Ирландея
|
![]()
Как то там все мудрено.
Может кто знает как проще сделать? |
![]() |
![]() |
![]() |
#4 |
Заслуженный Участник
|
![]()
Все просто ,элементарный макрос , без VB по любому не обойдешься.
Вот здесь более подробно с видео. http://blogs.office.com/b/microsoft-...-in-excel.aspx
__________________
Не трудно умереть за друга,трудно найти друга за которого можно умереть! |
![]() |
![]() |
Благодарность от: | Pasha74 (11.01.2014) |
![]() |
#5 |
Заслуженный Участник
|
![]()
у меня вот что получилось.
Option Explicit Private Sub Workbook_Open() ThisWorkbook.Worksheets("ВСТАВИТЬНАЗВАНИЕ ЛИСТА С ИНВОЙСОМ, КАВЫЧКИ НЕ ТРОГАТЬ").Range("ВСТАВИТЬ НОМЕР ЯЧЕЙКИ С НОМЕРОМ ИНВОЙСА").Value = Range("ВСТАВИТЬ НОМЕР ЯЧЕЙКИ С НОМЕРОМ ИНВОЙСА").Value + 1 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Save Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:= _ "Invoice_" & Range("ВСТАВИТЬ НОМЕР ЯЧЕЙКИ С НОМЕРОМ ИНВОЙСА").Value & "_" & Format(Now, "yyyy-mm-dd_hh-mm") & ".xlsx", FileFormat:=51, ConflictResolution:=xlLocalSessionChanges Application.DisplayAlerts = True End Sub открываем ваш имеющийся файл с образцом инвойса. нажимаем АЛТ+Ф11. два раза щелкаем на ThisWorkbook слева. вставляем код. закрываем окно с кодом. сохраняем файл в формате xlsm. теперь каждый раз, когда вы откроете этот файл номер инвойса изменится на единицу (не забудьте разрешить выполнение макросов: желтая полоса с кнопкой Enable Content при открытии файла). каждый же раз, когда вы закроете файл он сам сохранится автоматом и создаст новый файл с именем следующего формата: Invoice_<номер инвойса>_<дата и время закрытия файла в формате: yyyy-mm-dd_hh-mm>.xlsх пример имени нового файла: Invoice_125_2014-01-11_21-19.xlsх гарантий ноль. ошибки никак не хендляться. support will be provided on best effort basis. UPD: код слегка изменен. так надежней.
__________________
CARPE DIEM! Последний раз редактировалось azarij, 11.01.2014 в 21:51. |
![]() |
![]() |
Благодарность от: | ironia (11.01.2014) |
![]() |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщ. |
Excel, good understanding | Nathalia | IT и Связь | 12 | 07.03.2012 19:31 |
VBA под Excel | magician | Работа в Ирландии | 0 | 30.10.2011 09:26 |
Вопросец пpо Arrays in Excel | vova7777 | IT и Связь | 28 | 03.08.2010 20:59 |
Excel to SQL DTS(SSIS) не фурычит :( | Dubliner | IT и Связь | 9 | 29.04.2010 21:12 |
Помогите с Excel | GOOSE | IT и Связь | 7 | 24.01.2006 23:18 |