|
いつもここでお世話になっております。
今、業務日誌の日報を作成しています。基準のブックを作成して、毎月ごとに変更しながら使っていこうと思っています。
ブックの構成は、「基準カレンダー」のシートにカレンダーの枠だけ作成しており、コマンドボタンを31個作成して(31日分)コマンドボタンをクリックするとその日の業務日誌のシートが表示されるようにしたいと思っています。同じブックの中には31個の業務日誌のシートを用意しています。Sheet1〜Sheet1(31)までです。コマンドボタンのマクロは、例えば"1日"のボタンをクリックすると以下のコードを割り当てています。
Sub 1日_Click()
Worksheets("Sheet1").Show
End Sub
このコードで表示しようと思って実行しますがエラーになります。今までここで教えていただいて、ユーザーフォームの呼び出しのようなコードでいいのかなと思ってましたが、シートの呼び出しとなるとコードが異なるのでしょうか?
本当は、毎月設定しなくても、カレンダーの年号や月を選択して、その月のカレンダーを表示させ、そのカレンダーのそれぞれの日付のセルをクリックすると、その日の業務日誌のシートが表示され、必要な値を入力していけたら一番よいのですが、私の知識では難しくて実行できません。
取り敢えず、ブックの中のカレンダーにボタンを31日分作成して、ボタンクリックでその日のシートを表示させようとしています。なので、5月分の業務日誌のブックは、基準となるブックをコピーして、5月のカレンダーのように、カレンダーの枠内に31日分のボタンを配置しようとまでしか考え切れません。6月分はまた、基準のブックをコピーして、6月のカレンダーのようにボタンを配置換えしないといけなくて、毎月毎月設定しなくてはなりません。
今は、効率の悪いものしか考え切れていません。ご指摘、ご指導お願いします。
|
|