Ho un'infarinatura di VBA , ma mi sono accorto che è come pretendere di capire il rumeno solo perchè si conosce l'italiano ^^"
Sto lavorando su questo codice , e mi servirebbe sapere come recuperare il .Row del MAX
Codice: Seleziona tutto
Sub Rosse
objSheet=ThisComponent.Sheets(0)
objRange=objSheet.getCellRangeByName("B2:B129")
strUltPropr=objSheet.getCellByPosition(10,16).string
Search_Desc = objRange.createSearchDescriptor()
Search_Desc.SearchString = strUltPropr
Search_Result = objRange.findAll(Search_Desc)
intNumFound = Search_Result.Count
LastOccur = Search_Result.getByIndex( intNumFound - 1)
objCellAddr = LastOccur.CellAddress
intRow = objCellAddr.Row
objRange1=objSheet.getCellRangeByName("F2:F" & intRow)
dblMaxRatio=objRange1.computeFunction(com.sun.star.sheet.GeneralFunction.MAX)
' intRow1 = --- la riga dove si trova il massimo ---
End Sub
Dato che non son riuscito a trovare una soluzione diretta ( ed arriviamo alla seconda parte del problema ) ho provato ad utilizzare un nuovo SearchDescriptor usando dblMaxRatio come SearchString , ma ho un errore in
Codice: Seleziona tutto
intNumFound1 = Search_Result1.Count
Non sono riuscito a trovare nessuna proprietà di SearchDescriptor che mi consenta di far fare allo script una ricerca per valori anzichè ( come pare stia facendo ) per formule . Quindi la seconda domanda è : come posso fare ?