Проблема не в том как прибавлять а в том что инициализация у вас проходит один раз, потом форма просто скрывается и показывается. как вариант выгружать форму Unload FormInvoice вместо FormInvoice.hide
Однако несмотря на то что ответ кота и медведя совпали, я б просто добавил [vba]
Проблема не в том как прибавлять а в том что инициализация у вас проходит один раз, потом форма просто скрывается и показывается. как вариант выгружать форму Unload FormInvoice вместо FormInvoice.hide
Однако несмотря на то что ответ кота и медведя совпали, я б просто добавил [vba]
Private Sub CmbPrint_Click() ThisWorkbook.Worksheets("invoice").Range("AB4") = Val(TxbNumberNak.Value) 'Ввод номера накладной в ячейку ThisWorkbook.Worksheets("log_book").Select 'Активация листа "log_book" Unload Me 'Закрытие формы End Sub
Private Sub UserForm_Initialize() 'Событие открытия формы FormInvoice TxbNumberNak.Value = ThisWorkbook.Worksheets("invoice").Range("AB4").Value + 1 'Загрузка текущего номера накладной с суммированием на одно значение End Sub
[/vba]
Миш, что тебе расшифровать?
Сергей13, Нафига столько кода? [vba]
Код
Private Sub CmbPrint_Click() ThisWorkbook.Worksheets("invoice").Range("AB4") = Val(TxbNumberNak.Value) 'Ввод номера накладной в ячейку ThisWorkbook.Worksheets("log_book").Select 'Активация листа "log_book" Unload Me 'Закрытие формы End Sub
Private Sub UserForm_Initialize() 'Событие открытия формы FormInvoice TxbNumberNak.Value = ThisWorkbook.Worksheets("invoice").Range("AB4").Value + 1 'Загрузка текущего номера накладной с суммированием на одно значение End Sub
RAN, Андрей, отбой. Это я сослепу И за А принял и получилось Hide - это не закрытие, а событие - и это понятное дело совершенно иной смысл. И не ругай ТСа , ну нет опыта, не все котами в каске родились.
RAN, Андрей, отбой. Это я сослепу И за А принял и получилось Hide - это не закрытие, а событие - и это понятное дело совершенно иной смысл. И не ругай ТСа , ну нет опыта, не все котами в каске родились.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
RAN, Это лишь малая выдранная часть, связанная с изменением номера, то есть тестовый вариант для решения локальной проблемы, а все эти переменные и переходы имеют взаимосвязь, для выполнения других множественных взаимосвязанных других действий. Поэтому именно по алгоритму который выполняется в тестовом примере, книга почему‐то не закрывается крестом. Как‐то так…
RAN, Это лишь малая выдранная часть, связанная с изменением номера, то есть тестовый вариант для решения локальной проблемы, а все эти переменные и переходы имеют взаимосвязь, для выполнения других множественных взаимосвязанных других действий. Поэтому именно по алгоритму который выполняется в тестовом примере, книга почему‐то не закрывается крестом. Как‐то так…Сергей13
Сообщение отредактировал Сергей13 - Четверг, 14.03.2019, 22:49