VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่นอน

[p_d]

สวัสดีค่ะ
ดิฉันต้องการสร้าง vb ให้สามารถ copy สูตร sum ข้อมูลแต่ละคอลัมภ์ที่มีอยู่ซึ่งจำนวนแถวและคอลัมภ์ที่มีแต่ละครั้งไม่แน่นอน ต้องระบุ code vb อย่างไรคะ

ดูตามไฟล์แนบค่ะ

ขอบคุณค่ะ
p_d

[snasui]

สำหรับ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

[p_d]

ขอโทษค่ะไม่ทันได้อ่านกฎก่อน
แนบไฟล์มาให้ใหม่แล้วค่ะพร้อม VB Code ที่ทำไว้ค่ะ รบกวนคุณคนควรแนะนำด้วยค่ะ

[snasui]

ไฟล์ที่จะแนบ Macro หรือ VBA ได้จะต้องมีนามสกุลอื่นที่ไม่ใช่ .xlsx ช่วยแนบไฟล์ที่มี Macro มาใหม่ครับ

[p_d]

คิดว่าจะมองเห็นจาก excel ค่ะ
ขออนุญาติวาง code ในนี้นะคะ เพราะไม่ยอมให้แนบไฟล์ค่ะ

Code: Select all

Sub SumEachRow()

 Range("A1").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Selection.AutoFilter Field:=7, Criteria1:="M"
    Cells.Select
    Selection.Copy
    Sheets(3).Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G2").Select

Range("G1").Select
ActiveCell.End(Direction:=xlDown).Select
Selection.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("H11").Select
    Selection.AutoFill Destination:=Range("H11:CV11"), Type:=xlFillDefault
    Range("G1").Select

End Sub

[snasui]

เพราะไม่ยอมให้แนบไฟล์ค่ะ

ไฟล์นามสกุล .xlsx แนบมาได้ ทำไมจึงแนบไฟล์นามสกุล .xlsm มาไม่ได้ คำว่าไม่ยอมให้แนบไฟล์หมายความว่าอย่างไรครับ

[p_d]

ขอโทษอีกครั้งเข้าใจผิดเองค่ะ คราวนี้น่าจะโอเคนะคะ

ขอบคุณค่ะ
p_d

[snasui]

ผมไม่พบว่ามี Copy Macro อยู่ในไฟล์แนบครับ

Macro จะต้องเขียนมาเองและต้องแนบมาในไฟล์ แนบมาในไฟล์หมายถึงแนบมาใน VBE

VBE หมายถึง Visual Basic Editor เป็นโปรแกรมที่ใช้ในการเขียน Code VBA หรือ Record Macro ซึ่งจะต้องทราบได้เองว่าอยู่ตรงไหน ไม่เช่นนั้นยังไม่ควรใช้ VBA ครับ

[p_d]

เนื่องจากปกติทำบนเครื่องจะรันได้เลยจึงไม่เคยรู้ว่าต้องทำการ import macro เพิ่มเข้ามา เพราะมันอยู่ใน Personal น่ะคะ
จริง ๆ ก็ทำ macro หลายครั้งแล้วแต่ไม่เคยใช้ code ยาก ๆ รบกวนแนะนำด้วยค่ะ อย่าเพิ่งรำคาญนะคะ

ขอบคุณค่ะ
p_d

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub SumEachRow()
    '
    ' Sum Each Columns
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.AutoFilter Field:=7, Criteria1:="M"
    Cells.Select
    Selection.Copy
    Sheets(3).Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G1").Select
    ActiveCell.End(Direction:=xlDown).Select
    Selection.Offset(1, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    ActiveCell.Resize(1, 93).FillRight

End Sub

[p_d]

ขอถามเพิ่มเติมค่ะ ในกรณีจำนวนคอลัมภ์ไม่ใช่ 93 ตายตัวแต่จะเปลี่ยนไปจะมีวิธีไหนให้ copy เท่ากับจำนวนคอลัมภ์ที่มีอยู่จริงบ้างคะ

ขอบคุณค่ะ
p_d

[p_d]

ได้แล้วค่ะ ๆ
ขอบคุณค่ะ