ＥＸＣＥＬのＶＢＡについて

質問

マクロのボタンで内容を削除する様に設定した所、
Dim re As Integer

Sheets("投入シート").Select
re = MsgBox("入力データをクリアします。" & vbCrLf & vbCrLf & "よろしいですか？", vbOKCancel, "クリア確認")

If re <> vbCancel Then

Sheets("投入シート").Select
ActiveSheet.Unprotect
Range("a1:c30").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("work").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("投入シート").Select
ActiveSheet.Unprotect
Range("c4:c30").Select
Selection.ClearContents
Range("f31").Select
Selection.Copy
Range("c9").Select
ActiveSheet.Paste
Range("f33").Select
Selection.Copy
Range("c11").Select
ActiveSheet.Paste
Range("f32").Select
Application.CutCopyMode = False
Selection.Copy
Range("c14").Select
ActiveSheet.Paste
Range("c4").Select
Application.CutCopyMode = False
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Sheets("投入シート").Select
Range("c4").Select
End Sub
この様に入力したのですがセルのＣ１１の計算式だけセル番号が消えてしまいます。
どうしてでしょうか？ご指導をお願いします。

回答No.2

merlionXX · ベストアンサー

あなたの書かれたコードから無駄な記述を除くと以下のようになります。

Sub TEST01()
　　Dim re As Integer
　　With Sheets("投入シート") '投入シート
　　　　.Select '選択
　　　　re = MsgBox("入力データをクリアします。" & vbCrLf & vbCrLf & "よろしいですか？", vbOKCancel, "クリア確認")
　　　　If re <> vbCancel Then 'キャンセルでなければ
　　　　　　.Unprotect 'シート保護解除
　　　　　　.Range("A1:C30").Copy Sheets("work").Range("A1") 'A1:C30をコピーしてSheets("work")へ貼り付け
　　　　　　.Range("C4:C30").ClearContents 'C4:C30をクリア
　　　　　　.Range("F31").Copy .Range("C9") 'F31をコピーしてC9へ貼り付け
　　　　　　.Range("F33").Copy .Range("C11") 'F33をコピーしてC11へ貼り付け
　　　　　　.Range("F32").Copy .Range("C14") 'F32をコピーしてC14へ貼り付け
　　　　　　.Range("C4").Select 'C4を選択
　　　　End If
　　End With
End Sub

> Ｃ１１の計算式だけセル番号が消えてしまいます。

意味がわかりませんが、もし投入シートのC11セルがクリアされているということでしたら、F33をコピーしてC11へ貼り付けているわけですからF33セルが空白だったのではないでしょうか？

お礼

有難うございました

回答No.1

soixante

＞セルのＣ１１の計算式だけセル番号が消えてしまいます。

どういう意味かが分かりませんが、上記を見る限り、

C4:C30　をクリアコンテンツした後に、F33をコピペしています。

あなたの意向ではどういう結果を求めているのでしょうか。

また、本題とはずれますが、もう少しコードをシンプライズしたほうが良いです。
コピペするならいちいちSelectしなくてもよいです。
http://officetanaka.net/excel/vba/speed/s2.htm