Excel Forum

ผมใช้ VBA เพื่อค้นหาค่าสุดท้ายของแถวโดยใช้ code ดังนี้
พอได้ค่ามาก็มีการลบ-เพิ่มแถว ที่นี้ต้องการทราบเลขแถวสุดท้ายที่อัพเดทใหม่ มีแนวทางในการเขียนยังไงครับ ที่ใช้อยู่คือ copy code เดิมมาวางขั้นเรื่อยๆ พอวางเยอะๆมันดูรกๆครับ

ที่ช่อง J5 ใส่สูตร =len(d5)
สูตร Len จะให้ผลลัพธ์จำนวนอักขระในเซลล์นั้น
แล้วก็ค่อยเรียงข้อมูลจากมากไปหาน้อยครับ

work great ขอบคุณครับ

=IF(J3="",SUMPRODUCT((A2:A10>=H3)*(A2:A10<=I3)*(E2:E10)),SUMPRODUCT((A2:A10>=H3)*(A2:A10<=I3)*(B2:B10=J3)*(E2:E10)))

ลองโค๊ดนี้ดูครับ

ถ้าเรามีการกรองข้อมูลอยู่จะไม่สามารถวางค่าได้ ลองยกเลิกกรองแล้ว copy ทั้งคอลัมน์แล้วค่อยวางค่าครับ

แนบไฟล์ให้ใหม่แล้วครับ :D
ทบทวนปัญหาที่เกิดขึ้นนะครับ
1. ไฟล์ตั้งต้นมีข้อมูล 28 แถว และแต่ละคอลัมน์ มีการสร้าง Name Range ไว้ที่ 28 แถวเช่นกัน
2. มีการอัพเดทข้อมูลมาเป็น 39 แถว

ต้องการสร้าง VBA ให้อัพเดท Name Range จากเดิมที่จบอยู่ที่แถวที่ 28 เป็นแถวที่ 39 (แถวสุดท้ายของข้อมูล) โดยโค๊ดที่สร้างมาข ...

ผมเขียนโค๊ดได้ป่ะมาณนี้ครับ

Sub updateName_range()
Dim nr As Name
Dim W_lastrow As Long


W_lastrow = Cells(Rows.Count, "A").End(xlUp).Row

For Each nr In ActiveWorkbook.Names
If nr.Name Like "W_*" Then
Range(nr.Name).Select
With nr

.RefersToR1C1 = "=Sheet1!R2C12:R39C12"

End With
End If ...

ในไฟล์แนบจะมี Name Range อยู่จำนวนหนึ่งที่มีชื่อขึ้นต้นด้วย "W_" สิ่งที่ต้องการคือต้องการอัพเดท Name Range ให้มีค่าปัจจุบันหลังจากมีการอัพเดทข้อมูลเพิ่มเข้าไป เช่น Name Range "W_1st" อ้างถึงเซลล์ Sheet1!$B$2:$B$28 แต่พอเพิ่มข้อมูลเข้าไปเกิน 28 แถว Name Range จะใช้ต่อไม่ได้
ลองทำ Dynamic Name Range ...

ใส่สูตรที่ช่อง D2 ว่า "=A2/1" จะแปลงตัวเลขที่มีฟอร์แมตจาก Text เป็น Number ให้ครับ
ถ้าทำแบบที่คุณ niwat2881 โปรแกรมอาจจะคำนวนหนักจนค้างไปในกรณีที่มีข้อมูลมากๆได้ครับ