Page 1 of 1

VB ข้ามบรรทัดใน Excel

Posted: Wed Nov 14, 2018 4:25 pm
by thongchai839
รบกวนหน่อยครับ

ผมแนบไฟล์ตัวอย่างมีชีท FORM (พร้อมโค้ด VB) และชีท REPORT
ในคอลัมน์ชีท REPORT S2:S4 ใส่สูตรนี้ไว้ =IF(B2<=1,0,MONTH(B2)) เพื่อให้หาเดือน แต่ปัญหาคือเวลาที่ใส่ข้อมูลในฟอร์มและกดบันทึก ข้อมูลที่ได้กระโดดไปอยู่บันทัดที่ 5 ตามตัวอย่างครับเพราะในเซลล์ S2:S4 มีสูตรหาเดือนอยู่
มีวิธีไหนที่จะให้สูตรใน VB มองข้ามสูตรในคอลัมน์ S เพื่อให้ข้อมูลที่บันทึกไม่กระโดดข้ามครับ

ขอบคุณครับ

Re: VB ข้ามบรรทัดใน Excel

Posted: Thu Nov 15, 2018 10:35 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
 'erw = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
With Sheet2
   erw = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
End With
'Other code

Re: VB ข้ามบรรทัดใน Excel

Posted: Fri Nov 16, 2018 1:49 pm
by thongchai839
ขอบคุณมากครับ ใช้ได้ครับ