LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****

Option Explicit

REM ============================================================================
REM
REM ============================================================================

Sub Main
	' Constants
	Const sSEARCH_PAT As String = "Hof"
	
	' Variables
	Dim iColIdx As Integer
	Dim iColIdxEnd As Integer
	Dim iRowIdx As Integer
	Dim iRowIdxEnd As Integer
	Dim oCell As Object
	Dim oDocCalc As Object
	Dim oSheet As Object
	Dim sCellCont As String
	
	' Initialize objects
	oDocCalc = ThisComponent
	' oSheet = oDocCalc.Sheets(0)
	oSheet = oDocCalc.getSheets().getByName("Sheet3")
	
	' Initialize variables
	iColIdxEnd = 5
	iRowIdxEnd = 20
	
	' Set column index
	For iColIdx = 0 To iColIdxEnd Step 1
		' Set row index
		For iRowIdx = 0 To iRowIdxEnd Step 1
			' Create cell object
			oCell = oSheet.getCellByPosition(iColIdx, iRowIdx)
			' Read string value from cell
			sCellCont = oCell.String
			
			' Check length (that is: number of characters)
			If Len(sCellCont) = Len(sSEARCH_PAT) Then
				' Check characters
				If sCellCont = sSEARCH_PAT Then
					' Change background color of cell with matching entry
					oCell.Cellbackcolor = RGB(0, 128, 0)
				End If
			End If
		Next iRowIdx
	Next iColIdx

	' Delete objects explicitly
	Set oSheet = Nothing
	Set oDocCalc = Nothing
	Set oCell = Nothing
End Sub