マクロ初心者です、小数点6桁で数値貼り付けしたい

Aシートのセルをコピーして、Bシートのセルに数値貼り付けとゆう自動化しているマクロがあります。
ただ、貼り付け先で、小数点6桁にしなくてはならないのですが、貼り付けの際に可能でしょうか
その処理はround関数とかで可能でしょうか？
サンプルコードを教えて頂けませんでしょうか！すみません

例
Aシートに、A1セルに=11/3とゆう数式があると、Excelは表示上、3.67777777777と数値になります。

このA1セルをコピーし、BシートのB1セルに
3.677777（少数点6桁）で数値貼り付けしたいです。

質問者からの補足コメント

• ありがとうございます。
  四捨五入で良いです。6桁にできればよいので。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/03/11 13:38

• すみません。
  いまそのマクロは手元にはないので来週にならないと提示ができず、、、。

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/03/11 13:40

No.6 回答者： Zincer 回答日時： 2017/03/11 15:22

課題かなにかは知りませんが、

１．予め貼り付け先の表示形式を小数点以下6桁にしておく。
２．マクロを用いて、貼り付ける先の表示形式を小数点以下6桁に指定する。
等の選択肢はないのですか？
例
A:貼り付ける値を入れた変数または元のセル.valueなど
cells(行,列)＝A
cells(行,列).NumberFormatLocal = "0.000000_ "
のような使い方

ただし、このように表示形式を設定した場合には、ほかの桁で数値を表示する場合に再設定または「標準」に戻す必要があるかもしれません。

この回答へのお礼

ありがとうございました。
表示だけが6桁になればよいのではなく、
実際も6桁で区切りたかったんです。

お礼日時：2017/03/11 23:10

No.5 回答者： yokomaya 回答日時： 2017/03/11 14:52

初心者がこれからマスターして行くつもりならマクロ記録ですることをお勧めします。

手でやれる事なら微修正で組み込みできますから。

この回答へのお礼

ありがとうございます！やはりトライアンドエラーですね！

お礼日時：2017/03/11 23:11

No.4 回答者： GooUserラック 回答日時： 2017/03/11 14:36

No.3 の修正

「※ 数値とエクセルが数として捉えたものは…」は「※ エクセルが数として捉えたものは…」の間違いです。

No.3 ベストアンサー 回答者： GooUserラック 回答日時： 2017/03/11 14:33

元の前のコードが不明なので、取り合えず参考にどうぞ！

--------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Dim 列 As Long
Dim 行終 As Long
Dim 列終 As Long
With Sheets("Sheet1").UsedRange
行終 = .Rows(.Rows.Count).Row
列終 = .Columns(.Columns.Count).Column
End With
Sheets("Sheet2").Select
Cells.ClearContents
With Sheets("Sheet1")
For 行 = 1 To 行終
For 列 = 1 To 列終
If .Cells(行, 列).Value <> "" Then
If IsNumeric(.Cells(行, 列).Value) Then
Cells(行, 列).NumberFormatLocal = "0.000000"
Cells(行, 列).Value = Int(.Cells(行, 列).Value * 1000000 + 0.5) / 1000000
Else
Cells(行, 列).NumberFormatLocal = .Cells(行, 列).NumberFormatLocal
Cells(行, 列).Value = .Cells(行, 列).Value
End If
End If
Next
Next
End With
End Sub
--------------------------------------------------------------------
※ 数値とエクセルが数として捉えたものは、ご指摘のように表示形式と値を変更して貼り付けます。
※ その他の物は元の表示形式で値を貼り付けます。
※ Sheet2 は貼り付ける前にクリアしています。不要ならば「Cells.ClearContents」を削除して下さい。

この回答へのお礼

ありがとうございます！
実際試してみたらうまく行きました！
あとは自分なりにアレンジします

お礼日時：2017/03/11 23:13

No.2 回答者： GooUserラック 回答日時： 2017/03/11 13:32

よろしければ元のコードも提示してください。

（やり方はいろいろ有るので、やり方に有った方法の方がよいかと…）

No.1 回答者： GooUserラック 回答日時： 2017/03/11 13:21

「3.677778」ではなく「3.677777」で良いのですか？（つまり切捨てで良いのですか？）