[[20090902142719]]　『今日の日付を丸で囲みたい』（北海椿）　ページの最後に飛ぶ

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

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

 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

コメント返信：

[ 一覧(最新更新順) ]

[[20090902142719]] 『今日の日付を丸で囲みたい』（北海椿） ページの最後に飛ぶ

[[20090902142719]]　『今日の日付を丸で囲みたい』（北海椿）　ページの最後に飛ぶ