Excel Forum

snasui wrote: การใช้ Code ต้องเขียนมาเองครับ ถ้านำ Code อื่นมาถามก็ต้องปรับตามที่ตัวเองต้องการแล้ว ติดตรงไหนค่อยถามกันตามกฎข้อ 5 ด้านบนครับ

ครับเดียวไปลองดูก่อนครับ

:D การวางแบบสลับแกนใช้ Transpose ลองบันทึก Macro ดูครับ
ลองแบบนี้พอได้ไหมครับ :D
Sub PasteData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Sheet1").Range("D4:F4")
Set rt = Worksheets("Sheet2").Range("F65536").End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues ...

ลองแบบนี้พอได้ไหมครับ :D
Sub PasteData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Sheet1").Range("D4:F4")
Set rt = Worksheets("Sheet2").Range("F65536").End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish."
End Sub
จากส ...

:D ที่ Sheet2 ลองตามนี้ครับ
เซลล์ A3:A6 จะต้องคีย์ให้เหมือนกันทุกอักขระกับข้อมูลใน Sheet1 เซลล์ B1:E1
เซลล์ B3 คีย์สูตร
=INDEX(sheet1!$B$2:$E$4,MATCH($B$2,sheet1!$A$2:$A$4,0),MATCH($A3,sheet1!$B$1:$E$1,0))
Enter > Copy ลงด้านล่าง
อุตส่าห์เพิ่งไปเจอสูตร VLOOKUP กำลังได้เลย แต่กลับมาดูบอท ส ...

ขอบคุณ คุณ nattasiray เดียวหาเวลาไปอ่านดูครับ ส่วนท่านอื่นมีความเห็นเป็นประการใดรบกวนด้วยครับ

:D ลองแนบไฟล์พร้อมระบุเงื่อนไขและคำตอบที่ต้องการมาด้วยครับเพื่อจะได้เข้าถึงข้อมูลได้ไว
ไฟตัวอย่างที่แนบครับ (คือต้องการกรอกแค่เลขประจำตัวในช่องเลขประจำตัว แล้วข้อมูลอื่นก็ลงมาเองเลยอะครับ) :oops: รวบกวนทุกท่านด้วยครับ
ปล.เพิ่งสมัครใหม่ ผิดพลาดประการใดชี้แนะด้วยครับ

ลืมไปอีกอย่างครับ ข้อมุลในชีท ...

ก่อนอื่นต้องบอกก่อนครับว่าสูตรเอกเซลผมได้แค่พื้นฐานเล็กๆ (จริงๆ) เช่น คำนวน บวก ลบ คูณ หาญ :( แต่พอดีมีความจำเป็นต้องใ้ช้สูตรสำหรับงานที่ทำอยู่ (จะอธิบายยังไงดี) คือยกตัวอย่างเช่น ผมมีข้อมูลอยู่ในเอกเซลชีทที่ ๑ เป็นข้อมูล หมายเลขประจำตัว ชื่อ สกุล อายุ คุณวุฒิ ภูมิลำเนา ฯลฯ ซึ่งมีหลายคน และผมต้องพ ...