[[20070213202838]]　『VBA 小数以下3ｹﾀで貼付』（LAPIN）　ページの最後に飛ぶ

『VBA 小数以下3ｹﾀで貼付』（LAPIN）

シート「1」のセル「A1」には小数以下0～3ｹﾀの数値が入力されている場合で、これを

シート「2」のセル「A1」（表示形式は文字列）に小数以下3ｹﾀのﾃﾞｰﾀとして貼付を

したいのですが、VBAではどのような記述になるでしょうか?どなたか回答お願いします。

 >VBAではどのような記述になるでしょうか
 でないといけませんか？
 普通に貼り付けて、
 書式設定をユーザー定義で「0.000」にすればよいのでは？
 マクロが必要なら、マクロの記録で・・・
　　　(SHIOJII）

 最終的に小数以下3ｹﾀのﾃｷｽﾄﾃﾞｰﾀを作成したいので、
 表示が3ｹﾀでなくﾃﾞｰﾀそのものを3ｹﾀにしたいのですが…。
 (LAPIN)

 うまくいくか自信はないのですが、
 作業セル（AA1)都合が悪い場合は変えてください。
 を使って、
 Sub test()
    Sheets("Sheet1").Range("A1").Copy
    With Sheets("Sheet2").Range("AA1")
         .PasteSpecial
         .NumberFormatLocal = "0.000"
         Sheets("Sheet2").Range("A1").Value = .Text
         .ClearContents
    End With
    Application.CutCopyMode = False
 End Sub
                     (SHIOJII）

 こういうのでもいいかな。
 Sub Test()
    Sheets("Sheet2").Range("A1").Value = _
        Format(Sheets("Sheet1").Range("A1").Value, "0.000")
 End Sub
 （やっちん）

 早速試してみます。SHIOJIIさん、やっちんさん、
 ありがとうございました。
 (LAPIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20070213202838]] 『VBA 小数以下3ｹﾀで貼付』（LAPIN） ページの最後に飛ぶ

[[20070213202838]]　『VBA 小数以下3ｹﾀで貼付』（LAPIN）　ページの最後に飛ぶ