Kako ustvariti ali našteti vse možne permutacije v Excelu?
Na primer, imam tri znake XYZ, zdaj želim našteti vse možne permutacije, ki temeljijo na teh treh znakih, da dobim šest različnih rezultatov: XYZ, XZY, YXZ, YZX, ZXY in ZYX. Kako lahko v Excelu hitro ustvarite ali navedete vse permutacije glede na različno število znakov?
Ustvari ali naštej vse možne permutacije na podlagi znakov s kodo VBA
Ustvari ali naštej vse možne permutacije na podlagi znakov s kodo VBA
Naslednja koda VBA vam lahko pomaga pri seznamu vseh permutacij glede na vaše določeno število črk. Naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: v Excelu navedite vse možne permutacije
Sub GetString()
'Updateby Extendoffice
Dim xStr As String
Dim FRow As Long
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2)
If Len(xStr) < 2 Then Exit Sub
If Len(xStr) >= 8 Then
MsgBox "Too many permutations!", vbInformation, "Kutools for Excel"
Exit Sub
Else
ActiveSheet.Columns(1).Clear
FRow = 1
Call GetPermutation("", xStr, FRow)
End If
Application.ScreenUpdating = xScreen
End Sub
Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long)
Dim i As Integer, xLen As Integer
xLen = Len(Str2)
If xLen < 2 Then
Range("A" & xRow) = Str1 & Str2
xRow = xRow + 1
Else
For i = 1 To xLen
Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow)
Next
End If
End Sub
3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da vnesete znake, ki jih želite našteti v vseh permutacijah, glejte posnetek zaslona:
4. Po vnosu znakov in nato kliknite OK , so v stolpcu A aktivnega delovnega lista prikazane vse možne permutacije. Oglejte si posnetek zaslona:
Opombe: Če je vnesena dolžina znaka enaka ali večja od 8 znakov, ta koda ne bo delovala, ker je preveč permutacij.
Naštejte ali ustvarite vse možne kombinacije iz več stolpcev
Če morate na podlagi podatkov iz več stolpcev ustvariti vse možne kombinacije, morda ni dobrega načina za reševanje naloge. Ampak, Kutools za Excel's Seznam vseh kombinacij pripomoček vam lahko pomaga hitro in enostavno našteti vse možne kombinacije. Kliknite za prenos Kutools za Excel!
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!