Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Aiutino per formula

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

Aiutino per formula

Postdi Statix » 31/08/21 21:56

Ciao a tutti ,ho un problemino a
modificare la formula
Codice: Seleziona tutto
=SE(CONTA.SE($D7:$H7;$B$2)=1;RIF.RIGA();"")


in

Codice: Seleziona tutto
Cells(7 + I, "J").FormulaLocal = "=se(Conta.se($D" & (7 + I) & ":$H" & (7 + I)&";B$2)" =1&;Rif.Riga();"""")"

questa è naturalmente quella da correggere.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Aiutino per formula

Postdi Anthony47 » 01/09/21 12:05

Un po' criptica la domanda, azzardo la risposta:
Codice: Seleziona tutto
Cells(7 + I, "J").FormulaLocal = "=se(Conta.se($D" & (7 + I) & ":$H" & (7 + I) & ";B$2)=1;Rif.Riga();"""")"

Che secondo me equivale a scrivere la prima formula e copiarla poi nelle N righe successive

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17830
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aiutino per formula

Postdi Statix » 01/09/21 13:45

Ciao Anthony , la tua formula l'avevo già provata

non scrive nelle cella
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Aiutino per formula

Postdi Statix » 01/09/21 13:49

Codice: Seleziona tutto
Sub Formule()
Dim myArr, I As Integer, myI4 As Integer, C As Integer, UR As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
UR = 1626
Range("K7:R1626") = ClearContents
Application.Calculation = xlCalculationManual

myArr = Range("I7").Resize(UR).Value
myI4 = Range("J5").Value
 

For I = 1 To (UR - 1)
    If myArr(LBound(myArr, 1) + I, 1) <> "" Then
   
   
           
           
            Cells(7 + I, "J").FormulaLocal = "=Se(Conta.se($D" & (7 + I) & ":$H" & (7 + I) & ";$B$2)=1;Rif.Riga();"""")"

           
           
           
         Cells(7 + I, "K").FormulaLocal = "=Se($J" & (7 + I) & "="""";"""";Se(Somma($M" & (7 + I) & ":$O" & (7 + I) & ")>0 ;1;""""))"
             
        Cells(7 + I, "M").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$D$2)"
        Cells(7 + I, "N").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$E$2)"
       ' Cells(7 + I, "O").FormulaLocal = "=Conta.se($D" & (8 + I) & ":$H" & (7 + I + myI4) & ";$F$2)"
        Cells(7 + I, "Q").FormulaLocal = "=Se.Errore(Piccolo($P" & (8 + I) & ":$P" & (7 + I + myI4) & ";1);"""")"
        Cells(7 + I, "R").FormulaLocal = "=Se.Errore(Somma($Q" & (7 + I) & "- $J" & (7 + I) & ");"""")"
      End If
      Next I
     
  Application.Calculation = xlCalculationAutomatic
 
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Aiutino per formula

Postdi Anthony47 » 01/09/21 15:36

Ciao Anthony , la tua formula l'avevo già provata
non scrive nelle cella
Quella istruzione scrive una formula in una cella; se la formula sia quella giusta io non lo so.

Continuo a pensare che il tuo problema sia risolvibile scrivendo la formula in J8 e poi copiandola verso destra e verso il basso, che mi pare piu' semplice e probabilmente piu' veloce

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17830
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Aiutino per formula":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti

cron