Snasui Excel Forum

Posted: **Fri Mar 02, 2012 10:22 am**

เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือโหลดนาน
คือพิมพ์ข้อความอะไรก็ตาม ใน cell ใดๆ ก็จะค้างหรือโหลดนาน (ขึ้นรูปาฬิกาทราย)
ไม่ทราบว่าเกิดจากสาเหตุใดๆ ได้บ้างครับ

เป็นแค่การทำงาน ทำรายงานภาษีหัก ณ ที่จ่ายเท่านั้น
มีชีทใน file ก็ไม่เกิน 10 ชีท
สูตรที่ใช้ก็ some ธรรมดา
เป็นfile xlsx

Posted: **Fri Mar 02, 2012 10:36 am**

จำนวนข้อมูลแต่ชีทเยอะไหมครับ ประมาณกี่บรรทัด แล้วใช้สูตรเยอะแค่ไหน ประเภทอะไรบ้าง (ถามเยอะไปไหม)

และทรัพยากรเครื่องประมาณไหนครับ

Posted: **Fri Mar 02, 2012 10:38 am**

ผมเอา sheet เจ้าปัญหามาแล้วครับ ช่วยดูให้หน่อยครับ

Posted: **Fri Mar 02, 2012 10:49 am**

ไม่เห็นไฟล์น่ะครับ

Posted: **Fri Mar 02, 2012 10:50 am**

อยู่ใน โพส อันแรกครับ ~ ~

Posted: **Fri Mar 02, 2012 10:55 am**

ตาถั่วขึ้นมากระทันหัน

Posted: **Fri Mar 02, 2012 11:00 am**

เหมือนผมจะเจอแล้ว (ไม่รู้ใช่สาเหตุนี้หรือเปล่า)
รู้สึกจะมี กำดัก มี Object สี่เหลี่ยมเล็ก โปรงแส่ง
เพราะเลือก find special เลือก object
คอมผมค้างเลย
คราวนี้ผมต้องใช้แบบฟอร์มหน้าตาอย่างนี้
ก็อปเป็น sheet ใหม่ โดย Format ยังเหมือนเดิม ทำยังไงดีครับ

Posted: **Fri Mar 02, 2012 11:03 am**

ChoBkuN wrote:เหมือนผมจะเจอแระ
รู้สึกจะมี กำดัก มี Object สี่เหลี่ยมเล็ก โปรงแส่ง
เพราะเลือก find special เลือก object
คอมผมค้างเลย
คราวนี้ผมต้องใช้แบบฟอร์มหน้าตาอย่างนี้
ก็อปเป็น sheet ใหม่ โดย Format ยังเหมือนเดิม ทำยังไงดีครับ

ในฟอรัมงดใช้ภาษาแชทครับ

เนื่องจากมี TextBox มากกว่า 3 หมื่นอยู่ใน Sheet นี้ครับ

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

Code: Select all

Sub DelTextBox()
    Dim obj As Object
    Dim lng As Long
    For Each obj In Sheets("PND 53 (1) Eng").Shapes
        If Left(obj.Name, 4) = "Text" Then
            obj.Delete
            lng = lng + 1
        End If
    Next obj
    MsgBox lng & " objects deleted"
End Sub

Posted: **Fri Mar 02, 2012 11:09 am**

ผมคิดว่าคุณ ChoBkuN จะส่งไวรัสมาให้ผมเสียแล้ว เพราะว่าเปิดขึ้นมา เครื่องเกือยค้างเลยทีเดียว

คัดลอกข้อมูล แล้วนำไปวางอีกชีทได้ไหมครับ วางครั้งแรก วางค่าก่อน แล้วคัดลอกอีกครั้งจากชีทเจ้าปัญหา แล้วนำมาวาง แต่วางเป็น วางรูปแบบ ครับ ผมทำแล้ว ไม่มีปัญหาอีกครับ

Posted: **Fri Mar 02, 2012 11:15 am**

ขอบคุณทุกท่านครับ
อยากถาม code เพิ่ม ผมไม่ถนัด VBA
ถ้าใน file มีมากกว่า 1 ชีท
จะแก้ยังไงให้ลบ text box ทุกชีทใน file ครับ

(แต่ตอนนี้ผมทำแบบที่คุณ แบงค์ บอกไปแล้วครับ)

Posted: **Fri Mar 02, 2012 11:24 am**

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub DelTextBox()
    Dim obj As Object
    Dim lng As Long
    Dim wh As Worksheet
    For Each wh In Worksheets
        For Each obj In wh.Shapes
            If Left(obj.Name, 4) = "Text" Then
                obj.Delete
                lng = lng + 1
            End If
        Next obj
    Next wh
    MsgBox lng & " objects deleted"
End Sub

Posted: **Fri Mar 02, 2012 11:28 am**

ถ้าจะเยอะมาก
กด Run Code แล้วค้างทันที

Posted: **Fri Mar 02, 2012 11:36 am**

Code กำล้งทำงาน ถ้าหลายชีทจะใช้เวลาพอควรครับ

Posted: **Wed Feb 11, 2015 12:25 pm**

ช่วยอธิบายการใช้ คำสั่ง
Sub DelTextBox()
Dim obj As Object
Dim lng As Long
Dim wh As Worksheet
For Each wh In Worksheets
For Each obj In wh.Shapes
If Left(obj.Name, 4) = "Text" Then
obj.Delete
lng = lng + 1
End If
Next obj
Next wh
MsgBox lng & " objects deleted"
End Sub
ต้องทำอย่างไรในเอ็กเซล กรอกตรงไหนครับ
พอดีเครื่องเป็นเหมือนกันคือช้า ค้างบ่อย

Posted: **Wed Feb 11, 2015 1:17 pm**

เปิดไฟล์ขึ้นมา กด Alt+F11

ไปที่ Insert > Module แล้วนำโค๊ดดังกล่าวไปวาง

เมื่อต้องการใช้งานกด F5

Posted: **Thu Feb 12, 2015 12:03 pm**

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

Snasui Excel Forum

เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน

Re: เคยเจอปัญหา Excel ค้างบ่อย มั้ยครับ หรือ โหลดนาน