Excel Forum

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

:D สามารถเขียนเพื่อ Validate ก่อนที่จะเขียน Code สำหรับการ Average ได้ครับ กรณีต้องการดักว่า txtBox3.Value เป็นค่าว่างให้ออกจาก Sub คือไม่ต้องทำงาานต่อ เขียนได้เป็น if txtBox3.Value = "" then exit sub หรือจะเขียนแจ้งผู้ใช้ให้ทราบก็เพิ่มเป็น if txtBox3.Value = "" then msgbox "...

การทำงานกับ Change Events จะต้องพิจารณาปิดการทำงาน Events เสียก่อนและเปิดขึ้นมาใช้ในภายหลัง ไม่เช่นนั้น Code แต่ละบรรทัดที่เขียนไว้จะทำให้ Events นั้นทำงานด้วยเสมอ ทำให้ Code ทำงานช้าลงอย่างมาก

ตัวอย่างการเปิดและการปิด Events ดูในภาพครับ

ช่วยจับภาพมาแสดงด้วยครับ

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ P7 คีย์
   =INDIRECT("R[-1]C",0)+O7
   Enter > Copy ลงด้านล่าง
2. ที่ R7 คีย์
   =INDIRECT("R[-1]C",0)+Q7
   Enter > Copy ลงด้านล่าง

การปล่อยให้ Argument สุดท้ายของ Match ว่างไว้มีค่าเท่ากับคีย์เลข 1 หมายถึงหาค่าที่ "น้อยกว่าหรือเท่ากับ" ค่าที่ต้องการค้นหาครับ

:D ดูตัวอย่างคำตอบที่คอลัมน์ G และ H ครับ วิธีการทำเงื่อนไขให้ง่ายลงตามไฟล์แนบคือสร้างตารางมาช่วย ดูได้ที่คอลัมน์ K เป็นต้นไป จากนั้นใช้ Index และ Match เข้ามาช่วยหาตำแหน่ง เพื่อนำข้อมูลที่เข้าเงื่อนไขมาแสดงในคอลัมน์ I เพื่อส่งต่อผลลัพธ์ไปใช้งานในคอลัมน์ G และ H ตามลำดับ กรุณาตรวจสอบการคีย์ค่าลงในตา...

:D ช่วยอธิบายวิธีเปรียบเทียบมาด้วยครับ ตัวอย่าง ถ้า C เป็น S และ G เป็น S ให้คำตอบเป็น X ถ้า C เป็น L และ G เป็น S ให้คำตอบเป็น Y ้ถา C เป็น L และ G เป็น L ให้คำตอบเป็น Z ฯลฯ การอธิบายเงื่อนไขต้องเป็นลักษณะเช่นนี้ผู้ตอบจะได้สะดวกในการทำความเข้าใจครับ ตามตัวอย่างที่ให้มาก็พอจะเขียนสูตรได้ แต่อาจจะไม่...

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

ควรทำงานด้วย Version เดียวกันจึงจะเปรียบเทียบกันได้ และต้องขออภ้ยที่จะแจ้งว่าผมช่วยได้เท่าที่แนะนำไปแล้วครับ

ปัญหา Error นี้คงต้อง Remote เข้าไปดูโดยตรงในเครื่องที่เป็นปัญหาถึงจะพอแนะนำต่อได้ครับ

:D ในเครื่องที่เกิดปัญหาให้ลองทำตามด้านล่างครับ เปิด Excel > กดแป้น Alt+F11 เพื่อเข้าหน้าต่าง VBE คลิกเมนู Tools > References ตรวจสอบตามภาพว่ามีคำว่า Missing นำหน้ารายการที่ Tick เครื่องหมายถูกอยู่บ้างหรือไม่ (ดูภาพประกอบ) หากมีให้ทำการติดตั้ง DLL ตัวนั้นใหม่หรือเลือกรายการที่ถูกต้องขึ้นมาใช้งานแทน ...

:D ตัวอย่างการปรับ Code ครับ 'Other code If InStr(1, Cells(RowNum, 1).Value, txtKeywords.Value, vbTextCompare) > 0 Or _ InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then Worksheets("unit").Cells(SearchRow, 1).Value = Cells(RowNum, 1).Value Worksheets("unit&qu...

ติดบรรทัดไหนกรุณาแจ้งรายละเอียดมาด้วย ผมไม่มี Acrobat ในเครื่องที่ใช้อยู่ในปัจจุบัน ที่ปรับไปให้นั้นเป็น Statement หรือ Logic ที่ Code ควรจะทำงานได้ หากติดส่วนที่เกี่ยวกับ Acrobat ผมไม่สามารถช่วยได้ครับ

แก้การประกาศตัวแปรจาก Dim Select_Files As Variant เป็น Dim Select_Files() As Variant ครับ

:D ตัวอย่างการปรับ Code ครับ 'Other code Dim i As Integer Set Acro_App = New Acrobat.AcroApp Set Acro_DestDoc = New Acrobat.AcroPDDoc Set Acro_TargDoc = New Acrobat.AcroPDDoc For cntr = 2 To Sheet1.Cells(Sheet1.Rows.Count, "a").End(xlUp).Row If Sheet1.Range("b" & cntr).Value ...

:D ยังไม่ค่อยเข้าใจสิ่งที่ต้องการจะทำสักเท่าไรครับ จาก Statement ActiveWorkbook.SaveAs Filename:=path & wksht.Range("A3").Value & ".xlsx" ตัวแปร wksht คือชีตที่ชื่อว่า name ของไฟล์ copymoney.xlsm ซึ่งเซลล์ A3 เป็นค่าว่างเปล่า ไม่สามารถนำไปเป็นชื่อไฟล์ได้ นอกจากนี้ระหว่างช...

:D เข้าใจถูกแล้วครับ เพราะไฟล์นั้นเป็นการจัดการโดย Google Form โดยปกติเราไม่สามารถไปบังคับให้มันทำงานได้ตรงกับสิ่งที่เราต้องการดังที่เห็นแล้วว่าถ้ามีสูตรมันจะเขียนข้อมูลในบรรทัดว่างถัดไปที่เรายังไม่เขียนสูตร แสดงว่ามันจะเริ่มวางข้อมูลในบรรทัดที่ว่างเสมอ เมื่อเป็นเช่นนี้ย่อมไม่ตรงกับสิ่งที่ต้องการจะน...

ลองปรับมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ปรับได้เท่าไรก็เท่านั้น ติดตรงไหนค่อยถามกันต่อครับ

วิธีการที่น่าจะช่วยได้คือดึงข้อมูลจาก Google Sheet ที่ได้จาก Google Form ไปไว้ใน Google Sheet อีกไฟล์แล้วค่อยไป Vlookup จากไฟล์นั้นแทนครับ