Page 1 of 1
VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่นอน
Posted: Fri Aug 29, 2014 5:07 pm
by p_d
สวัสดีค่ะ
ดิฉันต้องการสร้าง vb ให้สามารถ copy สูตร sum ข้อมูลแต่ละคอลัมภ์ที่มีอยู่ซึ่งจำนวนแถวและคอลัมภ์ที่มีแต่ละครั้งไม่แน่นอน ต้องระบุ code vb อย่างไรคะ
ดูตามไฟล์แนบค่ะ
ขอบคุณค่ะ
p_d
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Fri Aug 29, 2014 7:20 pm
by snasui
สำหรับ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน
ติดตรงไหนค่อยถามกันต่อครับ
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Mon Sep 01, 2014 9:12 am
by p_d
ขอโทษค่ะไม่ทันได้อ่านกฎก่อน
แนบไฟล์มาให้ใหม่แล้วค่ะพร้อม VB Code ที่ทำไว้ค่ะ รบกวนคุณคนควรแนะนำด้วยค่ะ
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Mon Sep 01, 2014 4:30 pm
by snasui
ไฟล์ที่จะแนบ Macro หรือ VBA ได้จะต้องมีนามสกุลอื่นที่ไม่ใช่ .xlsx ช่วยแนบไฟล์ที่มี Macro มาใหม่ครับ
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 1:51 pm
by 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
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 2:11 pm
by snasui
p_d wrote:เพราะไม่ยอมให้แนบไฟล์ค่ะ
ไฟล์นามสกุล .xlsx แนบมาได้ ทำไมจึงแนบไฟล์นามสกุล .xlsm มาไม่ได้ คำว่าไม่ยอมให้แนบไฟล์หมายความว่าอย่างไรครับ
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 2:52 pm
by p_d
ขอโทษอีกครั้งเข้าใจผิดเองค่ะ คราวนี้น่าจะโอเคนะคะ
ขอบคุณค่ะ
p_d
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 4:59 pm
by snasui
ผมไม่พบว่ามี Copy Macro อยู่ในไฟล์แนบครับ
Macro จะต้องเขียนมาเองและต้องแนบมาในไฟล์ แนบมาในไฟล์หมายถึงแนบมาใน VBE
VBE หมายถึง Visual Basic Editor เป็นโปรแกรมที่ใช้ในการเขียน Code VBA หรือ Record Macro ซึ่งจะต้องทราบได้เองว่าอยู่ตรงไหน ไม่เช่นนั้นยังไม่ควรใช้ VBA ครับ
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 5:14 pm
by p_d
เนื่องจากปกติทำบนเครื่องจะรันได้เลยจึงไม่เคยรู้ว่าต้องทำการ import macro เพิ่มเข้ามา เพราะมันอยู่ใน Personal น่ะคะ
จริง ๆ ก็ทำ macro หลายครั้งแล้วแต่ไม่เคยใช้ code ยาก ๆ รบกวนแนะนำด้วยค่ะ อย่าเพิ่งรำคาญนะคะ
ขอบคุณค่ะ
p_d
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Tue Sep 02, 2014 6:34 pm
by 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
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Wed Sep 03, 2014 9:07 am
by p_d
ขอถามเพิ่มเติมค่ะ ในกรณีจำนวนคอลัมภ์ไม่ใช่ 93 ตายตัวแต่จะเปลี่ยนไปจะมีวิธีไหนให้ copy เท่ากับจำนวนคอลัมภ์ที่มีอยู่จริงบ้างคะ
ขอบคุณค่ะ
p_d
Re: VB CODE เกี่ยวกับการ Copy สูตรโดยไม่รู้จำนวนข้อมูลที่แน่
Posted: Wed Sep 03, 2014 11:08 am
by p_d
ได้แล้วค่ะ ๆ
ขอบคุณค่ะ