【VBA】ランダムで自分を褒めてくれる汎用プロシージャ

2023年1月2日2025年3月9日

仕事を頑張っていると時々誰かに褒めてもらいたくなることがありますよね。

でも、仕事で褒められることなんてほとんどない。。。

そんな実情を踏まえてランダムなメッセージで自分をほめてくれる汎用プロシージャを作成しました。

普段使うマクロの最後に忍ばせておけばマクロの実行後に自分を褒めてくれます。

もっと自分を褒めたいなと思う方はお試しあれ。

ランダムで自分を褒めてくれる汎用プロシージャ

Sub NiceMsg()
    '''ランダムで自分を褒めてくれるプロシージャ
    
    Dim strNice() As String
    
    ''表示したいメッセージをカンマで区切って記載する
    strNice = Split("いい仕事してますねぇ,お疲れ様！,あなたは最高,やったね！,めっちゃいい感じ♪,コングラッチュレーション", ",")
    
    ''表示するメッセージの番号をランダムに取得
    Dim msgNum As Long
    msgNum = GetRnd(LBound(strNice), UBound(strNice))
    
    MsgBox strNice(msgNum)
    
End Sub

Function GetRnd(min As Long, max As Long) As Long
    'min～maxまでの乱数を返す
    
    Randomize '乱数のシード値を変更
    GetRnd= Int((max - min + 1) * Rnd + min)
    
End Function

このマクロを実行するとstrNiceのメッセージのどれかをランダムで表示してくれます。

サンプルとして5個のメッセージを登録していますが、自分好みの内容に書き換えてみてください。

メッセージはカンマで区切って登録します。