Вопрос : Как ограничивать потребителя к ключ-в многоточию/десятичной запятой только раз в Textbox Userform?

Hi каждое,

, котор я пытаюсь сделать мою собственную численную коробку текста в VBA в виду того что никакие (или?). Я в настоящее время работаю на моих утверждениях и проблема является следующим: Я не хочу потребителя входить в многоточие/десятичную запятую (.) больше чем раз в Textbox Userform.

от теперь, я вручаю случай KeyPress textbox, должно для того чтобы закрепить петлеть через каждый характер шнура, тогда нахожу после этого для того чтобы заменить многоточие/десятичную запятую с пробелом ("" представляет пробел, будет я выпрямляет?). Я не понимаю почему моя программа не извлекает самую последнюю пользовать ключом-в многоточии. Может любое помочь мне вне? Или гораздо лучшее дорога сделать это? Спасибо заранее. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:

ctrLast >Dim " class= " " codeSnippet844381 id=

class=

Ответ : Как ограничивать потребителя к ключ-в многоточию/десятичной запятой только раз в Textbox Userform?

Здесь некоторое Кодий:

Приватная подводная лодка TextBox1_KeyPress (ByVal KeyAscii как MSForms.ReturnInteger)
Выберите случай KeyAscii
   Покрывайте Asc («0») к Asc («9»)
    Покрывайте Asc («-»)
       Если Instr (1, Me.TextBox1.Text, «-») > 0 или Me.TextBox1.SelStart > 0 после этого
           KeyAscii = 0
       Закончитесь если
   Покрывайте Asc («.")
       Если InStr, то (1, Me.TextBox1.Text, «.") > 0 после этого
           KeyAscii = 0
       Закончитесь если
   Покрывайте еще
       KeyAscii = 0
Конец отборный
Подводная лодка конца

отсюда: http://www.cpearson.com/excel/TextBox.htm