Template-YYY_Whisper

Excel VBA
Excel VBAマクロ「BeHereForm」の解説

このマクロは、Microsoft Teamsのステータスを「在席中（緑）」のまま維持するための補助ツールです。
Excel上で簡単な操作を行い続けることで、PCがアクティブ状態と認識され、ステータスが自動で「退席中」になるのを防ぎます。

🔹主な機能
UserForm（BeHereForm）を表示して、作業中のブックを開いたまま時間を選択
指定した時間（分）だけ、選択セルのある行のA列に対して上下キーを交互に送信
1分ごとにステータスバーに残り時間を表示
[Esc]キーで中断可能
終了時にステータスバーをクリアし、通知メッセージを表示

🔹使い方の流れ
Excelで任意のセルを選択
ShowBeHereForm マクロを実行 → フォームが表示される
時間を選択して「開始」ボタンを押す
指定時間中、Excelが自動でキー操作を行い続ける

🔹目的の一例
Teamsのステータスを「在席中（緑）」に保ちたいときに便利です。 離席していてもPCが操作されていると認識されるため、ステータスが変わりません。

必要に応じて、コードの一部や使用例もWordPressに掲載できます。もっと短くしたい場合や、画像付きで説明したい場合もお手伝いできますよ！ま維持するための補助ツールです。
Excel上で簡単な操作を行い続けることで、PCがアクティブ状態と認識され、ステータスが自動で「退席中」になるのを防ぎます。

🔹主な機能
UserForm（BeHereForm）を表示して、作業中のブックを開いたまま時間を選択
指定した時間（分）だけ、選択セルのある行のA列に対して上下キーを交互に送信
1分ごとにステータスバーに残り時間を表示
[Esc]キーで中断可能（環境により、効かない場合もあります。）
終了時にステータスバーをクリアし、通知メッセージを表示

🔹使い方の流れ
Excelで任意のセルを選択
ShowBeHereForm マクロを実行 → フォームが表示される
時間を選択して「開始」ボタンを押す
指定時間中、Excelが自動でキー操作を行い続ける

🔹目的の一例
Teamsのステータスを「在席中（緑）」に保ちたいときに便利です。 離席していてもPCが操作されていると認識されるため、ステータスが変わりません。
必要に応じて、コードの一部や使用例もWordPressに掲載できます。もっと短くしたい場合や、画像付きで説明したい場合もお手伝いできます！

BeHereForm UserForm

フォーム名：BeHereForm
コントロール一覧：
　・ComboBox：cmbMinutes
　・CommandButton：cmdStart

  1. 上記の通りユーザフォームを作成する。
  2. 下記ボックス内をコピーし、ユーザーフォームのコード欄に貼り付ける。
  3. モジュール名を【BeHereForm】に変更する。
　UserForm名：BeHereForm


Option Explicit
Private Sub UserForm_Initialize()
    With cmbMinutes
        .AddItem "1"
        .AddItem "3"
        .AddItem "5"
        .AddItem "10"
        .AddItem "15"
        .AddItem "20"
        .AddItem "30"
        .AddItem "60"
        .ListIndex = 2     ' 初期値：5分
    End With
End Sub

Private Sub cmdStart_Click()
    Dim minVal As Long
    If cmbMinutes.Value = "" Then
        MsgBox "時間を選択してください", vbExclamation
        Exit Sub
    End If
    minVal = CLng(cmbMinutes.Value)
    Me.Hide
    Call BeHereStart(minVal)
End Sub

コメント

タイトルとURLをコピーしました