ExcelVBAで入力するとき付箋的なものを出す

入力規則を使う

    With Range("B2").Validation
            
        '入力規則を削除
        .Delete
        
        '入力規則の設定
        'エラーメッセージのスタイルは「停止」
        .Add Type:=xlValidateDate, _
             Formula1:="2015/1/1", _
             Operator:=xlLessEqual, _
             AlertStyle:=xlValidAlertStop
                   
        .InputTitle = "日付入力"
        .InputMessage = "今日より前の日付を入力してください!"
        .ShowInput = True
        
    End With