Sut i gynhyrchu neu restru'r holl drawsnewidiadau posibl yn Excel?
Er enghraifft, mae gen i dri chymeriad XYZ, nawr, rydw i eisiau rhestru'r holl drawsnewidiadau posib yn seiliedig ar y tri chymeriad hyn i gael chwe chanlyniad gwahanol fel hyn: XYZ, XZY, YXZ, YZX, ZXY a ZYX. Yn Excel, sut allech chi gynhyrchu neu restru'r holl drawsnewidiadau yn gyflym yn seiliedig ar nifer wahanol o gymeriadau?
Cynhyrchu neu restru'r holl drawsnewidiadau posibl yn seiliedig ar gymeriadau â chod VBA
Cynhyrchu neu restru'r holl drawsnewidiadau posibl yn seiliedig ar gymeriadau â chod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i restru'r holl drawsnewidiadau yn seiliedig ar eich nifer benodol o lythyrau, gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Rhestrwch yr holl drawsnewidiadau posib yn excel
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi'r cymeriadau rydych chi am restru'r holl drawsnewidiadau, gweler y screenshot:
4. Ar ôl mynd i mewn i'r cymeriadau, ac yna cliciwch OK botwm, mae'r holl drawsnewidiadau posib yn cael eu harddangos yng ngholofn A y daflen waith weithredol. Gweler y screenshot:
Nodyn: Os yw hyd y cymeriad a gofnodwyd yn hafal neu'n fwy nag 8 nod, ni fydd y cod hwn yn gweithio oherwydd bod gormod o drawsnewidiadau.
Rhestrwch neu gynhyrchwch yr holl gyfuniadau posib o sawl colofn
Os oes angen i chi gynhyrchu'r holl gyfuniadau posibl yn seiliedig ar ddata colofnau lluosog, efallai, nid oes ffordd dda o ddelio â'r dasg. Ond, Kutools ar gyfer Excel's Rhestrwch Pob Cyfuniad gall cyfleustodau eich helpu i restru'r holl gyfuniadau posibl yn gyflym ac yn hawdd. Cliciwch i lawrlwytho Kutools ar gyfer Excel!
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!