Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

338:335
08/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」と「ハイフンと通し番号」を付け加えたかったのです
（ここはまだまだ難しくて未実装）

次ページ

続きを表示

1を表示