เราจะเลือกเซลที่ระบุโดยอาศัยการเลื่อนของไดนามิกอย่างไร

[nutpochan]

โค๊ดก่อนนะครับ

Code: Select all

Sub Macro10()

    Range("E1").Select
    Selection.End(xlDown).Select
    Range("E18").Select
End Sub

โค๊ดที่2

Code: Select all

Sub Macro11()

    Range("E1").Select
    Selection.End(xlDown).Select
    Range("E23").Select
End Sub

คือปัญหาอยู่ที่

Range("E18").Select

กับ

Range("E23").Select

เพราะจริงๆเราต้องการแค่เซลที่เลื่อนขึ้นไปจากไดนามิก 2เซล กับเซลที่ลงไปจากไดนามิก 3 เซล ไม่ต้องการให้มันระบุไปเลยเหมื่อน

Range("E18").Select

กับ

Range("E23").Select

ผมพยายามประยุกจาก http://www.snasui.com/viewtopic.php?f=3&t=6702 แต่ทำไม่ได้

[bank9597]

ลองแนบไฟล์ตัวอย่างมาด้วยครับ

[nutpochan]

แนบไฟล์มาแล้วครับ

[niwat2811]

ลองปรับ Code ตามนี้ดูครับ

Code: Select all

Sub test()
Dim lr As Long
lr = Range("E" & Rows.Count).End(xlUp).Row
With Range("E" & lr - 2)
    'other code
End With
With Range("E" & lr + 3)
    'other code
End With
End Sub

[nutpochan]

ใช้ได้ผลดีขอบคุณครับ. ฝากถามกระทู้นี้หน่อยครับ

http://www.snasui.com/viewtopic.php?f=3&t=7286

[snasui]

ใช้ได้ผลดีขอบคุณครับ. ฝากถามกระทู้นี้หน่อยครับ

http://www.snasui.com/viewtopic.php?f=3&t=7286

คุณไม่จำเป็นต้องฝากถามถึงกระทู้ไหน ถ้าเขียนถามแล้วก็เพียงแต่รอการตอบเท่านั้น กระทู้ที่โพสต์เพื่อตั้งใจแจ้งให้ผู้ตอบไปตอบกระทู้อื่นโดยเฉพาะผมจะลบทิ้ง เนื่องจากไม่จำเป็นต้องตั้งกระทู้ลักษณะนั้นครับ