Page 1 of 1
สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Fri May 17, 2013 10:37 pm
by godman
สวัสดีครับ
คือผมมีความต้องการที่จะสร้างชี้ตใหม่ในไฟล์เดียวกัน โดยมีฟอร์มที่ำหนดไว้ แต่ข้อมูลมีการใส่ข้อมูลใหม่เรื่อยๆ อยากให้มีปุ่มสร้างชี้ต ผมมีโค้ดสำหรับสร้างไฟล์ใหม่ แต่ไม่แน่ใจว่า ถ้าจะสร้างชี้ตใหม่ต้องปรับโค้ดตรงใหนครับ
ในชี้ต REPORT0 คือชี้ตที่ป่มกดนี้อยู่
โค้ดสร้างไฟล์ใหม่มีดังต่อไปนี้
Code: Select all
Sub Creatnewworkbook()
Call CopySheet
Call CopySheet2
Worksheets("Report1").Visible = True
Sheets("Report1").Select
Sheets("Report1").Copy
Application.DisplayAlerts = False
With ActiveWorkbook
wbName = [K1].Value
.Title = wbName
.SaveAs Filename:=wbName
End With
Application.DisplayAlerts = True
End Sub
ขอบพระคุณมากครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Fri May 17, 2013 10:39 pm
by godman
ผมขอให้ข้อมูลเพิ่มเติมครับ ชี้ตใหม่ดังกล่าวจะเพิ่มไปเรื่อยๆ ตามจำนวนข้อมูล ผมมีอีกคำถาม Excel สามารถสร้างชี้ตใหม่ได้กี่ชี้ตครับ ระดับพันหรือระดับหมื่นครับ ผมอยากเก็บข้อมูลทั้งสองแบบคือแบบ database และแบบชี้ต แล้วผมจะใช้สูตร indirect ดึงข้อมูลแสดงตามชื่อชี้ตครับ ขอบคุณมากครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Fri May 17, 2013 11:53 pm
by snasui
คุณ godman ถามเกี่ยวกับ VBA บ่อยครั้งซึ่งผมรู้สึกว่าจะเป็นการ Copy Code มาถามเสียเป็นส่วนมาก การใช้ Code VBA จำเป็นต้องปรับเองได้บ้าง ไม่เช่นนั้นไม่ควรใช้ VBA ครับ
การเพิ่มชีทสามารถบันทึก Macro แล้วปรับปรุง Code จากการบันทึกมาใช้ได้เช่นกัน หากถามเกี่ยวกับการเพิ่มชีทก็ควรจะใช้ Code สำหรับการเพิมชีทมาถาม และควรปรับมาก่อน ติดแล้วค่อยถามกัน ไม่ควรนำ Code ที่ไม่เกี่ยวกับการเพิ่มชีทโดยไม่ผ่านการปรับใด ๆ มาถามกันครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 12:12 am
by godman
ขอบคุณครับ อาจารย์ ตัวโค้ดสามารถสร้างชี้ตใหม่ได้ครับ โดยใช้ชื่อตามเซลล์ K1 ในชี้ต Report0 แต่ปัญหาที่พบคือ สูตรมาด้วยหมายถึงลิ้งกับ Report 0 มาด้วย ถ้าผมไม่ต้องการให้ลิ้งเครื่องหมาย = ติดมาด้วย ต้องทำอย่างไรครับ เพราะไม่เช่นนั้น ค่าทุกชี้ตจะเท่ากันหมด เพราะข้อมูลแต่ละชี้ตจะไม่เหมือนกันเลยครับ เพราะผมจะดึงจากดาต้าอีกที แต่กลัวไฟล์ใหญ่ก็เลยไม่ได้แสดงครับ
สรุปคือ ถ้าต้องการให้ copy sheet จาก Report0 เอาเฉพาะ Value ครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 12:14 am
by godman
ครับจะพยายาม สร้างโค้ดที่ตรงกับคำถาม ครับในคราวหน้า
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 12:25 am
by snasui
ลองปรับบันทึก Macro การ Copy และวางเฉพาะ Value แล้วนำ Code มาปรับใช้ครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 10:03 am
by godman
ตอนนี้ผมใช้โค้ดนี้สร้างชี้ตและ copy value ผมลองนำไปใช้ ก็ใช้ได้ แต่รู้สึกว่าโค้ดจะยาวไป เพราะต้องเรียก Copysheet หลายขั้นตอน อาจารย์มีคำแนะนำที่สั้นกว่านี้ ไหมครับ
Code: Select all
Sub testnewsheet()
Call CopySheet
Call CopySheet2
Dim WSname As String
Sheets("Report1").Copy After:=Sheets(Sheets.Count)
ActiveWindow.Zoom = 90
With ActiveWorkSHEET
WSname = [K1].Value
ActiveSheet.Name = WSname
End With
End Sub
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 10:46 am
by snasui
Copysheet กับ Copysheet2 ใช้เพื่อทำอะไรครับ เกี่ยวกับการ Copy ชีทและเปลี่ยนชื่อชีทหรือไม่ ถ้าไม่เกี่ยวให้ลบออกไปได้เลยครับ
สำหรับ Code ที่เขี่ยนมานั้นหากไม่มีปัญหาไม่จำเป็นต้องปรับ Code ครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 11:02 am
by godman
ขอบคุณครับขอธิบายเพิ่มครับ Copy sheet ใช้สำหรับ Copy จากชี้ต Report0 ไม่เอาสูตรมาวางใน Report1 ครับ แล้วให้สร้างชี้ตจาก Report1 โดยใช้ชื่อชี้ตจาก K1 ครับ จุดประสงค์เพื่อให้ชี้ตที่สร้างมาใหม่ ไม่มีสูตรมาด้วย ครับ
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 11:09 am
by snasui
ลองปรับ Code เป็นตามด้านล่าง ซึ่งเป็นการ Copy จากชีท Report0 ไม่ต้องผ่านชีท Report1 ครับ
Code: Select all
Sub test()
Worksheets.Add(after:=Sheets(Sheets.Count)).Name _
= Sheets("Report0").Range("K1").Value
Sheets("Report0").Cells.Copy
ActiveSheet.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Re: สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์
Posted: Sat May 18, 2013 12:58 pm
by godman
ขอบคุณครับคุณครู