Excel97使用。
VBAの初心者の質問です。
ユーザーフォームの「OKButton」を押すと
「End Sub が必要です。」のエラーメッセージが・・・
End Subはあるのに
Subを入れ子にしてるわけでもないのに
何でエラーになるんでしょうか?
記述は下記のとおりです。
-----
Private Sub OKButton_Click()
'所有者欄の設定
Range("F5").Value = "〒" & 所有者〒Box & " " & 所有者住所Box
Range("F11").Value = 所有者氏名Box
Range("N11").Value = "電話" & 所有者電話Box
'管理者欄の設定
Range("F17").Value = "〒" & 管理者〒Box & " " & 管理者住所Box
Range("F22").Value = 管理者氏名Box
Range("N22").Value = "電話" & 管理者電話Box
End Sub
-----
Private Sub キャンセルButton_Click()
'個別台帳を閉じる
Workbooks("個別台帳_" & 入力管理番号 & ".xls").Close False
'フォームを閉じる
Unload 個別台帳編集Form
End Sub
-----
ちなみに下に記述された「キャンセルButton」を
押すと下記のエラーメッセージが出ます。
「End Sub、 End Function または End Property 以降には、コメントのみが記述できます。」
非常に困ってます。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
メニューのツールのマクロからVBE(VisualBasicEditor)を開きます。
VBEのメニューからデバッグのコンパイルを選びます。
エラーの箇所が反転もしくは赤色で表示されますのでそこを確認してください。
>「End Sub が必要です。」のエラーメッセージが・・・End Subはあるのに
Private SubのEnd Subがどこか削除していましネストしている状態のようになっているとかEnd Subが少ない状態になっている。
>End Sub、 End Function または End Property 以降には、コメントのみが記述できます。
End Sub以降に何か記述が入っていないか確認してください。
その辺を確認してあれば'を先頭に入れるか余分な記述を削除するかでエラーは回避できると思います。
皆さん回答ありがとうございました。
返信が遅れて申し訳ありませんでした。
結局、1段階前のバックアップに戻って
再度作り始めたら素直に進んだので
原因は不明なままですが、「非常に困っている」
状態からは脱出できました。
また同じトラブルが発生した際には
最優先でこのページを参考にしたいと
思います。
No.2
- 回答日時:
こんばんは。
ボタンをクリックする前に、モジュールの
メニューのデバッグ(D) のVBAProject のコンパイルをクリックしてください。エラーになっている個所に飛びます。おそらく、最下行に単独の End Sub など、消し忘れが残っているはずです。
それから、コードは、リテラル値で入れずに、CONST などの定数を用いて、代入させたほうがよいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルでマクロを実行するとコンパイルエラー
Excel(エクセル)
-
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
-
4
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
5
VBでコンパイル エラー 変数が必要です
Visual Basic(VBA)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
エクセルでエラーが出て困っています。
Excel(エクセル)
-
8
エクセルで行の高さ及び列幅の余裕分を自動的に調整する方法
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
Excelでマクロ設定したが反映されない(初心者です)
Excel(エクセル)
-
12
Excelのマクロ一括実行ができないので、対処法を教えてください。
Visual Basic(VBA)
-
13
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
14
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
15
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
16
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
17
エクセルでマウスカーソルの形が十字のままになってしまう
Excel(エクセル)
-
18
エクセルでセルに文字が入力されたらマクロを実行
Excel(エクセル)
-
19
別のシートから値を取得するとき
Visual Basic(VBA)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
End Sub が必要です。
-
ラズパイ上の、pythonのエラー...
-
pythonの条件分岐(if)
-
43:syntax error at end of input
-
【ルネサスのマイコン】E8aから...
-
コンパイルで未定義のシンボル
-
AccessVBAでVLookupを使いたい
-
C言語コンパイルエラー cygwin
-
VB2005でOCXを動的に呼び出すに...
-
Excel・Word リサーチ機能を無...
-
エクセルのマクロについて教え...
-
配列数式の解除
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
エクセルのマクロについて教え...
-
UserForm1.Showでエラーになり...
-
教えて下さい
-
String""から型'Double'への変...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
End Sub が必要です。
-
フォートランのエラーについて...
-
intel fortranのエラーで困って...
-
pythonの条件分岐(if)
-
AccessVBAでVLookupを使いたい
-
Excel VBA: UserForm.Show で実...
-
43:syntax error at end of input
-
Makefile と <math.h>
-
対応する関数ヘッダーがありません
-
ラズパイ上の、pythonのエラー...
-
他クラスからForm1内コントロル...
-
#ifndefとかヘッダファイルにつ...
-
解説サイトに従ったfortran並列...
-
DLL内からの外部変数の参照
-
C2065: 'EnumDisplayDevices' :...
-
Texに詳しい方よろしくお願いい...
-
select関数の使用方法について
-
C# IEnumerable が IEnumerable...
-
VBS WrteLineで1行ずつ出力する...
-
Excel VABについて 下記記述が...
おすすめ情報