Excel VBA質問箱 IV

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

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


9746 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【25682】ユーザーフォームについて
質問  あき  - 05/6/10(金) 18:00 -

引用なし
パスワード
   こんなレベルの高いサイトで質問するのははなはだ恐縮なんですが、VBAをはじめて1週間なので笑って許して下さい。ユーザーフォームの使い方を勉強し、各種プロパティを設定し、シート上にダブルクリックで呼び出せるようにしました。それには成功したのですがシート上にユーザーフォームが張り付いたとたん、マウスでどこをクリックしても何の反応もせずロックしてしまいます。なぜ、こうなるのか、はたまたこれでいいのかどなたか教えていただきませんでしょうか。あほな質問ですみません。

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

引用なし
パスワード
   ▼あき さん:
>マウスでどこをクリックしても何の反応もせずロックしてしまいます。
エクセルの他の機能(シート又は、メニュー・ツールバー)を使いたいと言うことでしょうか?
であれば、ユーザーフォームのプロパティでShowModalのTrueをFalseに変更してみてください。

【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のバージョンも記述して下さい。

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

【25685】Re:ユーザーフォームについて
発言  ponpon  - 05/6/10(金) 20:27 -

引用なし
パスワード
   あきさん、吉さん、ichinoseさん こんばんは。
>VBAをはじめて1週間なので
ということで、
吉さんの
>ユーザーフォームのプロパティでShowModalのTrueをFalseに変更してみてください。
ということから、

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

こういうことでしょうか?

【25687】Re:ユーザーフォームについて
お礼  あき  - 05/6/10(金) 21:15 -

引用なし
パスワード
   ▼吉さん、ichinoseさん、ponponさん
>質問をした後、すぐに席を離れることになって今、サイトを開いてみたらもう3人の方から本当にご丁寧な回答をいただき、心から感激しているところです。まだご指示いただいた内容をやってはいないのですが、とりあえずうれしくてご返事させていただきました。このうれしさを励みにこれからもVBAの勉強を続けていきたいと思います。また、幼稚な質問をする事をお許しください。今後ともよろしくお願いします。

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