範囲内に特定の文字列が存在するか調べる

範囲内に特定の文字列があるか調べる

Sub Macro1
	Dim Cell As Object
	Dim Sheet As Object
	Dim Doc As Object
	
	Doc = StarDesktop.CurrentComponent
	
	Sheet = Doc.Sheets(0)
	
	For i = 0 To 1000
		For j = 0 To 1000
			Cell = Sheet.getCellByPosition(i,j)
			If Cell.String = "Hit" Then
				MsgBox i &":"& j
			End If
		Next j
	Next i
	
End Sub