Φίλοι του Forum γεια σας.
Έχω τον πιο κάτω κώδικα
vba.
Sub Combinations()
Dim n As Integer, m As Integer, numcomb
numcomb = 0
n = InputBox("Number of items?", "Combinations")
m = InputBox("Taken how many at a time?", "Combinations")
Application.ScreenUpdating = False
Comb2 n, m, 1, ""
End Sub
'Generate combinations of integers k..n taken m at a time, recursively
Private Function Comb2(ByVal n As Integer, ByVal m As Integer, _
ByVal k As Integer, ByVal s As String)
If m > n - k + 1 Then Exit Function
If m = 0 Then
ActiveCell = s
ActiveCell.Offset(1, 0).Select
Exit Function
End If
Comb2 n, m - 1, k + 1, s & k & " "
Comb2 n, m, k + 1, s
End Function
Θα ήθελα να ρωτήσω, αν αυτή η Function μπορεί να τροποποιηθεί, έτσι ώστε να αναγράφει το αποτέλεσμα σε ξεχωριστά συνεχόμενα κελιά. π.χ. Αντί για "1 2 3 4 5" στο κελί A1, να το αναγράφει στα κελιά A1,A2,A3,A4,A5
Ευχαριστώ πολύ, για όποια απάντηση.