สูตร เคลียร์ฟอร์ม VBA EXCEL

[liveday]

สอบถามครับ
สูตร เคลียร์ฟอร์มช้ามากกว่าจะลบได้ ต้องแก้ยังไงบ้างครับ

Code: Select all

Sub Rectangle2_Click()
Dim Msg, Style, Title, Response
          Msg = "¤Ø³µéͧ¡ÒÃź¢éÍÁÙÅËÃ×ÍäÁè?"   ' Define message.
          Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
          Title = "¤Ø³µéͧ¡ÒÃź¢éÍÁÙÅËÃ×ÍäÁè"  ' Define title.
        ' Display message.
          Response = MsgBox(Msg, Style, Title)
          If Response = vbYes Then    ' User chose Yes.
    
 Range("H20").MergeArea.ClearContents
 Range("H25").MergeArea.ClearContents
 Range("O29").MergeArea.ClearContents
 Range("O31").MergeArea.ClearContents
 Range("AF31").MergeArea.ClearContents
 Range("K33").MergeArea.ClearContents
 Range("AP25").MergeArea.ClearContents
 Range("AP28").MergeArea.ClearContents
 Range("A40").MergeArea.ClearContents
 Range("V40").MergeArea.ClearContents
 Range("V42").MergeArea.ClearContents
 Range("V44").MergeArea.ClearContents
 Range("V46").MergeArea.ClearContents
 Range("V48").MergeArea.ClearContents
 Range("V50").MergeArea.ClearContents
 Range("AP40").MergeArea.ClearContents
 Range("A56").MergeArea.ClearContents
 Range("V56").MergeArea.ClearContents
 Range("V58").MergeArea.ClearContents
 Range("V60").MergeArea.ClearContents
 Range("V62").MergeArea.ClearContents
 Range("V64").MergeArea.ClearContents
 Range("V66").MergeArea.ClearContents
 Range("AP56").MergeArea.ClearContents
 Range("A74").MergeArea.ClearContents
Range("A76").MergeArea.ClearContents
Range("O72").MergeArea.ClearContents
Range("H74").MergeArea.ClearContents
Range("AP68").MergeArea.ClearContents
Range("AP70").MergeArea.ClearContents
Range("AP82").MergeArea.ClearContents
 
 
                    End If
End Sub

[snasui]

ถ้ามีการใช้สูตรร่วมด้วยจำนวนมากจะต้องยกเลิกการคำนวณเสียก่อนครับ

ลักษณะของ Code จะเป็นด้านล่าง

Code: Select all

Application.Calculation = xlCalculationManual
'Your code for clear contents
Application.Calculation = xlCalculationAutomatic