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

Вход

Регистрация

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

 

= Мир MS Excel/Полрядковый номер документа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Полрядковый номер документа (Макросы/Sub)
Полрядковый номер документа
parovoznik Дата: Среда, 02.04.2014, 20:21 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 449
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый день . Имеется форма она открывается при открытии книги . На форме есть № заявки(TextBox1).
Как получить автоматически № заявки (1,2,3 ит.д)
т.е. ,что бы при последующем открытии этого документа
изменялся № заявки.
К сообщению приложен файл: 7944440.xls (92.0 Kb)
 
Ответить
СообщениеДобрый день . Имеется форма она открывается при открытии книги . На форме есть № заявки(TextBox1).
Как получить автоматически № заявки (1,2,3 ит.д)
т.е. ,что бы при последующем открытии этого документа
изменялся № заявки.
Автор - parovoznik
Дата добавления - 02.04.2014 в 20:21
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: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]
Автор - Serge_007
Дата добавления - 02.04.2014 в 20:32
parovoznik Дата: Среда, 02.04.2014, 20:55 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 449
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Serge_007, cпасибо.
У меня появился вопрос . Что значит эта переменная [aa100] ? Можно перед цифрой добавить буквы. Например АП-0004. Спасибо.
 
Ответить
СообщениеSerge_007, cпасибо.
У меня появился вопрос . Что значит эта переменная [aa100] ? Можно перед цифрой добавить буквы. Например АП-0004. Спасибо.
Автор - parovoznik
Дата добавления - 02.04.2014 в 20:55
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
 
Ответить
Сообщение[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]
Автор - Serge_007
Дата добавления - 02.04.2014 в 21:15
parovoznik Дата: Среда, 02.04.2014, 21:23 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 449
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Serge_007, я открыл файл поработал затем открыл,но номер не поменялся. Должен быть-следующий :АП-0005
 
Ответить
СообщениеSerge_007, я открыл файл поработал затем открыл,но номер не поменялся. Должен быть-следующий :АП-0005
Автор - parovoznik
Дата добавления - 02.04.2014 в 21:23
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
 
Ответить
СообщениеА написать об этом можно было?

[vba]
Код
Private Sub UserForm_Initialize()
Dim q
q = [aa100] + 1
ComboBox1.List = Array("основной", "арендованый")
ComboBox2.List = Array("яблоки", "груши")
TextBox1 = "АП-000" & q
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 02.04.2014 в 21:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Полрядковый номер документа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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