|
▼ハニケン さん
おはようございます^^
つるりんさんが回答されてて、それでOKかと思うので,蛇足ですが・・・
自分でもごちゃごちゃといじってましたので^^
'==============================================
「A1」セルの書式設定が「日付」に設定されてて、
数字も半角でOKなら
Sub Test()
Dim ws As Worksheet
Set ws = Worksheets("8月1日")
With ws
.Move after:=Worksheets(Sheets.Count)
.Range("a1").Value = .Range("a1").Value + 28
.Name = .Range("a1").Text
End With
Set ws = Nothing
End Sub
'==============================================
数字は全角で(質問の文章内が全角だったので・・・)
書式設定は「文字列」になってる場合
Sub test2()
Dim ws As Worksheet
Dim strDate As String
Set ws = Worksheets("8月1日")
With ws
.Move after:=Worksheets(Sheets.Count)
strDate = CStr(CDate(.Range("a1").Value) + 28)
strDate = StrConv(Month(strDate) & "月" & Day(strDate) & "日", vbWide)
.Range("a1").Value = strDate
.Name = strDate
End With
Set ws = Nothing
End Sub
'==============================================
ちょっとごちゃごちゃしてるかしらん?
気が向いたらお試し下さい^^;
|
|