エクセルに仕事中に励ましてもらう方法

あなたは仕事中に誰かに励ましてほしいと思ったことはありませんか？

朝一で「今日もがんばろう！」とか、夕方に「もうちょっと！」とか。

ちょっとしたことですが、励ましてもらえると、がんばろうかな！って気持ちになりますよね。

エクセルマクロを使えば、エクセルに励ましてもらえます。

今回は「エクセルに仕事中に励ましてもらう方法」を紹介します。

エクセルに仕事中に励ましてもらう方法

エクセルに仕事中に励ましてもらう方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「alt」+「F11」を押す　→コード入力画面が開く

２．ThisWorkbookをダブルクリック

３．コードを入力

コードを入力します。

エクセルを開いたとき、時間を取得して、自動でメッセージボックスを表示させる、という意味です。

４．上書き保存して、エクセルを一回閉じて、エクセルを再び立ち上げる　→メッセージボックスが出る

朝、昼、夜など、エクセルを立ち上げる時間帯によって、下のようにメッセージが変わります。

その日初めてエクセルを起動したとき

午後にエクセルを起動したとき

17:00以降にエクセルを起動したとき

こんな感じで、時間帯でメッセージを変えられます。

まとめ

エクセルに仕事中に励ましてもらう方法です。

１．「alt」+「F11」を押す　→コード入力画面が開く

２．ThisWorkbookをダブルクリック

３．コードを入力

４．上書き保存して、エクセルを一回閉じて、エクセルを再び立ち上げる　→メッセージボックスが出る

これでエクセルに励ましてもらえれば、ちょっとがんばれそうですね！

ちなみに、今回使用したコードです。

Private Sub Workbook_Open()

    Dim currentDate As Date
    Dim currentTime As Date
    
    currentDate = Date
    currentTime = Time

    With ThisWorkbook.Worksheets(1)
        If .Range("Z1").Value <> currentDate Then
            MsgBox "今日も一日がんばろう！", vbInformation, "お知らせ"
            .Range("Z1").Value = currentDate
            
        ElseIf currentTime >= TimeValue("17:00:00") Then
            MsgBox "さっさと帰ろう！", vbExclamation, "お知らせ"
            
        ElseIf currentTime >= TimeValue("12:00:00") Then
            MsgBox "あと半分！", vbInformation, "お知らせ"
            
        End If
    End With
    
End Sub