Excel VBA質問箱 IV

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

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


45905 / 76732 ←次へ | 前へ→

【35812】Re:数式、、、
発言  Kein  - 06/3/14(火) 0:29 -

引用なし
パスワード
   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 だからすぐに終了することになる

以上。

0 hits

【35797】数式、、、 わか 06/3/13(月) 21:53 質問
【35799】Re:数式、、、 Kein 06/3/13(月) 22:14 回答
【35808】Re:数式、、、 わか 06/3/13(月) 23:03 お礼
【35810】Re:数式、、、 Kein 06/3/13(月) 23:10 回答
【35811】Re:数式、、、 わか 06/3/13(月) 23:42 お礼
【35812】Re:数式、、、 Kein 06/3/14(火) 0:29 発言
【35814】Re:数式、、、 わか 06/3/14(火) 2:18 お礼
【35805】Re:数式、、、 ponpon 06/3/13(月) 22:34 発言
【35809】Re:数式、、、 わか 06/3/13(月) 23:09 お礼

45905 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free