รบกวนสอบถาม Code VBA excel ในการ copy paste แบบมีเงื่อนไขหน่อยครับ

[maczyending]

รูบร่างหน้าตาของ excel ที่ผมใช้จะเป็นดังนี้ครับ

Column ด้านซ้ายสุดจะเป็นวันที่ซึ่งถูกเรียงไว้ตั้งแต่วันที่ 1/1/2015 จนถึง 31/12/15 และ Column ด้านขวาของแต่ละวันที่จะประกอบด้วยข้อมูลต่างๆที่ถูกเรียกขึ้นมาจาก database ด้วยสูตรที่กำหนดไว้ไล่เรียงกันไปด้วยหลายๆข้อมูลครับ ซึ่งผมจะต้องมีการ update ข้อมูลเสมอด้วยการ cal sheet เมื่อวันที่เปลี่ยนไปเพื่อดึงข้อมุลเข้ามาใน excel sheet แต่ทั้งนี้ปัญหาที่เกิดขึ้นคือมันจะ cal ช้ามาก ถ้าช่องที่เคยถุกเรียกข้อมุลแล้วยังคงคำสั่งไว้ซึ่งสูตรในการดึงข้อมุลออกมาจาก database ดังนั้นผมจึงแก้ปัญหาด้วยการ copy and paste by value ครับ แต่จะต้องทำด้วยการ manual ทั้งนี้ผมต้องการที่จะทำคำสั่งพวกนี้ลงไปใน VBA command botton ครับ

ด้วยการออกคำสั่งว่าถ้าวันนี้เป็นวันอะไร ให้ออกคำสั่งวันก่อนหน้าด้วยการ copy and paste by value ที่ช่อง cell เดิมทั้งหมด

หรือถ้าจะสามารถทำได้ ให้ออกคำสั่งว่า ถ้าวันนี้เป็นวันอะไร ให้ตรวจสอบวันก่อนหน้า ช่องข้อมูลไหนยังเป็น formula link ให้ทำการ copy and paste by value ทั้งหมด

ซึ่ง ณ ตอนนี้ผมลองเขียนแบบ basic ได้ดังนี้

Private Sub CommandButton1_Click()
With Sheets("XXX").Range("B27:EB27").Copy
End With
Sheets("XXXI").Range("B27:EB27").PasteSpecial xlPasteValues

With Sheets("YYY").Range("B27:EB27").Copy
End With
Sheets("YYY").Range("B27:EB27").PasteSpecial xlPasteValues
End Sub

Code ข้างต้นทำได้แค่เพียงการ copy sheet สองหน้าที่ผมกำหนดไว้ ใน cell ที่ผมกำหนดไว้ ให้มันทำ copy paste by value เท่านั้นครับ

ขอความกรุณาผู้รู้ อาจารย์ทุกท่านช่วยผมหน่อยครับ

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

[snasui]

เพื่อให้ง่ายสามารถใช้สูตรใน Excel 2 ตัวเข้ามาช่วยได้ครับ

ตามด้านล่างอ้างอิงตำแหน่งตามที่เขียนมา

1. ตัวแรกให้หาก่อนว่าวันที่ก่อนหน้าวันที่ปัจจุบันนั้นเริ่มที่บรรทัดใด เช่นที่ D1 คีย์สูตร
   =Match(Today()-1,Column ด้านซ้ายสุด,0)
   Enter
2. ตัวที่สองให้หาว่าข้อมูลทั้งหมดของวันที่ก่อนหน้าวันที่ปัจจบันมีกี่บรรทัด เช่นที่ E1 เขียนสูตร
   =Countif(Column ด้านซ้ายสุด,Today()-1)
   Enter

จากนั้นปรับ Code เป็น

Code: Select all

Sheets("XXX").Range("B" & Range("D1").value).Resize(Range("E1").value) = Sheets("XXX").Range("B" & Range("D1").value).Resize(Range("E1").value).value

[maczyending]

ขอบคุณมากครับอาจารย์ ผมยังมีข้อสงสัยครับ

คำสั่ง =Countif(Column ด้านซ้ายสุด,Today()-1) พอใส่ไปแล้วมันนับได้แค่ 1 ทุกช่องเลยครับ

และ Code ที่อาจารย์ให้มา ผมอยากเพิ่มเติม column จาก D ไปถึง J ครับไม่ทราบว่าจะต้องเขียนเพิ่มอย่างไรครับ

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

ตามไฟล์แนบ เมื่อกดปุ่มแล้ว มันถูก copy paste แค่วันก่อนหน้าวันเดียวใน column D อย่างเดียวครับ

ขอบคุณอีกครั้งครับอาจารย์

[maczyending]

Private Sub CommandButton1_Click()
Sheets("Sheet2").Range("D" & Range("B1").Value).Resize(Range("C1").Value, 7) = Sheets("Sheet2").Range("D" & Range("B1").Value).Resize(Range("C1").Value, 7).Value
End Sub

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

แต่ถ้าผมต้องการให้มันออกคำสั่งจากช่องที่กำหนด ขึ้นไปด้านบนแล้วออกด้านขวาแทนได้ไหมครับอาจารย์

เพราะจุดประสงค์ที่แท้จริงก็คือ ข้อมูลของวันที่หลังจากวันที่ปัจจุบันยังคงเหมือนเดิม แต่ให้ข้อมูลก่อนหน้าวันที่ปัจจุบันเป็น value ครับ

[snasui]

การโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างที่ Link นี้ครับ viewtopic.php?f=6&t=1187

พราะจุดประสงค์ที่แท้จริงก็คือ ข้อมูลของวันที่หลังจากวันที่ปัจจุบันยังคงเหมือนเดิม แต่ให้ข้อมูลก่อนหน้าวันที่ปัจจุบันเป็น value ครับ

ปรับ Code เป็นด้านล่างครับ

Code: Select all

With Sheets("Sheet2").Range("D1:D" & Range("B1").Value) _
    .Resize(Range("B1").Value, 7)
    .Value = .Value
End With