EXCEL VBAで日報作成したい

質問

お世話になります。

EXCEL VBAの勉強をかねて日報を作成しようと思っています。
添付図にあるような簡単な日報ですが、VBAでやりたいことは2つあります。

１．行追加
各行の隣にある「行追加」ボタンを押したらその行を下に追加したいのです。

２．カレンダー作成
「カレンダー作成」というボタンを押したらA5に入っている月を参照して、添付図のようなA列が月、B列が日、C列が曜日、D列が開始時間、E列が終了時間、F列が作業、G列に行追加ボタンが自動で該当月のカレンダーに自動作成できれば最高です。

上記１．２を実現するためのロジックについてどなたかお知恵をお借りできませんでしょうか？
よろしくお願い致します。
EXCEL2013

回答No.3

mt2008 · ベストアンサー

変数の宣言もエラー処理もない手抜き版ですが、こんな感じでカレンダー作成できます。

Sub MakeCalendar()
　　'現在の情報をクリア
　　nLastRow = Range("C5").End(xlDown).Row
　　Range("B5:F" & nLastRow).ClearContents

　　'一ヶ月分ループを回して日と曜日をセルに入れる
　　dStart = DateSerial(Year(Now()), Range("A5"), 1)　'対象月の1日
　　For i = 1 To Day(DateSerial(Year(Now()), Range("A5") + 1, 1) - 1)
　　　　Cells(i + 4, 2) = i
　　　　Cells(i + 4, 3) = Format(dStart + i - 1, "aaa")
　　Next i
End Sub

お礼

FEX2053 さん、ご連絡ありがとうございます！
何度もありがとうございます！！

ご教授いただきましたロジックで行追加、カレンダー作成両方とも私がやりたかった通り完璧に動作しました！！

すごいです。感動しました。^^
この度は本当に本当にありがとうございました！！

回答No.2

mt2008

ボタンは１つ１つがフォームコントロールやActiveXコントロールになるので、「行追加」のボタンがどんどん増えていくのはお勧めしません。
ボタンは１つにして、選択セルの下に1行追加されるようにした方が良いと思います。

Sub 行追加()
　　nRow = ActiveCell.Row
　　If nRow < 5 Then Exit Sub '選択セルが4行目より上なら終了
　　Rows(nRow + 1).EntireRow.Insert
　　Range(Cells(nRow + 1, 3), Cells(nRow + 1, 6)).Value = Range(Cells(nRow, 3), Cells(nRow, 6)).Value
End Sub

「カレンダー作成」ボタンを押下した時の挙動についてはもう少し明確にしましょう。
・年は今現在の年を使用で良いの？
・開始終了時刻は10:00、11:00固定？
・F列のデータはクリア？

補足

FEX2053 さん、何度も申し訳ございません。
そしてご連絡ありがとうございます！

詳細なロジックのご説明ありがとうございます！！

カレンダー作成は
・年は今現在の年でOKです
・開始終了時刻はクリアしたいです
・F列のデータもクリアしたいです

説明がたりず大変申し訳ございませんでした。

何度も本当に申し訳ございませんが、何卒よろしくお願い致します。

回答No.1

FEX2053

一言だけ。

ボタンは作るのがめんどくさいので、「カーソルのある行の下に
行追加」と方針を変えて、「カレンダー作成」ボタンと「行追加」
ボタンを並べる方が簡単ですよ。

それでオッケーなら、行を挿入するのは

Selection.EntireRow.Insert

の1行で済んでしまいます。まあ、これだけじゃ色々な設定が
コピーできてないですけどね。発想はそういうだけで済みます。

補足

FEX2053 さん早速のご連絡ありがとうございます！

ご指摘いただきましたカレンダー作成」ボタンと「行追加」ボタンを並べる仕様でぜんぜん問題ありません。

で、このときのカレンダーと行追加のロジックのすいません、イメージが出来ないのです・・
お手数ですが教えていただけませんでしょうか？
よろしくお願い致します。