Snasui Excel Forum

Posted: **Sat Apr 18, 2015 10:35 am**

สวัสดีครับ ผมพึ่งหัด vba ครับ
แนบไฟล์ให้คืองานที่ผมต้องทำมาโคร เพื่อ copy ข้อมูลไปยัง ไฟล์พนักงานอื่นๆครับ
ปัญหาที่พบคือ เวลากดปุ่มเพื่อ copy ข้อมูลในช่อง B4 C4 D4 แนวนอนแล้ว ต้องใช้โคดอะไรในการทำให้เป็นแนวตั้งในช่อง K14 K15 K16 ตามลำดับครับ
ที่ผมเขียนโคดมา ทำจนเกือบเสร็จแล้ว ติดปัญหาแค่เปลี่ยนจากแนวนอน เป็นแนวตั้งครับผม

ตามไฟล์ที่ผมแนบให้ไปนั้น มีโคดที่ผมเขียนอยู่ใน sheet ชื่อ Jan นะครับ
ขอบคุณครับ

KCEsystem.xlsm: (41.28 KiB) Downloaded 18 times

Posted: **Sat Apr 18, 2015 11:03 am**

ตัวอย่างการวางแบบสลับแกนครับ

Code: Select all

If Worksheets("KCE_Data").Range("A" & i).Value = "" Then
    Exit For
Else
    Range("B4:C4:D4").Select
    Selection.Copy
    FileKPI = Worksheets("KCE_Data").Range("A" & i).Value
    Set kceFile = Workbooks.Open(FileKPI)
    Range("K14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    kceFile.Save
    kceFile.Close
End If

Posted: **Sat Apr 18, 2015 11:07 am**

ใช้งานได้แล้วครับ ขอบพระคุณมากๆครับอาจารย์

Posted: **Sat Apr 18, 2015 12:03 pm**

สอบถามเพิ่มเติมครับอาจารย์ ผมได้ทำมาโครเพิ่มอีก 2ตัวครับ ซึ่งพอรันข้อมูลมันทับกันเองครับ มันทับที่ K14 K15 K16 ทุกไฟล์เลยครับ
พอมีทางแก้ไหมครับ ไฟล์แต่ละไฟล์นั้นผมอ้างอิงจาก sheet ชื่อ KCE_Data
B4 C4 D4 ไปยัง K14 K15 K16 File 1
B5 C5 K5 ไปยัง K14 K15 K16 File 2
B6 C6 K6 ไปยัง K14 K15 K16 File 3
ตามไฟล์ที่อ้างอิง ผมได้ทำตัวมาโครเพิ่มมาครับ แก้ไขข้อมูลแล้ว แต่ไม่รู้ว่าทำไมถึงทับกัน อาจารย์พอจะแนะนำได้ไหมครับ

KCEsystem.xlsm: (43.41 KiB) Downloaded 14 times

Posted: **Sat Apr 18, 2015 12:17 pm**

อ่านแล้วไม่เข้าใจครับ

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

Snasui Excel Forum

vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง

vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง

Re: vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง

Re: vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง

Re: vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง

Re: vba copy ข้อมูลแนวนอน ไปอีกไฟล์ในแนวตั้ง