Snasui Excel Forum

Posted: **Mon Mar 03, 2014 2:33 pm**

เรียน อาจารย์และท่านผู้รู้

ผมรบกวนแนะนำด้วยครับ เนื่องจากผมเขียน VBA สำหรับให้เอ็กเซล เริ่มบรรทัดใหม่เมื่อสิ้นสุดบรรทัดที่ 33 และเริ่มใหม่
ปัญหาคือ ผมพยายามให้เริ่มบรรทัดที่ 2 แต่ทำไม่ได้สักทีครับ รบกวนแนะนำและเขียนโค้ดเพิ่มเติมให้ด้วยครับ

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 34 Then
Target.Offset(0, 1).End(xlUp).Activate
End If

End Sub

Posted: **Mon Mar 03, 2014 2:56 pm**

แนบไฟล์มาด้วยครับเพื่อนๆ จะได้ช่วยกันทดสอบได้

Posted: **Mon Mar 03, 2014 4:03 pm**

ไฟล์แนบครับ

Posted: **Mon Mar 03, 2014 5:09 pm**

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 34 Then
    Target.Offset(0, 1).End(xlUp).Activate
    ActiveCell.Offset(1, 0).Select
End If
End Sub

ลองแบบนี้ได้ตามต้องการไหมครับ

Posted: **Mon Mar 03, 2014 6:13 pm**

เรียน ท่านผู้รู้

ได้ตามที่ต้องการครับ ขอขอบพระคุณอย่างสูงครับ

Snasui Excel Forum

เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2

เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2

Re: เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2

Re: เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2

Re: เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2

Re: เขียน VBA ให้เอ็กเซล เริ่มใหม่บรรทัดที่ 2