2016-11-22 75 views
0

我目前面臨一個非常討厭的問題,我的Excel工作簿,我想問你的幫助。MS Excel 2013 - 編輯單元格值後崩潰

我的工作手冊作爲一個報價工具,然後生成PDF。

首先,您需要將來自不同來源(例如PDF,Excel工作簿等)的數據輸入到名爲Master的工作表。您可以使用簡單的公式進行一些計算,並可以將結果導出到名爲Calc_Overview的另一個工作表中。在這個過程中,數據也被格式化爲正確的字體,顏色和大小。

With ActiveWorkbook.Worksheets("Master") 
    For i = 12 To .UsedRange.rows.Count 
     If .Cells(i, 2) <> "" Then 
      .Cells(i, 2).Copy Destination:=Target.Cells(k, 4) 
      .Range(.Cells(i, 4), .Cells(i, 5)).Copy _ 
      Target.Range("F" + k, "G" + k).PasteSpecial xlPasteValues 

      .Range(.Cells(i, 6), .Cells(i, 7)).Copy _ 
      Destination:=Target.Range("I" + k, "J" + k) 

      .Cells(i, 8).Copy _ 
      Destination:=Target.Cells(k, 8) 
      k = k + 1    
     End If 
    Next i 
End With 

此操作後,用戶可以看到他的輸入和計算數據的摘要。使用另一個宏將行復制到3個不同的工作表(取決於類型),計算過程完成。

這是我的複製功能:

Function CopyTable(Typ As String, Counter As Integer, Count As Integer) As Integer 

    With Worksheets("Calc_Overview") 
     .Range("A" & Count & ":" & "D" & Count).Copy _ 
      Destination:=Sheets(Typ).Range("A" & 5 + Counter) 

     .Range("G" & Count & ":" & "H" & Count).Copy _ 
      Destination:=Worksheets(Typ).Range("E" & 5 + Counter) 
    End With 

    CopyTable = Counter + 1 

    End Function 

現在我的問題: 如果你嘗試編輯其轉移到最終的工作表中的數據,也經常會崩潰Excel中沒有任何理由。編輯單元格值後,按Enter或單擊另一個單元格將使Excel崩潰。

我已經關閉了「自動閃光燈補」和「顯示快速分析」選項,但問題仍然存在..

有沒有人什麼線索可能會造成這個問題?我已經用最新的工作表替換了最終的工作表,而沒有複製任何來自「已損壞」的工作表 - 也沒有任何成功。我正在使用帶有32位Microsoft Office 2013的Windows 10 PC(x64)。

我真的很關注有關此問題的任何提示或解決方案!

非常感謝

莫里茨

+1

'細胞(CSTR(1),......)'爲什麼這種轉換我的字符串? vba會做轉換爲str然後回到整數。順便說一句,這使得你的代碼有點嘈雜,有人試圖幫助。 –

+0

您的vba-project中有「Worksheet_Change」或「Worksheet_SelectionChange」事件嗎?如果您更改單元格值,或者如果在選中單元格後按下Enter鍵,則會運行它們。如果是的話,你可以看看這些發現問題(只是猜測) – Lukas

+0

@ A.S.H感謝您的建議,我已經改變了這一點! –

回答