[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『クリックで処理の移動』(平社員)
お世話になります、業務の効率化で考えています。
現在は一つ一つにボタンを作り作業していますが、ボタンを押すたびに整数→小数第一位→小数第二位→整数に戻る様にしたいと思います。
ご存知の方はお教えください。
Sub 整数()
Selection.NumberFormatLocal = "0" End Sub Sub 小数第一位() Selection.NumberFormatLocal = "0.0" End Sub Sub 小数第二位() Selection.NumberFormatLocal = "0.00" End Sub
< 使用 Excel:Excel2013、使用 OS:Windows7 >
こういうことでしょうか?
Sub test() Dim s As String
Select Case Selection.NumberFormatLocal Case "0" s = "0.0" Case "0.0" s = "0.00" Case "0.00" s = "0" ' Case Else ' s = "0" End Select Selection.NumberFormatLocal = s End Sub
3つの形式以外だったときはどうするのか不明ですが、 その点はとりあえずスルーしておきます。
(γ) 2017/03/18(土) 08:55
(マナ) 2017/03/18(土) 08:56
(マナ) 2017/03/18(土) 09:37
自分専用なら、私なら「BeforeRightClick」イベントで出来ないか検討しますね。
セルの選択と同時に書式設定も完了するので、もっと効率がよくなります。
※意図しない時に作動するのが心配なら、作動条件を何か工夫する(例:Z1セルに「作動中」と入れてある間だけとか)。 (半平太) 2017/03/18(土) 09:51
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.