Change Japanese MsgBox to English
This commit is contained in:
@@ -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()
|
||||||
|
|||||||
Reference in New Issue
Block a user