Excel でデジタル時計を作成する:2 つの簡単な VBA と数式メソッド

方法 1 – Excel VBA と TEXT 関数を使用してデジタル時計を構築する

手順:

• [挿入]> [イラスト]> [図形]に移動します。

• 形状 メニュー オプション ボックスがポップアップ表示されます。
• 角丸長方形を選択します。 オプション。

• 角の丸い長方形がワークブックに挿入されます。

• 開発者 に移動します。 タブをクリックし、Visual Basic をクリックします。 .

• Visual Basic の場合 ウィンドウで、挿入に移動します。 タブをクリックし、モジュールをクリックします。 モジュールボックスを作成するオプション。

• モジュール ボックスに、次の VBA を入力します。 コード.

Sub Digi_Clock()
Range("B5") = Not Range("B5")
Do While Range("B5") = True
DoEvents
Range("B6") = Now()
Loop
End Sub

• 緑色の [実行] を押します。 ボタン。

• セルB4内 、 TRUE を入力します。 そしてEnterを押します。 またはタブ

• 角丸長方形を右クリックします。
• コンテキスト メニューで [マクロの割り当て] を選択します。 四角形にコードを含めるオプション。

• VBA を挿入しました。
• これにより、後で時間が表示されます。

• セルC6内 、次のテキストを入力します。 数式、

=TEXT(B6,"hh:mm:ss AM/PM")

• セルB6の時間を変換します。 hh:mm:ss の時刻形式を返します。 形式。
• Enter キーを押します。
• ホーム に移動します タブをクリックし、フォントを選択します。 グループ。
• フォントの色、サイズ、スタイルをカスタマイズします。

• 時刻はデジタル形式で表示されます。

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

方法 2 – 図形ツールと Excel VBA を使用してデジタル時計を設計する

ステップ 1 : デザイン時計

• [挿入]> [イラスト]> [図形] に移動します。 タブ。

• シェイプ内 オプション ボックスで、ブロック矢印を見つけます。 グループ化して 五角形の矢印 を選択します。
• その結果、五角形の矢印がワークブックに挿入されます。

• コピー＆ペーストコマンドを使用して別の矢印形状を挿入します。
• 新しく挿入した矢印を選択し、[図形の形式]> [回転] に移動します。 タブ。
• 水平方向に反転を選択します。 オプション。

• 各矢印をコピーし、それらを組み合わせて丸い形を作ります。
• 回転を使用します。 必要に応じてオプションを指定します。

• すべての矢印を 8 の形に並べ替えます (8) ) 形状。
• 最初の桁をカスタマイズし、各矢印グループを右クリックして、1 から順に名前を付けます。 .

• グループ全体をコピーして貼り付け、hh:mm:ss を指定します。 以下に示すような形式です。
• 1 から名前を付けます 42まで .
• 楕円形 を 4 つ追加します シェイプを作成し、ポイントという名前を付けます。 .
• 3 つの角丸長方形を追加します 3 を挿入するには コマンド オプション:開始 、停止します。 そしてリセット .

• 時計の表示形式を構築しました。
• ここで、VBA コードを形式に含めます。

ステップ 2 : Excel VBA コードを挿入

• ALT+F11 を押します 基本ビジュアルを開きます ウィンドウ。
• 次の VBA コードを追加します。

Sub Digital_Clock_Autoshapes(FS As Integer, Digi As Integer)
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
Spe.Visible = msoCTrue
Next i
If Digi = 0 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 2 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 1 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i <> FS + 1 And i <> FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 2 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 3 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 4 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 5 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 6 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 7 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 2 Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 9 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
End Sub

• ウィンドウを閉じて、アクティブなワークブックに移動します。

• 3 を追加します 他の VBA コードは次のとおりです。
• はじめに コマンドでは、次のように入力します。

Sub Start_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = ""
x:
If Shw.Range("B5").Value = "Stop" Then Exit Sub
VBA.DoEvents
Call Digital_Clock_Autoshapes(1, VBA.CInt(VBA.Left(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(8, VBA.CInt(VBA.Right(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(15, VBA.CInt(VBA.Mid(VBA.Format(Time, "HHMM"), 3, 1)))
Call Digital_Clock_Autoshapes(22, VBA.CInt(VBA.Right(VBA.Format(Time, "HHMM"), 1)))
Call Digital_Clock_Autoshapes(29, VBA.CInt(VBA.Left(VBA.Format(Time, "SS"), 1)))
Call Digital_Clock_Autoshapes(36, VBA.CInt(VBA.Right(VBA.Format(Time, "SS"), 1)))
Dim Spe As Shape
Set Spe = Shw.Shapes("Point")
If Application.WorksheetFunction.IsEven(VBA.Second(VBA.Now)) Then
Spe.Visible = msoCTrue
Else
Spe.Visible = msoFalse
End If
GoTo x
End Sub

• 停止のコードを追加します。 コマンド。

Sub Stop_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = "Stop"
End Sub

• リセットの VBA コードを追加します。 コマンド:

Sub Reset_Clock()
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = 1 To 42
 Set Spe = Shw.Shapes(VBA.Format(i, "0"))
 Spe.Visible = msoCTrue
Next i
Set Spe = Shw.Shapes("Point")
Spe.Visible = msoCTrue
End Sub

• スタートを右クリックします。 コマンドを入力し、[マクロの割り当て] をタップします。 .

• Start_Clock を割り当てます。 スタート のマクロ コマンド。
• リセットクロック を割り当てます とストップクロック コマンド オプションの場合は リセット そして停止
• [OK] を押します。 .

• コマンド オプションを含むデジタル時計が表示されます。

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

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

関連記事

• Excel で時計チャートを作成する方法
• VBA コードを使用して Excel でデジタル時計を作成する方法

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