ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่

[apinomon]

ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
เช่น ต้องการให้แสดงค่าจากไฟล์ DATA ที่ชีท Sheet1 ค่าที่ต้องการให้แสดงอยู่ถัดจากเซลล์ที่ Active อยู่ คือ A1 ไปทางขวา 3 เซลล์
ไปแสดงที่ ไฟล์ Report ที่ชีท Sheet1 โดยแสดงในเซลล์ที่ Active อยู่

ลองเขียนโค้ดนี้แล้ว

Code: Select all

Workbooks("Report").Sheets("Sheet1").ActiveCell.Value = Workbooks("DATA").Sheets("Sheet1").ActiveCell.Offset(0, 3).Value

ไม่สามารถ Run ได้ครับ


รบกวนช่วยชี้แนะด้วยครับ
ขอบคุณครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ

[apinomon]

แนบไฟล์มาแล้วครับ
มี 2 ไฟล์

1.ไฟล์ที่เป็นข้อมูล ชื่อไฟล์ DATA.xlsx
2.ไฟล์ที่บันทึก macro ชื่อ Report.xlxm ต้องการให้ค่าจากไฟล์ DATA มาแสดงที่ไฟล์นี้


ขอบคุณครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

ActiveCell.Resize(3, 4).Value = Workbooks("DATA.xlsx").Sheets("Sheet1").Range("a1").Resize(3, 4).Value

[apinomon]

ขอบคุณมากครับ

ลองนำไปใช้แล้วครับ

ค่าที่แสดงเป็นข้อมูลไฟล์ DATA เซลล์ A1:D3 ซึ่งเป็นค่าที่ไม่สามารถเปลี่ยนตามเซลล์ที่ Active

แต่ที่ต้องการคือให้นำข้อมูลที่ไฟล์ DATA เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา มาแสดงครับ
อยากให้สามารถเคลื่อนที่ไปตามเซลล์ที่ Active อยู่ได้ครับ

รบกวนชี้แนะเพิ่มเติมด้วยครับ
ขอบคุณครับ

[puriwutpokin]

ขอบคุณมากครับ

ลองนำไปใช้แล้วครับ

ค่าที่แสดงเป็นข้อมูลไฟล์ DATA เซลล์ A1:D3 ซึ่งเป็นค่าที่ไม่สามารถเปลี่ยนตามเซลล์ที่ Active

แต่ที่ต้องการคือให้นำข้อมูลที่ไฟล์ DATA เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา มาแสดงครับ
อยากให้สามารถเคลื่อนที่ไปตามเซลล์ที่ Active อยู่ได้ครับ

รบกวนชี้แนะเพิ่มเติมด้วยครับ
ขอบคุณครับ

แบบนี้หรือเปล่าครับ

Code: Select all

'Other...
Workbooks("DATA.xlsx").Sheets("Sheet1").Activate
ActiveCell.Offset(, 3).Copy
Workbooks("Report.xlsm").Sheets("Sheet1").Activate
ActiveCell.PasteSpecial xlPasteValues
'Other...

[apinomon]

ค่าที่ได้แบบนี้เลยครับ
แต่วิธีการอยากให้แสดงค่าที่ไฟล์ Report เลย
โดยไม่ต้องไป Active ที่ไฟล์ DATA แล้ว Copy มาวาง

ไม่ทราบว่ามีธีแสดงค่าเลยไหมครับ


ยังไงขอรบกวนชี้แนะแนวทางเพิ่มเติมด้วยครับ
ขอบคุณมากครับ

[puriwutpokin]

ค่าที่ได้แบบนี้เลยครับ
แต่วิธีการอยากให้แสดงค่าที่ไฟล์ Report เลย
โดยไม่ต้องไป Active ที่ไฟล์ DATA แล้ว Copy มาวาง

ไม่ทราบว่ามีธีแสดงค่าเลยไหมครับ


ยังไงขอรบกวนชี้แนะแนวทางเพิ่มเติมด้วยครับ
ขอบคุณมากครับ

ไม่เข้าใจคำถามครับว่า ต้องการค่าแบบไหนที่ต้นทาง คงที่แล้วปลายทางเปลี่ยนตำแหน่งไหนหรือครับ
ลองทำคำตอบมาในไฟล์ว่าหน้าผลลัพธ์ที่ต้องการแบบไหนครับ

[apinomon]

ต้องขอโทษด้วยครับ
ผมขออธิบายเพิ่มครับ

ค่าต้นทาง คือ ไฟล์ DATA Sheet1 เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา

ค่าปลายทางให้แสดงที่ ไฟล์ Report Sheet1 ในเซลล์ที่ Active อยู่

ตามโค้ดที่ให้มา ตำแหน่งต้นทางถูกต้อง ตำแหน่งปลายทางถูกต้องครับ

Code: Select all

'Other...
Workbooks("DATA.xlsx").Sheets("Sheet1").Activate
ActiveCell.Offset(, 3).Copy
Workbooks("Report.xlsm").Sheets("Sheet1").Activate
ActiveCell.PasteSpecial xlPasteValues
'Other...

แต่วิธีการคือ อยากให้ Show Value เลยครับ โดยที่ไม่ต้อง Copy แล้ววางครับ
ต้องขออภัยอีกครั้งที่อธิบายไม่ชัดเจนครับ
ขอบคุณครับ

[snasui]

การจะเอาค่าจาก Active เซลล์ต้องไป Activate ก่อน ไม่เช่นนั้นจะมองไม่เห็น ActiveCell ครับ

การจะเอาค่ามาได้โดยไม่ต้องไป Activate แนวทางคือ ใช้ Event ไปดักจับการเปลี่ยนแปลงในค่าต้นทางแล้วเก็บไว้ในตัวแปร เมื่อคลิกปุ่ม Run ค่อยนำค่านั้นมาวางในไฟล์ปลายทางครับ

[apinomon]

ขอบคุณมากครับ

ตอนแรกเข้าใจว่าจะสามารถเขียน ให้แสดงค่าของ Activecell.value ของไฟล์ Report = Activecell.value ของไฟล์ DATA ได้เลย

การใช้ Event น่าจะเป็นเรื่องที่ยากสำหรับผม ตอนนี้ผมฝึกทำเป็นแค่การบันทึก macro

ผมคงต้องศึกษาเรื่องการใช้ Event ไปดักจับการเปลี่ยนแปลงในค่าต้นทางแล้วเก็บไว้ในตัวแปร ตามที่ได้แนะนำมาเพิ่มเติมครับ

ไม่ทราบพอจะมีแหล่งข้อมูลเรื่อง การใช้ Event หรือ Link ให้ศึกษาเพิ่มเติมไหมครับ

ขอบคุณมากครับ

[snasui]

ศึกษาได้จาก Link นี้ครับ https://docs.microsoft.com/en-us/office ... vate(even)

[apinomon]

ขอบคุณครับ