Qiitan のぬいが欲しい

Qiita Engineer Festa 2024 の完走を目指していますが、ネタが尽きてきたので、とりあえずExcelでデスクトップアプリを開発します。

今日はちょっともう疲れたので、完成はできませんが、とりあえずの下準備だけやってみました。

最終目標
ブック起動時に現在時刻がリアルタイムで表示されるユーザーフォームが表示される

現時点では、ユーザーフォーム立ち上げ時の時刻が表示される状態です。

ユーザーフォームのプロパティ Picture から、任意の画像（.jpg）を選択して背景にはめ込みます。

とりあえず書いたコード（要修正）

Private Sub Label1_Click() 'Closeのラベルをクリックしてアプリケーション終了

  Application.DisplayAlerts = False '警告メッセージ無効化
  UserForm1.Hide  'ユーザーフォーム閉じる
  ThisWorkbook.Save 'ブックを上書き保存
  Application.DisplayAlerts = True '警告メッセージ有効化
  Application.Quit 'これがないとガワが残る
  
End Sub

Private Sub UserForm_Initialize()
    'ユーザーフォーム立ち上げ時にラベル（L_Time）に時間を表示させる
  Dim T As Date
  T = Time

  L_Time.Caption = Format(T, "hh:mm")
  
End Sub

明日以降はこの記事を参考にして、リアルタイムで表示させるようにします。