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

分享

excel如何制作一個vba按鈕,點一下之后讓sheet1里面的部份數(shù)據(jù),自動保存到sheet2里面?

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

    如果菜單欄沒有“開發(fā)工具”選項卡,右擊上方菜單欄空白處——自定義功能區(qū),選中“開發(fā)工具”

    請點擊輸入圖片描述

    開發(fā)工具里面,插入——ActiveX控件,選中按鈕,在Excel上拖拽2個按鈕

    請點擊輸入圖片描述

    右擊按鈕,查看代碼,可以打開VBE界面(右擊按鈕,選擇屬性,里面可以改按鈕的顯示內(nèi)容,Caption屬性)

Private Sub CommandButton1_Click()

    Sheet2.Range("A1").Value = Sheet1.Range("A10").Value    '將表1中的某個值保存到表2的示例

End Sub

Private Sub CommandButton2_Click()

    Sheet2.Range("A1").Value = ""    '清空Sheet1指定單元格的示例

End Sub

根據(jù)示例修改代碼

追問

好的,基本實現(xiàn)了。
還有個問題,是Sheet1的A10保存至Sheet2后,不是一直保存到A1。是每點擊一次保存,都不覆蓋上次的保存。
比如:第一次保存位置為A1,此后的保存自動向下,A2/第二次保存,A3/第三次保存……不覆蓋此前的保存??梢詫崿F(xiàn)嗎

追答

'獲取某列最后一行有內(nèi)容的行號的命令:
Dim nRow as Long
nRow= Range("A635535").End(xlUp).Row
'如果獲取其他列,將A改成對應(yīng)列號就行
它的下一行就是空的
將Sheet2.Range("A1")改為 Sheet2.Cells(nRow+1, 1) 或者 Sheet2.Range("A" & nRow+1)
這樣就不會每次保存覆蓋之前保存內(nèi)容了。
【也可以上面獲取nRow的時候直接+1,后面就不用加了】

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

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多