Kedves mindenki!
Kis segítséget kérnék. Telepítettem a legújabb 5.3-as verziót. Azóta nem indul el. Pedig már javítást is lefuttattam. A csatolt üzenetet jeleníti meg. mIt tegyek?
mIt tegyek?
Sub FeltetelesFormazas
Dim oRange
Dim oConFormat
Dim oCondition(2) as new com.sun.star.beans.PropertyValue
Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Munkalap1")
Dim szoveg As String
Tablazat_induloszam=11
Tablazat_vegeszam=51
szoveg="$B11=$J$5"
oRange = Sheet.getCellRangeByName("$A$"+Tablazat_induloszam+":$L$"+Tablazat_vegeszam+"")
oConFormat = oRange.ConditionalFormat
oCondition(0).Name = "Operator"
oCondition(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
oCondition(1).Name = "Formula1"
' oCondition(1).Value = "$B"+Tablazat_induloszam+"=$J$5"
' oCondition(1).Value = "$B"& CStr(Tablazat_induloszam) &"=$J$5"
' oCondition(1).Value = "$B$11=$J$5"
oCondition(1).Value = szoveg
oCondition(2).Name = "StyleName"
oCondition(2).Value = "Bad"
oConFormat.addNew(oCondition)
oRange.ConditionalFormat = oConFormat
End Sub
Jelenlévő fórumozók: Google [Bot] valamint 0 vendég