ここから本文です

おはようございます。 下記のように、ラベル1に年月日、ラベル2に現在時間 を...

tur********さん

2017/5/109:41:39

おはようございます。
下記のように、ラベル1に年月日、ラベル2に現在時間
を表示させるマクロを作りました。

このマクロを起動させた状態でデスクトップのあるエクセルをダブルクリックで開いて操作したいのですがどうやったらいいのかがわかりません。
どなたかお教え下さい。
表示までは完成しています。宜しくお願いします。

Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub


' <-西暦表示

Private Sub UserForm_Initialize()
Me.Label1.Caption = Format(Now, "yyyy/m/d ")
End Sub


'-----------------------------------------------
Private Sub UserForm_Activate()

'今の時間
Dim CurrentTime As String
While UserForms.Count > 0
CurrentTime = Format$(Time(), "h:nn:ss")
If CurrentTime <> Label2.Caption Then
Label2.Caption = CurrentTime
End If
DoEvents
Wend

End Sub

閲覧数:
49
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

amj********さん

2017/5/111:18:32

色々調べてみましたが、エクセルを起動させて「ファイル→開く」は出来ても
ファイルを直接ダブルクリックで開く事は出来ないようです。

とりあえずカテゴリが違うので回答はつかないと思います。
カテゴリを
スマートデバイス、PC、家電>Office系ソフトウェア>Excel
コンピュータテクノロジー>プログラミング>Visual Basic
に変更した方がいいと思います。

質問した人からのコメント

2017/5/2 08:38:45

お早うございます。
早速のご回答ありがとうございます。

カテゴリー違いだったのですね、、、
そちらのカテゴリーで質問してみます。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる