Page 1 of 1
ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Posted: Wed Jul 19, 2023 11:27 am
by teerin
ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบ เลขที่ xxx หมู่บ้านxxx หมู่ * ซอย - ถนน - ตำบลxxx อำเภอxxx จังหวัดxxx ขอบคุณครับ
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Posted: Wed Jul 19, 2023 1:57 pm
by teerin
ผมเขียนตามนี้ครับ ไม่ได้ผลครับ
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 ให้เป็นรูปแบบที่ต้องการ
Posted: Thu Jul 20, 2023 3:52 pm
by teerin
แก้ไขครับ ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA จากเลขที่ xxx หมู่บ้านxxx หมู่ x ซอย - ถนน - ตำบล xxx อำเภอ xxx จังหวัด xxxให้เป็นรูปแบบ เลขที่ xxx หมู่บ้านxxx หมู่ x ซอย - ถนน - ตำบลxxx อำเภอxxx จังหวัดxxx ขอบคุณครับ
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Posted: Fri Jul 21, 2023 8:34 am
by logic
ใส่โค้ดมาในไฟล์โปรแกรมแนบมากับคำถามด้วยตามกฎข้อ 4 + 5 ด้านบน ในข้อ 5 มีวิธีการวางโค้ดในช่องตวามเห็นเพื่อให้ข้อความในเป็นรูปแบบโค้ดครับ
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Posted: Thu Jul 27, 2023 3:37 pm
by teerin
ขอบคุณครับ ผมได้ปรับแก้ ตามนี้ครับ
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
Re: ต้องการแก้ไขฟอร์มข้อมูลโดยใช้ VBA ให้เป็นรูปแบบที่ต้องการ
Posted: Thu Jul 27, 2023 8:32 pm
by snasui
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 ให้เป็นรูปแบบที่ต้องการ
Posted: Fri Aug 04, 2023 1:58 pm
by teerin
ขอบพระคุณมากๆครับ
