Snasui Excel Forum

การกำหนดเงื่อนไข ก ข ค ฆ ง = 1 ค่ะ ทำตามแล้ว copy ไปวางแล้ว ทำไม่ได้ค่ะ ขึ้นโค้ด errer ค่ะ รบกวนช่วยสอนแบบละเอียดได้ไหมคะ ไม่เคยใช้ค่ะ พอดีจะนำไปทำงานเกี่ยวกับแผนที่ภาษีนะค่ะ ขอขอบพระคุณล่วงหน้าเป็นอย่างสูงค่ะ

ไม่ทราบว่าต้องการจะทำอะไร ที่บอกว่าลองทำแล้วช่วยอธิบายปัญหา พร้อมแนบไฟล์อย่างอย่าง ระบุคำตอบที่ต้องการมาด้วยครับ

สำหรับ VBA จะเน้นตอบที่ติดปัญหา ไม่สามารถสอนละเอียดได้ เนื่องจากเป็น Programming หรือเป็นภาษาคอมพิวเตอร์ จำเป็นจะต้องมีความรู้มาก่อนตามลำดับ

จะทำ VBA สร้าง Code จากรายชื่อตามเงื่อนไขที่กำหนด
มีเพื่อนสมาชิกใน Pantip ได้สอบถามถึงโปรแกรมหรือใช้ฟังก์ชั่นของ Excel ในการสร้าง Code ตามเงื่อนไข ซึ่งต้องการจัดเก็บประวัติเรียงตามตัวอักษรตัวแรกของชื่อ แล้วตามด้วยตัวเลขตามอักษรอีก 3 หลัก และมีเครื่องหมาย “-“ คั่นระหว่างชื่อและนามสกุล โดยแสดงชื่อและนามสกุลเป็นเลข 4 หลัก เท่านั้น โดยมีเงื่อนไขการเปลี่ยนตัวอักษรเป็นตัวเลขดังนี้

ก – ง แทนด้วยหมายเลข 1 ( ก ข ค ฆ ง)
จ – ญ แทนด้วยหมายเลข 2 (จ ฉ ช ซ ฌ ญ )
ฎ – ณ แทนด้วยหมายเลข 3 (ฎ ฏ ฐ ฑ ฒ ณ)
ด – น แทนด้วยหมายเลข 4 (ด ต ถ ท ธ น)
บ – ฟ แทนด้วยหมายเลข 5 (บ ป ผ ฝ พ ฟ)
ภ – ฤ แทนด้วยหมายเลข 6 (ภ ม ย ร ล ว ฤ)
ศ – ฮ แทนด้วยหมายเลข 7 (ศ ษ ส ห ฬ อ ฮ)
ทำตามตัวอย่างแล้ว copy code ที่อาจารย์ลงในเว็บ
Option ExplicitFunction GenerateCode(r As Variant) As String Dim i As Integer, k As Integer Dim t As String, tt As String Dim t0 As String, t1 As String Dim t22 As String tt = Left(r, Application.Find(" ", r) - 1) & "000" t22 = Mid(r, Application.Find(" ", r) + 1, 255) & "000" Select Case Mid(r, 1, 1) Case "เ", "ไ", "ใ", "โ", "แ" t1 = Mid(r, 2, 1) k = 3 Case Else t1 = Left(r, 1) k = 2 End Select For i = k To Len(tt) Select Case Mid(tt, i, 1) Case "ก", "ข", "ค", "ฆ", "ง" t = t & 1 Case "จ", "ฉ", "ช", "ซ", "ฌ", "ญ" t = t & 2 Case "ฎ", "ฏ", "ฐ", "ฑ", "ฒ", "ณ" t = t & 3 Case "ด", "ต", "ถ", "ท", "ธ", "น" t = t & 4 Case "บ", "ป", "ผ", "ฝ", "พ", "ฟ" t = t & 5 Case "ภ", "ม", "ย", "ร", "ล", "ว", "ฤ" t = t & 6 Case "ศ", "ษ", "ห", "ฬ", "อ", "ฮ" t = t & 8 Case 0 t = t & 0 End Select Next For i = 1 To Len(t22) Select Case Mid(t22, i, 1) Case "ก", "ข", "ค", "ฆ", "ง" t0 = t0 & 1 Case "จ", "ฉ", "ช", "ซ", "ฌ", "ญ" t0 = t0 & 2 Case "ฎ", "ฏ", "ฐ", "ฑ", "ฒ", "ณ" t0 = t0 & 3 Case "ด", "ต", "ถ", "ท", "ธ", "น" t0 = t0 & 4 Case "บ", "ป", "ผ", "ฝ", "พ", "ฟ" t0 = t0 & 5 Case "ภ", "ม", "ย", "ร", "ล", "ว", "ฤ" t0 = t0 & 6 Case "ศ", "ษ", "ห", "ฬ", "อ", "ฮ" t0 = t0 & 8 Case 0 t0 = t0 & 0 End Select Next GenerateCode = t1 & Left(t, 3) & "-" & Left(t0, 4)End Function

เอาไปวางใน vbe แล้ว ขึ้นโคด error ค่ะ แล้วในฟังค์ชั่น fx ก็ไม่ขึ้น generatecode ค่ะ
แล้วขอทราบการเปิดใช้งานแมโครด้วยค่ะ ขอบคุณค่ะ

ควรแนบไฟล์ที่ลองทำมาด้วยครับ จะได้เห็นว่าไฟล์มีนามสกุลเป็นอะไร และวาง Code ไว้ที่ใด เมื่อดูแล้วจึงจะสามารถบอกได้ว่าควรจะต้องกำหนดค่าอะไร อย่างไรบ้าง การโพสต์มาเฉพาะ Code ไม่ได้ช่วยให้เห็นสภาพปัญหาจริงและต้องเสียเวลาสร้างไฟล์ตัวอย่างขึ้นมาเองครับ

ถ้าทำใน excel แล้วส่งไฟล์ ให้ทางเมล์ได้ จะขอบพระคุณเป็นอย่างสูงค่ะ

ไม่ควรส่งทางเมลครับ ควรเป็นไฟล์ตัวอย่าง สร้างขึ้นมาใหม่ ไม่ใช่นำไฟล์จริงมาถามครับ

Alt +Q แล้วเปิดใช้งาน macro อย่างไรคะ

เปิดใช้งานแล้วไมขึ้น generatecode ค่ะ

ไฟลที่แนบมาไม่มี Code ติดมาด้วยครับ ไฟล์ที่จะสามารถแนบ Code ได้จะต้องมีนามสกุลเป็น .xlsm หรือ .xls

สำหรับการเปิดการใช้งาน Macro ดูได้ที่นี่ครับ http://www.snasui.com/viewtopic.php?p=14435#p14435

เปิดใช้ macro แล้วค่ะ แล้วมาเปิด excel พิมพ์ชื่อ แล้วใช้ฟังค์ชั่น fx แล้วกด enter ก็ขึ้น microsoft visuaul basic แล้วขึ้น Compile error Expected:end of statement ok help ค่ะ

แนบไฟล์มาด้วยครับ

ขึ้น นามสกุล xlsm แล้ว ค่ะ แต่ไม่ขึ้น ฟังค์ชั่น generatecode ค่ะ

คงต้องเป็นเช่นนั้นครับ เพราะว่าไม่มี Code ในไฟล์ที่แนบมานี้ครับ สูตรนั้นจำเป็นจะต้องมี Code อยู่ด้วยถึงจะทำงานได้

การเปลี่ยนแปลงนามสกุลไฟล์ไม่ใช่นำไฟล์ที่เป็น .xlsx เดิมซึ่งไม่มี Code อยู่ มา Save as เป็น .xlsm แล้วมันจะมี Code ขึ้นมาเองได้ ให้ทำตามลำดับดังนี้ครับ

1. ไปที่ http://snasui.blogspot.com/2010/07/vba-code.html แล้ว Copy Code
2. เปิดโปรแกรม Excel > กำหนดให้ใช้งาน Macro (ทำครั้งเดียว ถ้าเคยทำแล้วไม่ต้องทำอีก) > เปิดไฟล์ที่ต้องการ
3. กดแป้น Alt+F11 > Insert > Module > วาง Code จากข้อ 1
4. เขียนสูตรเพื่อทดสอบ Code ว่าทำงานตรงกับที่ต้องการหรือไม่
5. Save file เป็นนามสกุล .xlsm

ทำยังไง code ก็ไม่ขึ้น แต่ก็ขอบคุณมาก ๆ นะคะ ที่เสียสละเวลาตอบคำถาม จะพยามยามทำให้ได้ค่ะ ขอบคุณอีกครั้งค่ะ