Συνδυασμοι αριθμων στη Visual Basic

[meim10001000]

Ρε παιδια βρηκα αυτον τον κωδικα ο οποιος φτιαχνει τους συνδυασμους 50 αριθμων ανα δυο. Μπορει να με βοηθησει κανεις ωστε να βρισκει τους συνδυασμους ανα 5? Εχει δηλ τους αριθμους που θελει σε 2 στηλες στο excel και μ αυτην την μακρο βρισκει ολους τους συνδυασμους. Τι πρεπει να προσθεσω στον κωδικα για να βρισκει τριαδες πενταδες κα? Ευχαριστω

 

 

Sub Combo()

 

MaxRows = 50

RowOffset = 1

Col1 = 1

Col2 = 2

Col3 = 3

Col4 = 4

CurRow = 2

 

For I = 1 To MaxRows

For J = 1 To MaxRows

Cells(CurRow, Col3).Value = Cells(RowOffset + I, Col1).Value

Cells(CurRow, Col4).Value = Cells(RowOffset + J, Col2).Value

CurRow = CurRow + 1

Next J

Next I

 

End Sub

[defacer]

Για να γίνει αυτό θα πρέπει ο συγκεκριμένος κώδικας να ξαναγραφτεί με εντελώς άλλη λογική.

[meim10001000]

δηλ?

 

Δεν μπορω με καποιο τροπο να βαλω να τρεχει και ενα Κ μετα απο το J ωστε να μου δινει τριαδες?

[defacer]

Φυσικά μπορείς. Αλλά κάθε φορά που θα αλλάζει το Ν στις Ν-άδες θα πρέπει να αλλάζεις αρκετά πράγματα στον κώδικα. Ιδανικά θα έπρεπε να γραφτεί έτσι που να αλλάζεις ένα νούμερο από 2 σε 3 ή σε 5 και να δουλεύουν όλα ρολόι. Δεν ξέρω vbscript όμως για να σου δώσω κώδικα.

[meim10001000]

Ευχαριστω defacer. Αν καποιος αλλος μπορει να βοηθησει θα με εξυπηρετησει πολυ

[georgemarios]

Παράδειγμα για 3-αδες, αναγωγικά φτιαχνεις για οτι N-αδες θες (θεωρούμε πως για 3-αδες εχουμε 3 αρχικες στηλες και 3 επομενες για αποτελεσμα κτλ)

 

>
Sub Combo()
   MaxRows = 50
   RowOffset = 0
   Col1 = 1
   Col2 = 2
   Col3 = 3
   Col4 = 4
   Col5 = 5
   Col6 = 6
   CurRow = 1
  
   For I = 1 To MaxRows
    For J = 1 To MaxRows
	    For K = 1 To MaxRows
		    Cells(CurRow, Col4).Value = Cells(RowOffset + I, Col1).Value
		    Cells(CurRow, Col5).Value = Cells(RowOffset + J, Col2).Value
		    Cells(CurRow, Col6).Value = Cells(RowOffset + K, Col3).Value
		    CurRow = CurRow + 1
	    Next K
    Next J
   Next I
  
End Sub

[meim10001000]

Ευχαριστω πολυ.Θα το δοκιμασω και θα σου πω