Excel VBA質問箱 IV

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

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


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

37332 / 76732

←次へ　｜　前へ→


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

vang - 06/11/22(水) 1:14 -


	引用なし

	パスワード

お世話になります。
息詰まってしまいましたのでどなたかご指導いただけないでしょうか。

計算ファイルを作って計算をさせているのですが、計算後（1日の入力が全部済んだら）
１つのシートをコピーして別フォルダに名前をつけて保存しているのですが、
その際そのコピーしたシートに元ファイルで計算した計算式がそのまま張り付いてしまいコピーしたものを開くと自動リンクが設定されてしまいます。
私の理想としてはコピーしたシートには計算式を削除して数値だけを残したいのですが。

Private Sub CommandButton2_Click()
dir_1 = "O:\ " '※保存フォルダの設定
　　
　　Sheets("sss").Select　'計算シート名
　　Sheets("sss").Copy
　　ActiveWorkbook.SaveAs Filename:=dir_1 & Format(Date - 1, "mm月dd日") & ".xls"　'指定したシートに名前をつけて指定ファルダに貼り付け
　　MsgBox "保存しました。"
　　
　　ActiveWorkbook.Close
　　
End Sub

現在は↑のような処理をしています。

Sheets("sss").Select
セル範囲 = "C6:C29" '※計算値範囲
Range(セル範囲).Value = Range(セル範囲).Value '※計算値を削除し数値を残す

このような処理を考えたのですがこれだと元ファイルの式まで消してしまいうまく処理できない状況です。
どなたか解決策がありましたらご指導下さい。
よろしくお願いします。

0 hits

▼

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

≪