[367.xls]



' [mjSumple] のコード
'■■ テキストボックスに入力された値に先頭からゼロ埋めする ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
       
    'フォームの表示
    frmSumple.Show
End Sub

Sub txtInput_Enter()
    Dim intLen As Integer
    Dim intSetLen As Integer
    Dim strMyString As String
    Dim strInputText As String
    
    intSetLen = 10
    
    strInputText = frmSumple.txtInput1.Text
    
    intLen = Len(frmSumple.txtInput1.Text)

    If intLen < intSetLen Then
        strMyString = String(intSetLen - intLen, "0")
    Else
        strMyString = ""
    End If
    
    frmSumple.txtInput1.Text = strMyString & strInputText

End Sub



' [frmSumple] のコード

Private Sub txtInput1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Call txtInput_Enter
    End If
End Sub