Dreamweaver
Πολύ δραστήριο μέλος
Ο Dreamweaver αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι Απόφοιτος. Έχει γράψει 1,755 μηνύματα.
13-05-16
21:55
Έστω, κάνει όμως scale? Δηλαδή αν βάλω σύνολο 8 στοιχείων θα βγάλει όλα τα υποσύνολα?
Δεν υπαρχει θεμα με τον αριθμο στοιχειων, ομως χανει καποια υποσυνολα, οπως εδειξες με το ac. ειναι λαθος ο αλγοριθμος, θα το ξανακοιταξω το σκ
Σημείωση: Το μήνυμα αυτό γράφτηκε 7 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Dreamweaver
Πολύ δραστήριο μέλος
Ο Dreamweaver αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι Απόφοιτος. Έχει γράψει 1,755 μηνύματα.
12-05-16
22:43
Ναι, δεν βγαζει το ac, μου διεφυγε
Δεν χρησιμοποιω αναδρομη, απλα ειναι ο απλοικος τροπος που θα γινοταν στο excel αυτο που ζητας
Δεν χρησιμοποιω αναδρομη, απλα ειναι ο απλοικος τροπος που θα γινοταν στο excel αυτο που ζητας
Σημείωση: Το μήνυμα αυτό γράφτηκε 7 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Dreamweaver
Πολύ δραστήριο μέλος
Ο Dreamweaver αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι Απόφοιτος. Έχει γράψει 1,755 μηνύματα.
12-05-16
21:32
Εμεις οι πληβειοι που ξερουμε μονο vba ειμαστε eligible?
Anyway
Sub ischool()
i = 1
j = 3
l = 0
Cells(2, 1) = ""
If Mid(Cells(1, 1), i + l, 1) = Right(Cells(1, 1), 1) Then
Cells(j, 1) = Mid(Cells(1, 1), i + l, 1)
End If
Do Until Mid(Cells(1, 1), i + l, 1) = Right(Cells(1, 1), 1)
Cells(j, 1) = Mid(Cells(1, 1), i, 1)
k = i - 1
Do Until k = 0
j = j + 1
Cells(j, 1) = Cells(j - 1, 1) & Mid(Cells(1, 1), k, 1)
k = k - 1
Loop
i = i + 1
j = j + 1
If Mid(Cells(1, 1), i + 1, 1) = Right(Cells(1, 1), 1) Then
l = -1
End If
Loop
ActiveSheet.PrintOut
End Sub
Anyway
Sub ischool()
i = 1
j = 3
l = 0
Cells(2, 1) = ""
If Mid(Cells(1, 1), i + l, 1) = Right(Cells(1, 1), 1) Then
Cells(j, 1) = Mid(Cells(1, 1), i + l, 1)
End If
Do Until Mid(Cells(1, 1), i + l, 1) = Right(Cells(1, 1), 1)
Cells(j, 1) = Mid(Cells(1, 1), i, 1)
k = i - 1
Do Until k = 0
j = j + 1
Cells(j, 1) = Cells(j - 1, 1) & Mid(Cells(1, 1), k, 1)
k = k - 1
Loop
i = i + 1
j = j + 1
If Mid(Cells(1, 1), i + 1, 1) = Right(Cells(1, 1), 1) Then
l = -1
End If
Loop
ActiveSheet.PrintOut
End Sub
Σημείωση: Το μήνυμα αυτό γράφτηκε 7 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.