สอบถามการกำหนดขอบเขตเซลล์ครับ

[Remnant]

ตามรูปที่แนบมานะครับ คือผมอยากจะกำหนดขอบเขตของเซลล์ อยู่แต่ช่วง B3:G3 ครับ

เช่น เวลาเรากดปุ่ม > มันจะเลื่อนขวาไปทีละช่อง อยากให้มันไปสุดแต่ G3 พอสุดแล้วถ้าเรากด > อีกที

ก็ให้มันไปเริ่มใหม่ที่ช่อง B3 ครับ

Code ที่ผมใส่ไปตรงปุ่ม > คือ

Sub Select_Next()

ActiveCell.Offset(0, 1).Select

End Sub

รบกวนด้วยครับ ขอบคุณครับ

[bank9597]

ตามรูปที่แนบมานะครับ คือผมอยากจะกำหนดขอบเขตของเซลล์ อยู่แต่ช่วง B3:G3 ครับ

เช่น เวลาเรากดปุ่ม > มันจะเลื่อนขวาไปทีละช่อง อยากให้มันไปสุดแต่ G3 พอสุดแล้วถ้าเรากด > อีกที

ก็ให้มันไปเริ่มใหม่ที่ช่อง B3 ครับ

Code ที่ผมใส่ไปตรงปุ่ม > คือ

Sub Select_Next()

ActiveCell.Offset(0, 1).Select

End Sub

รบกวนด้วยครับ ขอบคุณครับ

ขอไฟล์แนบ พร้อมโค๊ดมาดูกันครับ

[Remnant]

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

[tupthai]

Code: Select all

If ActiveCell.Column = 7 Then
    Cells(3, 2).Select
Else
    ActiveCell.Offset(0, 1).Select
End If

[Remnant]

Code: Select all

If ActiveCell.Column = 7 Then
    Cells(3, 2).Select
Else
    ActiveCell.Offset(0, 1).Select
End If

ได้แล้วครับ ขอบคุณครับ

ผมเพิ่มเครื่องหมายเป็น >= เข้าไปด้วย จึงทำให้เวลาเลือกเซลล์ตั้งแต่คอลัมน์ที่ 7 เป็นต้นไป แล้วกดปุ่ม > มันจะไปเริ่มที่ B3 ใหม่ให้

แต่อยากได้เพิ่มเติมตรงที่ถ้าเราเลือกที่เซลล์อื่น เช่น เลือกที่ B10 พอเราจะกด > จะให้มันไปเริ่มที่ B3 เลย ต้องใส่อะไรเพิ่มไปบ้างครับ

ผมพยายามใส่แล้ว มันเลื่อนไปเริ่มที่ B3 ให้ แต่ไม่ยอมเลื่อนไปด้านขวาให้ครับ

ผมใส่โค้ดเพิ่มไปดังนี้ครับ

Sub Select_Next()

If ActiveCell.Column >= 7 Then
Cells(3, 2).Select
ElseIf ActiveCell.Row >= 3 Then
Cells(3, 2).Select
Else
ActiveCell.Offset(0, 1).Select
End If

End Sub

ขอบคุณครับ

[tupthai]

ลองทดสอบดูครับ

Code: Select all

If ActiveCell.Column >= 7 Or ActiveCell.Row <> 3 Then
    Cells(3, 2).Select
Else
    ActiveCell.Offset(0, 1).Select
End If

[Remnant]

ลองทดสอบดูครับ

Code: Select all

If ActiveCell.Column >= 7 Or ActiveCell.Row <> 3 Then
    Cells(3, 2).Select
Else
    ActiveCell.Offset(0, 1).Select
End If

ได้แล้วครับ ขอบคุณครับ

เดี๋ยวผมเอาไปประยุกต์ใช้กับปุ่มอื่นต่อ