Page 1 of 1
ใส่สูตรในCodeVBA เพื่อต่อแถวลำดับสุดท้าย
Posted: Tue Jun 14, 2016 11:32 am
by xxporxx
Code: Select all
Private Sub Worksheet_Activate()
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]-RC[-1]"
Range("O1").Select
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-3]-RC[-2]"
Range("P1").Select
End Sub
ผมต้องเพิ่ม Code อะไรอีกครับถึงให้ สูตร ตัวนี้ไปต่อแถวลำดับสุดท้ายได้ครับ
Re: ใส่สูตรในCodeVBA เพื่อต่อแถวลำดับสุดท้าย
Posted: Tue Jun 14, 2016 12:57 pm
by xxporxx
ไฟล์ตัวอย่างครับ
Re: ใส่สูตรในCodeVBA เพื่อต่อแถวลำดับสุดท้าย
Posted: Wed Jun 15, 2016 6:40 pm
by snasui
ตัวอย่าง Code สำหรับไปยังบรรทัดสุดท้ายของ ActiveCell ครับ
ActiveCell.Offset(Rows.Count - ActiveCell.Row, 0).End(xlUp).Offset(1, 0).Select
Re: ใส่สูตรในCodeVBA เพื่อต่อแถวลำดับสุดท้าย
Posted: Fri Jun 17, 2016 10:11 am
by xxporxx
ขอบคุณมากครับได้ตามที่ต้องการแล้วครับ