エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7739), 条件付書式 (2647)

[[20051009162020]]: #score: 6690; @digest: ac98fb66338c35e273e3a093155585a4; @id: 17417; @mdate: 2005-10-10T00:46:23Z; @size: 3647; @type: text/plain; #keywords: colind (19631), 席管 (14877), ・座 (13180), 郎1 (6959), 子2 (6668), 再・ (6386), 側空 (5771), 式⇒ (5523), 田花 (4792), 座席 (4067), 〜21 (3521), ー⇒ (3258), 田太 (2970), 間表 (2696), ・少 (2562), 〜20 (2529), ト参 (2373), 花子 (2242), 山田 (2158), ッフ (2139), シフ (2036), タッ (1578), ト・ (1437), 択2 (1135), 白部 (1094), フト (905), 適切 (898), ト見 (873), 色が (853), ⇒ (828), に色 (805), interior (773); 『シート参照など』（ふぇいす）
はじめまして。こんな質問が適切かはわかりませんがどなたか助けて下さい。スタッフのシフト・座席管理を作成しています。 A 1 17:00〜20:00 山田太郎 1 2 17:00〜21:00 山田花子 2 とシートを作成し、別のシートに1を入力したら17:00〜20:00までの時間表に色がつく。という表の作成は可能でしょうか? 宜しくお願いします。 ---- こちらに統合しました。（kazu） ---- 『再・シート参照など』（ふぇいす）先ほどの質問の表がうまく表示されていないまま更新してしまいました。こちらの表が正しいものです。はじめまして。こんな質問が適切かはわかりませんがどなたか助けて下さい。スタッフのシフト・座席管理を作成しています。 A B C D 1 17:00〜20:00 山田太郎 1 2 17:00〜21:00 山田花子 2 とシートを作成し、別のシートに1を入力したら17:00〜20:00までの時間表に色がつく。という表の作成は可能でしょうか? 宜しくお願いします。 ---- Sheet1 A B C 1 17:00〜20:00 山田太郎 1 2 17:00〜21:00 山田花子 2 Sheet2の A1 に 1 が入れば Sheet1の A1:C1 に色が付きまた、2 が入れば A2:C2 に色が付けばよいのでしょうか? もし、そのような事でしたら条件付き書式なんかでも可能だと思います。 Sheet2のA1を選択し、メニュー⇒挿入⇒名前⇒定義⇒シフトとしてOK。 Sheet1のA1:C2を選択し、メニュー⇒書式⇒条件付書式⇒数式がを選び⇒ =$C1=シフトとして⇒書式⇒パターンでお好みの色を選んでOK。 (SS) ---- SS様ありがとうございます。でも・・少し違うんです。私の説明が不十分でごめんなさい。まず、1=17:00〜20:00 2=17:00〜21:00 3=17:30〜20:00 など色々パターンがあり、シート1のAに1と入力するとシート2 に時間表がありそこの17:00〜20:00に色がつく。という感じなんですが・・・無理ですかねぇ ---- 私が提示させて頂いたもので、Sheet2のA1に 1 とか 2、3 を入れると Sheet1 の対応する部分に色が付くはずなのですが......? これでは駄目なんですね〜〜〜。すみません。 (SS) ---- 見当違いかもしれませんが、以下のようなことでしょうか。 http://skyblue123.hp.infoseek.co.jp/Excel/Time-schedule1.xls 17:00〜20:00 は計算を簡略化させるため、セルを分けています。（川野鮎太郎） ---- VBA処理です 1) Sheet2のシート見出しを右クリックして「コードの表示」を選択 2) 右側空白部分に下記コードを貼り付けて、X をクリックしてエクセル画面に戻る Sheet2のA1値を変更すると作動します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, colInd As Integer, ff As String If Target.Cells(1, 1).Address(0, 0) <> "A1" Then Exit Sub If IsEmpty(Target) Or Not IsNumeric(Target.Value) Then Exit Sub Select Case Target.Value Case 1 txt = "17:00〜20:00" colInd = 3 Case 2 txt = "17:00〜21:00" colInd = 4 Case 3 txt = "17:30〜20:00" colInd = 6 End Select With Sheets("sheet1").Columns(1) Set r = .Find(txt, , , xlWhole) If Not r Is Nothing Then .Resize(, 2).Interior.ColorIndex = 0 ff = r.Address Do r.Resize(, 2).Interior.ColorIndex = colInd Set r = .FindNext(r) Loop Until r.Address = ff End If End With End Sub (seiya) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200510/20051009162020.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ