[[20090902142719]] 『今日の日付を丸で囲みたい』(北海椿) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『今日の日付を丸で囲みたい』(北海椿)

 自作で七曜カレンダーを作ったのですが、いつも今日の日付にセル一杯に丸が表示され
 たらいいなぁと思うのですが、こんな事は可能でしょうか?
 もし可能であれば教えていただきたいと思います。
 よろしくお願いします。

 Excel2003
 WindowsXP

 日付がシリアル値で入力されており、また、日付が入力されているセルに
入力規則が未設定である場合の方法です。
 
シート名がSheet1であると仮定します。
日付のセルに次の入力規則を設定します。
入力値の種類「日付」
データ「次の値に等しくない」
日付「=TODAY()」
 
Altを押しながらF11(VBE起動)
VBAProjectからThisWorkBookモジュールをダブルクリック
次のコードを貼り付けます。
 
 Private Sub Workbook_Open()
     With Worksheets("Sheet1")
         .ClearCircles
         .CircleInvalid
     End With
 End Sub
 
一度ブックを保存してマクロ有効で開くと、当日のセルが
赤い楕円で囲まれます。
(みやほりん)(-_∂)b


 みやほりん(-_∂)bさん、早速ありがとうございます。
 見事に本日を赤い丸で囲むことができました。
 これを使わせていただきますね。
 ありがとうございました。
 (北海椿)

 この方法には欠点があって、保存動作(自動保存も含む)で何故か
丸印が消えてしまうのです。(他のコマンドでも消えるかもしれない)
他の適当なイベントやOnTimeメソッドで CircleInvalidメソッドを
随時実行する必要があるかもしれません。
(丸印でなければ、条件付書式でもよいと思うのですが・・・)
それによく考えたら、.ClearCirclesメソッドは不要だし・・・。
 
(みやほりん)(-_∂)b 

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.