プロが教えるわが家の防犯対策術!

図面のようにセルに 2013/12/1 のように日付が入っていて、その日付にもとづき、シートのタイトルをつけたいのですが、vba で書いてみたのですが、どうしても、

Sub sheetname()

Range("B2").NumberFormatLocal = "yymmdd"

ActiveSheet.Name = Range("B2").Text


End Sub


のようにしか書けません。 シートのタイトルには /  を使えないので、どうしても NumberFormat を使う必要があるのですが、それをする必要はないので、一発でできないでしょうか?

お詳しい方 お願いします。

「セルの名前を変換し、それをシートの名前に」の質問画像

A 回答 (1件)

こんばんは!



Sub Sample1()
With ActiveSheet
.Name = Format(.Range("B2"), "yymmdd")
End With
End Sub

こんな感じではどうでしょうか?m(_ _)m
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!