都道府県穴埋めゲーム

こんばんは
新しくシートを挿入させて、「シート2」の値のみをコピーさせたいと考えています。
その新しく挿入させたシート名を「シート1」のせるA3とA4の文字列をあわせたものにしたいのですが、どうしたらよいのでしょうか。
途中まで考えたところでいきずまってしまいました。
どうか英知をお貸しください。
宜しくお願い致します。

A3には日付、A4には名前が入力されています。

Dim sheetName As String

Worksheets("月度集計").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("Sheet1").Cells(3, 3).Value

On Error Resume Next
Worksheets(1).Name = sheetName
On Error GoTo 0
Range("f2").Select

A 回答 (1件)

例として。


・シート2をコピペして新しいシートを作成する
・新シートの数式を値に変更する
・新シートの名前をシート1のA1日付(シリアル値) _ B1の名前とする
 ⇒20090627_n-jun など

Sub try()
Dim ws As Worksheet

Worksheets("Sheet2").Copy After:=Worksheets(Worksheets.Count)
Set ws = ActiveSheet

With ws.UsedRange
.Value = .Value
End With

With Worksheets("Sheet1")
ws.Name = Format(.Range("A1").Value, "yyyymmdd") & "_" & _
.Range("B1").Value
End With

Set ws = Nothing

End Sub

ご参考になれば幸いです。
    • good
    • 0
この回答へのお礼

おかげさまで順調に進みました。
ありがとうございました。

お礼日時:2009/06/28 23:36

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


おすすめ情報