エクセルの小数点以下の入力禁止について

質問

エクセル２０００を使って、業務の集計作業をしています。
各担当者に実績数値を入力してもらい、それを集計する作業をしています。入力の際には端数を入れずに整数で入力するよう依頼するとともに、入力規則を使用し、小数点以下を出来ないようにしています。が、コピー貼り付けや、計算式の入力により端数が入力され、なかなか徹底されません。

　入力の際に小数点以下が入力できないよう排除する方法か、もしくは集計結果から小数点以下がないかを確認するいい方法がないか教えてください。現在は集計結果を「小数点桁上げ」を利用して目視で確認しています。
　集計作業時にはマクロを使用するなど、マクロも多少理解しています。よろしくお願いします。

回答No.1

mt2008

Worksheet_Changeイベントで、入力された数値を整数に変換してしまうのはどうでしょう？
コピペや演算式も整数に変換できます。

例）
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) = True Then
If Target.Value <> Int(Target.Value) Then
Target.Value = Int(Target.Value)
End If
End If
End Sub

お礼

早速の回答、ありがとうございます
本当は小数点以下の入力を防止するか、小数点以下で入力された箇所を簡単に見つけ出す方法がいいのですが、是非試してみたいと思います