Excel VBA質問箱 IV

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

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


76520 / 76732 ←次へ | 前へ→

【4633】値のみをコピー・・・
質問  bel  - 03/3/31(月) 11:51 -

引用なし
パスワード
   先日、【4626】bookへのコピーについて質問をし解答をいただいたのですが、もう一つ知りたいことができました。
下記のVBAですと、セル全ての情報(セルに色がついていたり、計算式がはいっていたり)コピーされてしまいました。
私的にはセルの値のみコピーしたいのですが・・・どうしたら良いのでしょうか?

具体的にいうと・・・
Sheet1のA1に「123ABC」と表示。中身は"=A4&A5"という式が入っている(セルの色が黄色)という場合、「123ABC」をbook2-sheet3-A12にコピーしたい場合のVBAがしりたいのです。


Public Sub CopyTest()
  
  Dim wkbWrite As Workbook
  
  'Book2をOpen
  Workbooks.Open (ThisWorkbook.Path & "\" & "Book2.xls")
  'Book2.xlsの参照を変数に代入
  Set wkbWrite = ActiveWorkbook
  
  With ThisWorkbook
    .Worksheets("Sheet1").Range("A1").Copy _
      Destination:=wkbWrite.Worksheets("Sheet3").Range("A12")
    .Worksheets("Sheet2").Range("C10").Copy _
      Destination:=wkbWrite.Worksheets("Sheet4").Range("A13")
  End With
  
  Set wkbWrite = Nothing

End Sub


お手数ですが、教えて頂けないでしょうか?お願いします。
0 hits

【4633】値のみをコピー・・・ bel 03/3/31(月) 11:51 質問
【4634】Re:値のみをコピー・・・ BOTTA 03/3/31(月) 13:05 回答
【4647】ありがとうございました bel 03/4/1(火) 9:21 お礼

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