dポイントプレゼントキャンペーン実施中!

Excelにて、マクロで指定した日の午後にファイルを開いたらsheet1に UserForm1を
表示さたい

詳細
sheet2のA列に月、B列に日を入力する
入力した月日の午後(12:00~23:59)に、ファイルを開いたらsheet1に UserForm1を
表示させたいのですが、どなたかご教授願います。 UserForm1は作成済み

sheet2
  A B
1 1 4
2 2 3
3 3 1


画像確認願います

「Excelにて、指定した日の午後にファイ」の質問画像

質問者からの補足コメント

  • ありがとうございます。
    ユーザーフォームにコマンドボタン作り指定日にデーターをリセットしたいと思っています

    No.1の回答に寄せられた補足コメントです。 補足日時:2022/05/31 21:17

A 回答 (2件)

こんばんは



>表示させたいのですが、どなたかご教授願います
ってのは、作れっていう意味でしょうか?

ThisWorkbookモジュールに以下をコピペではいかが?

Private Sub Workbook_Open()
Dim d, rw

d = Now
With Worksheets("Sheet2")
For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Month(d) = .Cells(rw, 1).Value And Day(d) = .Cells(rw, 2).Value Then
If Hour(Time) > 11 Then
Worksheets("Sheet1").Activate
UserForm1.Show
Exit Sub
End If
End If
Next rw
End With
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました
>ってのは、作れっていう意味でしょうか?
言葉足らずで、すみません

つかわせていただきます

感謝いたします

お礼日時:2022/05/31 23:04

「Sheet1に、UserForm1を表示させる」って、どういう意味ですか?


ユーザフォームって、シートに表示するものでは無いと思うのですが・・・。
この回答への補足あり
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!