Excel Forum

ผลลัพธ์ถูกต้องครับ และผมได้เพิ่ม on error goto เข้าไป ก็ได้ผลเมื่อใส่ชื่อไฟล์ผิด (หาวิธีใช้ on error อยู่นานกว่าจะเข้าใจ) ทีนี้มาติดตรงที่ว่า ถ้าเงื่อนไขแรกที่ค้นหา (คือข้อมูลใน column A) ไม่ได้เป็นแค่ตัวเลขอย่างเดียว เช่น 1024(ก) , A1011(ยน) แบบนี้ครับ แต่เราไม่รู้ว่า ข้างหน้า หรือ ข้างหลังเลขที่เร...

ปัญหาใหม่ครับ เมื่อทดสอบแยก workbook ผมเพิ่ม code เจอ error ไล่ F8 เช็คทีละบรรทัด จนไม่มี error แล้วครับ แต่ผลลัพธ์ไม่ออก เปิดไฟล์ที่มี Data อยู่ได้ แต่ไม่ดึงข้อมูลมาวางใน workbook ที่ run code ครับ Sub collectNO2() Dim wb As Workbook, wbf As Workbook Dim wn As Range Dim nsh As Range Dim i As Long D...

ขออภัยครับ เพราะผมยังไม่ชำนาญเท่าไรครับ แค่พอไปได้ เจอ code ลึกๆ ก็ งง เหมือนกัน ก่อนมาเห็นที่อาจารย์ตอบ ผมปรับเป็นแบบนี้ครับ ก็ได้ผลลัพธ์ตามต้องการ แต่เหมือน code มันจะซ้ำซ้อนไปหน่อย Sub collectNO() Dim i As Long Dim k As Long Dim desRow As Long Dim a As Range, b As Range Set a = Sheets("Show&...

ผลลัพธ์ 2 เงื่อนไขออกครับ แต่แบบใส่แค่เงื่อนไขแรก a กลับไม่มีอะไรออกมาเลย

ผลเลยลองเอา code ที่ผมเขียนตอนแรก เข้ามาคั่นใน if แรก ผลปรากฏว่า ไม่ error แต่ก็ไม่มีผลลัพธ์ออกมาเช่นกัน

รบกวนอาจารย์อีกทีครับ

concept คือ จะดึงข้อมูลใน sheet Data มาแสดงใน sheet Show โดยมีเงื่อนไข 2 ตัวคือ order id และ order no. ภายใน if แรกคือ ถ้าใส่เงื่อนไขตัวเดียวคือ order id (ปล่อยเงื่อนไขที่ 2 ว่าง)ก็ให้ดึงข้อมูลที่เป็น order id นั้นมาทั้งหมด แต่หลัง else คือ ถ้าใส่เงื่อนไข 2 ตัว ก็จะให้ดึงมาเฉพาะที่เป็น order id และ ...

สวัสดีครับอาจารย์ และ ผู้เชี่ยวชาญทุกท่านครับ วันนี้ผมมาขอแนวทางการใช้ If ใน vba ครับ เพื่อที่จะได้ไปลองเขียนดูก่อนแล้วถ้าติดตรงไหนจะมาถามอีกทีครับ ปกติ If ก็จะมีเงื่อนไขเดียว เช่น If 2 > 0 Then MsgBox "Yes" End If รูปแบบการเขียนก็จะประมาณนี้ถูกต้องนะครับ แต่ถ้ามี 2 เงื่อนไข ก่อนที่จะไป th...

อาจารย์ครับ อีกนิดนึงครับ เราสามารถใส่อธิบายฟังก์ชั่น แบบรูปแนบได้มั้ยครับ ผมพยายามหาวิธีทำ แต่ค้นหาไม่เจอ ครับ

ขอบคุณอาจารย์ทั้ง 2 ท่านครับ ติดประเด็นอะไรอีก จะเข้ามาขออนุญาติรบกวนสอบถามอีกนะครับ ผมอยากรบกวนอาจารย์แนะนำหนังสือหรือ e-book เกี่ยวกับการเขียน VBA ให้ผมหน่อยครับ ผมจะได้ไปหาซื้อเอามาศึกษาเพิ่มพูนความรู้ให้ดียิ่งขึ้นกว่านี้ครับ เพราะบางทีเข้าไปหาข้อมูลจากที่อื่น หรือ ที่อาจารย์ตอบใน forum เจอ code ...

น่าจะเป็นประเด็นสุดท้ายละครับ แต่ยาวหน่อย ผมลองทำตามคำแนะนำที่อาจารย์บอกครับ ผลก็ได้ตามความต้องการ ทีนี้มาถึงขั้นตอนสุดท้ายคือ นำคำตอบที่ได้มารวมกันให้เป็น cell เดียว และ คีย์ function ครั้งเดียวให้ได้ผลลัพธ์เลย ผมเลยไปค้นหาวิธีรวมข้อมุลให้เป็น cell เดียวกันมาใส่ แต่แยกเป็นคนละ function แล้วก็เอา =C...

ขอบคุณครับ อาจารย์ ผม update version ของ excel แล้วครับ และจะลองนำคำแนะนำไปลองปรับใช้งานดูครับ

อาจารย์ครับ ผมลอง run function ดูแล้ว ผลที่มาภาพรวมถูกต้อง แต่ผลลัพท์ที่แสดงไม่ครบครับ ผมลองใส่เลขที่ต้องการค้นหา ผลลัพท์จริงๆจะมีประมาณ 4 วัน แต่ผลลัพท์ที่แสดงออกมาแค่วันเดียวคือวันแรกที่ค้าหาเจอ ส่วนอีก 3 วันต่อมา ไม่มีข้อมูลแสดงครับ เป็นเพราะตอนท้าย code เราให้ function = a เลยหรือปล่าวครับ ไม่ได...

ขอบคุณอาจารย์ทั้ง 2 ท่านครับ ผมจะนำไปศึกษาเพิ่มเติมครับ

ได้แล้วครับ หาวิธีทำจนเจอ

หาข้อมูลไปเรื่อยๆ จนไปเจอการใช้ on error go to พอเข้าใจว่าเป็นการดัก error ที่จะเกิดขึ้นแต่ให้ไปทำที่เรากำหนดแทนเช่น msgbox แต่ผมลองทำดู ทำไมมัน error ตั้งแต่เขียน code แล้วครับ


รบกวนอาจารย์ อธิบายทีครับ

ได้แล้วครับ เป็นที่ผมใส่ชื่อไฟล์เต็ม แล้วก็ไม่ได้ลบ & ".xlsx" ออก มันเลย error ทีนี้เราจะดัก code ยังไงครับว่า ถ้าชื่อไฟล์ที่พิมพ์ในช่อง b1 เป็นชื่อไฟล์ที่ไม่มีอยู่ใน path นั้นจริง หรือ อาจจะพิมพ์ชื่อไฟล์ผิด จึงหาไฟล์ไม่เจอ แล้วให้ขึ้น msgbox ว่าชื่อไฟล์ผิด หรือไฟล์ไม่มี ประมาณนี้ครับ ...

ไม่ได้หมายถึงใน code ครับ หมายถึงว่า ยังเอาค่าจาก B1 เหมือนเดิม แต่ใน code มี & ".xlsx" เลยเหมือนชนกันเลยเกิดเป็น error สมมุติพิมพ์ใน cell B1 = C:\sf\gewrh\hqnhgntrn.xlsx แบบนี้ครับ จึงอยากรู่ว่าใน code สามารถปรับให้ยืดหยุ่นรับกับทุกนามสกุลของไฟล์ เช่นอาจจะเป็นไฟล์ของ excel 2007 นามสกุ...

ขอบคุณที่ชี้แนะครับอาจารย์ เรียนตามตรงครับ ความรู้ในการเขียน vba ผมไม่มีเลย ก็ค้นหาจากใน forum ของอาจารย์บ้าง ใน google บ้าง แล้วเอามาลองเขียนดูครับ เชิงลึกผมเลยไม่ทราบเลย ได้แค่พื้นฐาน ติดตรงไหนก็ค้นหาใน google เอาว่าแก้ยังไง จนปัญญาจริงๆ จึงเข้ามาถามอาจารย์ครับ เขียน sub() ก็ยากสำหรับผมแล้ว แล้วมา...

ผมลองโยกมาเป็น function แล้วครับ concept คือ ยังอ้างไฟล์จาก cell B1 เพื่อเปิดไฟล์ที่ค้นหาอยู่ และคีย์เลข contract no หรือ อ้างจาก cell ใดๆ ใส่ใน function และผลลัพท์ที่ต้องการคือช่องข้อมูลใน colume a คือ วันที่นำมาแสดงใน cell เดียวต่อกันครับ แต่ผลออกมาคือว่างเปล่า ไม่มี error บอกเลยว่า code ผิดตรงไหน...

ขอบคุณครับ อาจารย์ สำหรับความรู้ และคำแนะนำ ตอนนี้การทำงานของ code สมบูรณ์แล้วครับ แต่ได้รับโจทย์ใหม่มาเพิ่ม คือ แปลง code ชุดนี้ให้เป็น function โดยใช้ตัวแปรหาข้อมูล คือ ชื่อไฟล์ และ contract no. ก็คือ concept เดียวกัน ชื่อFunction(ชื่อไฟล์,เลขcontract) ประมาณนี้ครับ สามารถแปลง code ได้มั้ยครับ ขอค...

เจอปัญหาใหม่ครับ เมื่อทดลองใส่ ข้อมูลที่ผิด หรือไม่มี contract no นั้น เข้าไป พบว่า code error ที่ บรรทัดนี้ครับ ThisWorkbook.Worksheets("Sheet1").Range("A5").Resize(j, 51) = a ผมจึงเข้าใจว่า ค่า a ที่เก็บข้อมูล ไม่เจอผลลัพท์ เลย error ผมเลยแทรก if เข้าไป ถ้าไม่เจอข้อมูล ให้แจ้งว...