No.1ベストアンサー
- 回答日時:
『QNo.187139 エクセルについて(セルから終了にする)』 の続きですか?
そうだとすると、どのような操作をした時にエラーが起きるかよく分かりませんが・・・
今回の質問は、『シート1のセルF9』と特定されているので、エラー回避を込みで書き換えてみました。
シート1(VBE画面のプロジェクトエクスプローラのSheet1)のコードウインドウに貼り付けます。
貼り付けた後、シートに戻って、『シート1のセルF9』をクリックする前に、『名前を付けて保存』で一旦保存して下さい。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrorHandler 'エラー対応
If Target.Address = "$F$9" Then
'保存・終了の確認
If MsgBox("保存して終了します。", vbOKCancel, "確認") = vbCancel Then
'キャンセルなので保存・終了はしない
Exit Sub
Else
'保存・終了を行う時にメッセージを出さないようにする
ActiveWorkbook.Saved = True
'Bookを保存
ActiveWorkbook.Save
'Excelを終了
Application.Quit
End If
End If
Exit Sub
ErrorHandler:
End Sub
この回答への補足
よかった~。また教えてもらって・・
実は、エクセルで数枚のシートを作成して、作業の最後にシート1(表紙)に戻ってきてセル(終了)をクリックしてウィンドウズの画面になる様に作成したいのですが、終了と同時に保存ができれば・・・複数のシートをシート1に戻ってくるように作成できましたが、その先が出来ないのです。
今回、トライしてみたのですが、ひたすら入力が終わって確認のため教えてgooでを開いたらバッシと画面が真っ暗電源が切れました。何度立ち上げても切れてしまい、一晩寝かしたら起動しましたが、作成したファイルはエラーが出てます。
エラー内容は”コンパイルエラープロシージャの外では無効です”と出てきます。
それと、End Ifからのづれて入力してあるのは意味がありますか?
sena3はそのまま、そろえ入力してしまいました。
No.2
- 回答日時:
実際動かしても何もエラーはでませんが・・・
>ひたすら入力が終わって・・・
回答を入力されたんですかね。入力ミスがあるかも知れないので、回答の Private Sub から End Sub までをマウスで選択して、右クリックしてコピー、それをSheet1のコードウインドウに貼り付けてみてください。
>エラー内容は”コンパイルエラープロシージャの外では無効です”と出てきます。
Private Sub から End Sub や Sub から End Sub 以外の場所に、例えば『A = 1』のような式が入力されていませんか。
>End Ifからのづれて入力してあるのは意味がありますか
ズレは見やすくするためですが、コードは全て必要です。
何かあれば補足してください。
ありがとうございます。が!まだ出来ませ~ん(’~’)。
セルをクリックしても終わらないし、Sheet1コード[Weekbook]のPrivateのところに黄色のラインがはいっていて If MegBoxのMegのところに青いラインがあるのですが すいません、忙しいのに教えてください。
No.3
- 回答日時:
>If MegBoxのMegのところに・・・
If MsgBox ではないですか? 入力間違いでしょうか。
回答をコピーして貼り付ければ、スペルミスはなくなると思いますが。
コードウインドウの最初に
Option Explicit
と入力して『変数の宣言を強制する』ことにすればスペルミスが事前に分かります。ツール→オプション→編集の変数の宣言を強制するにチェックを入れておけば最初から Option Explicit が書きこまれます。
この回答への補足
あけましておめでとうございます。まだ、出来上がっていません。なんとかできてるみたいなのですが、表紙(sheet1)の”保存をして終了”セルをクリックしてもコントロールパネルに戻りません、方法がありますか?
すいませんいつまでも・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報