วิธีสร้างหรือแสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดใน Excel
ตัวอย่างเช่นฉันมีอักขระ XYZ สามตัวตอนนี้ฉันต้องการแสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดตามอักขระสามตัวนี้เพื่อให้ได้ผลลัพธ์ที่แตกต่างกันหกรายการดังนี้: XYZ, XZY, YXZ, YZX, ZXY และ ZYX ใน Excel คุณจะสร้างหรือแสดงรายการการเรียงสับเปลี่ยนทั้งหมดอย่างรวดเร็วตามจำนวนอักขระต่างๆได้อย่างไร
สร้างหรือแสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดตามอักขระที่มีรหัส VBA
สร้างหรือแสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดตามอักขระที่มีรหัส VBA
รหัส VBA ต่อไปนี้อาจช่วยให้คุณแสดงรายการการเรียงสับเปลี่ยนทั้งหมดตามจำนวนตัวอักษรเฉพาะของคุณโปรดทำดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดใน 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. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนอักขระที่คุณต้องการแสดงรายการการเรียงสับเปลี่ยนทั้งหมดดูภาพหน้าจอ:
4. หลังจากป้อนอักขระแล้วคลิก OK การเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดจะแสดงในคอลัมน์ A ของแผ่นงานที่ใช้งานอยู่ ดูภาพหน้าจอ:
หมายเหตุ: หากความยาวอักขระที่ป้อนเท่ากับหรือมากกว่า 8 อักขระรหัสนี้จะไม่ทำงานเนื่องจากมีการเรียงสับเปลี่ยนมากเกินไป
แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากหลายคอลัมน์
หากคุณต้องการสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดโดยใช้ข้อมูลหลายคอลัมน์อาจจะไม่มีวิธีที่ดีในการจัดการกับงาน แต่, Kutools สำหรับ Excel's แสดงรายการชุดค่าผสมทั้งหมด ยูทิลิตี้สามารถช่วยให้คุณแสดงรายการชุดค่าผสมที่เป็นไปได้ทั้งหมดได้อย่างรวดเร็วและง่ายดาย คลิกเพื่อดาวน์โหลด Kutools for Excel!
Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!