Excel Forum

เรียน คุณ Bo_ry ผมลองทดสอบแล้ว สามารถใช้งานได้ปกติดีครับ ขอบคุณมากๆครับ

A2
=IF(MOD(ROWS(A$2:A2),2),IF(A3="","","rem start two new ping command windows from a batch file:"),RIGHT(LEFT(SUBSTITUTE("ping "&INDEX(Menu_PW1!$F$6:$F$999,(ROWS(A$2:A2)+1)/2)&" -n 1 >> D:\000_SMC_Internet\CMD\PW1\pinglog.txt","Wait",REPT(" ",99)),99),95))


เรียน คุณ Bo_ry ขอบพระคุณมากๆครับ ...

ไฟล์ทดสอบครับ ขอบคุณครับ

เรียน สอบถามครับ เนื่องจากผมติดปัญหาการลากสูตร โดยลากสูตรที่เป็นคู่กัน แต่ให้เรียงลำดับของสูตรตามลำดับเช่นเดิม ไม่ข้ามบรรทัดครับ
มีวิธีการอย่างไรครับ ผมได้แนบไฟล์ตัวอย่างมาด้วยครับ ขอบคุณมากๆครับ

เรียน คุณ snasui ขอบพระคุณมากๆครับ (รับทราบและจะแก้ไขในการแนบไฟล์ตามที่แนะนำ และรายละเอียดให้ชัดเจนครับ)
output ที่ได้ถูกต้องแล้วครับ หลายๆโพสที่ผมสอบถามทำให้ผมสามารถนำไปใช้ในการทำงานซึ่งทำให้งานมีประสิทธิภาพมากขึ้นครับ(ไม่โดนไล่ออกจากงานแล้วครับ)

เรียน คุณ Snasui ครับ จากการทดสอบ พอดีผมใส่กำหนดค่าเหล่านี้(ตามแนบด้านล่าง) เพื่อจำลองในไฟล์ที่แนบไปครับ ถ้าหากต้องการให้ Code ทีุ่คณ snasui แนะนำมาให้วน loop เพื่อดึงค่า B3, B4, B5 ไปเรื่อยๆจนถึง 500 หรือ 1000 ต้องทำอย่างไรครับ

Code ตัวแปรที่ผมต้องนำออกไปครับ เพราะไม่สามารถกำหนดค่าจนถึง 1000 ได ...

ไฟล์ทดสอบตามแนบครับ ขอบคุณมากๆครับ

เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
รายละเอียดตาม Code และไฟล์แนบครับ พอดีผมติดวิธีการวน Loop ของชุดคำสั่ง Filter ที่ต้องนำค่าในตารางมาทำการกรองให้ครบครับ
จาก Code ผมยังไม่ได้ทำ Loop ของ inputName3 ครับ ซึ่งต้องวน Loop ให้ครบครับ

Sub Filter_DATA_to ...

เรียน คุณ Bo_ry ขอบคุณมากๆครับ

เรียน คุณ norkaz ขอบคุณมากๆครับ เดี๋ยวผมลองทดสอบดูครับผม

ไฟล์แนบตามนี้ครับ ขอบคุณครับ

เรียนสอบถามการดึงค่า % จากข้อมูลดิบที่ไม่ทราบบรรทัดที่แน่นอนและจำนวนตัวอักษรก็ไม่เท่ากัน
จากภาพมีข้อมูลดิบตามภาพคือ A1จนถึง 1000 (แต่ตัวอย่างในภาพจำลองมาแค่ A1-A8) ซึ่งข้อมูล % ที่ต้องการคือแถบสีเขียว(A7 & A8) ซึ่งอาจจะอยู่บรรทัดใดก็ได้(A1-A1000) ดังนั้นจึงต้องการนำค่า % มาแสดงใน Sheet ใหม่ที่ต ...

เรียน คุณ snasui ได้แล้วครับ ขอบพระคุณเป็นอย่างสูงครับ เปลี่ยนบรรทัดนี้ตามคำแนะนำครับ "j" เป็น j

เรียน คุณ snasui ขอบคุณมากๆครับ เดี๋ยวผมลองทดสอบ debug ตามคำแนะนำก่อนครับ

เรียน คุณ snasui ครับ ผมลองทดสอบแล้ว มันไวมากๆครับ เหมือนว่า มันไม่ copy เลขไปวาง และไปวางอีกช่องด้วยครับ เพราะลองลบเลขให้เหลือเลข 1 ตัวเดียวที่ C4 และกดปุ่มดู ทำให้ B4 และ C12 ก็ไม่มีค่าเลข 1 ครับ

Sub Run_Week1_Loop1()
Dim i As Integer, j As Integer
On Error Resume Next
For i = 1 To 7
For j ...

เรียน​ คุณ​ snasui​ ขอบคุณมากๆครับ​ เดึ๋ยวผมทดสอบอีกครั้งครับ

เรียน คุณ snasui ครับ ขอบคุณมากๆครับ จาก code ที่ให้มาครับ ใช่หลักการที่ต้องการแล้วครับ แต่จะมีเพิ่มเติมคือมี Call Run_All ด้วยครับ ที่จะต้อง run คู่กันครับ (โดยสลับฟันปลากับ code นี้ครับ "Application.Run "Copy_Week1_Day" & i")
ด้านล่างคือตัวย่างแบบไม่ loop ครับ (และ ค่าWeek จะมีค่าวน 1-5 และ dayม ...

:D แสดงว่ามีการเขียนเอาไว้แล้วและต้องการจะไป Loop เรียกใช้ เช่นนี้ใช่หรือไม่ครับ

ถ้าผมเข้าใจถูกต้อง ตัวอย่าง Code ก็จะเป็นเช่นด้านล่างนี้ครับ

Sub Run_Week1_Loop1()
Dim i As Integer
On Error Resume Next
For i = 1 To 35
Application.Run "Copy_Week1_Day" & i
Call Run_All
Next i
End Sub

เร ...

ผมหมายถึง code ตัวนี้ครับ มีวิธีทำ loop อย่างไรครับ ให้สั้นๆและง่าย เนื่องจากตอนนี้ผมใช้วิธี copy call ตามภาพ จนครบ 35x2=70 บรรทัดเลยครับ เนื่องจาก file จริงๆ Copy_Week1_Day1 จะมี process ของการทำงานของ code อีกมากมายครับ และ Run_All เช่นกันครับ เพียงแต่อยากทราบวิธีการใช้ loop เพื่อลด code ตามด้านล ...

หมายถึง code ตัวนี้ครับ มีวิธีทำ loop อย่างไรครับ ให้สั้นๆและง่าย เนื่องจากตอนนี้ผมใช้วิธี copy call ตามภาพ จนครบ 35x2=70 บรรทัดเลยครับ

Sub Run_Week1_Loop1()
Call Copy_Week1_Day1
Call Run_All
Call Copy_Week1_Day2
Call Run_All
Call Copy_Week1_Day3
Call Run_All
'....
'....
'....
Call Copy_Week5_Day6 ...