|
いつも、閲覧させていただいています。
本件も、入力規則で息詰まってしまったので、
どなたか、救済お願いします。
普通にデータ(D)で入力規則の設定が出来ますよね?
現在、自分は小数点第2位までの入力が出来るような入力規則を
設定したいのですが、何かよい方法ありますかね?
それとともに、1000未満999以上という規則も設定したいのです
で、設定方法がいまいちでしたので、マクロでシート全体に小数点2位以下の
入力があったらとりあえずメッセージを出すようなものを組んでみようと
思ったのですが、うまくいきませんでした。
稚拙ですが、こんなマクロにしてみました。
値を確定する時に、アクティブなセルを変更されてしまうというのが盲点でした。
で、入力の際、必ず一定の方向に入力するわけでもないので・・・
Private Sub Worksheet_Change(ByVal Target As Range)
X = ActiveCell.Value 'ココが、以前のセルならばよいのですが・・・
If X - Int(X * 10) / 10 > 0 Then
MsgBox ("数量確認")
End If
End Sub
|
|