EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ - กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
- การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่ สมัครสมาชิก
- Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้
- การ Login ผ่าน Facebook ดูวิธีที่ Login ผ่าน Facebook
- ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ Reset รหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่
- มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ ติดต่อผู้ดูแลระบบ
- กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ ตั้งค่าส่วนตัว
- การตั้งและตอบกระทู้ดูได้ที่ วิธีการตั้งและตอบกระทู้
- การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ จัดรูปแบบตัวอักษร
- กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ กำหนดขนาดตัวอักษรใน Browser
ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Forum rules
- ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
- ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
- กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
- กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
- กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย
[code]และปิดด้วย[/code]ตัวอย่างเช่น[code]dim r as range[/code]เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) - กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบ เลขที่ xxx หมู่บ้านxxx หมู่ * ซอย - ถนน - ตำบลxxx อำเภอxxx จังหวัดxxx ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
ผมเขียนตามนี้ครับ ไม่ได้ผลครับ
Sub Edit_Address()
' แก้ไขที่อยู่เกษตรกร ที่อยู่แปลง โดยลบช่องหว่าง และลบชอย ถนน
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Columns("C:D").Replace What:="หมู่บ้าน ", Replacement:="หมู่บ้าน", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ตำบล ", Replacement:="ตำบล", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="อำเภอ ", Replacement:="อำเภอ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="จังหวัด ", Replacement:="จังหวัด", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ซอย - ถนน - ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End With
Next ws
End Sub
Sub Edit_Address()
' แก้ไขที่อยู่เกษตรกร ที่อยู่แปลง โดยลบช่องหว่าง และลบชอย ถนน
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Columns("C:D").Replace What:="หมู่บ้าน ", Replacement:="หมู่บ้าน", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ตำบล ", Replacement:="ตำบล", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="อำเภอ ", Replacement:="อำเภอ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="จังหวัด ", Replacement:="จังหวัด", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ซอย - ถนน - ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End With
Next ws
End Sub
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
แก้ไขครับ ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA จากเลขที่ xxx หมู่บ้านxxx หมู่ x ซอย - ถนน - ตำบล xxx อำเภอ xxx จังหวัด xxxให้เป็นรูปแบบ เลขที่ xxx หมู่บ้านxxx หมู่ x ซอย - ถนน - ตำบลxxx อำเภอxxx จังหวัดxxx ขอบคุณครับ
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
ใส่โค้ดมาในไฟล์โปรแกรมแนบมากับคำถามด้วยตามกฎข้อ 4 + 5 ด้านบน ในข้อ 5 มีวิธีการวางโค้ดในช่องตวามเห็นเพื่อให้ข้อความในเป็นรูปแบบโค้ดครับ 
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
ขอบคุณครับ ผมได้ปรับแก้ ตามนี้ครับ
Code: Select all
Sub Edit_Area()
' Edit_Area Macro
' แก้ไขที่อยู่เกษตรกร ที่อยู่แปลง โดยลบช่องหว่าง และลบชอย ถนน
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Columns("C:D").Replace What:="หมู่บ้าน ", Replacement:="หมู่บ้าน", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ตำบล ", Replacement:="ตำบล", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="อำเภอ ", Replacement:="อำเภอ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="จังหวัด ", Replacement:="จังหวัด", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
.Columns("C:D").Replace What:="ซอย - ถนน - ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End With
Next ws
End Sub
You do not have the required permissions to view the files attached to this post.
-
snasui
- Site Admin
- Posts: 30761
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
teerin wrote: ↑Thu Jul 27, 2023 3:37 pm ขอบคุณครับ ผมได้ปรับแก้ ตามนี้ครับCode: Select all
Sub Edit_Area() ' Edit_Area Macro ' แก้ไขที่อยู่เกษตรกร ที่อยู่แปลง โดยลบช่องหว่าง และลบชอย ถนน Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws .Columns("C:D").Replace What:="หมู่บ้าน ", Replacement:="หมู่บ้าน", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 .Columns("C:D").Replace What:="ตำบล ", Replacement:="ตำบล", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 .Columns("C:D").Replace What:="อำเภอ ", Replacement:="อำเภอ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 .Columns("C:D").Replace What:="จังหวัด ", Replacement:="จังหวัด", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 .Columns("C:D").Replace What:="ซอย - ถนน - ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 End With Next ws End Sub
ตาม Code และไฟล์แนบในโพสต์นี้ผมทดสอบแล้วไม่ติดปัญหาใดครับ
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
ขอบพระคุณมากๆครับ