数字入力の省略方法について教えてください

質問

●前にご指導いただいた、質問の関連質問をさせていただきます。

●３月２４日に、QNo.2861054 「数字入力の省略方法について教えてください 」でご指導いただいた者です。
http://oshiete1.goo.ne.jp/qa2861054.html
--------
●その時の質問内容
エクセル初心者です。

F列に数字を入力していますが、入力する数字の下２桁は必ず　００なので、それを省略して入力したい。

・１２３,４００円を１２３４と入力し１２３,４００と表示したい。

●その時ご指導いただいた回答 (回答者：nobu555様)

-------------------
マクロです。

シート名を右クリックしてコードの表示で出てきたシートに
下記をコピーして見てください。
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 6 Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error GoTo line
If IsNumeric(Target.Value) Then Target.Value = Target.Value * 100

line:
Application.EnableEvents = True

End Sub
コピーしたら、終了してエクセルに戻り、
F列に数値を入力すると100倍になります。
-------------------
・おかげさまで、思ったとおりの処理が出来て感謝しております。

●別件の下記条件でも使用させていただきたく、お願い致します。
入力列が、AG列・Ak列・Ao列・AS列と複数列となり、他はまったく同じです。
宜しくお願い致します。

回答No.2

mshr1962 · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case 6,33,37,41,45
If IsNumeric(Target.Value) Then Target.Value = Target.Value * 100
End Select
Application.EnableEvents = True
End Sub

お礼

mshr1962様、ありがとうございました。
おかげさまで、出来ました。
感謝申し上げます。

回答No.1

usawing

未確認なのですが、2行目を下記のように書き換えるだけではダメでしょうか？

If Target.Column <> 6 Then Exit Sub
↓
If Target.Column <> 6　or 33 or 37 or 41 or 45 Then Exit Sub

お礼

ありがとうございました。