1樓:網友
把銷售單 ,依次儲存到 記賬 這個表?
**貼上到 銷售單 這個表裡。
銷售單應該有 計算公式,用了一個簡單的 陣列。
sub 儲存銷售單()
x = sheets("記賬").range("c65536").end(xlup).row
sheets("記賬").cells(x + 1, "c").resize(range("a65536").end(xlup).row - 4, 6) =arr
y = sheets("記賬").range("c65536").end(xlup).row
sheets("記賬
sheets("記賬
sheets("記賬").select
end sub
2樓:一箭驚仙
真是蛋疼,沒有記賬工作表,只有記帳工作表。
3樓:灰機灰過
能文字發一下**嗎?看起有點累人。
在wps的vba中怎麼使用sql語句
4樓:上官三雲
方法步驟如下:
3.出現」install has completed successfully「就表示已經安裝成功,點選」ok「即可:
5樓:矽谷少年
wps裡寫vba,比excel差很多,我早放棄了。
wps中用vba將一個工作表中的資料一鍵儲存到別一個工作表中,**出現下標越界錯誤,求教
6樓:眯住眼串針
**本身沒有語法錯誤。
在微軟的excel下正常執行。
不知道這個出錯是否與wps有關。。。
**有點小錯誤。
以下按「記賬」的**結構改了一下。
改過的地方都註釋了。
sub jizhang()
dim ws1 as worksheet, ws2 as worksheet
dim rnum1, rnum2
set ws1 = worksheets("尚品美居銷售單")
set ws2 = worksheets("記賬")
rnum2 = b65536").end(xlup).row + 1
rnum1 = 5 '起始行。
do until , 1) =or , 1) =本單小計", 1) =ws1.[b2] 'a列。, 2) =ws1.[b3] 'b列。, 1).resize(1, 6).copy , 3) '擴充套件6列 '複製到c列。
rnum1 = rnum1 + 1
rnum2 = rnum2 + 1
loopend sub
wps中用vba將一個工作表中的資料一鍵儲存到別一個工作表中,**出現下標越界錯誤,求教
7樓:一箭驚仙
真是蛋疼,沒有記賬工作表,只有記帳工作表。
wps中用vba將一個工作表中的資料一鍵儲存到別一個工作表中,**出現下標越界錯誤,求教
8樓:網友
看看你的上一個問題。
用陣列**給你寫出來了。
你不試試?你提了多少個同樣的問題了?
9樓:一箭驚仙
沒有記賬工作表,只有記帳工作表。
如何在wps中使用vba程式設計
10樓:一箭驚仙
vba還是用office吧,wps企業版才行,並且wps的vba是好多年前的版本,很多功能都沒有。
wps vba 視窗怎麼運用到單元**裡面? 5
11樓:智者總要千慮
方法步驟如下:
3.出現」install has completed successfully「就表示已經安裝成功,點選」ok「即可:
12樓:q我
寫**調出來,然後還得把選擇放入單元格。
如何在excel中用巨集(VBA)實現VLOOKUP的功能
function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n end fun...
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b,在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容,然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
wps辦公軟體的使用教程,WPS辦公軟體的使用教程
wps目前還沒有比較普遍的教程,你完全可以用ms office的教程,等紅會後,再使用wps,兩都幾乎相同,並且wps還有非常優秀的幾個優點,比如 智慧段落整理 去除多餘空格等等。教程一般看起來會很慢,不如找本書自己學。看教程一小時,不如看書來得快。並且辦公軟體都有相通之處,熟練掌握一方面的使用手法...