รบกวนถามการกำหนด cursor ให้กลับมาตำแหน่งที่ต้องการค่ะ

[jex]

รบกวนถามค่ะ จะทำอย่างไรให้ cursor ไปอยู่อีกบรรทัดหลังจากบรรทัดที่มีข้อมูล ไม่ว่าก่อนหน้านี้ cursor จะอยู่ตรงไหนในชีทแต่กด run macro ให้ไปอยู่ในตำแหน่งหลังจากบรรทัดที่มีข้อมูลค่ะ เช่น มีข้อมูลอยู่ที่ A1 ถึง A10 แต่ cursor ปัจจุบันอยู่ที่ K5 แล้วพอรัน macro ให้มาอยู่ที่ตำแหน่ง A11 ค่ะ หรือถ้ามีข้อมูลที่มากกว่านี้ ไปถึง A50 แล้ว cursor อยู่ที่ A1 ก็ให้รัน macro นำ cursor มาอยู่ที่ตำแหน่ง A51 ค่ะ ขอบคุณค่ะ

[DhitiBank]

หากเป็นคำถามเกี่ยวกับ VBA จะต้องลองทำมาเองก่อนตามกฎข้อ 5 ด้านบนครับ
หากลองทำแล้วก็รบกวนแนบไฟล์มาได้เลย อาจารย์และเพื่อนๆ สมาชิกจะได้ช่วยแนะให้ได้ครับ

[jex]

เพิ่มเติมค่ะ ตอนทำค่ะ ทำแบบ record macro ค่ะ แต่พอเรามีข้อมูลเพิ่มมาค่ะ cursor ก็ไม่ตามไปที่ข้อมูลล่าสุดค่ะ

[DhitiBank]

ลองปรับโค้ดใน Module1 เป็นแบบนี้ครับ

Code: Select all

Sub Macro1()
    Dim l As Long
    With ActiveSheet
        'หาว่าแถวว่างที่ถัดลงมาจากแถวสุดท้ายที่มีข้อมูลคือแถวเท่าไร
        l = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        'สั่งให้ select ที่เซลล์นั้น
        .Range("a" & l).Select
    End With
End Sub

[snasui]

อีกตัวอย่างครับ

Code: Select all

Sub Macro1()
    'ไปยังบรรทัดว่างหลังจากมีข้อมูลในคอลัมน์ A
    'R1C1 คือ บรรทัดที่ 1 คอลัมน์ที่ 1 หรือ A1
    'C1 คือ คอลัมน์ที่ 1 คือ คอลัมน์ A
    Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"   
End Sub

[DhitiBank]

โอ้ ขอบคุณมากครับ คำสั่งคล้ายๆ ที่อาจารย์อัดวีดีโอแปะไว้ในเฟสบุ๊คใช่ไหมครับ ที่สอนการบันทึกมาโครส่งข้อมูลที่คีย์ไปต่อท้ายใน database

[snasui]

ใช่แล้วครับ

[jex]

ได้แล้วค่ะ ขอบคุณมากๆ เลยค่ะ

[jex]

สอบถามเพิ่มเติมค่ะ ถ้าต้องการเพิ่มเติมในแนวนอนค่ะ ต้องทำอย่างไรคะ ลองประยุกต์แล้วทำมาแบบนี้ค่ะ แต่ถ้ามีข้อมูลเพิ่มในแนวนอนก็ไม่ได้ที่ต้องการค่ะ

Code: Select all

Sub macro()
    Dim l As Long
    With ActiveSheet
       
        l = .Range("K" & .Rows.Count).End(xlToRight).Rows + 1
        
        .Range("K" & l).Select
    End With
End Sub

ส่วน code

Code: Select all

Sub Macro1()
    'ไปยังบรรทัดว่างหลังจากมีข้อมูลในคอลัมน์ A
    'R1C1 คือ บรรทัดที่ 1 คอลัมน์ที่ 1 หรือ A1
    'C1 คือ คอลัมน์ที่ 1 คือ คอลัมน์ A
    Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"   
End Sub

ลองประยุกต์ดูไม่ยังไม่ได้แนวนอนค่ะ ยังไม่ค่อยเข้าใจ รบกวนแนะนำด้วยค่ะ ขอบคุณมากค่ะ

[snasui]

ให้ Post Code ที่ได้ลองมาเองแล้วด้วย จะได้ช่วยดูต่อไปจากนั้นครับ

[jex]

codeนี้ค่ะที่ประยุกต์เพิ่มเติม แต่ถ้ามีข้อมูลเพิ่มก็ไม่ได้ตามที่ต้องการค่ะ รบกวนด้วยค่ะ

Code: Select all

Sub macro2()

    Dim l As Long
    With ActiveSheet
       
        l = .Range("K" & .Rows.Count).End(xlToRight).Rows + 1
        
        .Range("K" & l).Select
    End With

End Sub

[DhitiBank]

ก่อนอื่นคุณ jex ต้องเข้าใจก่อนครับว่าคำสั่งดังกล่าวกำลังสั่งให้ทำอะไร

Code: Select all

Sub macro2()
    Dim l As Long
    With ActiveSheet
        l = .Range("K" & .Rows.Count).End(xlToRight).Row + 1
        .Range("K" & l).Select
    End With
End Sub

คำสั่งด้านบนตอนแรกออกแบบเพื่อให้หาแถวถัดจากแถวสุดท้ายที่มีข้อมูล ดังนั้น หากต้องการหาคอลัมน์ที่ถัดจากคอลัมน์สุดท้ายที่มีข้อมูลแล้วไปเปลี่ยนแค่ที่ End(...) จึงไม่เพียงพอครับ

ลองปรับโค้ดเป็นแบบนี้ครับ

Code: Select all

Sub macro2()
    Dim l As Long
    With ActiveSheet     
        l = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1       
        .Cells(1, l).Select
    End With
End Sub

หรือหากเป็นคำสั่งที่อาจารย์ให้มาก็ปรับเป็นแบบนี้ครับ

Code: Select all

Sub macro2()
    Application.Goto reference:="OFFSET(R1C1,0,COUNTA(R1))"
End Sub

[jex]

ขอบคุณมาก ๆค่ะ พึ่งเริ่มศึกษาค่ะ ยังไม่ค่อยเข้าใจเท่าไหร่ค่ะ ขอบคุณค่ะ

[DhitiBank]

ไม่เป็นไรครับ ค่อยๆ ทำความเข้าใจกันไป ถ้าอย่างนั้นผมขออธิบายให้ละเอียดขึ้นอีกหน่อย

เริ่มจากของอาจารย์ก่อน เพราะกระชับและหากทำความเข้าใจที่ฟังก์ชัน Offset ได้แล้วก็จะเอาไปใช้ได้ง่ายครับ ลองศึกษาเกี่ยวกับ offset ที่ลิงค์ด้านล่างนี้
OFFSET

ส่วนที่ของผม อธิบายไล่บรรทัดเลยนะครับ
Dim l As Long
ประกาศตัวแปร l เป็นชนิด Long ซึ่งจะรองรับเลขจำนวนเต็มที่มีค่าระหว่าง -9,223,372,036,854,775,808 ถึง 9,223,372,036,854,775,807 เพราะตอนแรกจะให้ l แทนเลขแถวที่มีโอกาสมากสุดคือเลข 1,048,576 (โปรแกรมรุ่น 2007 ขึ้นไป)

With ActiveSheet
ใช้ with เพื่อจะละคำที่อยู่หลัง with ไว้ คำสั่งจะได้สั้นลงครับ หากไม่ละ อีก 2 บรรทัดถัดลงมาก็จะยาวขึ้น เดี๋ยวจะเขียนบอกหลังจากนี้ การใช้ with ต้องจบด้วย end with

l = ActiveSheet.Range("K" & ActiveSheet.Rows.Count).End(xlToRight).Row + 1
อันนี้คือแบบไม่ละ ActiveSheet
ตรง .rows.count จะสั่งให้นับจำนวนแถวทั้งหมดในชีทนี้ (ได้ 1048576) จากนั้นจะตั้งต้นที่เซลล์ K1048576 แล้วนึกภาพว่ากดปุ่ม Ctrl + ลูกศรขวา (คือ .End(xlToRight)) การทำแบบนี้จะทำให้ cursor วิ่งไปทางขวาและจะไปหยุดที่เซลล์แรกที่พบว่ามีอักขระบรรจุอยู่ หรือหากไม่มีเลยก็จะไปหยุดที่เซลล์ขวาสุด
พอเคอเซอร์หยุดแล้วก็สั่งให้ l มีค่าเท่ากับเลขของแถวนั้น +1 (จะได้ 1048577)

ActiveSheet.Range("K" & l).Select
สั่งให้เลือกเซลล์ K1048577 หากรันคำสั่งนี้จริงๆ จะทำให้เกิดการผิดพลาดเพราะเซลล์นี้ไม่มีอยู่จริงครับ (เลยแผ่นงาน)

ส่วนโค้ดใหม่ที่ปรับไปก็คล้ายๆ กันครับ วิธีติดตามการทำงานของคำสั่งที่ผมใช้อยู่คือ รันโค้ดทีละบรรทัด (กด F8) และใช้ immediate window กับ watch window ครับ

[jex]

ขอบคุณมาก ๆ เลยค่ะ เดี๋ยวลองทำความเข้าใจก่อนค่ะ ขอบคุณค่ะ