- ベストアンサー
'ユーザーフォーム右上隅の［×］ボタンを表示しない
cj_moverの回答
＃３-５,７、ｃｊです。＃７お礼欄へのレスです。 > 動作確認の準備ですが１，２迄で出来きました > ３、のコピー＆ペーストする場所ですが、コード表示画面にてユーザーフォームを表示し、そのユーザーフォーム内の部分をダブルクリックして、表示された画面にコードをコピー＆ペーストすればよいのでしょうか？、ペーストしたコードの初めの１０行ほどが赤字になっています、何処かおかしいでしょうか 大丈夫です。ご指摘の状況は異常ではありません。 "そのユーザーフォーム内の部分をダブルクリック"すると、 Private Sub UserForm_Click() End Sub が表示されますよね？その画面（コードペイン）の記述をすべて消してから、 ＃７のコードを貼り付けます。 "ペーストしたコードの初めの１０行ほどが赤字になっています" おかしくないですから安心してください。 #Ifから#End Ifまで、これは条件付きコンパイルというもので、 Excelのバージョン環境によって、どこかしら構文エラーで赤い字にはなりますが、 VBAはそれらの記述を読み飛ばしますから、動作には影響ないです。 そもそもは、様々なバージョンに自動的に対応させる為の記述です。 気にせずに動作確認して貰っても問題ない筈です。 もし気になるようでしたら、赤い字で書かれている行を 削除しちゃっても構いませんので。 赤い字を削除した場合は、その前後の #If VBA7 Then #Else #End If の３か所についても、消しちゃって構いません。 取り急ぎの返答でした。
関連するQ&A
- 複数のユーザーフォームをコマンドボタンにて表示・非表示させるには
VBA勉強中のものです。 複数のユーザーフォームをコマンドボタンを使用して画面への表示切替を考えております。 例）ユーザーフォーム1,ユーザーフォーム2,ユーザーフォーム3のそれぞれにコマンドボタン1,コマンドボタン2,コマンドボタン3を作成し、 コマンドボタン1→ユーザーフォーム1を表示 コマンドボタン2→ユーザーフォーム2を表示 コマンドボタン3→ユーザーフォーム3を表示 とするようなことを考えおります。 そこで、下記のようにコードを作成したのでですが，一度表示させたユーザーフォームを再度表示させようとコマンドボタンをクリックしたら、「フォームはすでに表示させているのでモーダル表示はできません」とエラーがでてしまいます。 どなたか、どのようにしたらいいかご教授ねがいます。 サンプルコード） --------------------------------------------------- 'UserForm1のコード Private Sub CommandButton2_Click() Call UserForm2_show UserForm1.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm1.Hide End Sub ---------------------------------------------------- 'UserForm2のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm2.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm2.Hide End Sub ------------------------------------------------------- 'UserForm3のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm3.Hide End Sub Private Sub CommandButton2_Click() Call UserForm2_show UserForm3.Hide End Sub ------------------------------------------------------------ '標準モジュール コード Sub UserForm1_show() UserForm1.Show End Sub Sub UserForm2_show() UserForm2.Show End Sub Sub UserForm3_show() UserForm3.Show End Sub
- ベストアンサー
- オフィス系ソフト
- 【VBAユーザーフォームで閉じるボタンを表示したくない】
ユーザーフォームの右上閉じるボタン（×）を表示しない方法が見当たりません。 どなたかご存知の方、ご教授願います。 開発言語：Excel2000VBA OS：Windows2000
- ベストアンサー
- Visual Basic
- ユーザーフォームが表示前にエラーになります。
お世話になります。 Excelのシート上にコマンドボタンを配置して それをクリックするとユーザーフォームが表示されるようにしたいのですが、下記のコードだと「フォーカスがありません」と1行目でエラーで止まってしまいます。 解決方法を教えてください。 Private Sub コマンドボタン_Click() ユーザーフォーム.Show End Sub よろしくお願いします！
- ベストアンサー
- その他（プログラミング・開発）
- ユーザフォームの押下コマンドボタンの区別は?
Excel2007のVBAについて質問します。初心者です。 コマンドボタンが2個あるユーザフォームを表示します。それぞれのボタンが押されると対応する処理をして制御がユーザフォームを表示した直後に戻るようになっています。 このとき、どちらのボタンが押されたのか区別する方法をご教示頂きたくよろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルのユーザーフォームについて
現在、ワークシートの内容を見やすくするためにユーザーフォームを使用し表示させています。印刷は、ユーザーフォームにコマンドボタンを配置し、ワークシートを印刷しています。 せっかくユーザーフォームで見やすいレイアウトにしているので、表示させた内容をユーザーフォームごと印刷できればと考えています。 画面のハードコピーとかではなくて、コマンドボタンをクリックすることで印刷したいのですが、どなたか教えてください。
- ベストアンサー
- オフィス系ソフト
- ExcelVBAでユーザーフォームの右上にある最小化ボタンを表示したい
通常フォームには右上に最小化、最大化、閉じるボタンがあると思いますがExcelVBAで、フォームを作ったときには最小化ボタンがありません。 これを表示させるにはどのようにしたらよいのでしょうか？ 回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- ExcelVBAでユーザーフォームの閉じるボタン「×」を使用できなくする方法
VBAで、ユーザーフォームを開くと右上に「×」の閉じるボタンがありますが、これを使用できなくする方法を教えてください。 回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- ユーザーフォームのHide,showメソッド
ExcelのVBAでユーザーフォームをHideメソッドで非表示にして、 showで再表示すれば、状態が保存されたまま表示されるはずですが、 ユーザーフォーム表示中またはHideメソッドで隠した後に コマンドボタン等が配置されたシートを削除したときは、showで再表示しても、 ユーザーフォームの状態が保存されていません。 これはどうしてでしょうか？ また解決策等ありましたら、教えてください。
- 締切済み
- Visual Basic
- エクセルVBA ユーザーフォームの終了について
エクセルVBAでユーザーフォームを作成しています。 コマンドボタンにVBAマクロを割り当てしているのですが 思うように動いてくれないので質問します。 コマンドボタンをクリックしたら望む動作 １、ワークシートを選択 ２、その後、ユーザーフォームを消す。 と言う動作にしたいのですが、２の ユーザーフォームを消す方法、書き方が分かりません どなたか教えていただけないでしょうか １の動作は以下のように書いています。その後の書き方を お願いします。 Private Sub CommandButton8_Click() ブック名 = "VBA演習" シート名 = "sheet1" Workbooks(ブック名 & ".xls").Worksheets(シート名).Activate End Sub （ユーザーフォームの名前は"テストフォーム"としてます）
- ベストアンサー
- オフィス系ソフト
お礼
cj_mover様 ヤッター！！ すばらしい！！ Ｓｈｅｅｔ１のイベントプロシージャーに下記を書き込み Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Show vbModeless End Sub 赤字の行はそのままで、マクロを実行テストをしました 快調に動作しました ＞↓ 確認 表示された UserForm1 について、 ＞閉じるボタンが非表示になっていること、 ＞Alt + F4 を押してもユーザーフォームを閉じることが出来ないこと ＞表示直後はCommandButton1が非活性で、 ＞CommandButton2を押すとCommandButton1を押せるようになっていること、 ＞CommandButton1を押すと、ユーザーフォームが閉じること 上記項目全て確認しました、ＯＫです 適切な回答有難うございました、感謝です