Excel Forum

ต้องการ 2 function ทำงานในปุ่มเดี่ยวกันแต่ติดปัญหา spreadsheet.getCurrentCell().setFormula('=iferror(index(LOOKUP(1,1/(\'ฐานข้อมูลสถานที่อบรม\'!A$2:A$200=F2)/(\'ฐานข้อมูลสถานที่อบรม\'!B$2:B$200=G2)/(\'ฐานข้อมูลสถานที่อบรม\'!C$2:C$200=I2),\'ฐานข้อมูลสถานที่อบรม\'!D$2:D$200)),I2)'); spreadsheet.getAct...

แก้ไขได้แล้วครับ

อยากทราบวิธีเขียนสูตรให้สั้นกว่านี้ครับเพราะมีข้อมูลไม่ซ้ำกว่า 70 บรรทัด =IF(AND(A2=$G$2,B2=$H$2,C2=$I$2),$D$2,IF(AND(A2=$G$3,B2=$H$3,C2=$I$3),$D$3,IF(AND(A2=$G$4,B2=$H$4,C2=$I$4),$D$4,IF(AND(A2=$G$5,B2=$H$5,C2=$I$5),$D$5,IF(AND(A2=$G$6,B2=$H$6,C2=$I$6),$D$6,IF(AND(A2=$G$7,B2=$H$7,C2=$I$3),$D$7,IF(A...

ที่ L2=IF(ISNUMBER(MATCH(1,INDEX(($B$2:$B$13=$K2)*($A$2:$A$13=SUBSTITUTE(L$1," ","")),0),0)),3,"") คัดลอกไปส่วนที่เกี่ยวข้อง หรืออีกแบบครับ ที่ L2=SUMPRODUCT(($B$2:$B$13=$K2)*($A$2:$A$13=SUBSTITUTE(L$1," ",""))*3) คัดลอกไปส่วนที่เกี่ยวข้อง ขอบคุณครับ

จาก File ตัวอย่าง คือชื่อคนจากวันที่ 1 - 3 อยากได้สูตรถ้าพบว่า คนที่มีชื่อ (CELL B) อยู่ใน(วันที่ 1 CELL A) ให้ใส่ในช่อง L ว่าเลข 3 ถ้าไม่มีชื่อไม่ต้องใส่ โดยตรวจสอบจากชื่อในช่อง CELL A คนที่มีชื่อ (CELL B) อยู่ใน(วันที่ 2 CELL A) ให้ใส่ในช่อง M ว่าเลข 3 ถ้าไม่มีชื่อไม่ต้องใส่ โดยตรวจสอบจากชื่อในช่อ...

:D LEFT(A6)+0 แปลว่าให้ตัด A6 มา 1 อักขระ ตัดมาแล้วให้บวกด้วย 0 บวกเพื่อทำให้เป็นตัวเลข เนื่องการตัดอักขระออกมาจะเป็น Text ครับ 25&Left(Cell,2) คือนำ 25 ไปเชื่อมกับอักขระด้านซ้ายของ Cell อีก 2 ตัวเพื่อทำให้เป็น พ.ศ. เพื่อให้ง่ายต่อการแปลงเป็น ค.ศ. ซึ่งการแปลง พ.ศ. ให้เป็น ค.ศ. จะหักออกด้วย 543 ...

:D ตัวอย่างสูตรที่เซลล์ E6 ครับ =DATE(IF(ISNUMBER(LEFT(A6)+0),(25&LEFT(A6,2)),RIGHT(A6,4))-543,MONTH(C6),DAY(C6)+1) Enter > Copy ลงด้านล่าง การที่ข้อมูลมีความหลากหลายจำเป็นต้องแจ้งให้ครบถ้วนมาตั้งแต่แรก ผู้ตอบจะได้คิดทีเดียว สำหรับสูตรนี้หากไม่ได้คำตอบกรุณาแจ้งวิธีคิดมาอย่างละเอียดสำหรับเซลล์นั...

snasui wrote: ↑Thu Feb 08, 2018 9:24 pm แนบไฟล์ล่าสุดมาด้วยจะได้สะดวกในการตอบต่อไปจากนั้นครับ

แนบแล้วครับ

parakorn wrote: ↑Thu Feb 08, 2018 5:06 pm ปรับเป็น
E6 =IF(OR(LEFT(A6,2)>=29,LEFT(A6,2)<=70),(TEXT(C6+1,"dd-mm")&"-"&(("25"&LEFT(A6,2))-543))+0,((TEXT(C6+1,"dd-mm")&"-"&RIGHT(A6,4)-543)+0)) Enter

แบบที่ 2 เลขที่ ว00015/2556 ติด Error Value ครับ รบกวนอีกครั้งครับ

ประมาณนี้หรือเปล่าครับ E6 =IF(LEFT(A6,2)="51",(TEXT(C6+1,"dd-mm")&"-"&(("25"&LEFT(A6,2))-543))+0,((TEXT(C6+1,"dd-mm")&"-"&RIGHT(A6,4)-543)+0)) Enter ได้ครับขอบคุณครับ ผมขอคำแนะนำอีกนิดนึงครับ น่าจะนอกคำถามนี้แล้ว กรณี I...

ไม่แน่ใจว่าใช่ที่ต้องการหรือไม่นะครับ E6 =IF(LEFT(A6,2)="51",(TEXT(C6+1,"dd-mm")&"-"&(("25"&LEFT(A6,2))-543))+0,"0") Enter E13 =(TEXT(C13+1,"dd-mm")&"-"&RIGHT(A13,4)-543)+0 Enter รบกวนสอบถามเพิ่มเติมครับ ถ้าต้...

parakorn wrote: ↑Wed Feb 07, 2018 3:09 pm ไม่แน่ใจว่าใช่ที่ต้องการหรือไม่นะครับ
E6 =IF(LEFT(A6,2)="51",(TEXT(C6+1,"dd-mm")&"-"&(("25"&LEFT(A6,2))-543))+0,"0") Enter
E13 =(TEXT(C13+1,"dd-mm")&"-"&RIGHT(A13,4)-543)+0 Enter

ตรงเปะเลยครับ ขอบคุณครับ

ผมเขียนคำถามสลับกัน ผลลัพธ์ต้องการคือ อยากให้วันเริ่มต้น อ้างอิงจากวันหมดอายุ และปีเริ่มต้นอ้างอิงจากเลขที่ ------------------------------------------------------------------------------------------- เช่น 25/05/2017 คือวันหมดอายุ อยากให้ปีเริ่มต้นอ้างอิงจากเลขที่ 5802014745 และ วันที่เริ่มต้นอ้างอิง...

แบบที่ 1 เลขที่ วันเริ่มต้น วันสิ้นสุด ทดสอบ 5102014745 01/10/2008 30/09/2021 01/10/2008 ข้อมูลตัวอย่างดังกล่าวตามข้างบน อยากได้สูตรที่สามารถจับค่า ตัวเลขจากตัวอย่างดังกล่าว แบบที่ 1 เลขที่ 51 เริ่มต้นคือปีเริ่มต้น 2551 ต้องการแปลงเป็นปี ค.ศ. ตามปีดังกล่าวก็คือปี 2008 ส่วนวันที่เริ่มต้น ต้องมากกว่าว...

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

:D ตัวอย่างการปรับ Code ครับ '...Other code If FileFormatValue = 0 Then MsgBox "Sorry, unknown file extension" Else 'Copies the ActiveSheet to new workbook ActiveSheet.Range("A1").UnMerge ActiveSheet.Range("B4").UnMerge ActiveSheet.Range("B5").UnMerge Applica...

:D ติดเรื่องการ Merge เซลล์ ครับ ในไฟล์ต้นทางมีการ Merge ไว้ที่ใดให้ยกเลิกการ Merge เสียก่อนแล้วค่อยดำเนินการ เมื่อดำเนินการเรียบร้อยแล้วค่อย Merge กลับเข้ามาใหม่ การ Merge เซลล์จะยุ่งยากลำบากในการจัดการมากกว่าปกติ หากเป็นไปได้ให้ใช้การจัด Format ด้วยวิธีอื่นเช่น Center Alignment เป็นต้น การ Debug ...

:D ติดเรื่องการ Merge เซลล์ ครับ ในไฟล์ต้นทางมีการ Merge ไว้ที่ใดให้ยกเลิกการ Merge เสียก่อนแล้วค่อยดำเนินการ เมื่อดำเนินการเรียบร้อยแล้วค่อย Merge กลับเข้ามาใหม่ การ Merge เซลล์จะยุ่งยากลำบากในการจัดการมากกว่าปกติ หากเป็นไปได้ให้ใช้การจัด Format ด้วยวิธีอื่นเช่น Center Alignment เป็นต้น การ Debug ...

หลังจากผม Filter นายหน้า ด้วย Macro ด้วยได้ลองทดสอบ ด้วย Macro Module8 ผลการทดสอบตาม Code ดังนี้ Sub Button29_EXCEL() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim c...

:D แก้ปัญหาไปที่ละเรื่องครับจากไฟล์ ร่วมรายชื่อตัวแทนและนายหน้าควรแจ้งมาด้วย Code อยู่ที่ Module ไหนครับ ในเบื้องต้นลอง Run ทีละ Step ด้วยการกดแป้น F8 แล้วสังเกตดูว่าบรรทัดใดทำให้เกิด Error ส่งผลให้ไป Run บรรทัดภายใต้ errHandler: ให้แก้ที่บรรทัดนั้นหรือหากติดปัญหาใดให้สอบถามมาอีกรอบครับ Module ที่ ...