|
ponponです。こんばんは。
>3.コマンドボタンをクリックする
>4.基本sheetの次に新しいsheetを1枚自動作成する
>5.基本sheet上のデ−タをすべてコピ−する
>6.4で作成したsheetにコピ−されたデ−タを関数抜きで(値と罫線等のみ)貼り付ける
マクロの記録からです。
形式を選択して貼り付けには、値と罫線というのはないので、
値だけ貼り付けるなら
こうなると思います。
「基本シート」にコピペしてください。
Private Sub CommandButton1_Click()
Sheets("基本シート").Cells.Copy
Sheets.Add after:=Sheets("基本シート")
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
罫線も含めてすべてなら
Private Sub CommandButton1_Click()
Sheets("基本シート").Cells.Copy
Sheets.Add after:=Sheets("基本シート")
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
|
|