Page 1 of 1
รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 8:16 am
by niwat2811
เรียนท่านอาจารย์และผู้รู้ทุกท่าน รบกวนสอบถามเกี่ยวกับการ Copy และ Paste โดยที่มีข้อมูลอยู่ที่ Sheet1 และต้องการคัดรายชื่อบางรายให้ไปวางที่ Sheet2 เมื่อวางเรียบร้อยแล้วให้กลับไปที่ Sheet1 และทำให้บรรทัดที่เลือกไปแล้วตัวอักษรเป็นสีแดง แต่ว่าติดปัญหาตรงที่ว่าสามารถเลือกได้ทีละบรรทัดเท่านั้น เช่น เลือก A1 ที่ Sheet1 ข้อมูลที่บรรทัด A1 ก็จะถูกนำไปวางที่ Sheet2 แต่สมมติว่าเลือก A5:A10 ข้อมูลจะถูกดึงไปแค่บรรทัดที่ A5 เท่านั้น ความต้องการคืออยากให้ไปทั้งหมดตั้งแต่ A5:A10 รบกวนท่านอาจารย์หรือผู้รู้กรุณาช่วยชี้แนะด้วยครับ Code อยู่ใน Module1 ชื่อ copy_paste_released ครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 1:03 pm
by bank9597
การอธิบายโจทย์ ควรมีการเว้นวรรคและแยกข้อความลงมาคนละบรรทัดบ้าง เพื่อให้ง่ายต่อการอ่านครับ
สำหรับการแก้ปัญหาดังกล่าว ผู้ถามควรอธิบายเงื่อนไขของการเลือกข้อมูลด้วย เช่น เลือกเฉพาะที่เป็น "สินเชื่อเคหะ" เป็นต้น เพราะถ้าไม่ระบุเงื่อนไข การเขียนโค๊ดก็ทำไม่ได้ครับ
ลองกำหนดเงื่อนไขมาครับ ว่าต้องการให้เลือกข้อมูลใดไปวางในชีท 2
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 1:24 pm
by niwat2811
ชี้แจงข้อมูลเพิ่มเติมครับ ไม่มีเงื่อนไขใด ๆ ทั้งสิ้น เพราะว่าผมได้บอกไว้แล้วว่าเป็นการคัดรายชื่อบางราย ถ้าคลุมข้อมูลเลือก A3:A5 ที่ Sheet1 ก็ให้ดึงข้อมูลไปต่อท้ายที่ Sheet2 ครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 1:48 pm
by bank9597
ถ้าทำเช่นนั้น คงต้องรอให้อาจารย์เข้ามาแนะนำดีกว่าครับ เพราะผมยังทำแบบนั้นไม่ได้เลย
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 3:16 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub copy_paste_Released()
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Selection.EntireRow.Select '<== Change this code
Selection.Copy
Sheets("Sheet2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sheet1").Select
Selection.Font.Color = -16776961
ActiveCell.Select
Application.ScreenUpdating = True
End Sub
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 3:25 pm
by bank9597
ขอเรียนรู้ด้วยคนครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sat Jun 30, 2012 4:56 pm
by niwat2811
ขอบคุณท่านอาจารย์มากครับ Code ที่ให้มาสามารถใช้ได้ตรงกับความต้องการเลยครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sun Jul 01, 2012 5:07 pm
by frodobig
niwat2811 wrote:ขอบคุณท่านอาจารย์มากครับ Code ที่ให้มาสามารถใช้ได้ตรงกับความต้องการเลยครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sun Jul 01, 2012 5:08 pm
by frodobig
ขอโทษนะครับ
code ที่ให้มานี่เอาไปใส่ตรงไหนเหรอครับ
คืออยากศึกษาครับ
เผื่อลองใส่ดู แล้วจะได้รู้ว่ามันคืออะไรครับ
ช่วยบอกหน่อยนะครับ ขอบคุณครับ
Re: รบกวนสอบถามเกี่ยวกับการ Copy และ Paste
Posted: Sun Jul 01, 2012 5:13 pm
by bank9597
คิดว่าน่าจะทราบอยู่แล้วน่ะครับ
กด Alt+F11 เข้าหน้า VBE แล้วเลือก Module แล้ววางโค๊ดลงไป เวลานำมาใช้ก็สร้างปุ่มขึ้นมา แล้ว Assign Macro เข้าไป