Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5707 / 76735

←次へ　｜　前へ→


	【76635】Re:ユーザフォーム最小化釦について

β - 15/2/21(土) 6:18 -


	引用なし

	パスワード

▼コマちゃんさん：

状況が、なかなか見えません。

>Print Application.EnableEvents

このコードは、どこに書きましたか？
Private Sub CommandButton入力_Click()　このプロシジャの中に書いたとすれば
プロシジャは動いた、つまり、ボタンは反応したということになります。
それと　Print Application.EnableEvents　というコードそのものは間違っているんですが
参考書等に、このようなコードの紹介があったんですか？
Printメソッドには、オブジェクトが必要です。Debug.Print とか。

いずれにしても、このボタンは、ActiveXのコマンドボタンなんですね？

ところで、UserForm入力　のInitializeルーティンのコードをアップお願いします。
それと、

「コードでデバックした場合は正常に動作します。」

具体的には、どういった操作をすると、「どのように」正常に動作したのでしょう？

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

0 hits

▼

【76630】ユーザフォーム最小化釦について コマちゃん 15/2/20(金) 18:37