Snasui Excel Forum

ขอบคุณสำหรับความรู้มากๆเลยค่ะ ละเอียดและเข้าใจเลย ตอนนี้แก้ไขปัญหาตามที่ได้ช่วยเหลือมาเรียบร้อยแล้วค่ะ

ขอบคุณสำหรับคำแนะนำค่ะ ทั้งนี้ได้แนบไฟล์ตัวอย่างมาให้แล้วค่ะ

:D สวัสดีค่ะ

เขียนสูตรในการคำนวณ ชม และ นาที แต่ว่าผลลัพธ์ที่ออกมายังไม่ถูกต้อง :flw: อยากขอความช่วยเหลือในการแก้สูตรค่ะ

รูปที่ 1 เป็นรายงานการบันทึก ชม. ทำงาน ซึ่งข้อมูลในช่อง Total ยังไม่แสดงข้อมูลไม่ถูกต้อง
(ที่ถูกต้องคือ Total ต้องแสดงจำนวน ชม. ในการทำงานทั้งหมดของทุกคนเป็น 27 hrs 30 mins ...

สวัสดีค่ะ อาจารย์ ได้ลองนำเอา code ของอาจารย์มาปรับโดยการเพิ่มให้ copy format มาด้วย ตอนนี้เอกสารใช้งานได้แล้วนะคะ ขอบคุณมากค่ะ

ขออภัยค่ะ ทั้งนี้ได้แนบไฟล์ ที่ลองทำการ Copy ข้อมูลใน Sheet AU-01,AU-02 และ AU03 มาไว้ที่ Sheet "Audit Report" เรียบร้อยแล้วค่ะ

ขออธิบายด้วยภาพแทนนะคะ จากไฟล์ที่ได้แนบไปให้ก่อนหน้านี้
ใน Sheet "Audit Report" เมื่อกดปุ่ม "Load Audit Result" ต้องการดึงข้อมูลที่อยู่ใน Sheet AU-01 ตั้งแต่ Row ที่ 19 จนถึงบรรทัดสุดท้าย และทำแบบนี้ไปทุกๆ Sheet จนถึง Sheet AU-29 เรียงต่อกันลงมาเรื่อยๆค่ะใน Sheet "Audit Report" ค่ะ :D

:D สวัสดีค่ะ


อยากจะลอง Improve งาน คือเมื่อกดปุ่ม "Load Audit Result" ที่ Sheet "Audit Report" จะนำข้อมูลการ Audit ที่อยู่ใน sheet AU-01, AU-02, ..... จนถึง AU-(สุดท้าย) มาเรียงต่อกันที่ Sheet "Audit Report" แค่เฉพาะข้อมูลการ Audit เท่านั้น ข้อมูล Project Information ไม่ต้องนำมาใส่

ปัญหาที่พบค ...

ทำได้แล้วนะคะ ขอบคุณมากๆเลยค่ะ _/\_

สวัสดีค่ะ :D

ตอนนี้กำลังทำเอกสารการ Audit ที่สามารถเลือก Checklist ที่ต้องการจะ Audit ได้ แต่ก็มี comment จาก อาจารย์มานิดหน่อยว่าอยากให้เพิ่มตัวเลือก "All" ในช่องของ "Phase" แล้วให้โชว์ Checklist ทุก Phase ที่ใน Process ที่เลือก

การทำงานคือ
1. เลือก Process ในช่อง "Process"
2. เลือก Phase ในช ...

ต้องขอโทษ อาจารย์ด้วยค่ะ ที่ดูรายละเอียดไม่ถี่ถ้วน ตอนนี้ทดสอบ code ได้ถูกต้องตามความต้องการแล้วค่ะ

ขอขอบคุณ อาจารย์_/\_ สำหรับคำแนะนำในการเรียกการ "ทดสอบ" อย่างถูกต้องนะคะ :D

มีเพิ่มเติมค่ะ อาจารย์ ตอนนี้ที่เขียน code ได้ทำการกำหนด rowIndex = 18 จากนั้นวน loop ให้ + rowIndex ไปเรื่อยๆตามที่ อาจารย์แนะนำ

ปัญหาที่พบต่อมาคือ ถ้าเราต้องการเลือก รายการ checklist ใหม่ กลายเป็นว่า สิ่งที่เลือกใหม่น ...

นำ Code ที่อาจารย์ให้มาแปะลงไปแทนที่ code ชุดเดิมของตัวเองเลยค่ะ แล้วลอง complie

แนบไฟล์มาให้ด้วยค่ะ

Private Sub btGenChecklist_Click()
Dim rowIndex As Integer
rowIndex = Sheets("AU-01").Range("c" & Rows.Count).End(xlUp).row
For i = 1 To lbInitializeRight.ListCount
ActiveSheet.Cells(rowIndex ...

สวัสดีค่ะ อาจารย์

ลองนำ code ที่อาจารย์ปรับแก้มาให้ complie ดู ผลลัพธ์ได้ภาพค่ะ

ข้อมูล checklist อันแรก ไปแทนที่ header ของ table และข้อมูลไม่ได้เรียงบรรทัดลงมา มีการเว้นบรรทัด

รวบกวนขอคำแนะนำจากอาจารย์หน่อยนะคะ ว่ามีตรงไหนผิดพลาดหรือเปล่าค่ะ

ขอบพระคุณมากค่ะ

ปัจจุบัน เขียน code ออกมาแบบนี้ค่ะ แต่ว่าปัญหาที่พบต่อมาก็คือ เมื่อเราทำการเลือก process ต่อไป เพื่อให้ checklist มาแสดงใน sheet "AU-..." ต่อท้ายรายการก่อนหน้านี้ พบว่า โปรมแกรม error ค่ะ

รบกวนช่วยดูให้หน่อยได้ไหมคะ ว่าต้องแก้ตรงไหนบ้าง ขอบคุณมากนะคะ

แนบไฟล์ล่าสุดมาให้ด้วยค่ะ

Private Sub ...

สวัสดีค่ะ พอดีติดปัญหา นั่งคิดมาทั้งวันเลยจะทำยังไงดี

ต้องการนำข้อมูลที่อยู่ใน list box มาแสดงใน sheet "AU-..." เมื่อกดปุ่ม "Generate Checklist" สิ่งที่ต้องการให้โชว์ใน sheet นั้น คือข้อมูล "Detail" , "Process ID" และ "Checklist ID"

ซึ่งข้อมูลที่ดึงมานั้นมาจาก 2 แหล่ง ตามที่คิดไว้ คือ
แหล่งที่ 1 ...

_/\_ ขอบคุณมากเลยค่ะ ตอนนี้เอา code มาปรับเพิ่มนิดหน่อยสามารถใช้งานได้แล้วค่ะ

สวัสดีค่ะ

เงื่อนไขที่ต้องการแสดงข้อมูลก็คือ ถ้า Combobox1 (Process) และ Combobox2 (Phase) มีค่าที่เหมือนกันในตารางที่อยู่ใน excel
ให้แสดงข้อมูลที่อยู่ใน column F ที่ listbox

จาก code ที่เขียนอยู่ตอนนี้พยายามจะเอาข้อมูลที่อยู่ใน column F ขึ้นมาโชว์ทั้งหมดก่อน เมื่อทำการเลือก Phase แต่ก็ติด Complie ...

แก้ไขเรียบร้อยแล้ว โปรแกรมทำงานได้ตามความต้องการ ขอบคุณมากค่ะ

สวัสดีค่ะ

ขอสอบถามเนื่องจากเขียน VBA มาได้ระดับหนึ่งแต่ผลลัพธ์ที่ออกมา ยังไม่ถูกต้อง เลยอยากสอบถามว่าจาก code นี้มีตรงไหนต้องแก้ไขคะ ขอคำแนะนำด้วยนะคะ

ข้อมูลที่มีจากไฟล์ที่แนบมา
1. Sheet "All Checklist" เก็บข้อมูล checklist ทั้งหมดที่มี
2. Sheet "DataMap Process" เก็บข้อมูล Process ทั้งหมดที่ม ...