Fixed styles (added a space after MsgBox and the following open parenthesis.)

This commit is contained in:
依瑪貓 2016-09-08 21:25:11 +08:00
parent 38f767c386
commit c81698e63a
5 changed files with 5 additions and 5 deletions

View File

@ -45,7 +45,7 @@ Sub subRunCorrelation As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_correl") Then
sExisted = "Spreadsheet """ & sSheetName & "_correl"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

View File

@ -45,7 +45,7 @@ Sub subRunPairedTTest As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_ttest") Then
sExisted = "Spreadsheet """ & sSheetName & "_ttest"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

View File

@ -57,7 +57,7 @@ Sub subRunIndependentTTest As Object
Else
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
End If
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

View File

@ -57,7 +57,7 @@ Sub subRunANOVA As Object
Else
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
End If
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

View File

@ -45,7 +45,7 @@ Sub subRunChi2GoodnessOfFit As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_chi2") Then
sExisted = "Spreadsheet """ & sSheetName & "_chi2"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If