Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:13 pm
ลองดูตามไฟล์แนบครับ ลองดูตามไฟล์แนบครับSnasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA ครับ
Page 2 of 2
ลองดูตามไฟล์แนบครับRe: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:18 pm
อาจารย์ครับ ขอถามอีกหนึ่งคำถามนะครับ
เนื่องจากในช่อง Employee ID ตอนที่กรอกไปพอออกมาเป็นในรูปแบบ number แต่ออกมาเป็น text ครับ มี alphobet คั่นข้างหน้าครับ
เพราะไฟล์ใช้งานจริงๆ จะมีปุ่มเรียกข้อมูลออกมาดูด้วยนะครับ (เขียนเรียบร้อยแล้ว ไม่มีปัญหาครับ) เลยกลัวว่าจะมีปัญหานะครับ มีคำสั่งไหมครับที่ต่อท้ายไปแล้วปรับมาเป็นตัวเลขครับ ขอบคุณอีกครั้งครับ อาจารย์
เนื่องจากในช่อง Employee ID ตอนที่กรอกไปพอออกมาเป็นในรูปแบบ number แต่ออกมาเป็น text ครับ มี alphobet คั่นข้างหน้าครับ
เพราะไฟล์ใช้งานจริงๆ จะมีปุ่มเรียกข้อมูลออกมาดูด้วยนะครับ (เขียนเรียบร้อยแล้ว ไม่มีปัญหาครับ) เลยกลัวว่าจะมีปัญหานะครับ มีคำสั่งไหมครับที่ต่อท้ายไปแล้วปรับมาเป็นตัวเลขครับ ขอบคุณอีกครั้งครับ อาจารย์
Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:27 pm
bank9597 wrote:
ขอบคุณอีกครั้งครับ คุณbank9597
เยี่ยมเช่นเดียวกันครับ ขอบคุณนะครับ
Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:30 pm
ถ้าหากไฟล์ของคุณมีแค่ 3 ปี Code ที่ผมตอบไปนั้นสามารถให้คำตอบที่ถูกต้องอยู่แล้ว ไม่จำเป็นต้องเขียน range2016 เข้าไปเพิ่มแต่อย่างใด ยกเว้นจะมีปี 2017 เป็นปีสุดท้ายอ่านแล้วไม่เข้าใจครับ หมายถึงว่ากรอกเป็น Number แต่ผลลัพธ์ออกมาเป็น Text สิ่งที่ต้องการคือ ต้องการให้ออกมาเป็น Number ใช่หรือไม่ครับnarin_han wrote:เนื่องจากในช่อง Employee ID ตอนที่กรอกไปพอออกมาเป็นในรูปแบบ number แต่ออกมาเป็น text ครับ มี alphobet คั่นข้างหน้าครับ
Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:36 pm
ใช่แล้วครับ อาจารย์ และขอบคุณสำหรับคำแนะนำนะครับ
ผมลองใช้ code นี้นะครับ
โดยสร้างใน module นะครับ พอ test แล้วเปลี่ยนทุก column นะครับ ถ้าอยากได้แค่ column ("A") ทำยังไงครับ ขอบคุณครับ
ผมลองใช้ 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 SubRe: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:48 pm
ลองปรับ 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
Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 10:58 pm
ขอบคุณมากนะครับอาจารย์ งานของผมเสร็จเรียบร้อยได้เลยเพราะบอร์ดนี้
ถ้าผมอยากเรียนเพิ่มเติม สามารถเรียนได้ที่ไหนบ้างครับ ขอบพระคุณนะครับ
Re: สอบถามเรื่องการลงข้อมูล แบบกำหนดเงื่อนไข ในแบบฟอร์ม VBA
Posted: Thu Apr 10, 2014 11:12 pm
ต้องขออภัยเรื่องสถานที่เรียน ผมไม่สามารถบอกได้เนื่องจากผมศึกษาด้วยตนเอง รอสมาชิกท่านอื่นเข้ามาช่วยตอบครับ