|
▼コマちゃん さん:
状況が、なかなか見えません。
>Print Application.EnableEvents
このコードは、どこに書きましたか?
Private Sub CommandButton入力_Click() このプロシジャの中に書いたとすれば
プロシジャは動いた、つまり、ボタンは反応したということになります。
それと Print Application.EnableEvents というコードそのものは間違っているんですが
参考書等に、このようなコードの紹介があったんですか?
Printメソッドには、オブジェクトが必要です。Debug.Print とか。
いずれにしても、このボタンは、ActiveXのコマンドボタンなんですね?
ところで、UserForm入力 のInitializeルーティンのコードをアップお願いします。
それと、
「コードでデバックした場合は正常に動作します。」
具体的には、どういった操作をすると、「どのように」正常に動作したのでしょう?
>▼β さん:
>>▼コマちゃん さん:
>>
>>>ユーザーフォーム上のボタンは問題なく機能しますが
>>>ワークシート上に作成していたボタンが機能しません。
>>
>> 機能しないとは、具体的に、どういった状況でしょうか?
>>・何も反応しない(つまりイベントが発生しない)
>> (この場合、VBE画面で、イミディエイトウィンドウを表示し、そこに
>> ?Application.EnableEvents と入力してエンター。その時の結果(True または False)を
>> 教えてください。
>>
>>・システムからエラーメッセージが出る。
>> (この場合、エラーの番号とメッセージを教えてください)
>>・その他?
>>
>>それと、ボタンはActiveXですか?フォームツールですか?
>>あと、このボタンを受けて処理するコードをアップしてください。
>
>早速の回答有難うございます。
>先ずコードは下記の通りです。
>Private Sub CommandButton入力_Click()
> UserForm入力.Show vbModeless
> UserForm入力.ComboBox登録者.SetFocus
>End Sub
>
>ワークシート上のボタンをクリックしても
>全く反応ありません。
>
>コード上に
> Print Application.EnableEvents
>を書き加え
>デバックしてみると
>実行時エラー'438'
>オブジェクトは、プロジェクトまたはメソッドをサポート
>していません
>との、エラーメッセージが表示されます。
>
>宜しくお願いします。
|
|