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

質問

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

回答No.1

BLUEPIXY · ベストアンサー

'範囲を選択しているときにそれぞれを実行すると
'１０００倍、１０００分の１にできます。
Public Sub mul1000()
Dim x As Range
For Each x In Selection
x.Value = x.Value * 1000
Next
End Sub
Public Sub div1000()
Dim x As Range
For Each x In Selection
x.Value = x.Value / 1000
Next
End Sub

回答No.3

Wendy02

こんにちは。

「形式を選択して貼付けの　値で乗算と除算のボタンを出したい」のご質問の続きですね。

Personal.xls(個人用マクロブック）の標準モジュールに、掛け算用、割り算用のプロシージャと、演算サブルーチンを置いてください。
そして、表示(V)－ツールバー-ユーザー設定－コマンド[タブ]－マクロ
で、ドラッグして、メニューバー等に貼り付けて、

－選択したボタンの編集－マクロの登録－Personal.xls!MultiplyForMyButton
－選択したボタンの編集－ボタンイメージの変更（任意）
－選択したボタンの編集－名前－「×1000」

同じ要領で割り算を繰り返して登録してください。

'同じ場所の標準モジュールです。
'-----------------------------------
Sub MultiplyForMyButton()
'掛け算
　myOperation 0
End Sub
Sub DivideForMyButton()
'割り算
　myOperation 1

Private Sub myOperation(Arg As Integer)
Dim myOperate As String
If TypeName(Selection) <> "Range" Then Exit Sub
If Arg = 0 Then
　 myOperate = "*"
Else
　　myOperate = "/"
End If
　 Selection = Evaluate(Selection.Address & myOperate & "1000 ")
End Sub

'-------------------------
使い方は、最初に範囲を選択してから、ボタンをクリックします。文字列は、エラーが出ます。

回答No.2

hirumin

さほど難しいマクロでは無いと思われますが…
どういった処理をしたいのか不明確です。
セルを選択して、「×1000」「÷1000」に当たるボタンをクリックして処理するだけのものですか？

Sub sample()
ActiveCell.Value = ActiveCell.Value * 1000
End Sub

こんなので処理できますけど。