Snasui Excel Forum

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 จากช่องที่กำหนดลงมาด้านล ...

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

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

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

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

ตามไฟล์แนบ เมื่อกดปุ่มแล้ว ...

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

Column ด้านซ้ายสุดจะเป็นวันที่ซึ่งถูกเรียงไว้ตั้งแต่วันที่ 1/1/2015 จนถึง 31/12/15 และ Column ด้านขวาของแต่ละวันที่จะประกอบด้วยข้อมูลต่างๆที่ถูกเรียกขึ้นมาจาก database ด้วยสูตรที่กำหนดไว้ไล่เรียงกันไปด้วยหลายๆข้อมูลครับ ซึ่งผมจะต้องมีการ update ข้อม ...