Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vba excel comando sostituisci con....

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

vba excel comando sostituisci con....

Postdi bruco1987 » 03/08/12 23:00

ciao a tutti ragazzi, eccomi con un nuovo quesito per voi. Sto impazzendo col trovare il modo di sostituire un serie di range con un altro. Mi spiego meglio; ad esempio nel codice:

Codice: Seleziona tutto
UserForm5.TextBox153.Value = Worksheets("rose").Range("n3").Value
UserForm5.TextBox155.Value = Worksheets("rose").Range("n4").Value
UserForm5.TextBox156.Value = Worksheets("rose").Range("n5").Value
UserForm5.TextBox157.Value = Worksheets("rose").Range("n6").Value
UserForm5.TextBox158.Value = Worksheets("rose").Range("n7").Value
UserForm5.TextBox159.Value = Worksheets("rose").Range("n8").Value
UserForm5.TextBox160.Value = Worksheets("rose").Range("n9").Value
UserForm5.TextBox161.Value = Worksheets("rose").Range("n10").Value
UserForm5.TextBox162.Value = Worksheets("rose").Range("n11").Value
UserForm5.TextBox163.Value = Worksheets("rose").Range("n12").Value
UserForm5.TextBox164.Value = Worksheets("rose").Range("n13").Value
UserForm5.TextBox165.Value = Worksheets("rose").Range("n14").Value
UserForm5.TextBox166.Value = Worksheets("rose").Range("n15").Value
UserForm5.TextBox167.Value = Worksheets("rose").Range("n16").Value
UserForm5.TextBox168.Value = Worksheets("rose").Range("n17").Value
UserForm5.TextBox169.Value = Worksheets("rose").Range("n18").Value
UserForm5.TextBox170.Value = Worksheets("rose").Range("n19").Value
UserForm5.TextBox171.Value = Worksheets("rose").Range("n20").Value
UserForm5.TextBox172.Value = Worksheets("rose").Range("n21").Value
UserForm5.TextBox173.Value = Worksheets("rose").Range("n22").Value
UserForm5.TextBox174.Value = Worksheets("rose").Range("n23").Value
UserForm5.TextBox175.Value = Worksheets("rose").Range("n24").Value
UserForm5.TextBox176.Value = Worksheets("rose").Range("n25").Value
UserForm5.TextBox177.Value = Worksheets("rose").Range("n26").Value
UserForm5.TextBox178.Value = Worksheets("rose").Range("n27").Value


devo sostituire il riferimento alle celle, invece di avere da ("n3") a ("n27") dovrei avere da ("n31") a ("n55"). stavo quindi cercando un modo per farlo in automatico senza perdere tempo a farlo manualmente.... il comando di excel sostituisci con, non fa al caso mio, visto che và a sostituire una costante con un altra e non dei valori variabili... Aiutatemi!!!!
PS credo che questa cosa possa far risparmiare tanto tempo a molte persone, grazie mille
bruco1987
Utente Junior
 
Post: 18
Iscritto il: 15/07/12 16:29

Sponsor
 

Re: vba excel comando sostituisci con....

Postdi Flash30005 » 03/08/12 23:13

In A1 di un foglio inserisci questo testo
Codice: Seleziona tutto
UserForm5.TextBox

In B1 inserisci il valore 153
In C1 questo testo
Codice: Seleziona tutto
.Value = Worksheets("rose").Range("n

In D1 il valore 31in E1 il testo
Codice: Seleziona tutto
").Value


Trascini A1:E1 in A2:E2 e sostituisci in B2 inserendo valore 154 e in D1 il valore 32

Ora in una cella es.: F1
Codice: Seleziona tutto
=A1&B1&C1&D1&E1

Trascini la F1 in F2
Ora selezionando le due righe A1:F2
fino alla riga 29
otterrai nella colonna F il testo (ottenuto dalla formula)
quindi selezioni la colonna F copi e incolli speciale solo valori
copi questo testo e lo inserisci nella macro

Ma per così poche righe non so se conviene fare tutto ciò :D

ciao

EDIT ore 00:20 - devi far slittare i testi per variare anche il numero del TextBox
Ho corretto il post

e ottieni questo
Codice: Seleziona tutto
UserForm5.TextBox153.Value = Worksheets("rose").Range("n31").Value
UserForm5.TextBox155.Value = Worksheets("rose").Range("n32").Value
UserForm5.TextBox156.Value = Worksheets("rose").Range("n33").Value
UserForm5.TextBox157.Value = Worksheets("rose").Range("n34").Value
UserForm5.TextBox158.Value = Worksheets("rose").Range("n35").Value
UserForm5.TextBox159.Value = Worksheets("rose").Range("n36").Value
UserForm5.TextBox160.Value = Worksheets("rose").Range("n37").Value
UserForm5.TextBox161.Value = Worksheets("rose").Range("n38").Value
UserForm5.TextBox162.Value = Worksheets("rose").Range("n39").Value
UserForm5.TextBox163.Value = Worksheets("rose").Range("n40").Value
UserForm5.TextBox164.Value = Worksheets("rose").Range("n41").Value
UserForm5.TextBox165.Value = Worksheets("rose").Range("n42").Value
UserForm5.TextBox166.Value = Worksheets("rose").Range("n43").Value
UserForm5.TextBox167.Value = Worksheets("rose").Range("n44").Value
UserForm5.TextBox168.Value = Worksheets("rose").Range("n45").Value
UserForm5.TextBox169.Value = Worksheets("rose").Range("n46").Value
UserForm5.TextBox170.Value = Worksheets("rose").Range("n47").Value
UserForm5.TextBox171.Value = Worksheets("rose").Range("n48").Value
UserForm5.TextBox172.Value = Worksheets("rose").Range("n49").Value
UserForm5.TextBox173.Value = Worksheets("rose").Range("n50").Value
UserForm5.TextBox174.Value = Worksheets("rose").Range("n51").Value
UserForm5.TextBox175.Value = Worksheets("rose").Range("n52").Value
UserForm5.TextBox176.Value = Worksheets("rose").Range("n53").Value
UserForm5.TextBox177.Value = Worksheets("rose").Range("n54").Value
UserForm5.TextBox178.Value = Worksheets("rose").Range("n55").Value
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: vba excel comando sostituisci con....

Postdi bruco1987 » 03/08/12 23:28

Ma sei un grande! Non ci avevo pensato a sfruttare excel stesso!!!!! Perfetto! Cmq quella è solo una parte. Diciamo che nel programmino di quelle righe c'è ne circa 9000 hahahahahahha grazie mille!!!
bruco1987
Utente Junior
 
Post: 18
Iscritto il: 15/07/12 16:29

Re: vba excel comando sostituisci con....

Postdi bruco1987 » 03/08/12 23:30

scusami volevo solo capire, il valore 153 che mi hai fatto inserire in B1 a cosa si riferisce?

Risposto da solo!!!! Alla textbox..... che scemo ahhahahah ciao e grazie ancora
Ultima modifica di bruco1987 su 03/08/12 23:31, modificato 1 volte in totale.
bruco1987
Utente Junior
 
Post: 18
Iscritto il: 15/07/12 16:29

Re: vba excel comando sostituisci con....

Postdi Flash30005 » 03/08/12 23:31

Questa potrebbe essere una tenica
fai, comunque attenzione perché ho notato che la numerazione dei textbox non è sequenziale (manca il 154)
ma potrai sempre adattare copiando la colonna dei valori e incollandola sopra slittando di n celle

Per l'ultimo tuo post (ci siamo accavallati)
Leggi l'edit, ho corretto il post perché devi variare anche il numero del textbox

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "vba excel comando sostituisci con....":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti