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 ...

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

อยากทราบวิธีเขียนสูตรให้สั้นกว่านี้ครับเพราะมีข้อมูลไม่ซ้ำกว่า 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 ...

ที่ 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


ได้ครับขอบคุณครับ ผมขอคำแนะนำอีกนิดนึงครับ น่าจะนอกคำถามนี้แล้ว กรณี IF(LEFT(A6,2)="51" ต้องเขียนทุกปี พอมีวิธีลดจำนวนสูตรลงไหมครับ ประมาณว่าเร ...

ไม่แน่ใจว่าใช่ที่ต้องการหรือไม่นะครับ
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


รบกวนสอบถามเพิ่มเติมครับ ถ้าต้องการให้ 2 สูตรนี้ร่วมกันมีรูปแบบ ต้องเขียนอย่างไรครับ ขอบคุณมากครับ

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
Application.Calculation ...

:D ติดเรื่องการ Merge เซลล์ ครับ

ในไฟล์ต้นทางมีการ Merge ไว้ที่ใดให้ยกเลิกการ Merge เสียก่อนแล้วค่อยดำเนินการ เมื่อดำเนินการเรียบร้อยแล้วค่อย Merge กลับเข้ามาใหม่

การ Merge เซลล์จะยุ่งยากลำบากในการจัดการมากกว่าปกติ หากเป็นไปได้ให้ใช้การจัด Format ด้วยวิธีอื่นเช่น Center Alignment เป็นต้น

การ ...

:D ติดเรื่องการ Merge เซลล์ ครับ

ในไฟล์ต้นทางมีการ Merge ไว้ที่ใดให้ยกเลิกการ Merge เสียก่อนแล้วค่อยดำเนินการ เมื่อดำเนินการเรียบร้อยแล้วค่อย Merge กลับเข้ามาใหม่

การ Merge เซลล์จะยุ่งยากลำบากในการจัดการมากกว่าปกติ หากเป็นไปได้ให้ใช้การจัด Format ด้วยวิธีอื่นเช่น Center Alignment เป็นต้น

การ ...

หลังจากผม 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 ...

:D แก้ปัญหาไปที่ละเรื่องครับจากไฟล์ ร่วมรายชื่อตัวแทนและนายหน้าควรแจ้งมาด้วย Code อยู่ที่ Module ไหนครับ

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


Module ...