エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1240 for カレンダー (0.001 sec.)

[[20080721170909]]: #score: 6122; @digest: 79aac17c6d166e463e362bffaf338518; @id: 39195; @mdate: 2008-07-22T02:01:25Z; @size: 8145; @type: text/plain; #keywords: daymin (29072), 藤田 (21930), 木千 (21016), 島田 (20860), 道8 (20721), 田│ (20689), 田名 (19644), 者現 (18816), 屋7 (18488), 葉7 (16399), 田北 (13816), 定一 (13303), 京8 (12838), 京7 (12450), 木│ (11698), 木東 (11453), 場名 (11143), 田東 (10644), 名開 (8202), 現場 (7875), 佐々 (6798), 々木 (6630), │ (6176), 千葉 (5223), 日終 (5054), 期間 (4898), 当者 (4534), カレ (4515), 名古 (4463), 古屋 (4333), 担当 (4245), 始日 (3633); 『担当別の稼動期間カレンダーを作りたい』（たぬき）
カレンダーを作成し、担当者の稼動状況を確認できる表を作成したいと思っています。シートは、「予定表一覧」と「カレンダー」の2つ。予定一覧表の『担当者』『開始日』『終了日』『現場名』の4つのデータをカレンダーに反映させたいです。【sheet1「予定一覧」】 a b c d 1 担当者現場名開始日終了日 2 佐々木東京 7/20 8/3 3 藤田名古屋 7/25 8/15 4 島田北海道 8/20 9/25 5 藤田東京 8/20 9/15 6 佐々木千葉 7/25 8/20 ・・・【sheet2「カレンダー」】 a b c 1 担当者 7/1 7/2 7/3・・・ 2 佐々木 3 藤田 4 島田「予定一覧」から対象担当と期間をさがし、カレンダーの該当期間に色（または印）をつけ、開始日のセルに「現場名」を表示したいです。例えば、『佐々木』の行は、7/20〜8/20のカレンダーに色（または印）がついていて、7/20の列のセルには「東京」、7/25の列のセルには「千葉」と表示したいです。その様なことは、エクセルで可能なのでしょうか? よろしくお願いします。 ---- こんばんは〜♪ こんな表の場合です。。。 Sheet1 ↓ ┌─┬────┬────┬────┬────┬────┐ │ │ A │ B │ C │ D │ E │ ├─┼────┼────┼────┼────┼────┤ │ 1│担当者 │現場名 │開始日 │終了日 │ │ ├─┼────┼────┼────┼────┼────┤ │ 2│佐々木 │東京 │ 7/20│ 8/3│ │ ├─┼────┼────┼────┼────┼────┤ │ 3│藤田 │名古屋 │ 7/25│ 8/15│ │ ├─┼────┼────┼────┼────┼────┤ │ 4│島田 │北海道 │ 8/20│ 9/25│ │ ├─┼────┼────┼────┼────┼────┤ │ 5│藤田 │東京 │ 8/20│ 9/15│ │ ├─┼────┼────┼────┼────┼────┤ │ 6│佐々木 │千葉 │ 7/25│ 8/20│ │ ├─┼────┼────┼────┼────┼────┤ │ 7│ │ │ │ │ │ └─┴────┴────┴────┴────┴────┘ Sheet2 ↓ ┌─┬────┬────┬────┬────┐ │ │ A │ B │ C │ D │ ├─┼────┼────┼────┼────┤ │ 1│担当者 │ 7/1│ 7/2│ 7/3│ ├─┼────┼────┼────┼────┤ │ 2│佐々木 │ │ │ │ ├─┼────┼────┼────┼────┤ │ 3│藤田 │ │ │ │ ├─┼────┼────┼────┼────┤ │ 4│島田 │ │ │ │ ├─┼────┼────┼────┼────┤ │ 5│ │ │ │ │ └─┴────┴────┴────┴────┘ >カレンダーに色（または印）がついていて ★期間へ色付けする方法です。。条件付書式を使いますが、シートをまたいでは数式が使えないので式を名前定義します。。 (順序その1) B2セルを選択して。。挿入→名前→定義から名前→ 期間参照範囲 ↓ =SUM((IF(Sheet1!$A$2:$A$10=$A2,Sheet1!$C$2:$C$10,10^7)<=B$1)*(IF(Sheet1!$A$2:$A$10=$A2,Sheet1!$D$2:$D$10,0)>=B$1)) この式は、配列数式になりますからこの式をコピーして、参照範囲へ Ctrl+V キーで貼り付け後 Ctrl+Shift+Enter キーを同時押し。。 (順序その2) B2セルから右(カレンダーの日付のある列まで) と下(担当者のある行まで)の範囲を選択して、条件付書式から数式が → =期間パターン→ お好きな色を選びます。期間の色塗り終了。。。 >、7/20の列のセルには「東京」、7/25の列のセルには「千葉」と表示したいです。 ★期間の最初の日に、現場名を入れます。。 (順序その3) B2セルへ =IF(SUMPRODUCT((Sheet1!$A$2:$A$10=$A2)*(Sheet1!$C$2:$C$10=B$1)), INDEX(Sheet1!$B:$B,SUMPRODUCT((Sheet1!$A$2:$A$10=$A2)*(Sheet1!$C$2:$C$10=B$1)*ROW($2:$10))),"") 右と下へコピー。。。以上ですが、 >カレンダーに色（または印）がついていての印にしたかったのですが、提示した2つの式を繋げると長〜い式になってしまうので、色塗りにしました。。ただ、データ数が多いとこの式では重くなるかもです。。ご参考にどうぞ。。。。。。Ms.Rin〜♪♪ ---- A B C D E F G H I J K L M N O 1 担当者現場名開始日終了日 1 2 3 4 5 6 7 8 9 10 11 2 佐々木東京 7/20 8/3 3 藤田名古屋 7/25 8/15 4 島田北海道 8/20 9/25 5 藤田東京 8/20 9/15 6 佐々木千葉 7/25 8/20 O P Q R S T U V W X Y Z A B C D E 1 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 2 東京 3 名古屋 4 5 6 千葉 E2=IF($C2=E$1,$B2,"") セルに数式 E2=(E$1>=$C2)*(E$1<=$D2) 条件付書式でパターン色設定（PPPO) 1ページで C列選択でウィンドウ枠固定が便利かな! セル対応横棒グラフにも応用できます。 ---- 条件付書式の数式??? =SUM((IF(Sheet1!$A$2:$A$10=$A2,Sheet1!$C$2:$C$10,10^7)<=B$1)*(IF(Sheet1!$A$2:$A$10=$A2,Sheet1!$D$2:$D$10,0)>=B$1)) 条件分岐まで必要ないのでは簡単な数式でいけますよ。（配列数式でなく） =(E$1>=$C2)*(E$1<=$D2) 2シート対処ならシート名を付ければ（zzz） ---- マクロで考えてみました。（SHIOJII） sheet1に A B C D 1 担当者現場名開始日終了日 2 佐々木東京 7月21日 8月3日 3 藤田名古屋 7月25日 8月15日 4 島田北海道 8月20日 9月25日 5 藤田東京 8月20日 9月15日 6 佐々木千葉 7月25日 8月20日のようなデータがあるとして Sub test() Dim dayMIN As Date, dayMAX As Date Dim myR As Range, r As Range Dim i As Long Dim FR, FR2, myV Dim WS1 As Worksheet, WS2 As Worksheet Set WS1 = Sheets("Sheet1") Set WS2 = Sheets("Sheet2") With WS1 dayMIN = Application.Min(.Range("C2", .Range("D" & Rows.Count).End(xlUp))) dayMAX = Application.Max(.Range("C2", .Range("D" & Rows.Count).End(xlUp))) Set myR = .Range("A2", .Range("A" & Rows.Count).End(xlUp)) End With With WS2 .Cells.Clear .Rows("1:1").NumberFormatLocal = "m/d" .Range("A1").Resize(myR.Count + 1).Value = _ WS1.Range("A1").Resize(myR.Count + 1).Value For i = 1 To dayMAX - dayMIN With .Range("B1") .Value = dayMIN .Offset(, i) = dayMIN + i End With Next For Each r In myR myV = r.Offset(, 1).Resize(, 3).Value FR = Application.Match(CDbl(myV(1, 2)), .Rows("1:1"), 0) FR2 = Application.Match(CDbl(myV(1, 3)), .Rows("1:1"), 0) If Not IsError(FR) And Not IsError(FR2) Then .Cells(r.Row, FR).Value = myV(1, 1) .Range(.Cells(r.Row, FR).Offset(, 1), .Cells(r.Row, FR2)).Interior.ColorIndex = 3 End If Next .Columns.AutoFit End With End Sub ---- おはようございます。。。♪ zzzさんへ >条件分岐まで必要ないのでは >簡単な数式でいけますよ。（配列数式でなく） PPPOさんの表の様に担当者が重複していてもそれぞれの行で色付けするのでしたらおっしゃるとおりですね。。質問者の提示されたSheet2の担当者名は、重複がありません。ですから、2つの期間(例題では)を1行に色付けするために配列数式になりました。でもよく考えてみたらこの方法では、2つの期間が重複しているばあい、重複期間の部分のセルが同じ色で色付けされるので、最初の期間の終了日がわかりませんネ!!。。担当者名が現場を持つのが、3つまでなら条件付き書式で重複期間を色でわける事はできますけれど。。。ただしその場合も、もし2つの現場の開始日が同じ時は 2つの現場名を1つのセルに、入れるのはちょっと大変。。。こういう場合が、なければいいですが。。。そう考えてみると皆さんが回答された様に、担当者名が重複していてもそれぞれの行で、色付けした方がいいかもしれませんネ!! 式も簡単ですし。。でした。。。ジャン!!ジャン!!! 。。。Ms.Rin〜♪♪ ---- みなさん、たくさんご返答頂きありがとうございました。いろいろと試してみています。すごく助かりました。本当にありがとうございました!! （たぬき） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080721170909.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ