Excelにてフォームでカレンダーを作成して入力したい。 下記、ページの内容を参考にしてフォームでカレンダーを作成しました。

Excel | Visual Basic44閲覧xmlns="http://www.w3.org/2000/svg">50

その他の回答(2件)

1

2カ所書き換えればいいと思う、 標準モジュール Public Sub カレンダーから入力_Click() Call CalendarForm.Show End Sub ↓ Public Sub カレンダーから入力_Click() Call CalendarForm.Show(vbModeless) End Sub それとCalendarFormモジュールの Public Sub CopyToActiveCell(ByVal xDate As String) If xDate = "" Then Exit Sub ActiveCell.value = Format(CurrentDate, "yyyy/mm/") & xDate ' Call CalendarForm.Hide End Sub 4行目の Call CalendarForm.Hideをコメントに変更(「'」をくっ付ける) 以上2カ所を変更すれば大丈夫 必要なら Private Sub CMD今日_Click() ActiveCell.value = Date ' Call CalendarForm.Hide End Sub のCall CalendarForm.Hideもコメントに、

1人がナイス!しています

0

good timing!昨日追記が有ります 連続して日付を入力したい場合 2021/07/20追記 CalendarForm.Hideを削除しただけです