в книге на листе есть ComboBox_Art и TextBox_pcs
В ComboBox_Art пользователь выбирает/вводит артикул
В TextBox_pcs вводи значение товара
Переход с поля на поле осуществляется по Enter
после того как пользователь выбрал товар и количество
по интеру обробатываеться процедура
Private Sub TextBox_pcs_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Range("A19").Value > 0 And TextBox_pcs.Text > 0 Then
Cells(Range("A18").Value, 7).Value = Cells(Range("A18").Value, 7).Value + TextBox_pcs.Text 'записываем в базу.
CheckBox_hide_Click
End If
ComboBox_Art.Activate
End If
End Sub
Записывается значение в базу и опять активируется ComboBox_Art
Нужно что бы текст в ComboBox_Art выделился что бы если пользователь начнет вводить новый артикул то не нужно было удалять старый. (выделеный текст при вводе нового стираться)
это все нужно что бы оператор смог быстро очень быстро набивать позиции.
В ComboBox_Art пользователь выбирает/вводит артикул
В TextBox_pcs вводи значение товара
Переход с поля на поле осуществляется по Enter
после того как пользователь выбрал товар и количество
по интеру обробатываеться процедура
Private Sub TextBox_pcs_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Range("A19").Value > 0 And TextBox_pcs.Text > 0 Then
Cells(Range("A18").Value, 7).Value = Cells(Range("A18").Value, 7).Value + TextBox_pcs.Text 'записываем в базу.
CheckBox_hide_Click
End If
ComboBox_Art.Activate
End If
End Sub
Записывается значение в базу и опять активируется ComboBox_Art
Нужно что бы текст в ComboBox_Art выделился что бы если пользователь начнет вводить новый артикул то не нужно было удалять старый. (выделеный текст при вводе нового стираться)
это все нужно что бы оператор смог быстро очень быстро набивать позиции.
