独習 Excel VBAエキスパート スタンダード

1. プロシージャ



問4: 次のコードの空欄に入る適切な命令はなにか。



Sub Macro1()

	If ChkSheet("Sheet1") = True Then

		MsgBox "存在します"

	Else

		MsgBox "存在しません"

	End If

End Sub



Function ChkSheet(A As String)

	Dim i As Long

	For i = 1 To Sheets.Count

		If Sheets(i).Name = A Then

			ChkSheet = True

			【空欄】

		End If

	Next i

	ChkSheet = False

End Function