ขอรบกวนการเขียนคำสั่งคัดลอกและวางแบบวนลูปครับ

[hellish]

คนควนครับ
ขอรบกวนการเขียนคำสั่งคัดลอกและวางแบบวนลูปครับ
โดยพื้นที่ต้องการวางสูตรจะไม่มี row ที่ตายตัว
แต่จะมี column คงที่
ตัวอย่างความต้องการอยู่ใน file แนบครับ (งานจริงที่ใช้จะประมาณ 4-5 พัน rowไม่กล้าส่งให้ครับคือมันใหญ่มากก)
ขอบคุณครับ
ปล.ตอนนี้กำลังปั่นข้อมูลอยู่ครับเนื่องจาก server ที่ใช้งานป่วยกระทันหัน
hellish.

[snasui]

การทำแบบนั้นไม่ต้องใช้ Macro ก็ทำได้ครับ

ลองตามนี้ครับ

1. คีย์สูตรที่ X2

=IF(ISTEXT($K5),O5,LOOKUP(9.99999999999999E+307,O$5:O5)*$K5/1000)

Enter > Copy ไปถึง AF2 > จากนั้น Copy ไปด้านล่าง > จากนั้นค่อย Copy ข้อมูลที่ได้นี้ให้เป็น Value

ดูตัวอย่างตามไฟล์แนบครับ

[hellish]

ขอบคุณครับ
เอ่อ ค่อนข้างจำเป็นครับ
เนื่องจากรหัสที่ใช้จะถูกเปลี่ยนไปเรื่อยๆ ไม่ค่อยซ้ำ แต่ที่ซ้ำคือรูปแบบการคำนวนครับ
ส่วนค่าใน column K ก็จะได้มาจากการคำนวนของอีก file นึงครับ
คือพยายามจะเลี่ยงการวางสูตรใน cell ของทุกกลุ่มรหัสย่อย ทั้งหมด 5พันกว่ารหัส
เพราะ excel มันจะช้ามากกก
(กำหนดแบบ manual แล้วครับ) ตอนนี้กำลังทดลองวางทีละชุด ชุดละ 5 รหัส
พอได้ผลลัพท์ ก็ ย้ายไปอีกชีทที่เป็นตัวรับข้อมูลครับ
ถ้างั้นผมขออนุญาติ เอาคำสั่งชุดนี้ไปแปลงเป็นแมโครนะครับ
ขอบคุณมากครับพ้ม

[hellish]

รบกวนอีกนิดครับ
นอกจากคำสั่งชุดนี้
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
มีวิธีใดอีกครับที่ให้ excel ทำงานเร็วขึ้นครับ
ขอบคุณครับ

[snasui]

การกำหนดให้ Excel ทำการคำนวณแบบ Manual สามารถใช้คำสั่งตามด้านล่างได้ครับ

application.calculation = xlmanual

กรณีไฟล์คำนวณช้าต้องดูหลายอย่างประกอบ ทั้ง Hardware และ Software ครับ หากไม่มีปัญหาเรื่อง Hardware (หลัก ๆ คือ CPU, Ram) ก็ต้องมาดูว่าไฟล์มีการคำนวณอย่างไร ใช้ัฟังก์ชั่นประเภทใด เป็น Volatile ฟังก์ชั่นหรือไม่ หรือใช้ฟังก์ชั่น Lookup แบบตรงตัวเยอะมากมายขนาดไหน ใช้ List หรือไม่ ให้ชื่อไว้กับช่วงข้อมูลจำนวนมากหรือไม่ มีการเชื่อมโยงข้อมูลจากไฟล์อื่นจำนวนมากหรือไม่

การกำหนดการคำนวณให้เป็น Manual เพื่อวางสูตรทำให้เร็วขึ้้นในการวางสูตรเท่านั้น และคงมีวิธีนี้ที่ช่วยให้วางสูตรแบบเร็ว ๆ ได้ เพราะไม่ต้องคำนวณทุกครั้งที่วางสูตร โปรแกรมจะทำการคำนวณทั้งหมดเมื่อปรับกลับมาเป็น Automatic บางทีพื้นที่ในการทำงานปัจจุบันมีไม่มาก แต่ยังคำนวณช้าก็เพราะสถานการณ์ตามด้านบนครับ

อีกทางเลือกก็ใช้ Code คำนวณแล้ววางค่าที่ได้จากการคำนวณให้เลย อันนี้น่าจะเร็วกว่าการวางสูตรแล้วค่อยแปลงกลับมาเป็น Value ต้องลองทดสอบดูครับ

Note: Volatile Function คือฟังก์ชั่นที่กระตุ้นให้เกิดการคำนวณทุกครั้งที่มีการเปลี่ยนแปลงเซลล์ แม้เซลล์นั้นไม่เกี่ยวข้องกับพื้นที่ที่ทำงาน เช่น Now(), Today(), Row, Column ฯลฯ

[hellish]

ตัดส่วนอื่นๆ ออกไปแล้ว เหตุที่ช้าจะมาจากฐานข้อมูลอ้างอิงที่ข้ามชีทกัน คงต้องปรับวิธีทำงานตามข้อมูลอีกแล้วครับพี่น้อง
ขอบคุณสำหรับคำตอบครับ ได้แนวคิดเพิ่มมาอีก 1 วิธีแล๊ะ
1.เลือก code
2.วางจำนวนที่ต้องการ
3.เลือกชุดข้อมูลที่ใช้ประกอบ
4.คำนวน (ใช้คำตอบข้างบนไปแอบแปลงทำชุดคำสั่งเรียบร้อยแล้ว)
5.วาง
กลับไปทำ 1 - 5 จนกว่าจะครบทุก code
6.จัดกลุ่ม
7.ส่งงาน เย้ๆๆ ((ข้อ2-7 กำลังอยู่ในฝันอยู่ครับ))

ถ้าผมคิดอะไรไม่ออกอีก ผมจะแวะมาใหม่ครับ ขอบคุณอีกครั้งครับ
**ข้อจำกัด user ต้องการดูรวม 1 - 31 วัน จำนวน code 300 กว่าๆ ส่วนประกอบของแต่ละ code เฉลี่ยที่ 15-20 รายการ**