Полрядковый номер документа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Полрядковый номер документа (Макросы/Sub)

parovoznik

Дата: Среда, 02.04.2014, 20:21 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Добрый день . Имеется форма она открывается при открытии книги . На форме есть № заявки(TextBox1).
Как получить автоматически № заявки (1,2,3 ит.д)
т.е. ,что бы при последующем открытии этого документа
изменялся № заявки.

К сообщению приложен файл: 7944440.xls (92.0 Kb)

Ответить

Serge_007

Дата: Среда, 02.04.2014, 20:32 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Цитата parovoznik, 02.04.2014 в 20:21, в сообщении № 1

при последующем открытии этого документа
изменялся № заявки

Записываем переменную на лист (можно сделать его скрытым):
[vba]

Код

Private Sub CommandButton1_Click()
With ActiveWorkbook.Worksheets("отчет")
     [aa100] = TextBox1.Value
     [D7] = Label1.Caption
     [E7] = TextBox1.Value & "  " & "от" & CDate(TextBox2)
     [C9] = ComboBox1.Value
     [D9] = ComboBox2.Value
End With
End Sub

[/vba]и возвращаем значение при инициализации формы:[vba]

Код

Private Sub UserForm_Initialize()
ComboBox1.List = Array("основной", "арендованый")
ComboBox2.List = Array("яблоки", "груши")
TextBox1 = [aa100] + 1
End Sub

[/vba]

К сообщению приложен файл: parovoznik.xls (78.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

parovoznik

Дата: Среда, 02.04.2014, 20:55 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Serge_007, cпасибо.
У меня появился вопрос . Что значит эта переменная [aa100] ? Можно перед цифрой добавить буквы. Например АП-0004. Спасибо.

Ответить

Serge_007

Дата: Среда, 02.04.2014, 21:15 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[aa100] - это не переменная, а адрес ячейки

То же самое что Range("aa100")

Цитата parovoznik, 02.04.2014 в 20:55, в сообщении № 3

Можно перед цифрой добавить буквы. Например АП-0004

Я не против

Меняем на такое: [vba]

Код

Private Sub CommandButton1_Click()
With ActiveWorkbook.Worksheets("отчет")
[aa100] = q
       [D7] = Label1.Caption
       [E7] = TextBox1.Value & "  " & "от" & CDate(TextBox2)
       [C9] = ComboBox1.Value
       [D9] = ComboBox2.Value
End With
End Sub

[/vba] и такое:
[vba]

Код

Private Sub UserForm_Initialize()
Dim q
q = [aa100] + 1
ComboBox1.List = Array("основной", "арендованый")
ComboBox2.List = Array("яблоки", "груши")
TextBox1 = "АП-0004 " & q
End Sub

[/vba]

К сообщению приложен файл: parovoznik_2.xls (73.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

parovoznik

Дата: Среда, 02.04.2014, 21:23 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Serge_007, я открыл файл поработал затем открыл,но номер не поменялся. Должен быть-следующий :АП-0005

Ответить

Serge_007

Дата: Среда, 02.04.2014, 21:30 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

А написать об этом можно было?

[vba]

Код

Private Sub UserForm_Initialize()
Dim q
q = [aa100] + 1
ComboBox1.List = Array("основной", "арендованый")
ComboBox2.List = Array("яблоки", "груши")
TextBox1 = "АП-000" & q
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Полрядковый номер документа (Макросы/Sub)

Страница 1 из 1
1