ここから本文です

Excel2016で、ユーザーフォームでカレンダーを作成しました Excel上にある日付デ...

アバター

ID非公開さん

2020/1/2017:30:50

Excel2016で、ユーザーフォームでカレンダーを作成しました
Excel上にある日付データを、カレンダーのコマンドボタンに日付情報を持て来たいのですが

日付情報は来ますが、コマンドボタンに日付が表示されません
わかる方ご教示願います

Private Sub CommandButton43_Click()
If UserForm2.ComboBox1.Value = "" Or UserForm2.ComboBox2.Value = "" Then
MsgBox "日付が選択されていません"
Else
Range("BG2").Value = UserForm2.ComboBox1.Value
Range("BG3").Value = UserForm2.ComboBox2.Value
For d = 1 To 42
Cells(d, 64).Value = Day(Cells(d, 63).Value)
Next d
For i = 1 To 42
With UserForm2.Controls("CommandButton" & i).Caption = Cells(i, 64)
End With
Next i
End If
End Sub

閲覧数:
9
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2020/1/2017:51:19

With UserForm2.Controls("CommandButton" & i).Caption = Cells(i, 64)
End With



UserForm2.Controls("CommandButton" & i).Caption = Cells(i, 64)

じゃないですか?

  • tra********さん

    2020/1/2017:53:48

    このように書き換えできますよね?

    For d = 1 To 42
    Cells(d, 64).Value = Day(Cells(d, 63).Value)
    Next d
    For i = 1 To 42
    With UserForm2.Controls("CommandButton" & i).Caption = Cells(i, 64)
    End With
    Next i
    End If



    For d = 1 To 42
    Cells(d, 64).Value = Day(Cells(d, 63).Value)
    UserForm2.Controls("CommandButton" & d).Caption = Cells(d, 64)
    Next d
    End If

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

アバター

質問した人からのコメント

2020/1/22 08:25:41

回答ありがとうございます!
大変参考になりました

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる