WPS中用VBA的ADO操作工作表求教

2023-02-21 06:45:05 字數 2181 閱讀 7543

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還有非常優秀的幾個優點,比如 智慧段落整理 去除多餘空格等等。教程一般看起來會很慢,不如找本書自己學。看教程一小時,不如看書來得快。並且辦公軟體都有相通之處,熟練掌握一方面的使用手法...