Conas gach tréscaoilte féideartha in Excel a ghiniúint nó a liostáil?
Mar shampla, tá trí charachtar XYZ agam, anois, ba mhaith liom gach tréscaoilteacht féideartha a liostáil bunaithe ar na trí charachtar seo chun sé thoradh dhifriúla a fháil mar seo: XYZ, XZY, YXZ, YZX, ZXY agus ZYX. In Excel, conas a d’fhéadfá gach tréscaoilteacht a ghiniúint nó a liostáil go tapa bunaithe ar líon difriúil carachtar?
Cruthaigh nó liostáil gach tréscaoilte féideartha bunaithe ar charachtair le cód VBA
Cruthaigh nó liostáil gach tréscaoilte féideartha bunaithe ar charachtair le cód VBA
D’fhéadfadh an cód VBA seo a leanas cabhrú leat gach tréscaoilteacht a liostáil bunaithe ar do líon sonrach litreacha, déan mar a leanas:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Liostaigh gach tréscaoilte féideartha ar fheabhas
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na carachtair a theastaíonn uait gach tréscaoilteacht a liostáil, féach ar an scáileán:
4. Tar éis duit na carachtair a iontráil, agus ansin cliceáil OK cnaipe, taispeántar na treochtaí féideartha go léir i gcolún A den bhileog oibre ghníomhach. Féach an pictiúr:
nótaí: Má tá fad an charachtair a iontráladh cothrom nó níos mó ná 8 gcarachtar, ní oibreoidh an cód seo toisc go bhfuil an iomarca tréscaoilte ann.
Déan liosta nó giniúint gach teaglaim féideartha ó iliomad colúin
Más gá duit gach teaglaim féideartha a ghiniúint bunaithe ar shonraí ilcholún, b’fhéidir, níl bealach maith ann chun déileáil leis an tasc. Ach, Kutools le haghaidh Excel's Liostaigh Gach Teaglaim is féidir le fóntais cabhrú leat gach teaglaim féideartha a liostáil go tapa agus go héasca. Cliceáil chun Kutools a íoslódáil le haghaidh Excel!
Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!