| |
初歩的な質問で申し訳ありません。
Ａ Ｂ Ｃ
１ 日付 予定 …
２ （ ） （ ）
３ （ ） （ ）
４ （ ） （ ）
：
上記ようなのスケジュール表で、Ａ列に「日付（書式：m"月"d"日"）」、
Ｂ列に「予定」を昇順で表示しています。
そこで、マクロを用いて、昨日までの日付の行全体を削除して、「セル
Ａ２」に今日の日付が来るように（一番上に「今日」の日付）表示するに
は、どうすればいいでしょうか？
尚、下記のようなコードのような場合、「セルＡ２」が昨日以前の日付
の場合有効ですが、「セルＡ２」が既に「今日」の日付になっている状態
でマクロを実行すると、表示がずれてしまいます。 これでは、「起動時
にマクロ実行」の設定の場合、同じ日に２回目以降エクセルを起動する
と、問題が生じてしまいます。
「起動時にマクロ実行」の設定で、同じ日に複数回エクセルを起動する
という前提でお願いします。
*************************************************************
Private Sub Workbook_Open()
削除行数 = WorksheetFunction.CountIf([a:a], "<" & Format(Date))
Rows("2:" & 削除行数 + 1).Delete
End Sub
*************************************************************
|
|
地盤看板鞄
- 10/3/13(土) 5:08 -
