このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

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

2024年8月4日

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

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

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

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

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

VBAが難しいと感じたら
ココナラにて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上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。

VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

VBA

Posted by やろまい