Page 1 of 1
ถามสูตรsum ไดนามิกกับเลื่อนลงมาแบบไดนามิกหน่อยครับ
Posted: Fri Aug 08, 2014 1:50 pm
by nutpochan
Code: Select all
Range("A17").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-16]C:R[-1]C)"
Range("A18").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>200,1,2)"
Range("A19").Select
เราจะทำ sumแบบในนามิก ในช่องสีเหลือง และเลื่อนลงมาแบบไดนามิก ใส่สูตรif อย่างไงครับ
Re: ถามสูตรsum ไดนามิกกับเลื่อนลงมาแบบไดนามิกหน่อยครับ
Posted: Fri Aug 08, 2014 2:02 pm
by snasui
ตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
For Each r In Range("a1:j1")
If r <> "" Then
With r.End(xlDown)
.Offset(1, 0).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
.Offset(2, 0) = "=IF(R[-1]C>200,1,2)"
End With
End If
Next r
Re: ถามสูตรsum ไดนามิกกับเลื่อนลงมาแบบไดนามิกหน่อยครับ
Posted: Sun Aug 10, 2014 1:37 pm
by nutpochan
ได้ผลดีขอบคุนงับ
Re: ถามสูตรsum ไดนามิกกับเลื่อนลงมาแบบไดนามิกหน่อยครับ
Posted: Sun Aug 10, 2014 1:52 pm
by snasui
nutpochan wrote:ได้ผลดีขอบคุนงับ
แก้ไขข้อความให้ถูกต้อง
ด่วนครับ
Re: ถามสูตรsum ไดนามิกกับเลื่อนลงมาแบบไดนามิกหน่อยครับ
Posted: Sun Aug 10, 2014 6:56 pm
by nutpochan
ขอบคุณครับ