Page 1 of 1
รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 8:07 am
by โดดเดี่ยวผู้น่ารัก
มีคำถามเกี่ยวกับการเก็บข้อมูลบางแถวไว้และลบข้อมูลบางแถวออก ไฟล์เอกสารตามที่แนบมาค่ะ รบกวนด้วยค่ะ
Re: รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 11:19 am
by snasui
มีหลักเกณฑ์ใดในการเลือกข้อมูลที่ระบายสีเหลืองไหมครับ หรือต้องนับบรรทัด หรือ ฯลฯ
Re: รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 1:30 pm
by โดดเดี่ยวผู้น่ารัก
ตอบคำถามค่ะ
หลักพิจารณาการเก็บข้อมูลคือ
1.จะเห็นว่าแถวที่ 40 หรือ 191 จะมีชื่อบริษัท ,วันที่ อยู่
2.จะเห็นว่าแถวที่ 62-63 หรือ 213-214 จะมีข้อมูลรวม Answered ,Abandoned
3.จะเห็นว่าแถวที่ 119-143 หรือ 270-294 จะมีข้อมูลแยก Answered,Abandoned ตามรายชั่วโมง
ขอบพระคุณมากค่ะ
Re: รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 3:04 pm
by snasui
ผมเขียน Code ให้แล้วตามด้านล่าง ดูไฟล์แนบประกอบครับ
การเรียกใช้ Code ให้กดแป้น Alt+F11 > เลือก Macro1 > Run
Code: Select all
Sub Macro1()
Dim i As Long, j As Long
Application.ScreenUpdating = False
Call Macro0
i = Sheets(1).Range("B1048576").End(xlUp).Row
For j = i To 1 Step -1
If Range("B" & j) = "~Max Time to Answer~" Then
Range("B" & j).Resize(4, 1).EntireRow.Delete
End If
Next j
Application.ScreenUpdating = True
End Sub
Sub Macro0()
On Error Resume Next
Range("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
Re: รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 3:14 pm
by โดดเดี่ยวผู้น่ารัก
ลองแล้วๆๆ ค่ะ สุดยอดมากๆๆ ค่ะ แต่มีคำถามเพิ่มเติมค่ะว่าจะเอา Code นี้ไปใช้กับไฟล์อื่นได้ด้วยวิธีไหนค่ะ ขอบพระคุณมากค่ะ
Re: รบกวนสอบถามเรื่อง Excel ค่ะ
Posted: Tue Dec 14, 2010 3:19 pm
by snasui
ให้แก้ Code ในไฟล์เป็นตามความเห็นด้านบนนะครับจะได้กระชับ ในไฟล์ผมลืม Update ครับ
สำหรับการนำไปใช้กับไฟล์อื่นนั้น ให้ทำไฟล์นี้เป็น Template ครับ จากนั้นนำข้อมูลจากไฟล์อื่นมาวางแล้วค่อย Run ครับ
