Excel でリアルタイム アナログ クロックを構築する:ステップバイステップ ガイド

ステップ 1:時、分、秒の設定

• セルC5をクリックします。 次の数式を入力します。

=IF((HOUR(NOW())+C10/60+C15/3600)>12,(HOUR(NOW())+C10/60+C15/3600)-12,HOUR(NOW())+C10/60+C15/3600)

• Enter を押します。 .
• その結果、時計の時間を制御する値が得られます。

• 時針の幅 を入力します。 セルC6内 .
• C7 を選択します セルに次のように入力します:

• 何時間も空白のスペースが得られます。

• セルC10を選択します
と入力します。

• Enter を押します。 .
• 時計の分の値が得られます。

• 分針の幅 を入力します。 セルC11内 .
• セルC12を選択します
と入力します。

• その結果、数分間空白のスペースが発生します。

• セルC15を選択します
と入力します。

• Enter キーを押します。 ボタン。

• 秒を制御する値が得られます。
• 秒針の幅 を設定します。 セルC16内 .
• セルC17を選択します
と入力します。

• 時計の秒を制御する値を取得します。

続きを読む: Excel でデジタル時計を作成する方法

ステップ 2:クロック フレームの作成

• 挿入に移動します。 タブ。
• 円グラフまたはドーナツ グラフの挿入からドーナツ グラフを選択します。 オプション。
• 画面には空のボックスが表示されます。

• ボックスを右クリックし、[データの選択] を選択します。 利用可能なオプションから選択します。
• 画面にプロンプトが表示されます。

• [追加 ] をクリックします。 プロンプト内で。

• シリーズの編集 内 プロンプトが表示されたら、系列値として次の値を入力します。

={1,1,1,1,1,1,1,1,1,1,1,1}

• [OK] を選択します。 .
• その結果、データ系列がグラフに追加され、時間の位置が設定されます。 .

• [追加] をクリックします。 .

• 系列の値に、前の値と同じ値を入力します。  これをしばらく行っています。 手
• [OK] をクリックします。 .
• これにより、既存のグラフに別のデータ系列が追加されます。

• [追加] をクリックします。 .

• 「{1} 」と入力します 系列値として 2 番目を形にする 手
• [OK] を選択します。 .

• [OK ] をクリックします。 データ ソースの選択を終了します。 プロンプト。

• ドーナツ チャートが画面に表示されます。
• グラフをクリックします。
• フォーマットに移動します。
• アウトラインなしを設定します 形状から 概要 オプション。

• グラフのタイトル をオフにします。 そしてレジェンド チャートの右上隅にあるプラス記号をクリックして、チャートの内容を確認します。

• データ系列のいずれかを選択して右クリックします。
• 利用可能なオプションから [データ シリーズのフォーマット] を選択します。 .

• ドーナツの穴のサイズ を変更します。 60%まで フォーマット データ シリーズ から 右側のタブ。

• グラフのデータ系列 2 を右クリックします。
• データ系列のフォーマットを選択します。

 

• 角度を設定します 最初のスライス 15%まで .

• データ ラベル をオンにします。 データ系列 2 の場合。

• 「12 」と入力します 上部中央の位置にあるデータ ラベル。

• チャートの残りのラベルをアナログ時計のシーケンスとして入力します。 .

• 形式 に移動して、データ系列 2 の塗りつぶしの色を削除します。 タブをクリックし、[塗りつぶしなし] をクリックします。 シェイプフィルから オプション。

• データ系列 1 のデータ ラベルをオンにします。

• セルD16を選択します .
• 挿入に移動します。 タブ。
• 記号を選択します シンボルから オプション。

• シンボル内 プロンプトが表示されたら、「 25CF 」と入力します。 文字コードとして。
• 挿入を押します。 .

• その結果、文字がシートに挿入されます。
• Ctrl+C を押して文字をコピーします。 .

• Ctrl+V を使用して、データ系列 1 のデータ ラベルに文字を貼り付けます。 .

• 残りのデータラベルについても同じことを行います。

• データ系列 1 の塗りつぶしの色をオフにします。

• アナログ時計のフレームを用意します。 .

続きを読む: Excel で時計チャートを作成する方法

ステップ 3:時間針を挿入する

• C5:C7 を選択します。 セル範囲
• 挿入に移動します。 タブ。
• [円グラフまたはドーナツ グラフの挿入] オプションから円グラフを選択します。

• 円グラフを作成します。 画面上のボックス。
• グラフのタイトル を回転させます そしてレジェンド チャートに向けて出発します。

• データ系列 1 のアウトラインを アウトラインなしに変更します。 .

• 塗りつぶしの色を塗りなしに設定します。 .

• データ系列 1 に対しても同じことを行います。
• 時間の部分をいただきます。 手の幅

続きを読む: Excel で時計を作成する方法

ステップ 4:時間針を合わせる

• 円グラフ 全体の背景の塗りつぶし色を設定します。 塗りつぶしなし .

• 時針を合わせます 円グラフのサイズを調整して時計内の .
• グラフのタイトル をオフにします。 そしてレジェンド ドーナツ チャートの .

• 分針と秒針のデータセットの円グラフを挿入します。
• 手の色をそれぞれ異なる色に設定します。
• 手のサイズが互いに異なるように設定します。
• 時計内で調整します。
• いずれかのグラフをクリックし、Ctrl+A を押します。 .
• 図形形式に移動します。 .
• [中央揃え] を選択します。 整列から オプション。

• 図形 に移動します。 [挿入] のオプション タブ。
• 利用可能なオプションから楕円形を選択します。

• 時計の中心に設定します。

続きを読む: VBA コードを使用して Excel でデジタル時計を作成する方法

ステップ 5:クロックを開始および停止するための VBA コードを適用する

• [開発者] タブに移動します。 .
• ビジュアルベーシックを選択します .
• 新しいウィンドウが開きます。

• Visual Basic 内 ウィンドウで、このワークブック を選択します。 VBA プロジェクトの下にあります オプション。
• コーディング モジュールが表示されます。

• モジュールに次のコードを入力して保存します。

Sub StartClock()
Dim am_ws As Worksheet
Set am_ws = ActiveSheet
am_ws.Range("H5").Value = "Start"
x:
VBA.DoEvents
If am_ws.Range("H5").Value = "Stop" Then Exit Sub
Application.Calculate
GoTo x
End Sub

Sub StopClock()
Dim am_ws As Worksheet
Set am_ws = ActiveSheet
am_ws.Range("H5").Value = "Stop"
End Sub

• 挿入に移動します。 タブ。
• 形状から長方形の形状を選択します。 オプション。

• 時計の下の図形を入力し、開始という名前を付けます。 .
• 同じプロセスを繰り返して、ストップを挿入します。 ボックス。

• スタートを右クリックします。 ボタン。
• 利用可能なオプションから [マクロの割り当て] を選択します。 .

• 開始クロック を割り当てます。 ボタンへのマクロ。
• 最後に、[OK] をクリックします。 .

• もう一度、[停止] を右クリックします。 ボタン。
• 一般的なオプションから [マクロの割り当て] を選択します。 .

• ストップクロック を割り当てます。 そのボタンにマクロを追加します。

• [開始] ボタンをクリックして時計を開始し、[停止] をクリックします。 ボタンをクリックしてコードを停止します。

練習用ワークブックをダウンロード

演習ワークブックはここからダウンロードできます。

関連記事

• ユーザーフォーム上の Excel VBA デジタル時計:包括的なガイド

ソリューション付きの高度な Excel 演習を無料で入手しましょう!