1

私は vba の経験がありません。ポップアップ カレンダー ユーザー フォームの実装についてご支援いただければ幸いです。このリンクは、ワークブックに導入しようとしているカレンダーのソースに移動します。

http://www.ozgrid.com/forum/showthread.php?t=142603

クラス モジュール、ユーザー フォーム、およびモジュールをワークブックにコピーしました。マクロを起動すると、カレンダーで希望の日付を選択できるユーザー フォームが開きます。私が見逃しているのは、カレンダーで選択した日付をワークブックの特定のセルに送信できることです。ユーザーフォームで選択した日付をワークブックの特定のセルに送信する数行のコードを書く方法を誰かが教えてくれれば幸いです! 繰り返しますが、私はこれに非常に慣れていないので、説明で不明な点があればお知らせください。私はこれに多くの時間を費やしてきたので、どんなサポートも大歓迎です! おそらくあなたにとってはほんの数分しかかかりませんが、私にとっては大きな意味があります!

4

2 に答える 2

1

この投稿を試してください。で作業するためのより良いガイドを提供するようdatepicker controlです。ただし、アドインを作成するためのコーディングを示しています。

したがって、最も基本的なアプローチは、

  • フォームを追加
  • 日付ピッカー コントロールを追加する
  • そこからコード

この記事ごとに。

ただし、Excel/Access のカレンダー コントロールは、私の投稿に記載されている理由により、時々消えることがあることを覚えておいてください。

コントロールを使用する予定がある場合date pickerは、フォームから必要な場所に値を渡すコードを次に示します;)

Private Sub myDtPicker_Change()
Dim dtDateSelected as Date
   dtDateSelected = myDtPicker.Value
   '-- do anything else
End Sub
于 2012-12-18T14:41:06.067 に答える
0

クラスは、選択した日付をテキストボックスに書き込みます。日付を選択したら、テキストボックスの値を使用してセルの値を設定できます。

Private Sub UserForm_Initialize()
    Set clsCal = New clsCalendar           'Initialize the Class'
    Set clsCal.Form(Me.TextBoxDate) = Me   'Tells the class to write the Selected date'
                                           '  into the textbox "Me.TextBoxDate"'
End Sub

したがって、この例では、日付を選択するたびに、クラスは選択された日付をテキストボックスに自動的に保存します。

日付を選択したら、次のコードを使用して値をセルに追加できます。

 Range("A1").value=TextBoxDate.Value
于 2012-12-18T15:11:30.057 に答える