Убрать нули перед числом VBA

Макс

Гость

22.02.2009 15:13:40

Подскажите, кто в теме... сканирую штрихсканером код в combobox в котором значения могут быть без 0 перед цифрой, а штрих код сканирует 6ти разрядный код, т.е. нужный номер только с нулями перед ним... отсюда ошибка. Как поставить ввод на значение в комбобокс, что бы он эти нули перед цифррами срезал
Например: возможные значения combobox 670,1056. Штрих сканер выплевывает 000670 или 001056 (6ти разрядов). Спасибо!

** ТУРБО-ЁЖ **

Пользователь

Сообщений: 189 Регистрация: 01.01.1970

22.02.2009 15:30:25

{quote}{login=Макс}{date=22.02.09 15:13}{thema=Убрать нули перед числом VBA}{post}Как поставить ввод на значение в комбобокс, что бы он эти нули перед цифррами срезал{/post}{/quote}Используйте функцию Val:

Private Sub ComboBox1_Change()
With Me.ComboBox1
If Len(.Text) = 6 Then .Text = Val(.Text)
End With
End Sub

overtiger Пользователь Сообщений: 19 Регистрация: 01.01.1970	#3 23.02.2009 01:37:09 {quote}{login= ТУРБО-ЁЖ }{date=22.02.2009 03:30}{thema=Re: Убрать нули перед числом VBA}{post}{quote}{login=Макс}{date=22.02.09 15:13}{thema=Убрать нули перед числом VBA}{post}Как поставить ввод на значение в комбобокс, что бы он эти нули перед цифррами срезал{/post}{/quote}Используйте функцию Val: Private Sub ComboBox1_Change() With Me.ComboBox1 If Len(.Text) = 6 Then .Text = Val(.Text) End With End Sub{/post}{/quote} Знал что через VAL, а как уж описать это сам не додумался. Спасибо!

Читают тему