Excel Forum

Just use counta instead
C3 =COUNTA(A3:A14)

จัดการไฟล์ในมุมมองของผม - รัน วัน/เดือน/ปี ตามวันและเวลาที่อยากได้ ให้แสดงผลในรูปแบบ "ว" เพื่อแสดงเฉพาะเลขวันที่ - Cell ที่ 6 ใช้ If ช่วยในกรณีที่ "วววว" เท่ากับวันเสาร์ หรือ อาทิตย์ ให้แสดงผลถ้าไม่ ให้แสดง Blank - ใช้ Condition format ช่วยใส่สีแดงในกรณีที่ขึ้นว่า เสาร์/อาทิตย์ ต...

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

=IFERROR(INDEX(A$2:A$16,MATCH(0,COUNTIF($D$1:D1,A$2:A$16),0)),"")

Ctrl+Shift+Enter
ลากขวา ลากลง ครับ

1. Vlookup ข้อมูลมาเปรียบเทียบให้ตรงกับชื่อ
2.พิมพ์เท่ากับได้เลยครับ ข้อมูล 1 = ข้อมูล 2 ถ้าเท่ากัน จะแสดง TRUE ไม่เท่ากับแสดง False

:D ปกติการเขียนสูตรใช้เองจะใช้เมื่อไม่มีฟังก์ชันของ Excel ให้ใช้ สำหรับกรณีนี้สามารถใช้ฟังก์ชันปกติทำงานได้ไม่จำเป็นต้องเขียนฟังก์ชันด้วย VBA แต่อย่างใดครับ ตัวอย่างด้านล่างเพื่อใช้เป็นกรณีศึกษาในการเขียนฟังก์ชันหาค่าไม่ซ้ำขึ้นมาใช้เอง Function Abcdef(rngs As Range) As Variant Dim r As Range Dim c ...

ถ้าเข้าใจคำถามไม่ผิด
F12 = INDEX($G$4:$I$7,SMALL(IF($H$4:$H$7>600,ROW($H$4:$H$7)-ROW($H$4)+1),COUNTA($F$11:$F11)),COLUMNS($F$12:F12))

กด Ctrl+Shift+Enter ลากลง

snasui wrote: ↑Tue Sep 07, 2021 7:47 pm กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงผลลัพธ์ที่ต้องการ จะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ

ไฟล์แนบเพิ่มเติมครับตามที่อาจารย์แจ้งครับ

ต้องการสร้างฟังก์ชันใช้งานจากสูตร =INDEX($A$2:$A$13,MATCH(0,COUNTIF($C$1:C1,$A$2:$A$13),0),1) ซึ่งให้ทำงานในรูปแบบ Array x = Range ข้อมูลIndex และ Range criteria Countif ซึ่งจะเป็นช่วงเดียวกัน y = เป็นตัว Range สำหรับCountif Function dup(x As Range, y As Range) With Application.WorksheetFunction dup...

puriwutpokin wrote: ↑Tue Mar 09, 2021 10:00 pm ช่วยระบุ เวอร์ชั่นด้วยครับ https://snasui.com/viewtopic.php?f=6&t=17480
E3=IFERROR(INDEX(B$3:B$7,AGGREGATE(15,6,(ROW(A$3:A$7)-ROW(A$3)+1)/(A$3:A$7=D3),COUNTIF(D$3:D3,D3))),"")

ขอบคุนครับ ไม่ได้แวะเข้ามานาน
และได้ข้อมูลตามต้องการแล้วครับ

ต้องการดึงข้อมูลในคอลัมป์ใดๆในแถวเดียวกันที่หาตำแหน่งได้ ผมลองใช้ index + large ไม่ได้ผลลัพธ์เนื่องจากว่า large คืนค่าเป็นตัวเลขที่หาค่าได้ คำตอบ - ตารางที่ 2 ใน คอลัมป์ D = เรียงข้อมูลจากมากไปน้อยโดยใช้ Large คอลัมป์ E = ชื่อที่ได้มาโดยเอาช่องทางขวาของข้อมูล (สามารถใช้ Vlookup ได้ในกรณีข้อมูลไม่ซ้ำ...

:D กรุณาปรับการโพสต์ Code ให้แสดงในรูปแบบ Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ :roll: แก้ไขครับ ส่วนหัวข้อที่เปิดมา ใส่ CODE แล้ว ไม่ขึ้นครับ Sub email_track() On Error Resume Next Dim olook As Outlook.Application Set olook = New Outlook.Application Dim ONSP As Outlook.Namespace Set ONSP = ...

สวัสดีครับ ผมต้องการทำไฟล์เอาไว้ tracking e-mail เริ่มด้วยการดึงe-mailจากoutlook ผมดึงได้แล้วครับแต่ปัญหาคือ e-mail ไม่มีครบทั้งหมดจากinbox โดยผมดึงe-mail จาก inbox ใน inboxมี e-mail อยู่ประมาน 5000 ครับ - e-mail ที่มามาทั้งหมด 106 ฉบับ - โดยดึงวันที่ 24-Jan-2020 e-mail ที่มาใหม่สุดวันที่ 14-Jan-202...

ทำได้แล้วครับ ขอบคุนครับ

ถ้าต้องการเช็ค sheetname ก่อนจะทำการรันVBA ในแต่ละ workbook ใดๆจะต้องใช้คำสั่งอย่างไรครับ ถ้ามีชื่อsheet Report และ Summary ให้ Run VBA ด้านล่างที่เขียนไว้ แต่ถ้า sheet นั้นๆ ไม่มีให้ปิด workbook และ run workbook ตัวถัดไป *note แต่ละ workbook มีจำนวนชีทไม่เท่ากันครับ Sub mergefile() Dim wball As Ran...

Cell F15
=IF(AND(L15<>"",Y15<>""),"Yes","")

Copy ลง

F3 ลากไป O3 ลากลง =IFERROR(INDEX($B$1:$B$1035,AGGREGATE(15,6,ROW($B$9:$B$1035)/COUNTIF(F$2,RIGHT($B$9:$B$1035,1)),ROWS(F$3:F3))),"") เป็นสูตร Array จะคำนวณช้าต้องรอหน่อยนะ ขอบคุณมากครับ ว่าแต่มีวิธีที่มันเร็ว กว่าไหมครับ เหมือนข้อมูล อีกเยอะ มันอีกช้า พอดีหน้างาน เวลา คีย์เข้า เขาคีย์ จำน...

จากสูตร Lookupของอาจารที่ให้มา ในกรณีที่ รหัสสินค้ามีซ้ำกันอยู่ในต่างรหัสลูกค้า สูตรที่อาจารให้มายังสามารถใช้งานได้อยู่หรือไม่ครับ เท่าที่เข้าใจไม่สามารถใช้ได้ถูกต้องไหมครับ เนื่องจากสูตร match ที่พบตัวแรกแล้ว arrayที่นำมาใช้check len จะผิดพลาด และควรแก้เป็นอย่างไรครับ :D สามารถปรับเป็นด้านล่างได้ค...

:D อีกตัวอย่างสูตรตามด้านล่างครับ ที่ B10 คีย์ =IFERROR(INDEX('1'!A$10:A$32,SMALL(IF('1'!$B$10:$B$32<>"",ROW('1'!$B$10:$B$32)-ROW('1'!$B$10)+1),ROWS(B$10:B10))),"") Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง ที่ A10 คีย์ =LOOKUP(2,1/(LEN('1'!$A$10:INDEX('1'!$A$10:$A$32,MATCH...

แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp)) ตรง A23 คือถูกต้องแล้วใช่ไหมครับ ...