Snasui Excel Forum

snasui wrote: Thu Sep 24, 2020 7:08 pm ตัวอย่างสูตรครับ

Sheet2 เซลล์ A2 คีย์

=IFERROR(INDEX(ของแข็ง!A:A,AGGREGATE(15,6,ROW(ของแข็ง!$A$2:$A$4)/(ของแข็ง!$I$2:$I$4="ยังไม่ได้เปิดใช้"),ROWS(A$2:A2))),"")

Enter > Copy ไปทางขวาและลงด้านล่าง

parakorn wrote: Wed Sep 23, 2020 2:14 pm ลองแนบไฟล์ตัวอย่างมาดูครับ

puriwutpokin wrote: Tue Sep 22, 2020 12:14 pm D2=(COUNTIF($A$2:$A2,A2)=1)*COUNTIFS($A$2:$A$31,A2,$B$2:$B$31,B2,$C$2:$C$31,C2)

snasui wrote: Tue Sep 22, 2020 8:57 am กรุณาตรวจสอบว่าค่า X เป็นค่าใด ค่า Y เป็นค่าใดครับ

ตราบใดที่ Y มากกว่า X หรือ X น้อยกว่า Y ย่อมจะไม่เกิดการ Loop ตลอดกาลไม่ว่าจะเปลี่ยนทั้งสองตัวแปรเป็นตัวเลขใดก็ตาม

snasui wrote: Mon Sep 21, 2020 9:16 pm จาก Code นี้

Code: Select all

X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X

หากค่า X น้อยกว่าค่า Y ย่อมจะไม่มีการดำเนินการใด ๆ เกิดขึ้นใน For...Next ครับ

X = Sheet8.Range("A" & Rows.Count).End(xlUp).Row
For Y = 17 To X

snasui wrote: Thu Sep 17, 2020 8:45 am ค่อย ๆ ถามตอบกันไปครับ

กรุณาระบุ Form ระบุ Procedure มาอีกรอบพร้อมวิธีทดสอบเป็นลำดับที่ทำให้เจอปัญหานั้นครับ

logic wrote: Mon Sep 14, 2020 7:50 pm ก็กด f8 เหมือนเดิมแหละครับ แล้วค่อยบอกมาว่าพอถึงบรรทัดไหนที่มันต้องได้ข้อมูลแล้วมันยังไม่ได้

snasui wrote: Fri Sep 11, 2020 8:06 pm ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim i As Long
On Error Resume Next
i = Sheet1.Range("a1").CurrentRegion.Rows.Count
If i = 2 Then
    Sheet1.Range("A2").Value = 1
Else
    Sheet1.Range("A" & i).Value = i - 1
End If
'Other code

logic wrote: Mon Sep 14, 2020 1:32 pm ไฟล์นั้นไม่มีชีตที่ชื่อ Sheet2 ก็เลยเออเรอร์ครับ

logic wrote: Mon Sep 14, 2020 12:09 pm กด f8 ไปทีละขั้น ๆ ดูก่อนว่าติดบรรทัดไหนครับ