メインコンテンツへスキップ

Excelで図形を何度も点滅または点滅させるにはどうすればよいですか?

ワークシートで図形を何度も点滅させたい場合は、この記事のメソッドが役立ちます。

VBAコードで何度も点滅する図形を作成します


VBAコードで何度も点滅する図形を作成します

ワークシートで図形を点滅させるには、次のようにしてください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、VBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBAコード:ワークシートで図形を何度も点滅させる

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

ノート:

1)。 コードでは、 新製品 点滅させる形状の名前です。 自分のものに変更してください。
2)。 00:00:01 シェイプが毎秒点滅することを意味します。

3。 プレス 他の + Q 一緒にキーを押して終了します アプリケーション向け Microsoft Visual Basic 窓。

4.をクリックして、ワークシートにボタンを挿入します Developer > インセット > ボタン(フォームコントロール) 以下のスクリーンショットのように。

5.ポップアップで マクロの割り当て ダイアログボックスで フラッシュ セクションに マクロ名 ボックスをクリックし、 OK

6.次に、必要に応じてボタンの表示テキストを変更します。 この場合、以下のスクリーンショットのように、表示テキストを「点滅開始」に変更します。

7.上記の手順4と5を繰り返して、新しいボタンを挿入し、 ストップイット このボタンへのマクロ。

8.この新しいボタンの表示テキストを変更します。

次に、異なるマクロを割り当てるXNUMXつのボタンがワークシートに挿入されていることがわかります。 スクリーンショットを参照してください:

これ以降、[点滅開始]ボタンをクリックすると、図形がさまざまな色で点滅し始めます。 フラッシュを停止したい場合は、点滅停止ボタンをクリックしてください。


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations