Excelでリアルタイムのアナログ時計を作る方法｜初心者向けステップバイステップガイド

Excelは表計算ソフトですが、数式・グラフ・VBAを組み合わせることで、実際に動くリアルタイムのアナログ時計を作ることができます。この記事では、ドーナツグラフと円グラフを使った文字盤の作成から、時針・分針・秒針の挿入、さらにVBAコードによる時計の開始・停止ボタンの設定まで、全5ステップに分けてわかりやすく解説します。

ステップ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には時針の幅（Hour Hand Width）を表す値を入力します。
• 次にセルC7を選択して対応する数式を入力します。
• これにより、時間用の空白領域が確保されます。

• 続いて、セルC10を選択して分に関する数式を入力します。
• Enterキーを押すと、時計の分針用の値が表示されます。

• セルC11には分針の幅（Minute Hand Width）を入力します。
• セルC12を選択して数式を入力すると、分用の空白領域が作られます。

• 次に、セルC15を選択して秒に関する数式を入力し、Enterキーを押します。
• これで秒針を制御する値が取得できます。

• セルC16に秒針の幅（Second Hand Width）を設定します。
• 最後にセルC17を選択して数式を入力すれば、時計の秒を制御する値が完成します。

ステップ2：時計の文字盤（フレーム）を作成する

次に、ドーナツグラフを使ってアナログ時計の外枠と数字を目盛りとして作成します。

• 挿入タブを開きます。
• 円またはドーナツ グラフの挿入からドーナツグラフを選択します。
• 画面に空のグラフ枠が表示されます。

• グラフ上で右クリックし、データの選択を選びます。
• ダイアログボックスが開いたら、追加をクリックします。

• 系列の編集ダイアログの系列の値に以下を入力します。

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

• OKをクリックします。
• これで系列1が追加され、時間目盛りの位置が設定されます。

• 再び追加をクリックし、同じ値を系列の値として入力します。これは分針用の系列です。
• OKをクリックすると、既存のグラフにもう一つの系列が追加されます。

• さらに追加をクリックします。
• 秒針用の系列として、系列の値に {1} を入力してOKをクリックします。
• 最後にOKを押してデータソースの選択ダイアログを閉じます。

グラフの書式設定

• グラフをクリックし、書式タブを開きます。
• 図形の枠線から枠線なしを設定します。
• グラフ右上の「＋」ボタンをクリックし、グラフタイトルと凡例をオフにします。

• 任意の系列を右クリックし、データ系列の書式設定を選択します。
• 右側のパネルでドーナツの穴の大きさを60%に変更します。

数字ラベルの配置

• 系列2を右クリックしてデータ系列の書式設定を開き、最初のスライスの角度を調整します。
• 系列2のデータラベルをオンにします。

• 上部中央のデータラベルに12と入力します。
• 残りのラベルも、通常のアナログ時計と同じ並び（1〜12）で入力していきます。

• 書式タブの図形の塗りつぶしから塗りつぶしなしを選択し、系列2の塗りつぶし色を消します。

目盛り点の挿入

• 次に系列1のデータラベルをオンにします。
• セルD16を選択し、挿入タブ → 記号と特殊文字 → 記号をクリックします。
• 記号ダイアログで文字コードに 25CF を入力し、挿入を押します。

• シートに黒丸（●）が挿入されるので、Ctrl+Cでコピーします。
• Ctrl+Vで系列1のデータラベルに貼り付けます。

• 残りのすべてのデータラベルにも同じ操作を繰り返します。
• その後、系列1の塗りつぶしもオフにします。

• これでアナログ時計のフレームが完成しました。

ステップ3：時刻の針を挿入する

ここからは、円グラフを使って各針を作成します。

• セル範囲C5:C7を選択します。
• 挿入タブ → 円またはドーナツ グラフの挿入から円グラフを選択します。
• 画面に円グラフが表示されたら、グラフタイトルと凡例をオフにします。

• 系列の枠線を枠線なしに変更し、塗りつぶしも塗りつぶしなしに設定します。
• 同様の操作を行うことで、時針の幅に対応した扇形の部分だけが残ります。

ステップ4：針の位置を揃える

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

• 円グラフのサイズを調整して、時針が時計の内側に収まるようにします。
• ドーナツグラフのグラフタイトルと凡例もオフにしておきます。

• 同じ要領で、分針と秒針用の円グラフも作成します。
• それぞれの針が区別できるよう、色とサイズを変えて設定しましょう。
• すべての針を時計の中に配置したら、いずれかのグラフをクリックしてCtrl+Aですべて選択します。
• 図形の書式タブ → 配置 → 中央揃えを選択して、針の中心を揃えます。

• 挿入タブの図形から楕円形を選択します。
• 時計の中心に小さな楕円を配置すれば、軸の役割を果たします。

ステップ5：VBAコードで時計の開始・停止を実装する

最後に、VBAマクロを使って時計を動かしたり止めたりできるようにします。

• 開発タブ → Visual Basic をクリックすると、新しいウィンドウが開きます。

• VBAProject配下のThisWorkbookを選択すると、コードモジュールが表示されます。
• 以下のコードを入力して保存します。

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

Start／Stop ボタンの作成とマクロの割り当て

• 挿入タブの図形から長方形を選択します。
• 時計の下に図形を描き、「Start」という名前を付けます。
• 同じ手順で「Stop」ボックスも作成します。

• Startボタンを右クリックし、マクロの登録を選択します。
• StartClockマクロを割り当てて、OKをクリックします。

• 同様にStopボタンを右クリックし、マクロの登録からStopClockマクロを割り当てます。

• Startボタンを押せば時計が動き始め、Stopボタンを押せば停止します。

まとめ

NOW関数による時刻計算、ドーナツグラフと円グラフによる見た目の作成、そしてVBAマクロによる自動更新を組み合わせることで、Excel上で本格的に動くアナログ時計が完成します。グラフの応用テクニックとVBAの基礎を同時に学べる、非常に勉強になる演習です。ぜひ実際に手を動かして試してみてください。

関連記事

• Excel VBAでUserFormにデジタル時計を表示する方法：完全ガイド