|
βさん
続けての質問をしていたのですが、表示されません。
最小化問題は一旦は解決したのは事実ですので、
お礼申し上げるとともに、
別の問題として新規投稿させて頂きます。
色々ご指導有難うございました。
▼β さん:
>▼コマちゃん さん:
>
>状況が、なかなか見えません。
>
>>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'
>>オブジェクトは、プロジェクトまたはメソッドをサポート
>>していません
>>との、エラーメッセージが表示されます。
>>
>>宜しくお願いします。
|
|