エクセル入力規則のマクロについての質問です。

質問

エクセル入力規則のマクロについての質問です。
　excel2003 os=WindowsXP の環境です。
　E列の１０行目から５７行目、I列の１０行目から６０行目に１から９９９９までの数字のみ入力可能の条件を設定しようと下記のプログラムを作ったのですが、全く動いてくれません。ご教授のほどよろしくお願いします。　

Private Sub Worksheet_Activate()

Range("e10:e48").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:="9999"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "入力制限があります"
.InputMessage = ""
.ErrorMessage = "登録は９９９９までしか登録できません。９９９９以下のの数字を入力下さい。"
.IMEMode = xlIMEModeAlpha
.ShowInput = True
.ShowError = True
End With
Range("i10:i60").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:="9999"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "入力制限があります。"
.InputMessage = ""
.ErrorMessage = "登録は９９９９までしか登録できません。９９９９以下のの数字を入力下さい。"
.IMEMode = xlIMEModeAlpha
.ShowInput = True
.ShowError = True
End With

End Sub

回答No.3

myRange · ベストアンサー

回答２、myRangeです。

原因は、
＞シートは、１つだけで、
このシートが１枚しかないというところにあります。

シートが１枚しかないと、そのシートのActivateイベントが発生しないのです。

で、WorkSheet_Activateイベントは削除して
入力規則設定のコードを次の２つのどちらかに書いてください。

（１）標準モジュールにAuto_Openプロシージャを作成しそこに書く

Sub Auto_Open()
　　ここに質問者のコード
End Sub

--------------------------------------------------------------
（２）ThisWorkBookモジュールのWorkBook_Openイベントに書く

Private Sub Workbook_Open()
　　ここに質問者のコード
End Sub

-------------------------------------------------------------

●覚えておくこと●
シートが一枚の時は、そのシートのActivateイベントは発生しない！

以上です。

お礼

myRange様
ありがとございます。
正常に動作しました。
基本がなってなかったってことですね。
助かりました。

回答No.2

myRange

２つのことが考えられます。

（１）一つ目は、このコードを該当シートとは別なシートモジュールに書いている場合

例えば、入力規則をセットするシートを"Sheet３"だとして、
このコードをSheet３以外のシートモジュールに書いてしまった。

同じことですが、、
このコードをちゃんと"Sheet３"のモジュールに書いたのに
入力規則がセットされたどうか別なシートで確認している。

（２）二つ目は、このコードを標準モジュールに書いている場合

恐らく、（１）の方だと思いますが。。。。
そこらを確認してみたらどうでしょう。
以上です。

お礼

myRange様
ありがとうございます。
MicrosoftExcelObjectsのSheet1(入力)に
CommandButton1_Click()、
Worksheet_Change(ByVal Target As Range)、
Worksheet_Activate()
の３つがあり、
標準モジュールに
CommandButton1_Clickをクリックしたときに呼ばれるマクロがあります。
シートは、１つだけで、CommandButton1をクリックした後に
シートが増えて増えたシートの内容をCSVに出力し、
増やしたシートを削除しています。

回答No.1

Hardking

入力値の最小値／最大値の制限だけことならば
別案として、VBAではなくエクセルの入力規則設定ではどうでしょうか。

１．該当セルの範囲指定する。
２．メニュー項目「データ」→「入力規則」を選択し入力規則ダイアログを開く。
３．条件の設定をする。
　　　入力値の種類：整数
　　　データ　　　：次の値の間
　　　最小値　　　：1
　　　最大値　　　：9999
空白を無視する：チャックオフ

お礼

Hardking様
ありがとございます。
VBAでできればと思ったので。