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

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

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

[[20040712130032]]: #score: 6689; @digest: 4a15c618b6b51df1914c509fa623ccf9; @id: 7687; @mdate: 2004-07-12T06:29:54Z; @size: 5519; @type: text/plain; #keywords: myweekday (35368), 進パ (15630), ー埼 (14761), 玉8 (11665), 月# (11368), 網掛 (10622), 火0 (10586), 水0 (9777), jindon (8127), 目雅 (5618), 夏目 (5371), 埼玉 (5209), 雅子 (5058), 子似 (4781), トナ (4582), 式- (3818), weekday (3779), mydate (3565), 日火 (3175), 日水 (3074), 日0 (3003), 土日 (2637), 付書 (2285), 曜日 (2185), pattern (2106), 野鮎 (1833), 川野 (1748), 鮎太 (1724), 件付 (1679), interior (1547), 日月 (1521), 日曜 (1427); 『土、日の場合その行を網掛けにしたいのです』（ありんこ）
[条件付書式] たびたびすみません!!教えて下さい郵便表があって日付、曜日が入っています。まず、日付を入れたら隣のセルにそれに対応する曜日をいれさらにその曜日が土、日の場合土日の行を網掛けにしたいのです。日曜日合計営業推進パートナー埼玉 8月1日日 0 0 0 0 8月2日月 #REF! #REF! #REF! #REF! 8月3日火 0 8月4日水 0 というようになっていて、日曜日の場合は合計から埼玉の行をすべて網掛けしたいのです。書式のコピー貼り付け等ではなく一括で出来る方法があったら教えて下さいお願いします（ありんこ） ---- 日にちがA列、合計列がC列、埼玉F列とした場合 C2〜F2を選択して-書式-条件付書式 条件1に数式が =WEEKDAY(A2,1)=7を入れ条件2に数式が =WEEKDAY(A2,1)=1を入れてください。以下、書式のコピーでいいはずです。（川野鮎太郎） ---- こちらに統合しました。（kazu） ---- 『条件付書式』（ありんこ）たびたびすみません教えて下さい郵便料金表なのですが、表に日付に対応する曜日を自動的に入れたいのです。さらに、土日については網掛けにしたいのです。どのようにすればいいでしょうか教えて下さいよろしくお願い致します。日曜日合計営業推進パートナー埼玉 8月1日日 0 0 0 0 8月2日月 #REF! #REF! #REF! #REF! 8月3日火 0 8月4日水 0 ↑が入ると自動的に曜日が入る。曜日が土日だとそのよう日の合計〜埼玉の欄が網掛けになる以上ですよろしくお願い致します ---- 同じような内容は、前の質問に続けていただいたほうがよろしいかと。。。日にちがA2（8/1）曜日がB2（日）だとして B2セルには=A2を入れて、書式-表示形式-ユーザー定義で、aaa にしてください。 条件付書式は、前の質問に回答しています。（川野鮎太郎） ---- すみませんでした。2度同じものを投稿してしまいました・・・どうもありがとうございます!! ちなみに条件付書式なのですが、書式コピーをする方法ではなくて一度に土日の表の行が網掛けになるという方法はできないのでしょうか?? ---- 前の回答はお試しになりましたでしょうか。 8月1日の行の合計から埼玉のセルまでを条件付書式の設定をして残りのセルにコピーするだけですけど。コピーがいやなのであれば、すべてのセルに条件付書式を一々設定しなければいけません・・・（川野鮎太郎） ---- 横から大変失礼致します。既にデータ等が入力されている、ということでしょうか? A2から埼玉列の最終行の範囲を選択して 条件付書式→数式が、に =OR(WEEKDAY($A2)=1,WEEKDAY($A2)=7) として、書式を設定でも出来ますが。（コピーの手間は省けます）こういうことがご希望なのですか? あとは、VBAですね。 (jindon) ------ 衝突しましたぁ、、あまり川野鮎太郎さんの方法とかわりませんが、 Ait+F11でVBEを起動させて標準モジュールに貼り付けツール→マクロで土日網掛けを実行で、どうでしょう? でも、条件付き書式をコピーされた方が手軽の様な気がしますが、、余計なお世話ならごめんなさいm(__)m （夏目雅子似） Sub 土日網掛け() Dim C As Range Dim MyDate As Date Dim MyWeekday As Integer With ActiveSheet On Error Resume Next For Each C In .Range("A2", .Range("A65536").End(xlUp)) MyDate = C.Value MyWeekday = Weekday(MyDate) Select Case MyWeekday Case 1, 7 C.Offset(, 2).Resize(, 4).Interior.Pattern = xlGray16 Case Else C.Offset(, 2).Resize(, 4).Interior.Pattern = xlNone End Select Next C End With End Sub ------- 入力と同時なら、、シートの見出しを右クリック→コードを表示させてそこに貼り付けます。で、どうでしょう? （夏目雅子似） Private Sub Worksheet_Change(ByVal Target As Range) Dim MyDate As Date Dim MyWeekday As Integer If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub If Target.Value = "" Then Exit Sub If IsDate(Target.Value) <> True Then MsgBox "日付ではありません", vbCritical Exit Sub End If Application.EnableEvents = False MyDate = Target.Value MyWeekday = Weekday(MyDate) Select Case MyWeekday Case 1, 7 Target.Offset(, 2).Resize(, 4).Interior.Pattern = xlGray16 Case Else Target.Offset(, 2).Resize(, 4).Interior.Pattern = xlNone End Select Application.EnableEvents = True End Sub ---- jindonさんのおっしゃるように、頭に$を付けたら、範囲が大きくなっても一気に設定できたんですね(^_^A; 失礼しましたm(_ _)m （川野鮎太郎） ---- ということで、jindonさんの式をお借りして、 C2からF○まで、すべて選択して=OR(WEEKDAY($A2)=1,WEEKDAY($A2)=7)にしてください。 ‾‾‾‾ ‾‾‾‾列だけ$に修正しました。（川野鮎太郎） ---- ぴんぽ〜〜ん(^^) (夏目雅子似） ---- 行と列を固定してしまって（絶対参照）大丈夫ですか? (jindon) ---- ぎゃああ、ごめんなさいm(_ _)m ×10回 jindonさんの式そのままで、お願いします。(^_^A; （川野鮎太郎） ---- 皆様、沢山の回答をありがとうございました夏目雅子似様、VBAを教えていただきましてありがとうございましたちょっと皆様のを参考にさせていただきたいとおもいます!! これでかなり業務が短縮できます!!!!（ありんこ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200407/20040712130032.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ