Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37327 / 76732

←次へ　｜　前へ→


	【44576】Re:シートを別フォルダにコピーしコピーしたファイル内の計算値を消す方法

りん

- 06/11/22(水) 9:07 -


	引用なし

	パスワード

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にして選択すればいいですが、リンクしたくないだけならそのままの状態で数値に変えてしまうのが簡単です。

1 hits

▼

【44571】シートを別フォルダにコピーしコピーしたファイル内の計算値を消す方法 vang 06/11/22(水) 1:14