エクセルの学校：全文検索：Hyper Estraier：平均平日

Results of 1 - 1 of about 28 for 平均平日 (0.001 sec.)

平均 (1364), 平日 (459)

[[20150305202930]]: #score: 10346; @digest: 5320c0448c63ac06f186df8634a11c70; @id: 67421; @mdate: 2015-03-07T09:06:18Z; @size: 4607; @type: text/plain; #keywords: 刷月 (30483), 置b5 (22862), 置ab (21640), マロ (14193), pd (13029), 随意 (9854), 刷削 (7107), vbsunday (6789), 成間 (5894), 日分 (4144), ル位 (3976), printpreview (2968), ロン (2685), clearcontents (2387), 削減 (2199), 2015 (2042), 印刷 (2029), 除外 (1914), 日曜 (1903), printout (1692), 月分 (1488), カ月 (1306), 枚目 (1303), 工程 (1221), ヶ月 (966), 度教 (965), weekday (945), 位置 (922), を印 (844), range (731), マナ (714), 曜日 (655); 『1シートに2日分の日付入力した表の、1カ月分印刷』（マロン）
1つのシートのA1に一日目の日付を入力し B2に次の日の日付を入力したいと思います。それを参照して1シートに2日分の表を作成したいと考えています。そして表の1ヶ月分を印刷したいのです。ただし日曜日は除外し、詰めて印刷ができないものでしょうか。よろしくおねがいします。＜使用 Excel:Excel2007、使用 OS:Windows8 ＞ ---- 「B2に」は、きっと「B1に」の間違いだろうなぁというほかは全くイメージがわきません。 2つの日付から、「どんな表をどこに」作成するんですか? 「2日分の表」というのもイメージがわかないんですが「その（2日分の）表」の中の「1か月分」というのはどんな部分なんだろう?? きちんと、シート上のレイアウトを具体的に説明したほうがいいのでは? （β） 2015/03/05(木) 20:48 ---- 説明が下手で申し訳ありません。作成したいものは、小さな表というか毎日の工程のチェックシートのようなものですのです。ですので、1ページにに2日分並べて作ることができました。その表に例えば期間の設定を2015/4/1から1ヶ月だとして、それぞれの表のセル位置B5に20154/1をセル位置AB5に2015/4/2を入力したいのです。印刷時の2枚目にはセル位置B5に2015/4/3をセル位置AB5には2015/4/4を印刷したいのです。 3枚目は日曜があるのでセル位置B5には2015/4/6をセル位置AB5には2015/4/7を印刷したいのです。この工程で1ヶ月分の表を印刷したいのです。しかも日曜日は印刷削減のため除外をしたいのです。本当にわかりづらくて申し訳ありません。（マロン） 2015/03/05(木) 21:38 ---- あまり仕様を理解していませんが、詳細は調整してもらうとして、こんなことでしょうか。 Sub Sample() Dim sd, pd sd = CDate(Format(Date, "YYYY/MM/1")) '// 印刷月の指定は随意に pd = sd Do While Month(sd) = Month(pd) If Weekday(pd) <> vbSunday Then If Range("A1").Value = "" Then Range("A1").Value = pd Else Range("B2").Value = pd ActiveSheet.PrintPreview '// 印刷は PrintOut Range("A1").ClearContents Range("B2").ClearContents End If End If pd = pd + 1 Loop If Range("A1").Value <> "" Then ActiveSheet.PrintPreview '// 印刷は PrintOut Range("A1").ClearContents Range("B2").ClearContents End If End Sub （Mook） 2015/03/05(木) 21:47 ---- Mookさん素早いコードのご教授ありがとうございます。初歩的なことですが、お教え下さい。印刷月の指定をする場合の方法でセルBA2に印刷月を入力する場合コードのどこに入れればよいのでしょうか。お教え下さい。（マロン） 2015/03/05(木) 22:23 ---- sd = [BA2] などで。（Mook） 2015/03/06(金) 00:36 ---- Mookさま、教えていただきまして本当にありがとうございます。実は作成し完成間近で、表の大きさの変更がありました。 1ページに2日分の表を作成していたものが、 1ページに6日分の表の作成になってしまいました。教えていただいたプログラムですが、改変がすごく難しいです。ご迷惑だと思いますが可能でありましたらもう一度教えていただけないでしょうか。もちろん日曜日は除外していきたいと思います。厚かましいお願いですがよろしくお願いします。（マロン） 2015/03/06(金) 19:54 ---- 日付に対応するセルはN1からN10までの6個ですここに入力されることにより6個の表の日付がそれぞれ入力されます。よろしくお願いします。（マロン） 2015/03/06(金) 20:22 ---- 条件付き書式で、n1からn6に値が入力されていない場合は該当する表の範囲のセルの色（罫線とか文字）が白になるようにしておいてください。 Sub Sample() Dim sd, pd sd = CDate(Format(Date, "YYYY/MM/1")) '// 印刷月の指定は随意に ed = DateAdd("m", 1, sd) - 1 pd = sd Do If Weekday(pd) <> vbSunday Then n = n + 1 Select Case n Case 1: Range("n1").Value = pd Case 2: Range("n2").Value = pd Case 3: Range("n3").Value = pd Case 4: Range("n4").Value = pd Case 5: Range("n5").Value = pd Case 6: Range("n6").Value = pd End Select End If If n = 6 Or pd = ed Then n = 0 ActiveSheet.PrintPreview '// 印刷は PrintOut Range("n1").ClearContents Range("n2").ClearContents Range("n3").ClearContents Range("n4").ClearContents Range("n5").ClearContents Range("n6").ClearContents End If pd = pd + 1 Loop Until pd > ed End Sub （マナ） 2015/03/07(土) 00:35 ---- マナさん、ありがとうございます。さっそく試してみました。少しの仕様の違いで本当にわからなくなり困っていました。 Mookさん、マナさん、本当にありがとうございました。（マロン） 2015/03/07(土) 18:06 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150305202930.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ