สร้างชี้ตใหม่ชื่อชี้ตตามที่เรากำหนดจากเซลล์

[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

ขอบพระคุณมากครับ

[godman]

ผมขอให้ข้อมูลเพิ่มเติมครับ ชี้ตใหม่ดังกล่าวจะเพิ่มไปเรื่อยๆ ตามจำนวนข้อมูล ผมมีอีกคำถาม Excel สามารถสร้างชี้ตใหม่ได้กี่ชี้ตครับ ระดับพันหรือระดับหมื่นครับ ผมอยากเก็บข้อมูลทั้งสองแบบคือแบบ database และแบบชี้ต แล้วผมจะใช้สูตร indirect ดึงข้อมูลแสดงตามชื่อชี้ตครับ ขอบคุณมากครับ

[snasui]

คุณ godman ถามเกี่ยวกับ VBA บ่อยครั้งซึ่งผมรู้สึกว่าจะเป็นการ Copy Code มาถามเสียเป็นส่วนมาก การใช้ Code VBA จำเป็นต้องปรับเองได้บ้าง ไม่เช่นนั้นไม่ควรใช้ VBA ครับ

การเพิ่มชีทสามารถบันทึก Macro แล้วปรับปรุง Code จากการบันทึกมาใช้ได้เช่นกัน หากถามเกี่ยวกับการเพิ่มชีทก็ควรจะใช้ Code สำหรับการเพิมชีทมาถาม และควรปรับมาก่อน ติดแล้วค่อยถามกัน ไม่ควรนำ Code ที่ไม่เกี่ยวกับการเพิ่มชีทโดยไม่ผ่านการปรับใด ๆ มาถามกันครับ

[godman]

ขอบคุณครับ อาจารย์ ตัวโค้ดสามารถสร้างชี้ตใหม่ได้ครับ โดยใช้ชื่อตามเซลล์ K1 ในชี้ต Report0 แต่ปัญหาที่พบคือ สูตรมาด้วยหมายถึงลิ้งกับ Report 0 มาด้วย ถ้าผมไม่ต้องการให้ลิ้งเครื่องหมาย = ติดมาด้วย ต้องทำอย่างไรครับ เพราะไม่เช่นนั้น ค่าทุกชี้ตจะเท่ากันหมด เพราะข้อมูลแต่ละชี้ตจะไม่เหมือนกันเลยครับ เพราะผมจะดึงจากดาต้าอีกที แต่กลัวไฟล์ใหญ่ก็เลยไม่ได้แสดงครับ

สรุปคือ ถ้าต้องการให้ copy sheet จาก Report0 เอาเฉพาะ Value ครับ

[godman]

ครับจะพยายาม สร้างโค้ดที่ตรงกับคำถาม ครับในคราวหน้า

[snasui]

ลองปรับบันทึก Macro การ Copy และวางเฉพาะ Value แล้วนำ Code มาปรับใช้ครับ

[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

[snasui]

Copysheet กับ Copysheet2 ใช้เพื่อทำอะไรครับ เกี่ยวกับการ Copy ชีทและเปลี่ยนชื่อชีทหรือไม่ ถ้าไม่เกี่ยวให้ลบออกไปได้เลยครับ

สำหรับ Code ที่เขี่ยนมานั้นหากไม่มีปัญหาไม่จำเป็นต้องปรับ Code ครับ

[godman]

ขอบคุณครับขอธิบายเพิ่มครับ Copy sheet ใช้สำหรับ Copy จากชี้ต Report0 ไม่เอาสูตรมาวางใน Report1 ครับ แล้วให้สร้างชี้ตจาก Report1 โดยใช้ชื่อชี้ตจาก K1 ครับ จุดประสงค์เพื่อให้ชี้ตที่สร้างมาใหม่ ไม่มีสูตรมาด้วย ครับ

[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

[godman]

ขอบคุณครับคุณครู