我目前面臨一個非常討厭的問題,我的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)。
我真的很關注有關此問題的任何提示或解決方案!
非常感謝
莫里茨
'細胞(CSTR(1),......)'爲什麼這種轉換我的字符串? vba會做轉換爲str然後回到整數。順便說一句,這使得你的代碼有點嘈雜,有人試圖幫助。 –
您的vba-project中有「Worksheet_Change」或「Worksheet_SelectionChange」事件嗎?如果您更改單元格值,或者如果在選中單元格後按下Enter鍵,則會運行它們。如果是的話,你可以看看這些發現問題(只是猜測) – Lukas
@ A.S.H感謝您的建議,我已經改變了這一點! –