ＥＸＥＬで電卓の「000」と同じマクロを作る方法

質問

仕事柄、ＥＸＥＬで百万単位の入力をよく行うので、電卓（加算機）の「000」キーみたいに、入力中の任意のセルの数値を、1000倍、1000000倍するマクロを登録できると便利なのですが、方法がわかりません。なお、ＥＸＥＬは会社のパソコンのため、いまだに「97」です。
　よろしくお願いします。

回答No.4

merlionXX

> 1000倍、1000000倍

merlionXXです。1000000倍をわすれてました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ans = MsgBox("100倍なら「はい」、1000000倍なら「いいえ」", vbYesNoCancel)
If ans = vbCancel Then Exit Sub
x = IIf(ans = vbYes, 100, 1000000)
On Error GoTo line
ActiveCell.Value = ActiveCell.Value * x
Exit Sub
line:
MsgBox ActiveCell.Value & " は" & x & "倍できません。", vbCritical
End Sub

回答No.3

merlionXX

セル入力中（カーソル点滅中）にはむりですが、入力完了したセル上でダブルクリックすればセル内の数値を1000倍するのはいかがでしょう？

該当シートのモジュールに記述してください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error GoTo line
ActiveCell.Value = ActiveCell.Value * 1000
Exit Sub
line:
MsgBox ActiveCell.Value & " は1000倍できません。", vbCritical
End Sub

回答No.2

hda000

Excel97で使えるかどうかは判りませんが、任意セルの値を１０００倍
すのなら、たとえば以下のようなマクロで対応できます。
マクロはボタンや、任意のキーに割り当てておくと便利です。

Sub Macro1()
tmp = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = tmp * 1000
End Sub

回答No.1

neKo_deux

マクロでは、入力中のセルに対して操作を行う事は出来ません。
後でまとめて１０００倍とかなら可能ですが。

・「０００」のキーのあるテンキーパッドを導入する。
・キー操作の記録・再生ツールで「０００」の入力を登録する。
とか。

Vectorダウンロード> Windows>ユーティリティ>操作関係>キーボード用ユーティリティ
http://www.vector.co.jp/vpack/filearea/win/util/operate/keyboard/