Page 1 of 1
เลือกชีทใน VBA code
Posted: Tue Oct 29, 2013 11:10 pm
by wthn
สวัสดีครับ ต้องขอรบกวนถามเรื่องของ code ใน VBA
ตามไฟล์ที่แนบ ผมจะอัพเดทชีท Summary_daily ทุกวัน และจะ copy sheet ที่เป็นชื่อวันที่ออกมาทำใหม่ทุกวันโดยเปลี่ยนชื่อเป็นวันที่ที่ทำ จึงอยากให้ช่วยแก้ไขโคดให้หน่อยนะครับ
โคดที่ผมคิดว่าควรจะต้องแก้คือ Sheets("Oct 29'13").Select ซึ่งผิดถูกยังไงบอกด้วยนะครับ อยากให้เปลี่ยนเป็นรัน macro กับชีทที่ติดกับ Summary_daily
ขอบคุณครับ
ป๊อป
ปล.อยากจะแนบไฟล์เป็น excel แต่ทำยังไงไฟล์มันก็เกิน 300kb มีวิธีแก้ยังไงช่วยบอกด้วยนะครับ
Re: เลือกชีทใน VBA code
Posted: Tue Oct 29, 2013 11:14 pm
by snasui
ไฟล์ตัวอย่างไม่ควรจะมีข้อมูลจำนวนมาก ให้ตัดมาเพียงตัวอย่างที่เป็นตัวแทนของข้อมูลจริงเท่านั้น
ไฟล์ที่มีข้อมูลเล็กน้อยแต่มีขนาดเกิน 300KB ถือว่าผิดปกติครับ
Re: เลือกชีทใน VBA code
Posted: Tue Oct 29, 2013 11:29 pm
by wthn
ครับผมจะลองเซฟใหม่ดู แต่กับไฟล์ word ที่แนบมาพอจะดูรู้เรื่องมั้ยครับ หรือต้องการข้อมูลอะไรเพิ่มเติมหรือเปล่าครับ
Re: เลือกชีทใน VBA code
Posted: Tue Oct 29, 2013 11:58 pm
by snasui
ปกติผมพอจะอ่าน Code เข้าใจได้บ้างอยู่แล้ว แต่ต้องการไฟล์แนบที่เป็น Excel จะได้ทดสอบได้
สามารถแนบภาพในฟอรัมนี้ได้เลยไม่จำเป็นต้องแนบผ่านไฟล์อื่นใด ส่วน Code ก็วางในฟอรัมนี้ได้เช่นเดียวกันครับ
Re: เลือกชีทใน VBA code
Posted: Wed Oct 30, 2013 1:39 pm
by wthn
ผมแนบไฟล์มาให้ดูแล้วครับ
สิ่งที่อยากให้ช่วยแก้คือ ให้ช่วยแก้โคด ให้รัน macro ทุกครั้ง ให้รันไปชีทที่ติดกับชีท summary_daily โดยไม่ได้ดูว่าต้องเป็นชีทชื่ออะไรครับ
Sub Run_test()
'
' Run_test Macro
'
'
Sheets("Oct 29'13").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Summary_daily!C1:C2,2,0)"
Selection.Copy
Range("B4:B12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B14").Select
End Sub
ขอบคุณครับ
ป๊อป
Re: เลือกชีทใน VBA code
Posted: Wed Oct 30, 2013 3:53 pm
by snasui
การเลือก
ชีทที่ติดกับชีท Summary_daily สามารถปรับ Code เป็นตามด้านล่าง
Code: Select all
Sub Run_test1()
'
' Run_test1 Macro
'
'
Sheets(Sheets.Count - 1).Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Summary_daily!C1:C2,2,0)"
Selection.Copy
Range("B4:B12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B13").Select
Application.CutCopyMode = False
End Sub
สำหรับการวาง Code ให้เป็น Code เพือสะดวกต่อการ Copy ไปทดสอบสามารถดูได้ที่ Link นี้ครับ
viewtopic.php?f=2&t=1187
Re: เลือกชีทใน VBA code
Posted: Wed Oct 30, 2013 4:34 pm
by wthn
ขอบคุณมากครับ ใช้ได้แล้ว เยี่ยมเลยแต่ขอเพิ่มปัญหาอีกนิดนะครับ
ถ้าหากเราต้องการให้มันดึงมาเฉพาะ font ที่เป็นสีแดงเท่านั้นได้หรือป่าวครับ โดยใช้ตัวอย่างเดิมแต่ในชีท summary_daily มีสองสี เราอยากได้เฉพาะสีแดงเท่านั้น ต้องทำยังไงครับ
รบกวนด้วยครับ ขอบคุณครับ
Re: เลือกชีทใน VBA code
Posted: Wed Oct 30, 2013 6:52 pm
by snasui
ลองปรับปรุงมาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ ถ้าหากปรับมาแล้วช่วยระบุด้วยว่าติดขัดที่บรรทัดใดของ Code ครับ