エクセルの計算式について

質問

エクセルで勤務表を作っているのですが、曜日の所で困っています。
以下の条件ですので、よろしければ計算式を教えてください

(1)-(1)A3からA33？に日付を入力する欄として、例とすると「9月26日始まり、10月25日締め」などの条件になるようにする。日付を入力する欄には、月・曜日は表示されないように書式を設定する。
(1)-(2)日付欄には26から31、1から25を入力する(31日まで必ず入力する。31日の下からは1日になるようにする。)
(2)A1に年度を入力し(2007などと入力)、A2に月を入力する(例として10月なら10と)。
(3)各月ごとの「土日」には条件書式として「灰色」に塗りつぶされるように設定する。
(4)各年度、各月が変わると自動でその月の「土日」が灰色に塗りつぶされるようにする。

わかりにくいと思いますがよろしくお願いします。

回答No.3

choro_jan · ベストアンサー

セルA1にスタートの日付を入力します
10/1と入力すると表示は10月1日です
セルA2には=A1と入力
セルA3にも=A1と入力
するとセルA1からA3すべてに10月1日と表示しますよね
セルA2を選択して書式からセルをクリックして表示形式を選んでユーザー定義を選択。
右の上の小さいテキストボックスにG/標準と出ていますので、消してｍとだけ入力してＯＫをクリック。
セルA2の表示が10になったと思います。
セルA3を選択して同様にG/標準をdにしてＯＫを。
ここでいうｍは月を、dは日にちを表わします。
曜日はaaaaと入力すると"月曜日"と表示し、aaaと入力すると"月"と表示してくれます。
セルA4に=A3+1と入力してフィルハンドルをつまんで下にドラッグしてコピーします。
セルB3に=A3と入力して表示を曜日にして下にコピーします。
土日の塗りつぶしですが、B3に
条件付書式で、数式を選らんで=or(weekday(A3)=7,weekday(A3)=1)
と条件を入力して書式を設定します。

回答No.2

noname#192382

a1に2007、a2に10
b3からb33に0,1,2,,,,30を入れる。
a3に=day($b$2+b3)といれてこれをコピーしてa4からa33までコピーする。

マクロでつぎのようなマクロを作る。
土日がピンクになる。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/10/1 ユーザー名 : '
Dim igyo As Integer

For igyo = 3 To 33

If Cells(igyo, 3) = 7 Then
Cells(igyo, 1).Interior.ColorIndex = 7
ElseIf Cells(igyo, 3) = 1 Then
Cells(igyo, 1).Interior.ColorIndex = 7
Else
End If
Next igyo

'
End Sub

回答No.1

papayuka

セルの書式設定でいかようにも表示出来ますので、2007/9/1 のように入力して「日付」や「月」や「年」を表示だけで見せるのが普通です。
そうすれば、=A3+1 のように関数で次の日付を持ってこれますので。

http://okwave.jp/qa3383249.html

---

質問の条件が良く理解出来ませんでした。
セルには日付では無く数字が入っているものとして

1）A1 にただの数字で 2007
2）A2 にただの数字で 9
3）A3～A33 にただの数字で 26～31,1～25 が入っているとして
4）A3～A8 を選択し、A3がアクティブな状態で条件付き書式に下記を入れ好きな書式を設定

　　　数式が　　=WEEKDAY(DATE($A$1,$A$2,A3),2)>5

5）A9～A33 を選択し、A9がアクティブな状態で条件付き書式に下記を入れ好きな書式を設定

　　　数式が　　=WEEKDAY(DATE($A$1,$A$2+1,A9),2)>5