Option Explicit
'賞与／控除項目設定フォーム

Private mobjWS As Worksheet     'ワークシート

'クリアボタン
Private Sub cmdClear_Click()

    Call NewData
    
End Sub

'閉じるボタン
Private Sub cmdEND_Click()

    Unload Me
    
End Sub

'登録ボタン
Private Sub cmdOK_Click()

    Dim objText As MSForms.TextBox  'テキストボックス
    Dim intMsg As Integer           'メッセージ
    Dim i As Integer                '整数型カウンタ
    
    intMsg = MsgBox("登録しますか。", 32 + 4, "給与計算システム")
    
    '登録
    If intMsg = 6 Then
        For i = 1 To 3
            Set objText = Controls("txtKoumoku" & CStr(i))
            mobjWS.Cells(5, i).Value = objText.Text
        Next
        MsgBox "正常に登録しました。", 64 + 0, "給与計算システム"
    End If
    
    Set objText = Nothing
    
End Sub

'フォーカスがあたったとき
Private Sub txtKoumoku1_Enter()

    With Me.txtKoumoku1
        .SelStart = 0
        .SelLength = Len(.Text)
        .BackColor = RGB(255, 255, 0)
        .IMEMode = 4
    End With
    
End Sub

'フォーカスが外れたとき
Private Sub txtKoumoku1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.txtKoumoku1
        .BackColor = RGB(255, 255, 255)
        .IMEMode = 0
    End With
    
End Sub

'フォーカスがあたったとき
Private Sub txtKoumoku2_Enter()

    With Me.txtKoumoku2
        .SelStart = 0
        .SelLength = Len(.Text)
        .BackColor = RGB(255, 255, 0)
        .IMEMode = 4
    End With

End Sub

'フォーカスが外れたとき
Private Sub txtKoumoku2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.txtKoumoku2
        .BackColor = RGB(255, 255, 255)
        .IMEMode = 0
    End With

End Sub

'フォーカスがあたったとき
Private Sub txtkoumoku3_Enter()

    With Me.txtkoumoku3
        .SelStart = 0
        .SelLength = Len(.Text)
        .BackColor = RGB(255, 255, 0)
        .IMEMode = 4
    End With

End Sub

'フォーカスが外れたとき
Private Sub txtkoumoku3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.txtkoumoku3
        .BackColor = RGB(255, 255, 255)
        .IMEMode = 0
    End With
    
End Sub

'フォームロード時
Private Sub UserForm_Initialize()

    '初期値設定
    Call NewData
    
End Sub

'フォームクローズ
Private Sub UserForm_Terminate()

    Set mobjWS = Nothing
    
End Sub

'初期値設定
Private Sub NewData()

    Dim objText As MSForms.TextBox  'テキストボックス
    Dim i As Integer                '整数型カウンタ
    
    'ワークシート
    Set mobjWS = Workbooks(gstrName).Worksheets("Sheet1")
    
    For i = 1 To 3
        Set objText = Controls("txtKoumoku" & CStr(i))
        objText.Text = mobjWS.Cells(5, i).Value
    Next
    
    With Me.lblKoumoku
        .TextAlign = 2
        .SpecialEffect = 2
    End With
    
    Set objText = Nothing
    
End Sub