Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020621010418]]
- @digest: db2c10cef27be76dd579204afc98bd3e
- @id: 203
- @mdate: 2007-05-01T02:34:38Z
- @size: 1285
- @type: text/plain
- #keywords: test20070501a (15368), test20070501b (7815), xlnumbers (4582), 記te (3387), myrng (2068), 度1 (2017), 数数 (1919), をツ (1814), 値セ (1777), xlcelltypeconstants (1535), グ解 (1221), 決ロ (1219), ルボ (1188), personal (1117), ピ主 (940), 未解 (937), 1000 (761), ロボ (730), specialcells (692), 択範 (556), ツー (545), 解消 (527), トピ (476), error (472), 定数 (449), 投稿 (440), 適用 (416), ドイ (408), ボタ (381), selection (381), formula (356), タン (342)
- 『数値をツールボタンで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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200206/20020621010418.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97019 documents and 608145 words.
訪問者：