Código VBA: Şunları her zaman olduğu gibi listeleyin

Merhaba Angeliton,

Kodunuzu gördüm ama sizi tam olarak anlamıyorum. İngilizce konuşbiliyor musunuz?

Amanda

Bu VBA Kodu: Excel'deki tüm olası izinleri listele, 'MsgBox'ta bulunan giriş biçiminde bir değişikliğe ihtiyacım var ve 1 sütun seçiminde ve içindeki satır miktarında olması gerekiyor. satırlar ve kodda değişiklik yapmak mümkündür.
cevap cevap
Çıkış 'MsgBox', "Çok fazla permütasyon!", vbInformation, "Kutools for Excel"' Seçimle değil, yalnızca sayısallaştırılan
'1 sütun/satır seçimini girin.
örnek
seçilen bir sütunun satırları 12345678 5'den 8'i kodda bu şekilde devam ediyor.
12345 başlar
87654'te sona erer. sütunda seçim yaparak gözlem verileri girişi

Merhaba Angeliton,

Sizi tam olarak anlayamadığım için çok üzgünüm... Umarım kelimeyi yeniden düzenleyebilirsiniz.

Şimdiden teşekkürler.
Amanda

Merhaba Amanda Lee, bu kod MsgBox "Çok fazla permütasyon!", vbInformation, "Kutools for Excel" içinde değiş tokuş edilecek girdi verileri / olası kombinasyonları içeriyor
Sütun seçiminde değiştirilecek/olası kombinasyonlar için giriş verilerine ihtiyacım var.
örnek
sütun 1
1 satır = beyaz
2 satır = siyah
3 Çizgi = mavi
4 satır = sarı
5 satır = yeşil
Bu satırlar olası tüm kombinasyonlarda değiş tokuş edecek, kod zaten bunu yapıyor, bu yüzden permütasyon satırlarını seçemiyorum, çünkü giriş yazılan ve seçilmeyen bir MsgBox.
tam kod burada: https://www.extendoffice.com/documents/excel/3657-excel-generate-all-permutations.html
,

Merhaba Angeliton,

Geç cevap verdiğim için özür dilerim.

Lütfen aşağıdaki kodu deneyin: (Kod, 8 karakterden fazla bir dizeyi işlemez. Sayıyı büyütmek istiyorsanız, "If Len(xStr) >= 8 Then" bölümündeki 8 sayısını değiştirebilirsiniz. daha büyük sayılara kodlayın. Ancak, sayı ne kadar büyükse, program o kadar yavaş olur.)

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

Umarım bu senin için çalışır.

Amanda