No.5ベストアンサー
- 回答日時:
>祝日は、違うシートに書き出して、条件に=COUNTIF(シート名!$B$2:$B$72,$A6)=1
>(B2:B72まで祝日等のデータあり)を入れています。
Dim c As Range
'前回の直線を削除
ActiveSheet.Lines.Delete
For Each c In Range("B6:B36")
If Weekday(c.Offset(, -1).Value) = 7 Or _
Weekday(c.Offset(, -1).Value) = 1 Or _
Application.CountIf(Worksheets("シート名").Range("B2:B72"), c.Offset(, -1)) = 1 Then
With ActiveSheet.Shapes.AddLine(c.Left, c.Top + c.Height / 2, c.Offset(, 13).Left, c.Top + c.Height / 2)
.Line.ForeColor.SchemeColor = 10
End With
End If
Next
No.4
- 回答日時:
>条件付き書式には、
>=WEEKDAY($A6)=7や=WEEKDAY($A6)=1 などが入っているのですが、
>(A6からA36までに2013/12/28などの情報があります)この式を直接入れてしまってよろしいのでしょうか?
Dim c As Range
'前回の直線を削除
ActiveSheet.Lines.Delete
For Each c In Range("B6:B36")
If Weekday(c.Offset(, -1).Value) = 7 Or Weekday(c.Offset(, -1).Value) = 1 Then
With ActiveSheet.Shapes.AddLine(c.Left, c.Top + c.Height / 2, c.Offset(, 13).Left, c.Top + c.Height / 2)
.Line.ForeColor.SchemeColor = 10
End With
End If
Next
If Weekday(c.Offset(, -1).Value) = 7 Or Weekday(c.Offset(, -1).Value) = 1 Then
これに祝日の判定を加える必要がありますが
祝日の判定は、どのようにされていますか
この回答への補足
お世話になります。
祝日は、違うシートに書き出して、条件に=COUNTIF(シート名!$B$2:$B$72,$A6)=1(B2:B72まで祝日等のデータあり)を入れています。
No.3
- 回答日時:
こんばんは!
横からお邪魔します。
オートシェイプを挿入するマクロはNo.1さんが的確なコードを載せていらっしゃいますので・・・
もしお使いのExcelが2010以降のバージョンであれば
「DisplayFormatオブジェクト」というものが追加されているようですので、
条件付き書式で色がついているセルを判別できます。
おそらく、月が変わるたびにマクロを実行する必要があると思いますので、
一旦オートシェイプを削除する必要あるのでは?
余計なお世話かもしれませんが・・・
Dim myShp As Object
For Each myShp In ActiveSheet.Shapes
myShp.Delete
Next myShp
を追加して、一旦表示されているオートシェイプを消してしまいます。
次に
>If c.DisplayFormat.Interior.ColorIndex <> xlNone Then
あとはNo.2さんのコードそのまま
で条件付き書式で色がついているセルにオートシェイプが表示されると思います。
※ Excel2007までの場合はすでに回答されているように
IF の条件に 条件付き書式の条件を細かく設定してやる必要があると思います。
どうも失礼しました。m(_ _)m
No.2
- 回答日時:
#1です。
>条件付き書式を使い、・・・・セルに色がつくように
If c.Interior.ColorIndex <> xlNone Then
↑これでは、条件付き書式で付けられた色は判別できないです。
ここに、条件付き書式の数式を記載してください。
この回答への補足
ご回答ありがとうございます。
条件付き書式には、
=WEEKDAY($A6)=7や=WEEKDAY($A6)=1 などが入っているのですが、(A6からA36までに2013/12/28などの情報があります)この式を直接入れてしまってよろしいのでしょうか?
No.1
- 回答日時:
こんばんは、参考に
Dim c As Range
'前回の直線を削除
ActiveSheet.Lines.Delete
For Each c In Range("B1:B31")
If c.Interior.ColorIndex <> xlNone Then
With ActiveSheet.Shapes.AddLine(c.Left, c.Top + c.Height / 2, c.Offset(, 13).Left, c.Top + c.Height / 2)
.Line.ForeColor.SchemeColor = 10
End With
End If
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) 条件付き書式 一致する曜日の列にある○のセルに色を付けたい 2 2022/04/19 05:40
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
- その他(Microsoft Office) エクセルで、土日や祝祭日に色をつけるには?Part2 5 2022/05/05 09:51
- Visual Basic(VBA) 祝日を除いた月曜から土曜までの1週間分の日付行を選択し、別シートへカットアンドペーストしたい 13 2023/07/13 22:46
- Excel(エクセル) ExcelにおけるVLOOKUPでの祝日表示について 5 2022/09/18 22:23
- その他(Microsoft Office) エクセルについて教えてください。 3 2023/05/19 18:19
- Excel(エクセル) エクセルで、土日や祝祭日に色をつけるには? 3 2022/05/05 08:11
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
「B列が日曜の場合」C列に/(斜線)が入るようにならないものでしょうか?
Excel(エクセル)
-
エクセルで自動に休日の列に網がけする方法を教えてください
Excel(エクセル)
-
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
-
4
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
5
Excel VBA 条件に一致した言葉の下セルに斜線をひきたい
Visual Basic(VBA)
-
6
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
7
Excel データ入力に応じて自動的に斜線を引きたいのですが
Excel(エクセル)
-
8
条件付き書式で曜日の「月」ならその左の罫線を太くしたい(下の行も摘要)
Excel(エクセル)
-
9
Excel(VBA)データ入力に応じて複数範囲のセルの上に1本の斜線を引きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA ユーザーフォーム ボタンク...
-
VBAで大量のファイルをシート名...
-
【マクロ】1つのマクロの中に...
-
Vba 実数および実数タイプの変...
-
ExcelのVBAコードについて教え...
-
VBAの計算で@が出てしまう件
-
エクセルのマクロについて教え...
-
郵便番号検索APIにてget Elemen...
-
エクセルVBAでデータ転記
-
エクセルについて
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAを使用した時間管理
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
Excelのマクロ(VBA)は、同じ...
-
【VBA】カーソルのある行の1行...
-
Excelのマクロについて教えてく...
-
エクセルVBAについて
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報