Excel VBA質問箱 IV

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

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


5705 / 76732 ←次へ | 前へ→

【76634】Re:ユーザフォーム最小化釦について
質問  コマちゃん E-MAIL  - 15/2/20(金) 22:55 -

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

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

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

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

宜しくお願いします。

352 hits

【76630】ユーザフォーム最小化釦について コマちゃん 15/2/20(金) 18:37 質問[未読]
【76631】Re:ユーザフォーム最小化釦について β 15/2/20(金) 20:30 発言[未読]
【76632】Re:ユーザフォーム最小化釦について コマちゃん 15/2/20(金) 21:43 質問[未読]
【76633】Re:ユーザフォーム最小化釦について β 15/2/20(金) 22:31 発言[未読]
【76634】Re:ユーザフォーム最小化釦について コマちゃん 15/2/20(金) 22:55 質問[未読]
【76635】Re:ユーザフォーム最小化釦について β 15/2/21(土) 6:18 発言[未読]
【76636】Re:ユーザフォーム最小化釦について コマちゃん 15/2/22(日) 10:39 お礼[未読]

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