|
vang さん、おはようございます。
>私の理想としてはコピーしたシートには計算式を削除して数値だけを残したいのですが。
>Private Sub CommandButton2_Click()
>dir_1 = "O:\ " '※保存フォルダの設定
>
> Sheets("sss").Select '計算シート名
> Sheets("sss").Copy
'数式を持っていきたくないということのようなので、この部分を追加
With Application.ActiveSheet.Cells
.Copy
.PasteSpecial Paste:=xlPasteValues '値貼り付け
End With
Application.CutCopyMode = False
> ActiveWorkbook.SaveAs Filename:=dir_1 & Format(Date - 1, "mm月dd日") & ".xls" '指定したシートに名前をつけて指定ファルダに貼り付け
> MsgBox "保存しました。"
>
> ActiveWorkbook.Close
>
>End Sub
式を削除するときはSpecialCellsメソッドの引数をxlCellTypeFormulasにして選択すればいいですが、リンクしたくないだけならそのままの状態で数値に変えてしまうのが簡単です。
|
|