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

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

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

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

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

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

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

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個のメッセージを登録していますが、自分好みの内容に書き換えてみてください。

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

GetRndプロシージャについて

ランダムで数値を返すGetRndプロシージャの内容については下記記事で紹介しています。

VBAが難しいと感じたら
プロにお任せして代わりに作ってもらってはいかがでしょう?
VBAの作成依頼はこちらから

《VBA中級者向けの本》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。

created by Rinker
技術評論社
¥3,608 (2023/06/06 16:32:04時点 Amazon調べ-詳細)

他の「VBA」の記事はこちらからどうぞ

VBA

Posted by やろまい