Page 1 of 1
Macro : คลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด
Posted: Fri Jun 12, 2020 3:55 pm
by wisitsakbenz
เรียน สอบถามอาจารย์ครับ
ต้องการคลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด ต้องปรับ Code อย่างไรครับ
ขอบคุณครับ
Code: Select all
Sub Macro1()
Range("C5:F5").Copy
Range("C5:F5").Insert Shift:=xlDown
Application.CutCopyMode = False
Range("C6").Select
Range("C6").Value = "Orange"
Range("E6").Value = ""
End Sub
Re: Macro : คลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด
Posted: Fri Jun 12, 2020 4:39 pm
by puriwutpokin
แบบนี้หรือเปล่าครับ ตัวอย่างโค้ดครับ
Code: Select all
Range("c" & Cells(Rows.Count, "c").End(xlUp).Row - 2).Resize(, 4).Copy
Range("c" & Cells(Rows.Count, "c").End(xlUp).Row - 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("C6").Select
Range("C6").Value = "Orange"
Range("E6").Value = ""
Re: Macro : คลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด
Posted: Fri Jun 12, 2020 4:50 pm
by wisitsakbenz
เรียน อาจารย์ puriwutpokin
เวลากด + แล้วมันเพิ่ม Row ด้านบนของ Mango อยากให้เพิ่ม Row ด้านล่าง Mango ครับ
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ
Re: Macro : คลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด
Posted: Fri Jun 12, 2020 8:42 pm
by puriwutpokin
ลองปรับเป็น
Code: Select all
Sub Macro1()
Dim lrow As Integer
lrow = Cells(Rows.Count, "c").End(xlUp).Row
Range("c" & lrow - 2).Resize(, 4).Copy
Range("c" & lrow - 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("c" & lrow - 1).Select
Range("c" & lrow - 1).Value = "Orange"
Range("e" & lrow - 1).Value = ""
End Sub
Re: Macro : คลิกเพิ่ม Row แล้วอยู่หลัง Row ที่เพิ่มล่าสุด
Posted: Mon Jun 15, 2020 8:33 am
by wisitsakbenz
ได้แล้วครับ อาจารย์ puriwutpokin ขอบคุณมากนะครับ