Moderatori: Anthony47, Flash30005
Sub Recur(ByVal Iniz As Integer, ByVal Final As Integer, ByVal myLevel As Integer)
Dim myI As Integer, myK As Integer
For myI = Iniz To (Final - LastLev + myLevel)
XYz:
WkArr(myLevel) = VArr(myI, 1)
WkIndex(myLevel) = myI
If myLevel = LastLev Then 'Or (Round(Application.WorksheetFunction.Sum(WkArr()), 3)) > Round(TgVal, 3) Then
If (Round(Application.WorksheetFunction.Sum(WkArr()), 3) Mod 90) = (Round(TgVal, 3) Mod 90) And FlExit = False Then
Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = "x"
mycol = Cells(1, Columns.Count).End(xlToLeft).Column
If mycol > maxCol Then FlExit = True
For myK = 1 To LastLev
Cells(WkIndex(myK) + 1, mycol) = 1 'WkIndex(myK)
Next myK
End If
Else
'If (Round(Application.WorksheetFunction.Sum(WkArr()), 3) Mod 90) > (TgVal Mod 90) Then
' Stop
' GoTo SkNxLev
' Exit For
'End If
Call Recur(myI + 1, NElem, myLevel + 1)
End If
If FlExit = True Then Exit For
SkNxLev:
Next myI
WkArr(myLevel) = ""
End Sub
Torna a Applicazioni Office Windows
Formattzione valori con simbolo triangolini colorati Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Powerline TP-LInk: come connetterli tra loro Autore: giovannib87 |
Forum: Reti, ADSL e wireless Risposte: 4 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 5 ospiti