'=========================================================================================
' 205 入力値の誤りを知らせるメッセージを表示する
'-----------------------------------------------------------------------------------------
'【ヒント】
' タイトル機能に関係するマクロは、UserForm1のコードにあります。
' この標準モジュールのマクロは、おためし機能の動作用のコードです。



'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    UserForm1.Show vbModeless                   'ユーザーフォームをモードレスで表示する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub OptionButton1_Click()
    Application.ScreenUpdating = False      '画面を更新しない
    ActiveSheet.Unprotect                   'シート保護を解除する
    Range("G9").Select                      '対象セルを選択する
    入力規則を設定する                        '◆◆◆
    ActiveSheet.Protect                     'シート保護する
    Range("M15").Select                     'カーソルを移動する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton2_Click()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("G9").Select
    入力規則をすべてクリアする               '◆◆◆
    ActiveSheet.Protect
    Range("M15").Select
End Sub
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Deactivate()
    Unload Me
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 入力規則を設定する()            '◆◆◆
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="1", Formula2:="5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "500連発 第2弾 サンプルマクロ"
        .InputMessage = ""
        .ErrorMessage = "1 から 5 までしか 入力できません"
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 入力規則をすべてクリアする()    '◆◆◆
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .InputMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub
'=========================================================================================