2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

excel 如何通過vba將sheet1中的操作寫入到sheet2中

 wangyong670 2022-06-21 發(fā)布于新疆

詳細(xì)一點(diǎn)說:
就是我在sheet1里面按格式寫好數(shù)據(jù)后,點(diǎn)擊控件,sheet1表中指定區(qū)域就被加入sheet2的數(shù)據(jù)中,多次點(diǎn)擊sheet1的控件,就在sheet2中順序向下寫入數(shù)據(jù)。
你可以將其中的關(guān)系想象中操作界面與數(shù)據(jù)庫(kù)的關(guān)系。

請(qǐng)問如何實(shí)現(xiàn)?

要通過VBA把Sheet1工作表中的數(shù)據(jù)寫入Sheet2工作表中,可以采用如下方法:

1、假如要把Sheet1工作表中A1單元格的數(shù)據(jù)寫入Sheet2工作表的A1單元格中。

2、可以執(zhí)行以下語句:

sub test()
    sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Value
end sub

3、語句解釋:range("A1")代表A1單元格,.Value代表是單元格的值屬性。

溫馨提示:答案為網(wǎng)友推薦,僅供參考
當(dāng)前網(wǎng)址:https://88./zd/gSaVKVKSKBcKVMB1SS.html
第1個(gè)回答  2014-05-22
sub a()
[a1].copy iif([a1]="",[a1],sheets(2).[a65536].end(3).offset(1))
end sub

將表1的數(shù)據(jù)插入到SHEET2的A列。

追問

sheet是有表頭啊什么的,我只要指定區(qū)域插入即可。
表1的指定區(qū)域我已經(jīng)轉(zhuǎn)成列表了,名字也命名好了。

還有,sheet2原來有數(shù)據(jù)的,這樣不會(huì)影響sheet2的數(shù)據(jù)嗎?

追答

你的要求不明確,全是大范圍,沒一個(gè)準(zhǔn)確的描述。。。我只有隨便舉例寫了一個(gè)。

追問

哦,真不好意思。那我盡量寫準(zhǔn)確一點(diǎn)

現(xiàn)在就是想在表1中將數(shù)據(jù)行填充進(jìn)去以后,通過插入的按鈕將數(shù)據(jù)航增加到表2的最后。

如圖,這是表1的數(shù)據(jù),當(dāng)我填好后,點(diǎn)擊上面的按鈕,這一部分?jǐn)?shù)據(jù)就被復(fù)制到表2 中,點(diǎn)擊一下,就在表2中向下復(fù)制一次,達(dá)到數(shù)據(jù)積累的效果。

另外,我表1和表2的格式是一樣的,只需要在表2的最下方插入表1的這些數(shù)據(jù)行就行了

追答sub a()
range("b4:O"& [b65536].end(3).row).copy sheets(2).[B65536].end(3).offset(1)
end sub

 把中間那名代碼,復(fù)制到你的控件代碼中。

追問

我對(duì)VBA不懂,請(qǐng)問上述語句中,sheets(2) 是怎么定位的?

.....其他方面沒有發(fā)現(xiàn)問題。

還有能否,點(diǎn)擊之后彈出“數(shù)據(jù)已寫入[XXX工作表]”

追答

sheets(2) ,代表第2個(gè)表,在工作表標(biāo)簽上,從左往右數(shù)。
如果是sheets("sheet2"),則特指工作表名為"sheet2”的表。
要加彈出消息框??梢约诱Z句。
msgbox "數(shù)據(jù)已寫入……"

引號(hào)內(nèi)為你要彈出的內(nèi)容。

本回答被提問者采納
第2個(gè)回答  2015-09-30
具體要看你的是什么操作,如果是篩選,合并之類的操作,可以通過宏錄制,直接錄制出的操作代碼,將代碼中的sheet1改成sheet2?。?!具體需要什么操作,你要說一下才能給你代碼

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多