Page 1 of 1
สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Thu Apr 17, 2014 10:28 am
by Remnant
ตามรูปที่แนบมานะครับ คือผมอยากจะกำหนดขอบเขตของเซลล์ อยู่แต่ช่วง B3:G3 ครับ
เช่น เวลาเรากดปุ่ม > มันจะเลื่อนขวาไปทีละช่อง อยากให้มันไปสุดแต่ G3 พอสุดแล้วถ้าเรากด > อีกที
ก็ให้มันไปเริ่มใหม่ที่ช่อง B3 ครับ
Code ที่ผมใส่ไปตรงปุ่ม > คือ
Sub Select_Next()
ActiveCell.Offset(0, 1).Select
End Sub
รบกวนด้วยครับ ขอบคุณครับ
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Thu Apr 17, 2014 3:24 pm
by bank9597
Remnant wrote:ตามรูปที่แนบมานะครับ คือผมอยากจะกำหนดขอบเขตของเซลล์ อยู่แต่ช่วง B3:G3 ครับ
เช่น เวลาเรากดปุ่ม > มันจะเลื่อนขวาไปทีละช่อง อยากให้มันไปสุดแต่ G3 พอสุดแล้วถ้าเรากด > อีกที
ก็ให้มันไปเริ่มใหม่ที่ช่อง B3 ครับ
Code ที่ผมใส่ไปตรงปุ่ม > คือ
Sub Select_Next()
ActiveCell.Offset(0, 1).Select
End Sub
รบกวนด้วยครับ ขอบคุณครับ
ขอไฟล์แนบ พร้อมโค๊ดมาดูกันครับ
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Thu Apr 17, 2014 11:24 pm
by Remnant
แนบไฟล์ตัวอย่างมาให้แล้วครับ
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Fri Apr 18, 2014 9:15 am
by tupthai
Code: Select all
If ActiveCell.Column = 7 Then
Cells(3, 2).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Fri Apr 18, 2014 9:46 am
by Remnant
tupthai wrote: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
ขอบคุณครับ
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Fri Apr 18, 2014 10:06 am
by 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
Re: สอบถามการกำหนดขอบเขตเซลล์ครับ
Posted: Fri Apr 18, 2014 10:32 am
by Remnant
tupthai wrote:ลองทดสอบดูครับ
Code: Select all
If ActiveCell.Column >= 7 Or ActiveCell.Row <> 3 Then
Cells(3, 2).Select
Else
ActiveCell.Offset(0, 1).Select
End If
ได้แล้วครับ ขอบคุณครับ
เดี๋ยวผมเอาไปประยุกต์ใช้กับปุ่มอื่นต่อ