Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11793 / 13646 ツリー ←次へ | 前へ→

【14126】ボダン入力で入力規則設定 aa3 04/5/21(金) 13:50 質問[未読]
【14128】Re:ボダン入力で入力規則設定 IROC 04/5/21(金) 13:53 回答[未読]
【14129】Re:ボダン入力で入力規則設定 Asaki 04/5/21(金) 14:01 回答[未読]
【14130】Re:ボダン入力で入力規則設定 aa3 04/5/21(金) 14:10 お礼[未読]

【14126】ボダン入力で入力規則設定
質問  aa3  - 04/5/21(金) 13:50 -

引用なし
パスワード
   入力規則の設定で質問があります。

シートに適当なボタンを作って、そのボタンを押せば
入力規則を設定してくれるというものをしようとしたのですが、

------
' A1を0〜10の入力規則にしているだけ

Private Sub CommandButton1_Click()

Range("A1").Validation.Add Type:=xlValidateWholeNumber, _
    AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="0", Formula2:="10"

End Sub
------

ボタンを押すと

「実行時エラー'1004'
 アプリケーション定義またはオブジェクト定義のエラーです。」

と止まってしまいます。

変なのは、上のソースをマクロとして(Publicにして)動かすと
正常に動くのです。

いろいろ調べたのですが情報がありませんでした。
何してもダメなのでバグなのか…?と思い始めています。

スミマセンが教えていただけると助かります。
よろしくお願いします。


バージョン:Excel 2000 9.0.4402 SR-1

【14128】Re:ボダン入力で入力規則設定
回答  IROC  - 04/5/21(金) 13:53 -

引用なし
パスワード
   最初に Range("A1").Select してはダメですか?

【14129】Re:ボダン入力で入力規則設定
回答  Asaki  - 04/5/21(金) 14:01 -

引用なし
パスワード
   みなさま、こんにちは。

>最初に Range("A1").Select してはダメですか?

似たようなもんですが、
↓はOKのようです。
ActiveCell.Activate
With Range("A1").Validation
  .Delete
  .Add Type:=xlValidateWholeNumber, _
    AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="0", Formula2:="10"
End With

【14130】Re:ボダン入力で入力規則設定
お礼  aa3  - 04/5/21(金) 14:10 -

引用なし
パスワード
   >>最初に Range("A1").Select してはダメですか?
>
>似たようなもんですが、
>↓はOKのようです。
>ActiveCell.Activate
> :
> :

IROCさん、Asakiさんありがとうございます!
どちらでもできました!
かなり悩んでいたものでホントーに助かりました…
(T-T)

しっかし、この仕様には釈然としないものが…

11793 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free