[Risolto] macro per trova...

[finoalmattino]

Problema: come creare una macro che abbia la funzione di modifica>trova.. . Nel file allegato il cursore si dovrebbe posizionare su A10 (uguale stringa di B1)

[patel]

Codice: Seleziona tutto

Sub SearchARange
  Doc = ThisComponent
  oSheet = Doc.getSheets().getByIndex(0)
  oRange = oSheet.getCellRangeByName("A1:A100")
  nome1 = oSheet.GetCellRangeByName("B1").string
  if nome1 <> "" then
      oFoundCell = SimpleSheetSearch(nome1, oRange, False)
      Doc.CurrentController.Select(oFoundCell)
  end if
End Sub

Function SimpleSheetSearch(sString$, oSheet, bWholeWord As Boolean) As Variant
  Dim oDescriptor, oFound
  REM Create a descriptor from a searchable document.
  oDescriptor = oSheet.createSearchDescriptor()
  With oDescriptor
    .SearchString = sString$
    .SearchWords = bWholeWord
    .SearchCaseSensitive = False
  End With
  REM Find the first one
  oFound = oSheet.findFirst(oDescriptor)
  SimpleSheetSearch = oFound
End Function

[finoalmattino]

Funziona ! grazie Patel