Szia Angeliton!

Láttam a kódodat, de nem egészen értelek. Beszélsz angolul?

Amanda

Ez a VBA kód: listázza ki az összes lehetséges permutációt az Excelben, módosításra van szükségem bemenet formájában, ami az 'MsgBox'-ban van, és szükségem van arra, hogy 1 oszlopból legyen kiválasztva, és a kiválasztott soron belül sorok, és lehetőség van a kód módosítására.
válasz válasz
Kilép az 'MsgBox', "Túl sok permutáció!", vbInformation, "Kutools for Excel" mezőből, amely csak digitalizálva van, nem pedig kiválasztással
Adja meg az '1 oszlop/sorok kijelölését.
példa
egy kiválasztott oszlop sorai 12345678 A 5-ból 8 így folytatódik a kódban.
12345-től kezdődik
végződik 87654. megfigyelési adatok megadása kijelöléssel az oszlopban

Szia Angeliton!

Nagyon sajnálom, hogy nem tudtam teljesen megérteni... Remélem sikerül átszervezni a szót.

Előre is köszönöm.
Amanda

Szia Amanda Lee! Ez a kód cserélendő bemeneti adatokat tartalmaz / lehetséges kombinációk az MsgBoxban: "Túl sok permutáció!", vbInformation, "Kutools for Excel"
Cserélendő bemeneti adatokra van szükségem/lehetséges kombinációkra az oszlopkiválasztásnál.
példa
1. oszlop
1 sor = fehér
2 sor = fekete
3 vonal = kék
4 sor = sárga
5 sor = zöld
Ezek a sorok minden lehetséges kombinációban felcserélődnek, a kód már ezt teszi, így nem tudom kiválasztani a permutációs sorokat, mert a bemenet egy MsgBox, ami be van gépelve és nincs kiválasztva.
a teljes kód itt található: https://www.extendoffice.com/documents/excel/3657-excel-generate-all-permutations.html
,

Szia Angeliton!

Elnézést a késői válaszért.

Kérjük, próbálja ki az alábbi kódot: (Ne feledje, hogy a kód nem dolgoz fel 8 karakternél hosszabb karakterláncot. Ha nagyobbra szeretné tenni a számot, módosíthatja az "If Len(xStr) >= 8 Then" 8-as számát a Minél nagyobb a szám, annál lassabb lesz a program.)

Sub GetString()

'Updateby Extendoffice

Dim xStr As String

Dim FRow As Long

Dim xScreen As Boolean

Dim Rg, xRg As Range

xScreen = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xRg = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 8)

xStr = ""

For Each Rg In xRg

xStr = xStr + Rg.Text

Next

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

Remélem ez neked működik.

Amanda