コードをどこからでも取得できるようにしています。私はVBAでの経験がないので、私が持っているコードはさまざまなソースからのパッチです。VBAユーザーフォームのDatePickerコントロールから週番号、月番号、年を特定します
は、私は私のユーザーフォームで日付ピッカーコントロールを持っていると私は日付ピッカーコントロールボックスから選択された日付に基づいて対応する週数、月数と年を取得し、各
ために、対応するテキストボックスを移入したいのですがdatepicker and textbox dependencies。
週番号を取得するには、以下を使用してください。 3番目と4番目の引数は、1年目/ 1週目を指示することができます。
TextBoxWeek.Value = DatePart("ww", TextBoxDatePicker.Value, vbMonday, vbFirstJan1)
月：
TextBoxMonth.Value = format(TextBoxDatePicker.value,"mm")
年：（。あなたも速記日付などを取得するには、 "YY" を使用することができます '17' ではなく '2017' より）
TextBoxYear.Value = format(TextBoxDatePicker.value, "yyyy")
ありがとうございますjmdon ...これは私のコードの次の部分の下に追加する必要がありますか？ Private Sub DTPicker3_CallbackKeyDown（ByVal KeyCode As Integer、ByVal By As Integer、ByVal CallbackField As String、日付のCallbackDate） End Sub – agatha
日付ピッカーはコンボボックスですか、ユーザーフォーム内の日付ピッカーの変更イベントに移動する必要がありますモジュール、例：Private Sub ComboBox1_Change（）End Sub – jmdon
ありがとうございましたjmdom！それは動作します:)あなたの助けをありがとう – agatha
はあなたでしたあなたの試みを見せてください。いくつかのコード？ – Wernerson
ありがとうございましたWerenerson ...これまでのところ私の試みを削除しました...しかし、私は私がavailaにオンラインで見つけた次のコードを変更しようとしていました...それは間違っていたと思います...テキストボックス（） シート エンド整数 WEEKNUM = CInt関数（形式（D、 "WW"、2）） エンド関数としてサブ 機能WEEKNUM（日付などD）で（ "シート1"） .TextBox2 = WEEKNUM（.TextBox1） エンド – agatha