Ciao Marco, grazie per la dritta perchè io ho un file con poche righe ma è molto lento con i cicli for, soprattutto se lo uso con una versione di excel diversa anche se più recente. Ora provo con il tuo metodo e spero di risolvere il mio problema che mi assilla da tanto tempo. Grazie
Ciao Marco. Grazie per insegnamenti. Chiedo: se volessi eseguire un comando "if...end "if in un intervallo di celle velocemente ? io uso "For Each Cella In area...." ma è lentissimo . ancora Grazie ;)
Vorrei sapere se questa ottimizzazione dei tempi di risposta del programma utilizzando VARIANT è possibile implementarla in una FUNCTION che non è altro che un “CONTA.SE” però riguardante i colori cella (interior.color) passandogli come parametri un range/colonna in cui sono presenti riempimenti di cella e come secondo parametro il colore richiesto
Ciao! è possibile ottimizzare con Variant un ciclo FOR dove al suo interno viene effettuata la funzione risolutore di excel? Nello specifico il codice al momento è questo: Sub Function() Dim righe As Integer righe = Application.WorksheetFunction.CountA(Columns(1)) For i = 2 To righe + 1 SolverOk SetCell:="$J$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$K$" & i, Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverAdd CellRef:="$I$" & i, Relation:=3, FormulaText:="$E$" & i SolverAdd CellRef:="$J$" & i, Relation:=3, FormulaText:="0" SolverAdd CellRef:="$K$" & i, Relation:=3, FormulaText:="$G$" & i SolverSolve UserFinish:=True SolverReset Next i Grazie mille!
ciao, purtroppo il vba non è facilmente "asincronizzabile", quindi non c'è sicuramente una soluzione semplice a quello che chiedi. Bisognerebbe approfondire molto l'argomento.
Salve Marco non riesco ad andare avanti per ottenere l'arr. Mi spiego non rieaco a far riconoscere l'arr a questo pezzo di codice: For B = 1 To Cells(Rows.Count, 3).End(xlUp).Row - 2 For I = 1 To 5 Cells(2 + B, 31 + I).Value = Cells(2 + B, 2 + I).Value Mod 9 Next I For I = 1 To 4 Cells(3 + B, 31 + I).Value = (Cells(2 + B, 31 + I).Value + Cells(2 + B, 32 + I).Value) Mod 9 Next I For I = 1 To 3 Cells(4 + B, 31 + I).Value = (Cells(3 + B, 31 + I).Value + Cells(3 + B, 32 + I).Value) Mod 9 Next I For I = 1 To 2 Cells(5 + B, 31 + I).Value = (Cells(4 + B, 31 + I).Value + Cells(4 + B, 32 + I).Value) Mod 9 Next I For I = 1 To 1 Cells(2 + B, 31).Value = (Cells(5 + B, 32).Value & Cells(5 + B, 33).Value) Next I Pir.ClearContents Next B End Sub
Salve Marco non mi vuoi proprio aiutare come ti ho risposto nell'altro ... trovo difficoltà ad entrare in facebook. Saluti e spero accogli questa mia preghiera
ciao, cosa significa "non riesci a far riconoscere l'array"? Se riesci ad aprire un post nel gruppo Facebook con il file allegato sarebbe molto più facile aiutarti
Salve Marco- hai fatto 1/2 sacrificio a rispondermi e ti ringrazio ora puoi fare l'altro 1/2? Non sono pratico ma ti ho spiegato sommariamente che non riesco a collegarmi a Facebook. Ora la prima con quelle righe di codice si può fare un array? e se si ti sono sufficienti quelle righe a creami l'array? Ti ringrazio cmq Salve
@@giorgiogatti4909 ciao Giorgio, il problema è che non riesco a capire cosa mi stai chiedendo. Scrivimi una mail con il file allegato e la spiegazione di quello che vuoi ottenere (in via eccezionale visto che non riesci con Facebook). E cancella l'altro commento per favore, non ti fa onore ed è molto maleducato