Ｐａｇｅ 280 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件が一致した時文字の色を変えたい びび 02/10/31(木) 16:08 ┗Re:条件が一致した時文字の色を変えたい ichinose 02/10/31(木) 17:08 ┗文字の色をでしたね ichinose 02/10/31(木) 17:11 ┗Re:文字の色をでしたね びび 02/10/31(木) 17:37 ─────────────────────────────────────── ■題名 ： 条件が一致した時文字の色を変えたい ■名前 ： びび ■日付 ： 02/10/31(木) 16:08 -------------------------------------------------------------------------
| よろしくお願いします。 ファイルの更新日付を取得するマクロを組んでいます。 その更新日付(ｾﾙH2に表示)(「2002/10/30 14:28:40」と表示)と、 現在の日付の『年月』が同じなら 更新日付の文字を赤く表示するマクロを作りたいのですが どの様にしたら良いでしょうか？ ご存知の方、よろしくお願いします。 |
| ▼びび さん： こんにちは。 >よろしくお願いします。 > >ファイルの更新日付を取得するマクロを組んでいます。 >その更新日付(ｾﾙH2に表示)(「2002/10/30 14:28:40」と表示)と、 >現在の日付の『年月』が同じなら >更新日付の文字を赤く表示するマクロを作りたいのですが >どの様にしたら良いでしょうか？ >ご存知の方、よろしくお願いします。 条件付書式を設定しておけば、更新日の取得だけですみますが、取りあえず こんなコードにしました。 '============================================================== Sub test() Dim 今日の年月 今日の年月 = Year(Date) * 100 + Month(Date) With Range("h1") .Value = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") .NumberFormat = "yyyy/m/d h:mm" If Year(.Value) * 100 + Month(.Value) = 今日の年月 Then .Interior.ColorIndex = 3 End If End With End Sub |
| >▼びび さん： >こんにちは。 >>よろしくお願いします。 >> >>ファイルの更新日付を取得するマクロを組んでいます。 >>その更新日付(ｾﾙH2に表示)(「2002/10/30 14:28:40」と表示)と、 >>現在の日付の『年月』が同じなら >>更新日付の文字を赤く表示するマクロを作りたいのですが >>どの様にしたら良いでしょうか？ >>ご存知の方、よろしくお願いします。 > >条件付書式を設定しておけば、更新日の取得だけですみますが、取りあえず >こんなコードにしました。 >'============================================================== >Sub test() > Dim 今日の年月 > 今日の年月 = Year(Date) * 100 + Month(Date) > With Range("h1") > .Value = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") > .NumberFormat = "yyyy/m/d h:mm" > If Year(.Value) * 100 + Month(.Value) = 今日の年月 Then .Font.ColorIndex = 3 > End If > End With >End Sub ここだけ修正です。 |
| ▼ichinose さん： ありがとうございました！ 無事完成させる事が出来ました。 今後とも宜しくお願い致します。 |