Excel VBA質問箱 IV

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

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


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

5705 / 76732

←次へ　｜　前へ→


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

コマちゃん

- 15/2/20(金) 22:55 -


	引用なし

	パスワード

▼β さん：
>▼コマちゃんさん：
>
>>ユーザーフォーム上のボタンは問題なく機能しますが
>>ワークシート上に作成していたボタンが機能しません。
>
> 機能しないとは、具体的に、どういった状況でしょうか？
>・何も反応しない（つまりイベントが発生しない）
> 　（この場合、ＶＢＥ画面で、イミディエイトウィンドウを表示し、そこに
>　　?Application.EnableEvents と入力してエンター。その時の結果（True または False）を
>　　教えてください。
>
>・システムからエラーメッセージが出る。
> 　（この場合、エラーの番号とメッセージを教えてください）
>・その他？
>
>それと、ボタンはActiveXですか？フォームツールですか？
>あと、このボタンを受けて処理するコードをアップしてください。

早速の回答有難うございます。
先ずコードは下記の通りです。
Private Sub CommandButton入力_Click()
　　UserForm入力.Show vbModeless
　　UserForm入力.ComboBox登録者.SetFocus
End Sub

ワークシート上のボタンをクリックしても
全く反応ありません。

コード上に
　　Print Application.EnableEvents
を書き加え
デバックしてみると
実行時エラー'４３８'
オブジェクトは、プロジェクトまたはメソッドをサポート
していません
との、エラーメッセージが表示されます。

宜しくお願いします。

353 hits

▼

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