Snasui Excel Forum

snasui wrote: ช่วยแนบตัวอย่างที่เป็นปัญหามาด้วยครับ จากไฟล์ที่ส่งมาไม่พบปัญหาที่ถามมาครับ

นอกจากนี้ Code ที่แนบมาไม่ได้เป็น Code ล่าสุดที่ผมโพสต์ให้ไป สังเกตว่า SplitThenJoin ก็ Update เพิ่มไปให้ใหม่ครับ

Update SplitThenJoin เรียบร้อยครับ แต่ก็ยังติดปัญหาเดิมครับ

อาจารย์ครับ ตอนนี้ทำได้แล้วนะครับ แต่ติดอยู่ที่บางค่ายังไม่ตรงครับ เช่นค่า E.1.5/07 ค่าที่ควรจะได้คือ E.1.5.7 แต่ค่าที่แสดงออกมากลับเป็น E1.50.7

ขอบคุณครับ

สิ่งที่ผมอยากให้คุณลองเขียนเองบ้างคือตัดค่าให้เหลือเฉพาะ E, ตัวเลข, /, -, เครื่องหมาย , (คอมม่า) และ . (จุด) เพื่อจะได้นำค่านั้นมาใช้ต่อกับ Code ด้านล่าง ซึ่งคิดว่าไม่ยากจนเกินไป อย่างน้อยก็มีผู้ช่วยเขียนมาให้ระดับหนึ่งแล้ว


อาจารย์ครับผมทำได้แล้วนะครับ ตอนนี้ผมตัดตัวอักษรข้างหน้าได้ แต่ดันเหล ...

ขอบคุณสำหรับคำแนะนำมากครับ

รบกวนถามอีกนิดหน่อยครับ ในโค๊ดที่อาจารย์เขียน อะไรคือ Call RemoveUnused มันคือ function ที่เราต้องเขียนมาเอง หรือเป็น function สำหรับการ Remove String ที่เราไม่ใช้แล้วออกไป ไม่มีได้ไหมครับ

ถ้ามีประโยคที่หลากหลายแบบนี้ล่ะครับ
ตัวอย่างนะครับ
เช่นมี String
"E.1.1 Passwords/02 Maximum Password Age*" ก็ให้่แสดงเป็น
E.1.1.2

"E.1.5 Network Settings/01.06,02.05 Passwd Files in ETC Subdirectory of the FTP Account Home Dir*" ก็ให้่แสดงออกมาเป็น
E.1.5.1.6
E.1.5.2.5

"E.1.5 Network Settings ...

:D จากไฟล์ที่แนบมา ตัวอย่าง Code การตัดให้คงเหลือเฉพาะค่าที่ต้องการตามด้านล่างครับ
Sub Test0()
Dim rAll As Range, r As Range
Dim t As String, i As Integer
Set rAll = Sheets("Sheet1").Range("A1:A4")
For Each r In rAll
With Application.WorksheetFunction
t = .Substitute(r, " Network Settings ...

ขอบคุณมากครับ จะลองนำมาประยุกต์ใช้นะครับ

String_Num.xlsm ปัญหานะครับ เช่น มีประโยค E.1.5 Network Settings/07,12.01-12.25 Prohibited Processes
อยากให้แสดงออกมาเป็น
E.1.5.7
E.1.5.12.1
E.1.5.12.2
E.1.5.12.3
E.1.5.12.4
.
.
.
E.1.5.12.25
โค๊ด VBA ที่ผมทำนะครับ

คือตัดตัวอักษรออกให้หมด แล้วเต็มจุดแทน ส่วนค่าไหนที่เป็นขีด เช่น 1-5 ก็ให้แสดงเป็น ...