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

[ChoBkuN]

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

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

[bank9597]

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

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

[ChoBkuN]

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

[bank9597]

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

[ChoBkuN]

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

[bank9597]

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

[ChoBkuN]

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

[snasui]

เหมือนผมจะเจอแระ
รู้สึกจะมี กำดัก มี 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

[bank9597]

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

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

[ChoBkuN]

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

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

[snasui]

ลองปรับ 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

[ChoBkuN]

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

[snasui]

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

[ซำเหมา]

ช่วยอธิบายการใช้ คำสั่ง
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
ต้องทำอย่างไรในเอ็กเซล กรอกตรงไหนครับ
พอดีเครื่องเป็นเหมือนกันคือช้า ค้างบ่อย

[bank9597]

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

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

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

[ซำเหมา]

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