■

唐突だけどコンボボックスの補完処理。

Private Sub abbrevCombo(ByRef cbo As ComboBox)

    Dim i As Long

    Dim nLen As String

    Dim sItem As String

    Dim nCount As Long

    

    With cbo

        nLen = Len(.Text)

        nCount = .ListCount - 1

        

        For i = 0 To nCount

            sItem = .List(i)

            If UCase(Left(sItem, nLen)) = UCase(.Text) Then

                .Text = sItem

                .SelStart = nLen

                .SelLength = Len(sItem) - nLen

                Exit For

            End If

        Next

    End With

End Sub

あんまり美しくないような気もする。もうちょっとスピードが出たほうが実用的か。KeyUpイベントで呼び出すことを想定。