[[20020621010418]]　『数値をツールボタンで1/1000にしたい』（せん）　ページの最後に飛ぶ

『数値をツールボタンで1/1000にしたい』（せん）

既に入力した数値をツールボタンで1/1000にしたいのですが、

方法ありますか？

 みやほりんが 未解決ログ解消を目的に 2007/05/01 11:30 ごろ、投稿しました。
 トピ主の[せん]さんの投稿は2002/06/21 01:04:18でした。
　
 Sub TEST20070501a()
     Dim MyRng As Range, C As Range
     On Error Resume Next
     Set MyRng = Selection.SpecialCells(xlCellTypeConstants, xlNumbers)
     If MyRng Is Nothing Then Exit Sub
     On Error GoTo 0
     For Each C In MyRng
         C.Value = C.Value / 1000
     Next C
 End Sub
　
上記のようなマクロをPersonal.xlsやアドインに登録して、
ツールバーのマクロボタンから実行する方法はあります。
上記　TEST20070501a　
選択範囲の定数数値セルを1/1000とします。
ただし、ValueからValueへの置き換えなので、一度1/1000した範囲を重複して
実行すると何度も1/1000されてしまいます。
一度のみ適用する場合は「1000で割る数式」に置き換えるのが良いかもしれません。
　
 Sub TEST20070501b()
     Dim MyRng As Range, C As Range
     On Error Resume Next
     Set MyRng = Selection.SpecialCells(xlCellTypeConstants, xlNumbers)
     If MyRng Is Nothing Then Exit Sub
     On Error GoTo 0
     For Each C In MyRng
         C.Formula = "=" & C.Value & "/1000"
     Next C
 End Sub
　
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20020621010418]] 『数値をツールボタンで1/1000にしたい』（せん） ページの最後に飛ぶ

[[20020621010418]]　『数値をツールボタンで1/1000にしたい』（せん）　ページの最後に飛ぶ