Excel Forum

: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 จากไฟล์นั้นแทนครับ

Google Form จะมี Google Sheet ที่ถูกสร้างขึ้นมาคู่กันเพื่อใช้แสดงข้อมูลที่ได้จากการ Submit Form ดังนั้นเราสามารถเขียนสูตรที่ปลายทางเพื่อนำค่าที่ได้นี้ไปใช้ต่อได้ตามต้องการครับ

:D งานลักษณะที่แจ้งมานั้นเข้าใจว่าเป็นการเขียนโปรแกรมด้วย VBA เข้าไปช่วย ยกตัวอย่างเช่น เมื่อคีย์ข้อมูลในชีตที่ 1 แล้วคลิกปุ่มเพื่อเก็บข้อมูลเข้าชีต 3 ส่วนชีต 2 ดูเร็ว ๆ แล้วใช้สูตรเข้ามาช่วยได้ สำหรับการเขียนโปรแกรมจำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน :roll: ติดตรงไหนค่อยถามกันต่อครับ

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ A2 คีย์ =IFERROR(LEFT(INDEX(input!$A$1:$A$11,INT((ROWS(C$1:C1)-1)/40)+1),5),"") Enter > Copy ลงด้านล่าง ที่ B2 คีย์ =IF(A2="","",MID(INDEX(input!$A$1:$A$11,MATCH(A2&"*",input!$A$1:$A$11,0)),MOD((ROWS(C$1:C1)-1),40)+7,1)) ...

ช่วยแจ้ง Version ของ Excel ที่ใช้อยู่จริงตาม Link นี้ด้วยครับ https://snasui.com/viewtopic.php?p=103177#p103177

สำหรับตัวอย่างสูตรเพื่อหาว่าอีกกี่วันสิ้นเดือนตามด้านล่างครับ

=EOMONTH(TODAY(),0)-TODAY()+1

กรุณา Update Version ของ Excel ที่ใช้ตาม Link นี้ด้วย https://snasui.com/viewtopic.php?p=103177#p103177 เพื่อจะได้ตอบให้ตรงกับ Version ที่ใช้งานอยู่จริงครับ

น่าจะเกิดจากการย่อหน้าต่างแล้วทำให้หลุดจาก Windows ออกไป ลองใช้วิธีการเรียงหน้าต่างตามด้านล่างครับ

1. กดแป้น Ctrl+N เพื่อเปิดไฟล์ว่างขึ้นมาใหม่
2. เข้าเมนู View เลือก Arrange All
3. เลือก Vertical หรือ Horizontal เพื่อให้หน้าที่หลุดขอบ Windows มาแสดงเรียงด้วยกันกับไฟล์ที่ได้ตามข้อ 1