「×1000」と「÷1000」のマクロを作りたい

書式・見た目の表示でなく、
Excelで実際の数値データを1000分の1にしたり、
1000倍にするマクロを作りたいのですが、
うまくいきません。

よろしくお願いします。

No.2 ベストアンサー 回答者： onegstar 回答日時： 2005/11/11 16:15

すみません、↑のに記載ミスがありました(^^;

>また、
>「A1」の部分の数値を1000倍にしたいばあい。
>その数値を記したい部分に「=A1/1000」といれてあげ>てください
>/が÷の代わりの記号になります。

ですが、1000倍->1000分の1の間違いです。失礼しました。

No.3 回答者： A98JED 回答日時： 2005/11/11 17:06

Macro1は千倍、Macro2は千分の一にします。

Sub Macro1()
' Macro1 Macro
' マクロ記録日 : 2005/11/11 ユーザー名 : editor
Number = ActiveCell.Value
Number = Number * 1000
ActiveCell.Value = Number
End Sub

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2005/11/11 ユーザー名 : editor
'
Number = ActiveCell.Value
Number = Number / 1000
ActiveCell.Value = Number
End Sub

No.1 回答者： onegstar 回答日時： 2005/11/11 16:12

1000倍、もしくは1000分の１にしたい所のカーソルを右クリック

→セルの書式設定
　→表示形式
　　　→数値
にしてOKをクリックします。

ここまでが下準備となります。

あとはマクロになりますが
「A1」の部分の数値を1000倍にしたいばあい。
その数値を記したい部分に「=A1*1000」といれてあげてください
*が×の代わりの記号になります。

また、
「A1」の部分の数値を1000倍にしたいばあい。
その数値を記したい部分に「=A1/1000」といれてあげてください
/が÷の代わりの記号になります。

いかがでしょうか？？