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