Excel VBA質問箱 IV

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

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


55815 / 76732 ←次へ | 前へ→

【25684】Re:ユーザーフォームについて
発言  ichinose  - 05/6/10(金) 18:37 -

引用なし
パスワード
   ▼あき さん:
こんばんは。

>こんなレベルの高いサイトで質問するのははなはだ恐縮なんですが、VBAをはじめて
>1週間なので笑って許して下さい。
>ユーザーフォームの使い方を勉強し、各種プロパティを設定し、シート上にダブルクリ
>ックで呼び出せるようにしました。

ユーザーフォームにはどんなコードが記述されていますか?
又、シート上にダブルクリックという事は、シートモジュールに
'===================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.Show 'UserForm1は、ユーザーフォーム名
End Sub

こんなコードを記述されているのですか?


>それには成功したのですがシート上にユーザーフォームが張り付いたとたん、マウスで
>どこをクリックしても何の反応もせずロックしてしまいます。

例えば、

新規ブックにて

ユーザーフォーム(オブジェクト名--Userform1 つまり、既定名)
にコマンドボタン(オブジェクト名--Commandbutton1 既定名)を
一つ作成して下さい。
(プロパティなども既定の設定で規定値のままでよいです)

このユーザーフォームのモジュールには、

'==================================================
Private Sub CommandButton1_Click()
  Unload Me
End Sub


また、Sheet1のモジュールに

'===========================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.Show
End Sub


として、

当該シートでダブルクリックを行って下さい。

フォームが表示されます。

フォーム上のボタンをクリックしてフォームが消える仕様です。


これをご自分で行ってみて動作しますか?
確認してみて下さい。

これが動作するなら、ご自分のコードと何が違うのか照らし合わせてみて下さい。

これでもロック状態なのなら、あきさんの作成されたコード以外の原因も
考えられます。

というように原因に少しずつ範囲を狭めていって近づいていくことですよ!!


それから、うまくいかない投稿の場合は、
WindowsやExcelのバージョンも記述して下さい。

それとコードの提示もね!!
2 hits

【25682】ユーザーフォームについて あき 05/6/10(金) 18:00 質問
【25683】Re:ユーザーフォームについて 05/6/10(金) 18:37 発言
【25684】Re:ユーザーフォームについて ichinose 05/6/10(金) 18:37 発言
【25685】Re:ユーザーフォームについて ponpon 05/6/10(金) 20:27 発言
【25687】Re:ユーザーフォームについて あき 05/6/10(金) 21:15 お礼

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