[[20100421172716]]　『月によって２８日２９日３０日３１日を変更させた』（鎌じい）　ページの最後に飛ぶ

『月によって２８日２９日３０日３１日を変更させたい』（鎌じい）

月によって変わる月末の日付を月を変更させるだけで変わるようにしたいのですが
どうしたらよいですか？？
良かったら教えてください、よろしくお願いします。

 C 列           D列
1	=MOD(DATE(A$1,B$1,C1)-1,7)+1
2	=MOD(D1,7)+1
3	=MOD(D2,7)+1
4	=MOD(D3,7)+1
5	=MOD(D4,7)+1
6	=MOD(D5,7)+1
7	=MOD(D6,7)+1
8	=MOD(D7,7)+1
9	=MOD(D8,7)+1
10	=MOD(D9,7)+1
11	=MOD(D10,7)+1
12	=MOD(D11,7)+1
13	=MOD(D12,7)+1
14	=MOD(D13,7)+1
15	=MOD(D14,7)+1
16	=MOD(D15,7)+1
17	=MOD(D16,7)+1
18	=MOD(D17,7)+1
19	=MOD(D18,7)+1
20	=MOD(D19,7)+1
21	=MOD(D20,7)+1
22	=MOD(D21,7)+1
23	=MOD(D22,7)+1
24	=MOD(D23,7)+1
25	=MOD(D24,7)+1
26	=MOD(D25,7)+1
27	=MOD(D26,7)+1
28	=MOD(D27,7)+1
 C 列          　　　　　　　　　　　　　　　　　　　　 D列
=IF(DAY(DATE(A$1,B$1,C$28+ROW(A1)))<5,"",C$28+ROW(A1))	=IF(C29="","",MOD(D28,7)+1)
=IF(DAY(DATE(A$1,B$1,C$28+ROW(A2)))<5,"",C$28+ROW(A2))	=IF(C30="","",MOD(D29,7)+1)
=IF(DAY(DATE(A$1,B$1,C$28+ROW(A3)))<5,"",C$28+ROW(A3))	=IF(C31="","",MOD(D30,7)+1)

 でどない
   (HANAI)

 D列書式設定ユーザ定義　aaa で
  行  __A__  _B_  _C_  _D_
   1  2010     4    1  木 
   2                2  金

 A1:「月」をシリアル値(４月なら"4/1")で入力　(２月が閏年で変わるため)　　書式「yyyy"年"m"月"」
 A2:=DATE(YEAR(A1),MONTH(A1)+1,0)     書式「m"月"d"日"」

 現在どの様なカレンダーを作っているのか
 詳しく書いておかれるのが良いと思います。

 1日の日付のセルには何が入っているのでしょう？
 1日の日付を入れますか？
 数式を入れますか？
 数式の場合、どの様な数式ですか？

 また、そのセルは何処ですか？

 そこから、どのセルにどの様に日付が続くカレンダーですか？

 例えば、A1セルを先頭に、行方向にA31まで続く
         A1セルを先頭に、１行おきにA61まで続く
         A1セルを先頭に、列方向にAE1まで続く
         A1セルを先頭に、１列おきに。。。

 具体的に書いておかれると、より状態に有ったコメントが
 得られると思います。

 (HANA)

  行  __A__  _B_  _C_  _D_   E     F     G   ・・・・・・  
   1  2010     4    
   2                 
   3    1     2    3    4    5     6     7 　　・・・・・31
   4   木　　金　　土 　日　 月　　火　　水 　　　　　 　土
   5

上記の図の日にちの所に関数を入れて月末の日にちを月の数字を変えるだけで月末の日にちが変わるようにしたいのですが・・・

たとえば
　　A3を先頭に列方向にAE3まで続く。(日にち）

　　４月なら30までの表示、AE3は空白にしたい。

　　B4を５に変えると自動的にAE3が31日表示になり

　　B4を６に変えると自動的にAE3が空白になるようにしたい。

A1は年　　　B4は月

という具合にしたいのですがどうしたらよいですか？？

 ご提示のレイアウトなら、AB3 が 28 ですから、そこまでは
 普通に数字(1～28)を入れといて、
 AC3 に、=IF(AB3="","",IF(DAY(DATE($A$1,$B$1,AB3+1))=1,"",AB3+1))  と入力して
 AE3 までコピー。
 A4 に、=IF(A3="","",TEXT(DATE($A$1,$B$1,A3),"aaa"))　と入力して
 AE4 までコピー。

 こんなのでどうでしょう？
　
（純丸）(o^-')b

IF(DAY(DATE($A$1,$B$1,$AB3+column(A1)))<5,"",$AB3+column(A1)))

　A1:=IF(COLUMN(A1)>DAY(DATE($A$1,$B$1+1,0)),"",COLUMN(A1))
　右へコピー

 名前書かない人が多すぎてどれがだれの書き込みだか・・・？
 ちゃんと名前は書きましょう！
 しかも最近HANAさんによく似た名前がちらほらいるような・・・
 HANAさんではないですよね？？？
 （てつろう）

コメント返信：

[ 一覧(最新更新順) ]

[[20100421172716]] 『月によって２８日２９日３０日３１日を変更させた』（鎌じい） ページの最後に飛ぶ

[[20100421172716]]　『月によって２８日２９日３０日３１日を変更させた』（鎌じい）　ページの最後に飛ぶ