[[20050330233521]]　『セルの数値を倍にするボタン』（エクレア）　ページの最後に飛ぶ

『セルの数値を倍にするボタン』（エクレア）
セルにある数値を入力したあと、マクロを登録したボタンを押すと
その数値が自動的に2倍になるような　方法はありませんでしょうか？
[エクセルのバージョン]　Excel2002

 sub test()
   range("a1").value = range("a1").value * 2
 end sub

 です。

  (INA)

素早いご回答ありがとうございます。
大変お恥ずかしい質問ですが、a1　となっているセルを　選択されている任意のセル
にする場合は　どのようにすればよいのでしょうか？
（エクレア）

 Range("A1")の部分をSelectionと書き換えてみてください。
（代打みやほりん）

 activecell のほうがいいかも。 
  (INA)

 代打の必要ありませんでしたか（汗；；
やはり複数セル範囲選択の対策ですか？（みやほりん）

INAさま　みやほりんさま　ありがとうございました
おかげさまで　望むものが出来ました。　素早いご回答　感謝いたします

 他の方の質問に相乗りするような形で申し訳ありません。
 今こちらのマクロを使って、複数セルを選択し、
 1000倍にしようとしてみたのですが、
 何故か一番上のセルしか、1000倍になりませんでした。
 どういった登録ミスが考えられるかご教示願えませんでしょうか。

 そもそもコマンドボタンにマクロを与える方法が間違っているのかもしれないのですが、
 コマンドボタンを作成し、そのコードの表示に

  Private Sub CommandButton1_Click()
    ActiveCell.Value = ActiveCell.Value * 1000
  End Sub

 と出るような形にしています。
 そして任意のセルを複数選択し、ボタンを押すと、選択をはじめたセルのみが
 1000倍になるような状態です。

 Win2000×Exel2002を利用しております。　（杏）

コメント返信：