สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA ครับ

[bank9597]

ลองดูตามไฟล์แนบครับ

[narin_han]

อาจารย์ครับ ขอถามอีกหนึ่งคำถามนะครับ
เนื่องจากในช่อง Employee ID ตอนที่กรอกไปพอออกมาเป็นในรูปแบบ number แต่ออกมาเป็น text ครับ มี alphobet คั่นข้างหน้าครับ
เพราะไฟล์ใช้งานจริงๆ จะมีปุ่มเรียกข้อมูลออกมาดูด้วยนะครับ (เขียนเรียบร้อยแล้ว ไม่มีปัญหาครับ) เลยกลัวว่าจะมีปัญหานะครับ มีคำสั่งไหมครับที่ต่อท้ายไปแล้วปรับมาเป็นตัวเลขครับ ขอบคุณอีกครั้งครับ อาจารย์

[narin_han]

ลองดูตามไฟล์แนบครับ

ขอบคุณอีกครั้งครับ คุณbank9597
เยี่ยมเช่นเดียวกันครับ ขอบคุณนะครับ

[snasui]

ถ้าหากไฟล์ของคุณมีแค่ 3 ปี Code ที่ผมตอบไปนั้นสามารถให้คำตอบที่ถูกต้องอยู่แล้ว ไม่จำเป็นต้องเขียน range2016 เข้าไปเพิ่มแต่อย่างใด ยกเว้นจะมีปี 2017 เป็นปีสุดท้าย

เนื่องจากในช่อง Employee ID ตอนที่กรอกไปพอออกมาเป็นในรูปแบบ number แต่ออกมาเป็น text ครับ มี alphobet คั่นข้างหน้าครับ

อ่านแล้วไม่เข้าใจครับ หมายถึงว่ากรอกเป็น Number แต่ผลลัพธ์ออกมาเป็น Text สิ่งที่ต้องการคือ ต้องการให้ออกมาเป็น Number ใช่หรือไม่ครับ

[narin_han]

ใช่แล้วครับ อาจารย์ และขอบคุณสำหรับคำแนะนำนะครับ
ผมลองใช้ code นี้นะครับ

Code: Select all

Sub ConvertAllShts()
For Each WS In Sheets
For Each r In WS.UsedRange
If r <> "" Then r.Value = Val(r.Value)
Next
Next
End Sub

โดยสร้างใน module นะครับ พอ test แล้วเปลี่ยนทุก column นะครับ ถ้าอยากได้แค่ column ("A") ทำยังไงครับ ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

For Each ws In Sheets
    For Each r In ws.Range("a2", ws.Range("a" & Rows.Count).End(xlUp))
        If r <> "" Then r.Value = Val(r.Value)
    Next r
Next ws

[narin_han]

ขอบคุณมากนะครับอาจารย์ งานของผมเสร็จเรียบร้อยได้เลยเพราะบอร์ดนี้

ถ้าผมอยากเรียนเพิ่มเติม สามารถเรียนได้ที่ไหนบ้างครับ ขอบพระคุณนะครับ

[snasui]

ต้องขออภัยเรื่องสถานที่เรียน ผมไม่สามารถบอกได้เนื่องจากผมศึกษาด้วยตนเอง รอสมาชิกท่านอื่นเข้ามาช่วยตอบครับ