質問: 以前カレンダーの質問をして、 こちらです https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12232009187
回答: 自分の予定なのに何を表示しているかわからない?? と突っ込みたくなりますが。 これを汎用化してporcに引き渡す意味がないと思いますので、各ボタンに入れればいいと思います。 Sub p_1() Range("G1") = "プライベート" Call proc(2) End Sub このように全部のボタンに追加記載して下さい。 またもう一つ質問を投稿なさっていますが、これは緊急を要する業務ではなく、個人的なカレンダー作成ですよね? 毎回、全部を回答するのではなく、ご自分でメンテナンス出来るようにヒントだけでよければ回答しますが。