質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

解決済

後から挿入したコードが処理されない

Khaan_bank
Khaan_bank

総合スコア4

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0リアクション

0クリップ

263閲覧

投稿2022/09/10 23:07

編集2022/09/10 23:51

前提

初心者です。
コマンドボタンを押すと元データを集計してメッセージボックスに表示させるコードを書いて正しい結果が表示されています。
それに追加で、元データに空白があった時にそれを知らせるメッセージを表示させて、それ以上先の処理に進まないようにしたいです。

困っていること

下記のコードを単体で実行すると正しい結果が表示されます。
ただ、もともとある「コマンドボタンを押すと元データを集計してメッセージボックスに表示させるコード」の中に埋め込むとその処理がスルーされてしまいます。

順番としては
①変数を宣言

②元データに空白があることを知らせるループ(下記コードを挿入した)

③元データを集計してメッセージボックスに表示(本処理)

以上のような流れになっています。
もともと①→③で正しく機能していました。
②単体では正しい結果が返されますが、
もとのコードに挿入しても②の処理を飛ばしてしまいます。

原因がわからないのですが、教えてもらえると助かります。

該当のソースコード

VBA

Sub CommandButton1_Click() Dim WEM As String Dim Pa As String Dim i As Long Dim j As Long WEM = CLng(DateValue(TextBox1.Value)) & "WE" Pa = CLng(DateValue(TextBox1.Value)) & "a" For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 5 To 10 If Worksheets("form1").Cells(i, j).Value = "" Then MsgBox "form1に抜けがあります。正しく入力してください。" Exit Sub End If Next Next On Error GoTo ErrorHandler '日付が正しく入力されないとエラーになるので ErrorHandlerに飛ぶ MsgBox "報告全数 : " & WorksheetFunction.SumIf(Range("b:b"), Cells(2, 11), Range("d:d")) & vbCrLf & _ "出席者数 : " & _ WorksheetFunction.VLookup(WEM, Worksheets("form2").Range("C:J"), 8, False) & vbCrLf & _ "----------------------------" & vbCrLf & _ "Paの数 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 4, False) & vbCrLf & _ "Pa1 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 5, False) & vbCrLf & _ "Pa2 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 6, False) & vbCrLf & _ "Pa3 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 7, False) & vbCrLf & _ "Pa4 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 8, False) & vbCrLf & _ "Pa5 : " & WorksheetFunction.VLookup(Pa, Range("A:I"), 9, False), vbOKOnly, “ Pa " & Format(TextBox1.Value, "yyyy年mm月") Exit Sub ErrorHandler: MsgBox "年月日が正しく入力されませんでした" End Sub

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

hatena19

2022/09/10 23:40

提示のものには「元データを集計してメッセージボックスに表示させるコード」が含まれてません。 それも含めたコードに修正してください。(Sub から End Sub まで) あと、空白セルが見つかった時は、③ の集計処理はしないということでいいでしょうか。
Khaan_bank

2022/09/10 23:52

すみません。修正しました。 >>空白セルが見つかった時は、③ の集計処理はしないということでいいでしょうか。 はい。そういう動きをしてもらいたいです。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。