No.4ベストアンサー
- 回答日時:
こんにちは、
>カレンダー内に関数と条件付き書式での対応は 避けたいと考えております
であるなら、VBAになるかと思います。
やり方は色々ありますので、一例です。
標準モジュールに
Sub sample()
Dim i As Long, col As Long
With ActiveSheet
For i = 12 To .Cells(6, Columns.count).End(xlToLeft).Column
col = .Range("C6:I6").Find(.Cells(6, i), LookAt:=xlPart).Column
.Cells(7, col).Resize(6).Copy .Cells(7, i)
Next
End With
End Sub
ただ、VBAマクロの知識がある程度必要になると思います。
添付画像の表組位置でサンプルを書いていますので、
表組を変更したりすると不具合(期待する処理が出来ない)を起こします。
コードの内容を理解する必要があります。
For i = 12 To .Cells(6, Columns.count).End(xlToLeft).Column
6行目のL列から入力のある最終列まで繰り返し処理をします。
col = .Range("C6:I6").Find(.Cells(6, i), LookAt:=xlPart).Column
C6:I6範囲内にL列以降の6行目の値(月など)をキーに検索して合致する列番号を変数colに代入しています。
.Cells(7, col).Resize(6).Copy .Cells(7, i)
前での抽出した値を基に7行目以降をコピぺしています。Resize(6)は1行を6行に変更しています(7~12行)
Next 繰り返し
No.6
- 回答日時:
こんにちは!
5行目がシリアル値で、順序良く日付が並んでいるのであれば・・・
Sub Sample1()
Dim j As Long
Dim myCol As Long
For j = 12 To Cells(5, Columns.Count).End(xlToLeft).Column '//←L列~5行目最終列まで//
myCol = WorksheetFunction.Weekday(Cells(5, j), 2)
Cells(7, myCol + 2).Resize(7).Copy Cells(7, j)
Next j
End Sub
こんな感じでいけると思います。m(_ _)m
No.5
- 回答日時:
添附圖參照
L6: =TEXT(L5,"aaa")
L7: =INDEX($C$7:$I$12,ROW(A1),MATCH(L$6,$C$6:$I$6,0))
範圍 L6:AP12 に設定した[条件付き書式]
ルールの種類:“数式を…を決定”
ルールの内容↓
 ̄ ̄条件2↓
 ̄ ̄ ̄ ̄数式→ =L7="△"
 ̄ ̄ ̄ ̄書式→ 黄の塗りつぶし色
 ̄ ̄条件1↓
 ̄ ̄ ̄ ̄数式→ =L7="×"
 ̄ ̄ ̄ ̄書式→ 灰の塗りつぶし色
【個人的コメント】
》 カレンダー内に関数と条件付き書式での対応は避けたい
其の理由を御聞かせ願いたし
No.2
- 回答日時:
表を引用するのであれば、L7のセルに
=INDEX($B$6:$I$12,MATCH($K7,$B$6:$B$12,0),MATCH(L$6,$B$6:$I$6,0))
を入力し、あとは下と右にフィルコピーすれば曜日と合致した表の内容を反映可能です。
色を反映させるのであれば、やはり条件付き書式になるかと・・・。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでカレンダーを作りたい 5 2023/05/16 07:32
- Excel(エクセル) エクセルカレンダーに予定表を反映したいです。 6 2022/09/30 14:39
- Excel(エクセル) DATE関数で指定する「日」のセルが関数の場合の対処法 5 2022/09/14 15:46
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- Excel(エクセル) 【Excel質問】 「本日の日付」から指定条件を満たす営業日経過後の日数を表示させる関数式 3 2022/06/06 23:28
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- フィナンシャルプランナー(FP) 本日の日付が(F1)出たら、本日の勤務が(F2)同時に出るようにしたいのです。 1 2022/09/12 11:53
- Excel(エクセル) Excelで作成しているシート(表) 5 2023/06/15 10:20
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの数式について教えてくだ...
-
関数の説明
-
Excelについて
-
エクセルの「赤」の印刷がうま...
-
[オプション]の[アクセスビリテ...
-
エクセルの「入力規則」のプル...
-
エクセルで特定のセルに入力が...
-
エクセル おすすめフォント
-
CSVファイルについて質問です。
-
VBAについての質問です
-
【マクロ】名前を保存する際に...
-
Excelにいついて質問です。
-
UNIQUE関数が使えないバージョ...
-
エクセルで不等号記号(≠)が上に...
-
Excelの関数について教えてくだ...
-
一つのセルに(例えばA1)入力...
-
エクセル マクロ チェックボックス
-
Excelで縦軸の書式を0:00形式の...
-
エクセルファイルがファイルの...
-
エクセルであるセルに数字を入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報