|
こんな感じ?
でも、1〜9までしか対応してない。
桁を上げるには、押されたキーの数値を蓄積するなどの工夫が必要。
普通のコンボボックスなら、メッセージを投げるだけなんだけど…。
Private Sub ComboBox1_Enter()
Me.ComboBox1.IMEMode = fmIMEModeOff
Me.ComboBox1.DropDown
End Sub
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyBack Then Exit Sub
If vbKey0 < KeyCode And KeyCode <= vbKey9 Then
SendKeys "{BS}"
End If
End Sub
Private Sub UserForm_Initialize()
Dim i&
Dim sArr
sArr = Array("りんご", "みかん", "パインアップル", _
"なし", "ぶどう", "パパイヤ", _
"いちご", "バナナ", "キウイ")
With Me
.TextBox1.TabIndex = 0
.ComboBox1.TabIndex = 1
.ComboBox1.Style = fmStyleDropDownList
For i = 1 To UBound(sArr)
.ComboBox1.AddItem i & ", " & sArr(i)
Next i
End With
End Sub
|
|