1樓：匿名使用者
目測 c d 可能是 <=0 的值,做一下判斷,如果<=0 就不執行
2樓：匿名使用者
您發的截圖裡好像寫的是 sheets(1)!cells(c,8)
這種語法格式在vba裡是錯誤的，必須寫成 sheets(1).cells(c,8)
後面的同樣的錯誤。
3樓：姓王的
原因：變數 c 或 d 等於或者小於0
4樓：匿名使用者
sheets(1),重新複製下工作表名稱到這裡試試
excel中sheets(1).cells(2,2)中的單元格內容有數值，將數值寫入到sheets(2).cells(2.4)中
5樓：匿名使用者
excel vba 工程資源管理器雙擊sheets(1)，編輯視窗輸入以下**：
private sub worksheet_change(byval target as range)
sheets(2).cells(2,4) = cells(2, 2)end sub
6樓：平陽虎
private sub worksheet_change(byval target as range)
sheets(2).cells(2.4)＝sheets(1).cells(2,2)
end sub
請懂VBA的朋友幫我用VBA在excel裡面編寫個計算器，只要加法的就可以了
private sub worksheet selectionchange byval target as range if f6 then exit sub static temp static w,j r1 target.row c1 target.column if r1 2 and r1 7...
在EXCEL中。用VBA程式編寫
自定義函式如下，請新增到要使用的excel檔案的vba 模組中function iscircletext byval 字串 as string do while len 字串 1if left 字串,1 right 字串,1 then iscircletext no exit function en...
ecel用vba時出現執行錯誤，excel用vba時出現執行錯誤6 溢位，請幫忙看下我的程式是不是有問題
dim語句中的integer都改為bailong，因為integer正數最大為du32767 另外，大量迴圈應zhi該考dao 慮將 讀入陣列，用陣列參 內與迴圈，提高 容速度。比如使用語句 a1 worksheets 樣本1 usedrange 則生成a1陣列，a1 i,1 就相當於cells i...