時計を作るか、貼り付けたい

質問

xpを使用しています。三階ラボと言うカレンダーを壁紙に利用していますが、2012年度の三階ラボのカレンダーは今現在配信されていません(いないと思います)。三階ラボカレンダーを参考にカレンダーをエクセルで作りました。ついでと言っては何ですが、時計を貼り付けたいと考えています。デジタルかアナログか悩んでいますが、エクセルで時計を作る事は難しい、または不可能なのでしょうか？素人でして申し訳ありません。わかり易くお願い致します。

回答No.2

Higurashi777 · ベストアンサー

壁紙ではなく、Excel上で時計を表示させたいのでしたらば以下の手順で可能です。
作成したカレンダーのワークシートを開き、以下の処理を行ってください。

1.Altキー＋F11キーを押してVisualBasicEditorを呼び出します。
2.メニューから挿入(I)、標準モジュール(M)で出てきたコードウィンドウ（広い部分）に以下のコードをコピー＆ペーストしてください。

Sub clktest01()
With Sheets("Sheet1").Range("A1")
.Value = Time
.NumberFormatLocal = "h:mm:ss"
End With
Application.OnTime Now + TimeValue("0:00:01"), "clktest01"
End Sub

3.Alt+F11キーでワークシートへ戻ります.
4.Excel2003の場合：メニューから、ツール、マクロ、マクロで出てきたマクロ名（clktest01）を選択して実行します。
Excel2007の場合：Officeボタンを押して開いたウインドウの下部にある「Excelのオプション」をクリックします。基本設定の中にある「『開発』タブを表示する」にチェックを入れたあとＯＫを押してメイン画面に戻ると、コマンドタブに「開発」というタブが出てきますから、そこから「コード」「マクロ」と選んでclktest01を実行します。

これでSheets("Sheet1")のA1に毎秒ごとに時刻が表示されます。

Sheet1をお使いのシートのシート名に、A1を表示させたいセルの位置にすればご所望の位置にデジタル時計が表示可能です。
上記マクロはExcel2003/2007で動作確認しました。他のバージョンでは動かない可能性もありますが、その際はご容赦を。

以上、ご参考まで。

お礼

ありがとうございます。そんなことが出来るのですね。凄いですが、申し訳ありません。イラストにコピーしますので、おそらく壁紙としてになります。ありがとうございました。

回答No.1

dezimac

無理。
壁紙は静止画（絵）ですよ。
絵に描いた餅は食べれないのと同じく、絵に描いた時計は動きません。

時計なんてタスクバーの端（標準状態なら右下）に表示されているけど。

デスクトップアクセサリーとしてカレンダーや時計を表示するソフトは多数あるから、それらを使っては。
壁紙と違って、今日の日付けを強調表示したり、アラームや予定表とか様々な機能もあります。
ウィンド表示では無く、既存の壁紙の上に透過して壁紙と一体化したように表示できるのもあります。

http://www.forest.impress.co.jp/lib/dktp/calclock/calender/
http://www.vector.co.jp/vpack/filearea/win/personal/calendar/
http://www.vector.co.jp/vpack/filearea/win/personal/tokei/

お礼

ありがとうございます。悟りました。