[[20031207002918]]　『当日を点滅させる』（ＡＫＩ７２）　ページの最後に飛ぶ

『当日を点滅させる』（ＡＫＩ７２）

 こんばんは
 本日もお世話になります。

 Ａ列に日付、Ｂ、Ｃ、Ｄ列に入力すべき必要該当項目が入っています。
 期日	販売実績Ａ　販売実績Ｂ　販売実績Ｃ　合計
 12月1日	　　1	　　　2	　　　　3　　	6
 12月2日	　　2	　　　1	　　　　2	　　　　 5
 12月3日				
 12月4日				
 12月5日				
 上記のような表のとき、日付を点滅させるようなことって出来るんでしょうか？
 例えば本日が１２月３日だったら、12月3日の文字が点滅もしくは背景が点滅するようにです。
 どうぞ宜しくお願いいたします。エクセル２００２です。
 (AKI72)

 ExcelはWebページではないのです、点滅させるのは簡単にはできません。
 代わりに当日のセルの色を変える方法はあります。
 ↓[ライブラリ(e1qw)条件付き書式]
http://www.excel.studio-kazu.jp/lib/e1qw/e1qw.html
（kazu）

 おはようございます。
 VBAやったらでけますけどナ。
 試しにいっぺんやってみまっか？

 「Alt」＋「F11」でVBAを開く
 「挿入」→「標準モジュール」を選択
 真っ白な画面に下のコードをコピペ
 「Alt」＋「Q」でエクセルに戻る

 シート１のA列に日付を記入し
 「Alt」＋「F8」でauto_open を実行してみておくんなはれ。
 どうでっか？
 これは、当ファイルを開くと同時にこのイベントが発生するように設定してあります。

 どこかで読んだ事があるんですけど、こんなんは多用せんほうがええって言うてました
 わ。
 ほんで、このマクロの消し方でッけどナ。

 上の手順でコードを開き、左の列のModuleを右クリックしてModuleの解放をクリックし
 たらきえますわ。
 ほなまあ試してみてくらはい。
 　　　　　（弥太郎）

 Sub auto_open()
    Dim i As Integer
    Dim tday As Date
    Dim Ws1 As Object
    Dim c

    Application.EnableEvents = False

    Set Ws1 = Worksheets("sheet1")
    tday = Date
    For Each c In Ws1.Range("a2", Ws1.Range("a65536").End(xlUp))
        If c = tday Then
            c = c.Address
            With Ws1.Range(c)
                For i = 0 To 300
                    .Interior.ColorIndex = 3
                    .Interior.ColorIndex = 2
                    .Font.ColorIndex = 2
                Next i
                    .Interior.ColorIndex = 2
                    .Font.ColorIndex = 1
        End With
        End If
    Next c
    Application.EnableEvents = True
 End Sub

おはようございます

 完璧でした
 フォームでボタンをつくり
 「本日の日付」としクリックするようにいたしました。
 ご親切にありうがとうございました。
 今後とも宜しくお願いいたします。
 （ＡＫＩ７２）

　どっこいしょ、ふーっ！
　あ、いや、最前珍しくも懐かしいもんが浮いてきとったさかいコメントしようと思うとったら無うなっとりました。で、深海に潜って今引き上げてきたところ＾＾
別段気の利いたコメントなんておまへんねんけど、酔うた勢いで冷やかしとこと思いましてな、ガハハ。
ほならまた沈めとってくらはい。
　

（弥太郎） 2016/04/28(木) 19:26

余りにも醜いコードなので【とりあえず】添削。

 Sub test()
    Dim i As Long
    Dim Ws1 As Worksheet
    Dim c

    Set Ws1 = Worksheets("sheet1")
    For Each c In Ws1.Range("a2", Ws1.Range("a65536").End(xlUp))
        If c.Value = Date Then
            With c
                For i = 0 To 300
                    .Interior.ColorIndex = 3
                    .Interior.ColorIndex = 2
                    .Font.ColorIndex = 2
                Next i
                .Interior.ColorIndex = 2
                .Font.ColorIndex = 1
            End With
        End If
    Next c
 End Sub

 だが、こんなコードよりも条件付き書式の方が断然お勧め。

 A列を選択
 条件式　=$A1=TODAY()
 書式　　適宜設定

（通りすがり） 2016/04/29(金) 19:17

 ----
 お、食いついてきよった。まぶしも撒いとかなあかんもんやなあ＾＾
 せやけど刺身じゃ無理か。
 kazuさんすんまへん。このへんで沈めとっておくんなはれ。

コメント返信：

[ 一覧(最新更新順) ]

[[20031207002918]] 『当日を点滅させる』（ＡＫＩ７２） ページの最後に飛ぶ

[[20031207002918]]　『当日を点滅させる』（ＡＫＩ７２）　ページの最後に飛ぶ