Change Japanese MsgBox to English

This commit is contained in:
updsv7
2026-04-13 11:40:31 +09:00
parent 105517408f
commit f8f2598d17

View File

@@ -357,7 +357,7 @@ Sub validateDetailDataButton()
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
If lastRow < 7 Then If lastRow < 7 Then
MsgBox "データがありません。", vbExclamation MsgBox "No data found.", vbExclamation
Exit Sub Exit Sub
End If End If
@@ -369,7 +369,7 @@ Sub validateDetailDataButton()
End If End If
Next r Next r
MsgBox "検証完了。エラー: " & errorCount & " ", vbInformation MsgBox "Validation complete. Errors: " & errorCount & ", ", vbInformation
End Sub End Sub
Sub ExportMasterDetailData() Sub ExportMasterDetailData()