[[20170318084012]] 『クリックで処理の移動』(平社員) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『クリックで処理の移動』(平社員)

お世話になります、業務の効率化で考えています。
現在は一つ一つにボタンを作り作業していますが、ボタンを押すたびに整数→小数第一位→小数第二位→整数に戻る様にしたいと思います。
ご存知の方はお教えください。
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


Oh, my God !!!
マナさんのおっしゃるとおりでした。
(γ) 2017/03/18(土) 09:04

γ様
作業が効率的に進みます、本当にありがとうございました。
「ホーム」タブは仰る通りですが画面を大きく使いたいので消してありますし、右クリックで出すのも面倒なのでボタンを作り行っていました。
ホント、助かりました。
(平社員) 2017/03/18(土) 09:30

クイックアクセスツールバーは利用していますか。

(マナ) 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.