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
|
||||
|
||||
If lastRow < 7 Then
|
||||
MsgBox "データがありません。", vbExclamation
|
||||
MsgBox "No data found.", vbExclamation
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -369,7 +369,7 @@ Sub validateDetailDataButton()
|
||||
End If
|
||||
Next r
|
||||
|
||||
MsgBox "検証完了。エラー: " & errorCount & " 件", vbInformation
|
||||
MsgBox "Validation complete. Errors: " & errorCount & ", ", vbInformation
|
||||
End Sub
|
||||
|
||||
Sub ExportMasterDetailData()
|
||||
|
||||
Reference in New Issue
Block a user