Risultati da 1 a 5 di 5

Discussione: Replace usando array



  1. #1
    L'avatar di Scherman83
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Milano
    Messaggi
    6
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    3

    Replace usando array

    Salve vi chiedo aiuto per capire perchÚ non mi funziona questa macro...
    Ho in una cella un testo tipo
    Ciao [nome], il tuo numero Ŕ [numero].

    Ho un array chiamato sentinella e contiene [nome], [numero]
    Un altro array chiamato dati e contiene Mario, 10.

    Vorrei sostituire [nome] con Mario e ovviamente [numero] con 10

    For x =1 to ubound(dati)
    Range("a1"). Value = replace(range("a1"). Value, sentinella(x), dati(x))
    Next

    Non ho il file essendo da mobile.

    Spero possiate aiutarmi. Grazie.

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    45
    Messaggi
    173
    Versione Office
    2010
    Utile ricevuti
    32
    Utile dati
    8

    Re: Replace usando array

    Io personalmento non capisco
    solitamente si fa prima e meglio allegando un file di esempio (scritto a mano) con i risultati che si vogliono ottenere.

  3. I seguenti 2 utenti hanno dato un "Utile" a Cuc¨^_^ per questo post:


  4. #3
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    1812
    Versione Office
    Excel2010
    Utile ricevuti
    448
    Utile dati
    109

    Re: Replace usando array

    Ciao
    Premesso che ha ragione Cuc¨^_^ (ciao Marcello) - se sei da cellulare potevi aspettare e avere davanti un PC - vorrei darti un indizio sul quale lavorare: ti sembra corretto far iniziare il ciclo da 1 quando, solitamente (se non hai specificato diversamente), il limite inferiore di un Array Ŕ 0? Prova a mettere LBound(dati).

    Restiamo in attesa del file coi tuoi tentativi. Ciao,
    Mario

  5. I seguenti utenti hanno dato un "Utile"


  6. #4
    L'avatar di Scherman83
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Milano
    Messaggi
    6
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    3

    Re: Replace usando array

    Buongiorno ragazzi,
    Lo so potevo aspettare ma avevo questo pensiero in testa a tormentarmi e non ho saputo aspettare.

    Ho comunque risolto sfruttando questo esempio

    Worksheets("Sheet1").Columns("A").Replace _
    What:="SIN", Replacement:="COS", _
    SearchOrder:=xlByColumns, MatchCase:=True

    Grazie.

    Ora mi sto confrontando con un tentativo di stampa unione da macro, quindi presto mi sa che torner˛ a rompervi, con file pronto per˛.

  7. #5
    L'avatar di Scherman83
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Milano
    Messaggi
    6
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    3

    Re: Replace usando array

    Riprendo l'argomento per chiedervi usando questa riga

    Range("c1").Replace What:="[RAGSOC]", Replacement:="ragione sociale", Lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

    Come posso mantenere la formattazione del testo? In c1 ci sono parole in grassetto o in rosso o corsivo ecc

Discussioni Simili

  1. Sostituire parte di una stringa con Regex.Replace
    Di dracoscrigno nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 28/02/17, 23:03
  2. [Risolto] Riempire array in un modulo e richiamare lo stesso array su un modulo diverso
    Di Domynix nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 07/01/17, 18:36
  3. [Risolto] Approfondimenti su Array
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 31/10/16, 12:42
  4. Popolare array bidimensionale
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 18/04/16, 21:52
  5. Popolare un array con dati di altri array
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 08/03/16, 19:31

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •