Page 1 of 1
ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Thu Oct 01, 2020 11:43 am
by 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 ได้ครับ
รบกวนช่วยชี้แนะด้วยครับ
ขอบคุณครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Thu Oct 01, 2020 6:36 pm
by snasui
แนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 8:55 am
by apinomon
แนบไฟล์มาแล้วครับ
มี 2 ไฟล์
1.ไฟล์ที่เป็นข้อมูล ชื่อไฟล์ DATA.xlsx
2.ไฟล์ที่บันทึก macro ชื่อ Report.xlxm ต้องการให้ค่าจากไฟล์ DATA มาแสดงที่ไฟล์นี้
ขอบคุณครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 2:57 pm
by puriwutpokin
ปรับเป็น
Code: Select all
ActiveCell.Resize(3, 4).Value = Workbooks("DATA.xlsx").Sheets("Sheet1").Range("a1").Resize(3, 4).Value
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 4:36 pm
by apinomon
ขอบคุณมากครับ
ลองนำไปใช้แล้วครับ
ค่าที่แสดงเป็นข้อมูลไฟล์ DATA เซลล์ A1:D3 ซึ่งเป็นค่าที่ไม่สามารถเปลี่ยนตามเซลล์ที่ Active
แต่ที่ต้องการคือให้นำข้อมูลที่ไฟล์ DATA เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา มาแสดงครับ
อยากให้สามารถเคลื่อนที่ไปตามเซลล์ที่ Active อยู่ได้ครับ
รบกวนชี้แนะเพิ่มเติมด้วยครับ
ขอบคุณครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 4:59 pm
by puriwutpokin
apinomon wrote: Fri Oct 02, 2020 4:36 pm
ขอบคุณมากครับ
ลองนำไปใช้แล้วครับ
ค่าที่แสดงเป็นข้อมูลไฟล์ 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...
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 5:35 pm
by apinomon
ค่าที่ได้แบบนี้เลยครับ
แต่วิธีการอยากให้แสดงค่าที่ไฟล์ Report เลย
โดยไม่ต้องไป Active ที่ไฟล์ DATA แล้ว Copy มาวาง
ไม่ทราบว่ามีธีแสดงค่าเลยไหมครับ
ยังไงขอรบกวนชี้แนะแนวทางเพิ่มเติมด้วยครับ
ขอบคุณมากครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 5:41 pm
by puriwutpokin
apinomon wrote: Fri Oct 02, 2020 5:35 pm
ค่าที่ได้แบบนี้เลยครับ
แต่วิธีการอยากให้แสดงค่าที่ไฟล์ Report เลย
โดยไม่ต้องไป Active ที่ไฟล์ DATA แล้ว Copy มาวาง
ไม่ทราบว่ามีธีแสดงค่าเลยไหมครับ
ยังไงขอรบกวนชี้แนะแนวทางเพิ่มเติมด้วยครับ
ขอบคุณมากครับ
ไม่เข้าใจคำถามครับว่า ต้องการค่าแบบไหนที่ต้นทาง คงที่แล้วปลายทางเปลี่ยนตำแหน่งไหนหรือครับ
ลองทำคำตอบมาในไฟล์ว่าหน้าผลลัพธ์ที่ต้องการแบบไหนครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Fri Oct 02, 2020 6:02 pm
by 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 แล้ววางครับ
ต้องขออภัยอีกครั้งที่อธิบายไม่ชัดเจนครับ
ขอบคุณครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Sat Oct 03, 2020 9:19 am
by snasui
การจะเอาค่าจาก Active เซลล์ต้องไป Activate ก่อน ไม่เช่นนั้นจะมองไม่เห็น ActiveCell ครับ
การจะเอาค่ามาได้โดยไม่ต้องไป Activate แนวทางคือ ใช้ Event ไปดักจับการเปลี่ยนแปลงในค่าต้นทางแล้วเก็บไว้ในตัวแปร เมื่อคลิกปุ่ม Run ค่อยนำค่านั้นมาวางในไฟล์ปลายทางครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Sat Oct 03, 2020 11:33 am
by apinomon
ขอบคุณมากครับ
ตอนแรกเข้าใจว่าจะสามารถเขียน ให้แสดงค่าของ Activecell.value ของไฟล์ Report = Activecell.value ของไฟล์ DATA ได้เลย
การใช้ Event น่าจะเป็นเรื่องที่ยากสำหรับผม ตอนนี้ผมฝึกทำเป็นแค่การบันทึก macro
ผมคงต้องศึกษาเรื่องการใช้ Event ไปดักจับการเปลี่ยนแปลงในค่าต้นทางแล้วเก็บไว้ในตัวแปร ตามที่ได้แนะนำมาเพิ่มเติมครับ
ไม่ทราบพอจะมีแหล่งข้อมูลเรื่อง การใช้ Event หรือ Link ให้ศึกษาเพิ่มเติมไหมครับ
ขอบคุณมากครับ
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Sat Oct 03, 2020 1:28 pm
by snasui
Re: ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
Posted: Mon Oct 05, 2020 9:38 am
by apinomon
ขอบคุณครับ