Snasui Excel Forum

Posted: **Mon May 13, 2013 7:43 pm**

เรียน อาจารย์
ขอสอบถามดังนี้ครับ
1.สอบถามเกี่ยวกับการ Copy เซลล์ที่ผสานกัน 3 เซลล์มาวางในเซลล์เดียว จะต้องเพิ่มอะไรบ้างครับ
ตัวอย่างเซลล์ที่แนบ เป็นการ Copy เซลล์ที่ผสานกัน 2 เซลล์มาวางในเซลล์เดียว ผมลองแล้วใช้ได้แต่จาก 3 มา 1 ไม่ได้ครับ
1.1 สอบถามถ้าผมไม่ใส่ Application.CutCopyMode = False หลังทำการวาง Value แล้วจะส่งผลเสียยังไงครับ ผมลองใช้ code ที่แนบมามันก็ปกติเลยขอสอบถามครับ

Code: Select all

    Windows("GBS_Morning_Report.xls").Activate
    Sheets("GBS Morning Report (Master)").Select
    Range("E17:E23").Select
    Selection.Copy
    Windows("Erawan_Report.xlsm").Activate
    Sheets("Data Morning").Select
    Range("L92:R92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=True

2.สอบถามเกี่ยวกับการทำปุ่ม save และ preview>print เนื่องจากผมทำการใส่ code Fullscreen ไปเพื่อซ่อนเมนูบาร์แต่ยังอยากได้ปุ่ม save กับ preview>print มาไว้ที่ภายใน sheet จะต้องใส่ code แบบไหนครับ

Code: Select all

Application.DisplayFullScreen = True

ขอขอบคุณครับ หากไม่ครบถ้วนหรือคำถามไม่กระจ่าง ผมจะทำการเพิ่มเติมครับ

Posted: **Mon May 13, 2013 9:22 pm**

ช่วยแนบไฟล์ตัวอย่างมาด้วยครับ จะได้เห็นว่าที่ Merge ไว้นั้นเป็นอย่างไร ต้องการให้แสดงผลอย่างไร

สำหรับ Code Application.CutCopyMode = False เพื่อเป็นการยกเลิกการ Copy ทิ้งไปเทียบได้กับการกดแป้น ESC เพื่อป้องกันการวางข้อมูลที่เกินความจำเป็น

ยกตัวอย่างเช่น เรา Copy โดยดาร Ctrl+C ข้อมูลใด ๆ แล้วสามารถวางได้เรื่อย ๆ จนกว่าจะกดแป้น ESC เพื่อยกเลิกการ Copy ครับ

หากเป็น Excel 2003 สามารถที่จะยกเลิกเมนูต่าง ๆ แล้วเว้นไว้เฉพาะที่ต้องการได้ สำหรับการจัดการกับเมนูใน Excel รุ่น 2007+ ค่อนข้างจะยุ่งยากครับ

Snasui Excel Forum

สอบถามการ copy และ code Print และ Save หลังทำ Fullscreen

สอบถามการ copy และ code Print และ Save หลังทำ Fullscreen

Re: สอบถามการ copy และ code Print และ Save หลังทำ Fullscreen