Excel Forum

:sg: :?: ไม่รู้ว่าเข้าใจถูกหรือเปล่านะครับ ผมคิดว่าคุณควรกำหนดโค้ดสำหรับสินค้าแต่ละรายการเดี่ยวๆ ก่อน มีสินค้ากี่รายการ (เฉพาะที่ยังไม่เอามาผสมกัน) ก็กำหนดให้ครบก่อน เช่น มี 3 อย่าง คือ กล้วย (-B---), ส้ม (----A), มะละกอ (A----) เมื่อกำหนดครบแล้ว ถ้ามีการเอาสินค้าหลายชนิดมาผสมกัน เช่น กล้วย+ส้ม ก็อา...

wb.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Now, "yymmdd-hhmm") _ & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".txt", _ FileFormat:=xlText, CreateBackup:=False หลังคำสั่ง Filename:= คือเริ่มจาก Thisworkbook.Path ไปจนถึง &qu...

แนบไฟล์ตัวอย่างมาด้วยจะดีมากครับ เพื่อนๆ ที่เข้ามาช่วยจะได้โหลดเอาไปทดลองได้ง่ายๆ ไม่ต้องมาเขียนโจทย์เองใหม่ครับ

ทำได้ครับ 1. ตั้งค่าโปรแกรมให้กำหนดจำนวนครั้งเมื่อเกิดการคำนวณแบบวงกลมโดย File > Options > Formulas > ติ๊กถูกที่ Enable iterative calculation > OK 2. เลือก I7 > ตั้งค่ารูปแบบเซลล์เป็น d mmm yyyy hh:mm:ss 3. I7 คีย์สูตร =IF(B7="","",IF(I7<>"",I7,NOW())) Enter >> คัดลอกลง...

ลองแบบนี้ครับ

D2
=IF(COUNTIF(D$1:D1,MATCH(1,INDEX(($A$2:$A$13=A2)*($B$2:$B$13=-B2),0),0)),0,MATCH(1,INDEX(($A$2:$A$13=A2)*($B$2:$B$13=-B2),0),0))
Enter >> คัดลอกลงล่าง จะแสดงตำแหน่งการจับคู่ครับ

C2
=IF(D2>0,"Error","")

ลองปรับสูตรแบบนี้ดูครับ
=if(k7=0,0,if(k7>=l7,"PASS","FAIL"))

อย่างไรก็ตาม ควรแนบไฟล์ตัวอย่างมาด้วยเพื่อเพื่อนๆ จะเข้าใจง่ายขึ้นและแนะนำได้ถูกครับ

ลองปรับเป็นแบบนี้ดูครับ Public Sub CreateText() Dim n As Integer Dim NoteP As Double Dim wb As Workbook Workbooks.Add Set wb = ActiveWorkbook ThisWorkbook.Activate n = Application.WorksheetFunction.CountA(Range("A5:A1000")) + 4 Range(Cells(5, 1), Cells(n, 29)).Copy _ wb.Sheets(1).Range(&qu...

แนะนำแบบที่ผมเคยทำแล้วกันนะครับ 1. ต้องสร้างฐานข้อมูลเลขใบกำกับภาษีที่เคยทำมาแล้วก่อน ทำในไฟล์เดียวกันโดยสร้างชีทใหม่ (ในไฟล์ตัวอย่างคือ Database) แล้วผมก็สร้าง dynamic named range ชื่อว่า _DocNo เพื่อเอาไปใช้อ้างอิงในสูตร (หากมีการเพิ่มเลขใบกำกับ dynamic named range จะช่วยปรับช่วงอ้างอิงให้ จะได้ไม...

สอบถามเพิ่มหน่อยครับ -- ในคอลัมน์ CODE เครื่องหมายที่คั่นแต่ละโค้ด มีทั้ง "," และ "." ทั้งสองแบบเลยเหรอครับ -- แล้วปิดท้ายข้อความก็ไม่แน่นอนด้วย อาจมี "," หรือ "." ปิดท้ายข้อความหรือไม่ก็ได้ ใช่หรือเปล่าครับ เช่น เซลล์ B3 AA,BB,CC ไม่มีลูกน้ำปิดท้ายข้อความ แต่...

ลองแบบนี้ครับ

G5
=LOOKUP(DAY(F5),{1,16},CHOOSE({1,2},15,DAY(EOMONTH(F5,0))))

แต่ถ้าไม่มีฟังก์ชัน EOMONTH ก็ใช้สูตรด้านล่างครับ

=LOOKUP(DAY(F5),{1,16},CHOOSE({1,2},15,DAY(DATE(YEAR(F5),MONTH(F5)+1,0))))

เงื่อนไขตรงนั้นมีไว้เพื่อเลือกเฉพาะชีทที่เป็นฐานข้อมูลครับ เวลาคำสั่งลูปมาเจอชีทรายงานจะได้ข้ามไปเลย แต่หากชื่อชีทฐานข้อมูลไม่มีรูปแบบที่เหมือนกัน ก็ให้เปลี่ยนเป็น "ชื่อของ ws ไม่ตรงกับชื่อชีทรายงาน" ก็ได้ครับ เช่น ชีทรายงานชื่อ "Report" ก็ปรับโค้ดเป็น If ws.Name <> "Report&...

อีกวิธีหนึ่งครับ ใช้ประโยชน์จากสูตรที่มีการอ้างอิงแบบวงกลมครับ ก่อนอื่นให้ไปตั้งค่าจำนวนครั้งที่จะให้คำนวณเมื่อเกิดการอ้างอิงแบบวงกลมก่อน File > Option > Formulas > Enable iterative calculation > ช่อง Maximum iterations อาจใส่เป็น 1000 > OK E6 =IF(I6=0,"",IF(E6<>"",E6,TODAY())) แ...

แถมอีกสูตรครับ ถ้าทศนิยมอยู่ในเซลล์ A1
=--SUBSTITUTE(A1,".","")

หรือถ้าเลขทศนิยมหลักหน่วยขึ้นไปไม่ใช่ 0 เช่น 10.0041 แต่ต้องการให้แสดงแค่ 41 ก็อาจใช้สูตรด้านล่างครับ
=--RIGHT(SUBSTITUTE(A1,".",REPT(" ",100)),100)

ลองปรับโค้ดแบบนี้ครับ แนวคิดคือ - เริ่มลูปแต่ละชีท - ในแต่ละชีทก็ให้เริ่มลูปแต่ละแถวในคอลัมน์วันที่ - เมื่อพบวันที่ตรงก็ให้เริ่มลูปหัวคอลัมน์เทียบกันระหว่างหัวคอลัมน์ชีทรายงานกับชีทฐานข้อมูล โค้ดนี้เขียนสำหรับการค้นหาด้วยวันที่อย่างเดียว สำหรับการหาด้วยครั้งที่ลองปรับดูครับ Sub test() Dim wsResult A...

ชีท ก.4 และ ก.5 ไม่มีคอลัมน์ "ครั้งที่" หรือครับ? หากไม่มีแสดงว่าไม่ต้องค้นหาจากสองชีทนี้ใช่หรือเปล่าครับ

ลองแบบนี้ครับ

C3
=IFERROR(LOOKUP(2,1/(SEARCH($E$3:$E$6,B3)>0),$E$3:$E$6),"")

<หรือสำหรับเวอร์ชั่นต่ำกว่า 2007 อาจใช้
=LOOKUP(CHAR(255),CHOOSE({1,2},"",LOOKUP(2,1/(SEARCH($E$3:$E$6,B3)>0),$E$3:$E$6)))>

Enter >> คัดลอกลงล่างครับ

ถ้ามีการซ่อน แถวที่ 10 มักจะถูกซ่อนแน่ๆ อยู่แล้วใช่ไหมครับ ถ้าอย่างนั้นลองปรับเป็น (เอาโค้ดเปิดและปิดการอัพเดทหน้าจอจากโปรซีเยอร์ HideUnhide มาไว้ที่ MainCode ) Sub MainCode() Application.ScreenUpdating = False With Sheets("Sheet2") If .Rows(10).Hidden = True Then Call Macro1 Else Call Hid...

ขอด้วยคนครับ ขอบคุณมากๆ ครับ

ลองแบบนี้ครับ

N4
=INDEX($B$4:$M$8,ROWS(N$4:N4),MATCH(TEXT($A$1,"[$-1010409]mmm"),$B$3:$M$3,0))
Enter > คัดลอกลงล่างครับ

ลองตั้งค่าแบบนี้ดูครับ

File –> Options –> Advanced –> เลื่อนลงไปที่หัวข้อ “General” –> เอาเครื่องหมายถูกหน้า “Ignore other applications that use Dynamic Data Exchange (DDE)” ออกครับ