Page 1 of 1
สร้าง Sheet ใหม่ให้เป็นชื่อใน TextBox
Posted: Tue May 21, 2013 11:53 am
by ziapay
จากไฟล์แนบนะครับ กดปุ่ม NewSheet กด enter แล้วผมให้ copy sheet 111 ออกมา แต่ผมอยากให้ sheet ที่ copy ออกมานั้น rename ตามชื่อใน Textbox น่ะครับ
Re: สร้าง Sheet ใหม่ให้เป็นชื่อใน TextBox
Posted: Tue May 21, 2013 12:16 pm
by tupthai
เราสามารถหา codeได้จากการบันทึกมาโครแล้วนำcodeมาปรับใช้
Code: Select all
Public Sub Enter()
Sheets("111").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("ORG").txtName.Text
Call Default
End Sub
Re: สร้าง Sheet ใหม่ให้เป็นชื่อใน TextBox
Posted: Tue May 21, 2013 2:49 pm
by ziapay
tupthai wrote:เราสามารถหา codeได้จากการบันทึกมาโครแล้วนำcodeมาปรับใช้
Code: Select all
Public Sub Enter()
Sheets("111").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("ORG").txtName.Text
Call Default
End Sub
โอ้ขอบคุณมากครับท่าน
ช่วยขยายความหน่อยได้ไหมท่าน บันทึกมาโครแล้วนำ code มาปรับใช้
ปกติผมจะกด Alt + F11 แล้วเขียน code น่ะครับ
Re: สร้าง Sheet ใหม่ให้เป็นชื่อใน TextBox
Posted: Tue May 21, 2013 3:07 pm
by tupthai
Re: สร้าง Sheet ใหม่ให้เป็นชื่อใน TextBox
Posted: Tue May 21, 2013 3:36 pm
by ziapay