Pannello di Controllo Moderatore ]

[Risolto] macro per trovare una stringa

Discussioni sull'applicazione per i fogli di calcolo

[Risolto] macro per trovare una stringa

Messaggioda Raoul Duke » venerdì 26 aprile 2019, 23:48

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
Ultima modifica di Raoul Duke il sabato 27 aprile 2019, 12:59, modificato 1 volta in totale.
OpenOffice 4.1.5 con MacOS 10.13.6
Raoul Duke
 
Messaggi: 103
Iscritto il: giovedì 7 marzo 2019, 13:11

Re: macro per trovare una stringa

Messaggioda patel » sabato 27 aprile 2019, 9:37

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
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3256
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: macro per trovare una stringa

Messaggioda Raoul Duke » sabato 27 aprile 2019, 11:39

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?
OpenOffice 4.1.5 con MacOS 10.13.6
Raoul Duke
 
Messaggi: 103
Iscritto il: giovedì 7 marzo 2019, 13:11

Re: macro per trovare una stringa

Messaggioda patel » sabato 27 aprile 2019, 12:08

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
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3256
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: macro per trovare una stringa

Messaggioda Raoul Duke » sabato 27 aprile 2019, 12:59

grazie mille,
sei stato gentilissimo come sempre!
OpenOffice 4.1.5 con MacOS 10.13.6
Raoul Duke
 
Messaggi: 103
Iscritto il: giovedì 7 marzo 2019, 13:11

Re: [Risolto] macro per trovare una stringa

Messaggioda patel » sabato 27 aprile 2019, 17:05

Sarebbe gentile da parte tua mostrare il codice con cui hai risolto
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3256
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: [Risolto] macro per trovare una stringa

Messaggioda Raoul Duke » sabato 27 aprile 2019, 19:58

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!
OpenOffice 4.1.5 con MacOS 10.13.6
Raoul Duke
 
Messaggi: 103
Iscritto il: giovedì 7 marzo 2019, 13:11


Torna a Calc

Chi c’è in linea

Visitano il forum: Google [Bot] e 12 ospiti