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 intMsg As Integer   'メッセージ
    
    intMsg = MsgBox("登録しますか。", 32 + 4, "給与計算システム")
    
    If intMsg = 6 Then
        Call LetData
        MsgBox "正常に登録しました。", 64 + 0, "給与計算システム"
    End If
    
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 txtKoumoku4_Enter()

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

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

End Sub

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

    With Me.txtKoumoku9
        .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 LetData()

    Dim objText As MSForms.TextBox  'テキストボックス
    Dim i As Integer                '整数型カウンタ
    
    'ワークシートに書き出し
    For i = 1 To 9
        Set objText = Controls("txtKoumoku" & CStr(i))
        mobjWS.Cells(4, i).Value = objText.Text
    Next
    
    Set objText = 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 9
        Set objText = Controls("txtKoumoku" & CStr(i))
        objText.Text = mobjWS.Cells(4, i).Value
    Next
    
    'ラベルコントロール
    With Me.lblKoumoku1
        .TextAlign = 2
        .SpecialEffect = 2
    End With
    
    With Me.lblKoumoku2
        .TextAlign = 2
        .SpecialEffect = 2
    End With
    
    Me.txtKoumoku1.SetFocus
    
    Set objText = Nothing
    
End Sub