Snasui Excel Forum

Windows 7 ที่ control Panel > Region and Language > Administrative > Caange system locale...
> Change system locale: เลือกเป็น Thai(Thailand) > OK > Restart

ตัวอย่าง : ถ้าใน A1 มีข้อความ (%อุดร%อุดรธานีฯ%UDORNTANE%UDORNTHANI) ใน B1 ให้เท่ากับ UDORNTHANI
ทดลองใช้ VBA
Sub Province()
Select Case Range("a1")
Case Is = "%อุดร%อุดรธานีฯ%UDORNTANE%UDORNTHANI"
Range("B1") = "UDORNTHANI"
End Select
Range("b1").Select
End Sub
แต่คุณแยกข้อมูลแต่ละจังหวัดว่าส ...

ใช้ Select Case น่าจะได้ครับ

ขอบคุณและสวัสดีปีใหม่ครับคุณคนควน

ขอแก้ไขโพสต์: 3 เป็น "ก่อนอื่นขอบคุณ คุณคนควน ที่สร้างตัวอย่าง EXCEL นำไปดัดแปลงแก้ไขได้ประโยชน์และความรู้อย่างมาก" พิมพ์ตกไปครับ
และขอบคุณสำหรับคำแน่นำครับ

เปิด Excel กด Alt กับ F11 ครับ

ก่อนอื่นขอคุณคนควน ที่สร้างตัวอย่าง EXCEL นำไปดัดแปลงแก้ไขได้ประโยชน์และความรู้อย่างมาก

เรื่องแทรกแถวใหม่แล้วสูตรไม่ตามมาครับ
ใช้การบันทึก Macro
ให้ทดลองตาม Code นี้

วางที่ Sheet Master
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call Macro1
Application ...

ขอรบกวนอาจารย์และท่านผู้ความรู้ คือผม Select Case ตรวจสอบสินค้าที่ผลิตในประเทศต่างๆ ตามชนิดของ WATER PUMP (B8) เช่น ถ้าผลิตในประเทศ CHINA เมื่อ RUN VBA หาประเทศที่ผลิต (=B10) ผมติดปัญหาว่า ถ้าไม่ใช่ให้ไปหาใน Case is(2) ต่อไป ให้ใช้คำสั่งอะไรข้ามไป Case is(2) ขอบคุณครับ

Select Case Range("B8").Value ...