1樓:匿名使用者
這句是將b2單元格的值bai賦值給變
du量a。
並不會產生你的結果啊zhi。
sub 累加
dao()
dim a2 as long, b2 as longa2 = cells(2, 1).valueb2 = cells(2, 2).value '經過人為中斷測試版,執行到這行,b2單元權
格並沒有變0
b2 = b2 + a2
cells(2, 2) = b2
end sub
沒有任何問題
2樓:弗爾佈雷斯
單從你貼出來的**上看,沒有任何問題,建議你在從其它方面找找看
excel中sheets(1).cells(2,2)中的單元格內容有數值,將數值寫入到sheets(2).cells(2.4)中
3樓:匿名使用者
excel vba 工程資源管理器雙擊sheets(1),編輯視窗輸入以下**:
private sub worksheet_change(byval target as range)
sheets(2).cells(2,4) = cells(2, 2)end sub
4樓:平陽虎
private sub worksheet_change(byval target as range)
sheets(2).cells(2.4)=sheets(1).cells(2,2)
end sub
如何不啟用巨集就不能使用EXCEL
複雜一點的辦法就是用老的巨集表函式,也可以達到禁用巨集就退出,具體的搜尋一下本壇,很多的,就搜尋 禁用巨集就退出。不過這個方法在未來的版本可能會不相容了吧。還有個辦法,就是乾脆在工作表設定一個按鈕,只有啟用巨集按鈕才有效果,點選按鈕,需要的 才能出來。如何不啟用巨集就不能使用excel excel如...
excel巨集執行時,提示錯誤9,下標越界
你的語句有三種可能造成下標越界,一是workbooks itemmaster 如果沒有itemmaster檔案開啟會造成報錯,另外,一般我們是寫workbooks itemmaster.xls 二是.sheets sheet1 如果工作簿沒有名為 sheet1 的表,會造成下標越界 三是cells ...
在excel中編輯巨集把第一列中所有數字提出放在第二列,在第三列中篩選出0 251中在第二列沒有的數
sub 格式轉換 dim arr1 arr2,arr3 dim arr 0 to 251 arr4 0 to 251 dim i as byte dim j as byte dim str as string i cells rows.count,1 end 3 row redim arr1 0 t...