Page 1 of 1
ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 5:17 pm
by foxthai
ขอความช่วยเหลือด้วยครับ
ต้องการคัดลอกข้อมูลจาก sheet(AA).A1:b8 โดยให้แสดง inputbox เลือก sheet ที่จะวางครับ พอสั่ง run แล้ว error ครับ
Sub xcopysheet()
Dim xsheet As Integer
Sheets("AA").Range("A1:B8").Copy
xsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)
With ThisWorkbook.Worksheets(xsheet)
.Select
.Activate
Worksheets.Range("A1").PasteSpecial Paste:=xlPasteValues
End With
End Sub
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 5:33 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Sub xcopysheet()
Dim xsheet As Integer
xsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)
Sheets("AA").Range("A1:B8").Copy
With ThisWorkbook.Worksheets(xsheet)
.Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
การวาง Code ให้สะดวกต่อการอ่านให้ดูตามกฎข้อ 5 ด้านบน ซึ่งจะต้องมีลักษณะเหมือนที่ผมโพสต์มาด้านบนนี้ สำหรับ Code แบบ Inline ที่โพสต์มาในความเห็น #1 ใช้เพื่อประกอบการอธิบายเป็นราย Statement เท่านั้นครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 6:32 pm
by foxthai
ขอบคุณมากครับ คราวหน้าจะแก้ไขครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 7:17 pm
by foxthai
สอบถามอีกรอบครับ อาจารย์ ถ้าต้องการเลือกเป็นชื่อ sheet อย่าง sheet ("1") ไม่ใช่ sheet1 ต้องแก้ code ตรงใหนครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 7:22 pm
by snasui
อ่านแล้วไม่เข้าใจครับ
กรุณาแจ้งว่าเลือกชื่อชีตนั้น ๆ แล้วมีปัญหาใด ต้องการจะให้เป็นเช่นใด ฯลฯ ครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 8:18 pm
by foxthai
จาก code ที่นำไปใช้ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ต้องพิมพ์ 2 ที่ inputbox .
สิ่งที่ต้องการ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ให้พิมพ์เลข 1 ครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 8:29 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Re: ต้องการ copy data โดยการเลือก sheet
Posted: Sun May 20, 2018 8:37 pm
by foxthai
ได้แล้วครับ ขอบคุณครับมากครับอาจารย์