締切済み

自作手帳エクセルで日曜欄に一ヶ月のカレンダ貼り付け

2020/10/29 12:06

をA4用紙裏表を上下に切り、自作手帳A6サイズでエクセル２０１３で作っています。左から月火水次ページに木金で、土日は右端上下に作っています。日曜の下に一ヶ月カレンダ－を貼り付けたいのですが、作れるなら作成方法を教えて下さい。大きさは実寸で３センチ角くらいです。よろしくお願いいたします。

shoko1960
お礼率35% (698/1994)

Excel（エクセル）
回答数3
ありがとう数0

みんなの回答 （3）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17069)

2020/10/30 09:58 回答No.3

やりたいことが十分説明できてないように思う。（１）印刷したいのか（２）シート上に行くりたいのか。カレンダーは、単なる日付と曜日が判るものでよいのか。髪で作って張り付けるのか？シートのどこかへリンク貼り付けでもするのか？ーーそれならＶＢＡで標準モジュールに Sub カレンダー作成1() y = InputBox("年入力") m = InputBox("月入力") '--- Range("B2:G6").NumberFormatLocal = "##" Range("B2:G6").ClearContents j = 2 For i = 1 To Day(DateSerial(y, m + 1, 1) - 1) dt = DateSerial(2020, m, i) c = Weekday(dt, vbMonday) '月曜日から日曜日までを 1 ～ 7 として結果を返します。 ) '月曜日を１として返す 'vbMonday 月曜日から日曜日までを 1 ～ 7 として結果を返します。 If c = 1 Then '曜日が月曜日なら j = j + 1 '次行をポイント k = 1 '列は第I列をポイント Else k = c End If Cells(j, k) = i Next i End Sub をコピペして実行。ーーー２０２０年１１月の例月火水木金土日 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 １０数行でできる。＝＝＝＞A4用紙裏表を上下に切り、自作手帳A6サイズでＡ＄の下はＡ５ではない？＞左から月火水次ページに木金で、土日は右端上下に作っています。どんなイメージかよくわからない。＞大きさは実寸で３センチ角くらいです。シートの行高よ列幅を緒移設することになるが。主導かＶＢＡかで。Ｅｘｃｅｌでは正確にはやりづらい。ＷｏｒｄＶＢＡならほぼ思い通りになるが。ーー図として張り付ける場合はＳｈｅｅｔ１に出来たカレンダーをＳｈｅｅｔ２へ。 Sub CopyPicture1() Worksheets("Sheet1").Range("A1:G7").CopyPicture _ Appearance:=xlScreen, Format:=xlPicture 'Worksheets.Add Before:=ActiveSheet Worksheets("Sheet2").Activate ActiveSheet.Paste End Sub 図の全体サイズは、手動で８つの白丸のうちの辺の中点の白丸をつかんでマウスで位置を動かせば、調節できる。＝＝＝＝やりたいことが十分説明できてないように思う。（１）紙に印刷したいのか（２）シート上に作りたいのか。カレンダーは、単なる日付と曜日が判るものでよいのか。紙で作って、手で張り付けるのか？シートのどこかへリンク貼り付けでもするのか？図として張り付けるのか。ーー「単なる日付と曜日が判るものでよい」それならＶＢＡで標準モジュールに Sub カレンダー作成1() y = InputBox("年入力") m = InputBox("月入力") '--- Range("B2:G6").NumberFormatLocal = "##" Range("B2:G6").ClearContents j = 2 For i = 1 To Day(DateSerial(y, m + 1, 1) - 1) dt = DateSerial(2020, m, i) c = Weekday(dt, vbMonday) '月曜日から日曜日までを 1 ～ 7 として結果を返します。 ) '月曜日を１として返す 'vbMonday 月曜日から日曜日までを 1 ～ 7 として結果を返します。 If c = 1 Then '曜日が月曜日なら j = j + 1 '次行をポイント k = 1 '列は第I列をポイント Else k = c End If Cells(j, k) = i Next i End Sub をコピペして実行。ーーー２０２０年１１月の例月火水木金土日 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 １０数行でできる。＝＝＝＞A4用紙裏表を上下に切り、自作手帳A6サイズでＡ４の下はＡ５ではない？＞左から月火水次ページに木金で、土日は右端上下に作っています。どんなイメージかよくわからない。＞大きさは実寸で３センチ角くらいです。シートの行高と列幅を調節することになるが。手動かＶＢＡかで。Ｅｘｃｅｌではサイズ合わせは正確にはやりづらい。ＷｏｒｄＶＢＡならほぼ思い通りになるが。ーー図として張り付ける場合はＳｈｅｅｔ１に出来たカレンダーをＳｈｅｅｔ２へ。 Sub CopyPicture1() Worksheets("Sheet1").Range("A1:G7").CopyPicture _ Appearance:=xlScreen, Format:=xlPicture 'Worksheets.Add Before:=ActiveSheet Worksheets("Sheet2").Activate ActiveSheet.Paste End Sub 図の全体サイズは、手動で８つの白丸のうちの辺の中点の白丸をつかんでマウスで位置を動かせば、調節できる。位置もマウスで動かせる。