Page 1 of 1
ใช้ Macro ในการก็อปปี้สูตร
Posted: Fri May 16, 2014 5:14 pm
by borsalino
คือผมทำ ปุ่มมาเพื่อใช้ในการแทรก โดยกำหนดลงไปในแมโคร
แต่อยากให้มัน Copy สูตรจาก cell ต่อๆลงมาอ่ะครับ
Sub Click()
Range("B65536").End(xlUp).EntireRow.Select
Selection.Insert
Application.CutCopyMode = False
End Sub
ต้องเพิ่มตรงไหนครับ
Re: ใช้ Macro ในการก็อปปี้สูตร
Posted: Fri May 16, 2014 5:41 pm
by snasui
ตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub Click()
Range("B65536").End(xlUp).EntireRow.Select
Selection.Insert
Range("F3").End(xlDown).Resize(2, 1).Select
Selection.FillDown
Application.CutCopyMode = False
End Sub
Re: ใช้ Macro ในการก็อปปี้สูตร
Posted: Sat May 17, 2014 8:39 am
by borsalino
ได้แล้วครับ ขอบคุณครับ
อยากถามเพิ่มว่า ถ้าจะกำหนดความกว้างของ Column ในแมโคร ทำยังไงครับ
Re: ใช้ Macro ในการก็อปปี้สูตร
Posted: Sat May 17, 2014 8:41 am
by snasui
ลองบันทึก Macro การปรับความกว้างคอลัมน์ จากนั้นนำ Code มาปรับใช้ ติดตรงไหนค่อยถามกันต่อครับ
Re: ใช้ Macro ในการก็อปปี้สูตร
Posted: Sat May 17, 2014 9:05 am
by borsalino
snasui wrote: ลองบันทึก Macro การปรับความกว้างคอลัมน์ จากนั้นนำ Code มาปรับใช้ ติดตรงไหนค่อยถามกันต่อครับ
จากสูตรด้านบนของอาจารย์ ผมลองมาปรับใช้ตามนี้
Sub Click()
Range("B65536").End(xlUp).EntireRow.Select
Selection.Insert
Range("B65536").End(xlUp).Offset(-1, 4).FillDown
Application.CutCopyMode = False
End Sub
แต่ลองบันทึก Macro การปรับความกว้างคอลัมน์ อันนี้ผมงงๆน่ะครับ
คือจะปรับความกว้างของคอลัมน์ B ให้เป็น 10 ครับ
Re: ใช้ Macro ในการก็อปปี้สูตร
Posted: Sat May 17, 2014 9:13 am
by snasui
ช่วยวาง Code ให้แสดงเป็น Code เพื่อสะดวกต่อการอ่าน สะดวกต่อการ Copy ไปทดสอบ โดยดูตัวอย่างได้ที่นี่ครับ
viewtopic.php?f=3&t=1187
borsalino wrote:แต่ลองบันทึก Macro การปรับความกว้างคอลัมน์ อันนี้ผมงงๆน่ะครับคือจะปรับความกว้างของคอลัมน์ B ให้เป็น 10 ครับ
การศึกษา VBA ผมเห็นว่าต้องบันทึก Macro ให้เป็น สำหรับการบันทึก Macro ศึกษาได้จากที่นี่ครับ
wordpress/macro-recoding/