- 338 名前：335 mailto:sage [2008/07/09(水) 03:11:38 ]
- 変化がありませんでした、私の条件式に問題があると思います。
Sub 今日の日付()
' A1が今日の日付で無ければ、通し番号を1にして、A1値を今日の日付にする
If "Cells(1, 1).Value" <> Date Then
Cells(1, 3).Value = 1
Cells(1, 1).Value = Date
ActiveSheet.Name = Format(Date, "yyyymmdd")
' 今日の日付であれば通し番号を増やす
Else
Cells(1, 3).Value = Cells(1, 3).Value + 1
End If
End Sub
こんな感じです、ボタンを押したら、今日か過去か日付を判断して、
過去なら(つまりはテンプレシートをコピーした直後）
通し番号を１にして、A1の日付を今日に、
すでに今日作っているなら、
通し番号を2にして、シート名を「20080709-2」と「ハイフンと通し番号」を付け加えたかったのです
（ここはまだまだ難しくて未実装）
