excel巨集將下面函式編成巨集,有巨集完成工作

2022-11-19 13:26:00 字數 1436 閱讀 3336

1樓:匿名使用者

有幾個問題先要弄清楚一下:

q1:a31:a40 這個單元格區域是否可變,怎麼個變法,是a31依次向下移動一個單元格,還是a40依次向下移動一個單元格,或者二者都依依次向下移動一個單元格。

q2:b30是否依次向下移動一個單元格

如果這兩個問題點不確定的話,做出來的可能並不是你所想要的

下面兩個例子,給你參考一下

sub test1()

'下面是a31:a40這個區域固定不變的**

dim i as long 'i等於行號,這個例子是從第二行開始,你可以根據你的需要改成任何一行開始

for i = 2 to cells(65536, 2).end(xlup).row

cells(i, 4).value = (worksheetfunction.max(range("a31:

a40")) - cells(i, 2).value) / cells(i, 2).value

cells(i, 5).value = (worksheetfunction.min(range("a31:

a40")) - cells(i, 2).value) / cells(i, 2).value

next

end sub

sub test2()

'下面是a31:a40這個區域有變化的**

dim i as long 'i等於行號,這個例子是從第二行開始,你可以根據你的需要改成任何一行開始

dim j as integer

j = 31

for i = 2 to cells(65536, 2).end(xlup).row

cells(i, 4).value = (worksheetfunction.max(range("a" & j & ":

a" & j + 9)) - cells(i, 2).value) / cells(i, 2).value

cells(i, 5).value = (worksheetfunction.min(range("a" & j & ":

a" & j + 9)) - cells(i, 2).value) / cells(i, 2).value

j = j + 1

next

end sub

2樓:匿名使用者

給你個思路:

一、函式處理——設定為一個按扭把,將**寫成按行計算,比如,計算d30、e30、d31、e31。。。這樣計算,直接賦值給單元格,用for迴圈到最後一行即可

二、最後一一哪列為基準用range("a65535").end(xlup).row可以取得

3樓:匿名使用者

提問已經被成習慣,我什麼時候才能獨立完成工作呢,哎!!

4樓:匿名使用者

不是吝嗇,是小氣而已

excel巨集設定,excel中如何啟用巨集

在excel裡面安全性設為中,而且檔案裡面有寫巨集,則開啟檔案的時候會出個對話方塊,問是否啟用巨集,如果點是,則可以執行巨集命令,如果點否,則巨集不能正常執行。注 巨集是excel裡面編寫的程式 檔案,選項 信任中心,信任中心設定,巨集設定,啟用巨集即可在excel中按下alt f11 即可開啟vb...

excel怎樣將asc jis函式新增到函式庫中

asc函式 說明對於雙位元組字符集 dbcs 語言,asc 函式可將全形 雙位元組 字元更改為半形 單位元組 字元。語法asc text asc 函式語法具有下列引數 text 必需。文字或對包含要更改的文字的單元格的引用。如果文字中不包含任何全形字母,則文字不會更改。示例 asc excel 等於...

excel相減函式,excel 相減函式

13060469 四級 最快回答 這位仁兄的回答有相當的侷限性,最大的問題就是必須符合公式的要求,就是說,a1中的這三個數字必須是2位數的,b1中的三位數必須是1位數的,這個公式才成立。如果一定要用這個公式的話,我建議,用三個函式,left,mid,right三個函式配合find函式查詢逗號位置以確...