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

ถ้าเข้าใจคำถามไม่ผิด
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 ...

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

สวัสดีครับ ผมต้องการทำไฟล์เอาไว้ 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 ...

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

ถ้าต้องการเช็ค sheetname ก่อนจะทำการรันVBA ในแต่ละ workbook ใดๆจะต้องใช้คำสั่งอย่างไรครับ

ถ้ามีชื่อsheet Report และ Summary ให้ Run VBA ด้านล่างที่เขียนไว้
แต่ถ้า sheet นั้นๆ ไม่มีให้ปิด workbook และ run workbook ตัวถัดไป
*note
แต่ละ workbook มีจำนวนชีทไม่เท่ากันครับ



Sub mergefile()

Dim wball ...

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(B10,'1 ...

แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ

เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ

Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp))

ตรง A23 คือถูกต้องแล้วใช่ไหมครับ


ถูกต้องแล้วครับ ...