よねさんのWordとExcelの小部屋　なんでも掲示板 [One Message View / Re[1]: カレンダー]

よねさんのWordとExcelの小部屋　なんでも掲示板

■13291 / 1階層)

　カレンダー

□投稿者/ よねさん -(2018/08/04(Sat) 10:14:44)

http://www.eurus.dti.ne.jp/~yoneyama/Excel/jituyou/gekkan-n.htm
のようなカレンダーでしたら、B4セル以降には日付データが入っていますので、
何曜日かを調べて、休日に該当する曜日なら C列にでも休日を入力すればよいと思います。
月曜が休日、火曜が出勤の場合
Sub test()
Dim i As Long
Range(Cells(4, 3), Cells(35, 3)).Value = ""
For i = 4 To 35
  If Cells(i, 2).Value = "" Then Exit For
 If Weekday(Cells(i, 2).Value) = 2 Then Cells(i, 3).Value = "休日"
 If Weekday(Cells(i, 2).Value) = 3 Then Cells(i, 3).Value = "出勤"

Next i
End Sub

記事引用 削除キー/

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←NO TITLE /まり Mail	→Re[2]: カレンダー /まり Mail
NO TITLE / まり Mail (18/08/03(Fri) 21:02) #13290
`└` カレンダー / よねさん (18/08/04(Sat) 10:14) #13291 ←Now
`└` Re[2]: カレンダー / まり Mail (18/08/04(Sat) 13:15) #13292
`└` Re[3]: カレンダー / よねさん (18/08/04(Sat) 16:15) #13293
`└` Re[4]: カレンダー / まり Mail (18/08/04(Sat) 20:44) #13294
`└` Re[5]: カレンダー / よねさん (18/08/05(Sun) 08:01) #13295
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用可能です。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
メールアドレスには自動でNo-の文字が挿入されます。メール収集対策。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No13291に返信(よねさんさんの記事) > http://www.eurus.dti.ne.jp/~yoneyama/Excel/jituyou/gekkan-n.htm > のようなカレンダーでしたら、B4セル以降には日付データが入っていますので、 > 何曜日かを調べて、休日に該当する曜日なら C列にでも休日を入力すればよいと思います。 > 月曜が休日、火曜が出勤の場合 > Sub test() > Dim i As Long > Range(Cells(4, 3), Cells(35, 3)).Value = "" > For i = 4 To 35 > If Cells(i, 2).Value = "" Then Exit For > If Weekday(Cells(i, 2).Value) = 2 Then Cells(i, 3).Value = "休日" > If Weekday(Cells(i, 2).Value) = 3 Then Cells(i, 3).Value = "出勤" > > Next i > End Sub >
削除キー	/ (半角8文字以内)
ガード用キー(必須)	/ 1357と半角で入力
プレビュー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -