Pagina 1 di 1

[Risolto] macro per trovare una stringa

MessaggioInviato: venerdì 26 aprile 2019, 23:48
da Raoul Duke
Salve
in una macro, sapete com'è il comando che (senza usare il despatcher) trova una cella contenente una specifica stringa e ne restituisce le coordinate?
grazie

Re: macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 9:37
da patel
un esempio
Codice: Seleziona tutto   Espandi visualeStringi visuale
Sub Cerca
  Dim oSheet, oRange, oFoundCell, oDescriptor, oFound
  Doc = ThisComponent
  oSheet = Doc.Sheets(0)
  Tofind = "Giulia"
  oDescriptor = oSheet.createSearchDescriptor()
  With oDescriptor
    .SearchString = Tofind
    .SearchWords = True
    .SearchCaseSensitive = False
  End With
  oFound = oSheet.findFirst(oDescriptor)
  arow = oFound.CellAddress.Row
  acol = oFound.CellAddress.Column
  Print  oFound.getString() & " - riga " & arow & ", col " & acol
End Sub

queste cose le trovi facilmente qui http://www.pitonyak.org/oo.php

Re: macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 11:39
da Raoul Duke
ah grazie avevo consultato la guida ma mi era sfuggito, avevo trovato solo il codice per il Replace.

ma se per caso ci fossero più celle contenenti la stringa da trovare, restituisce solo la prima giusto?
c'è modo di trovare anche le eventuali altre?

Re: macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 12:08
da patel
Raoul Duke ha scritto:ah grazie avevo consultato la guida ma mi era sfuggito, avevo trovato solo il codice per il Replace.

ma se per caso ci fossero più celle contenenti la stringa da trovare, restituisce solo la prima giusto?
c'è modo di trovare anche le eventuali altre?
il codice proposto restituisce solo la prima, per trovare le altre devi utilizzare un ciclo ed il metodo findnext che trovi sempre nella guida sopra citata

Re: macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 12:59
da Raoul Duke
grazie mille,
sei stato gentilissimo come sempre!

Re: [Risolto] macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 17:05
da patel
Sarebbe gentile da parte tua mostrare il codice con cui hai risolto

Re: [Risolto] macro per trovare una stringa

MessaggioInviato: sabato 27 aprile 2019, 19:58
da Raoul Duke
in realtà per adesso non l'ho ancora scritto quello per la ricorsività.
mi serviva solo il find che mi hai scritto tu, ma siccome penso che in seguito ci potrebbe essere la possibilità che ci siano più stringhe uguali da cercare ti ho fatto quella domanda.
cmq si, appena lo scriverò lo posterò qui!