การบวกใน VBA

[วังวู ช่ง]

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

[snasui]

ลองดูตัวอย่างการปรับ Code เพื่อให้สูตรยืดหยุ่นตามปริมาณข้อมูลตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Range("AW10").Formula = "=SUM(A12:A" & _
        Range("AW" & Rows.Count).End(xlUp).Row & ")"
    Range("AW11").FormulaR1C1 = "=R[-1]C*3"
    Range("AW10:AW11").AutoFill Destination:=Range("AW10:BF11"), Type:=xlFillDefault
    Range("BF10:BF11").Select
    Selection.Copy
    Range("BH10").Select
    ActiveSheet.Paste
    Range("BJ10:BM11").Select
    ActiveSheet.Paste
    Range("BF10").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("BF10:BG10"), Type:=xlFillDefault
    Range("BF10:BG10").Select
    Range("BG11").FormulaR1C1 = "=R[-1]C"
    Range("BG10:BG11").Copy
    Range("BI10").Select
    ActiveSheet.Paste
    Range("AH1:BN1").Select
    Application.CutCopyMode = False
End Sub

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ ได้แล้วครับ ขอบคุนมากครับ

ขอให้ท่าน อาจารย์ จ่งโชกดีครับ

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ ผมชิออกไปการก่อน มีบันหาหนึ่งอยากจะรบกวนท่านแต่เมื่อเถิงห้องการก่อนครับ ขอบคุณมากครับ

จากนักสึกสาลาว ใน http://www.snasui.com ครับ