|
On Error GoTo ELine
'エラートラップをかける。これ以降のコードでエラーが
'発生した場合、ELine というラベルのところへ飛ばす
With Sheets("Sheet4")
'Sheet4 シートの処理について記す
Sheets("Sheet3").Cells.Copy .Range("A1")
'Sheet3 の全セルをコピーし、A1へ貼り付ける。
'Copyメソッドの引数を使って貼り付け先を指定するやり方なら
'必ず「全て貼り付け」になる
For Each C In .Cells.SpecialCells(3)
'全セルの中の、数式を入力しているセルだけを SpecialCells
'メソッドで特定し、その範囲を一つずつループ処理する
'SpecialCellsメソッドの引数に 3 を渡すのは xlFormulas を
'指定したのと同じになる
C.Value = C.Value
'ループ中のセルの値を、値のみ代入する
Next
'次のセルへ移動
End With
'Sheet4 の処理の記述はここまで
ELine:
'エラーが発生したときに、ここから下へ制御を移す
'直下は End Sub だからすぐに終了することになる
以上。
|
|