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

搜索
分享

工資條的制作III（VBA法）

 L羅樂 2019-08-19

作者：涂大榮。

大家好！我是涂涂

工資條的制作 III （VBA法）。

今天的內(nèi)容

工資條的制作，相信很多朋友都接觸過。今天的問題是，如何根據(jù)總表的人員信息明細(xì)快速生成工資條。

要求：

◆每個工資條需要帶標(biāo)題行

◆每個工資條之間，需要有一行空行隔開

制作工資條的方法有很多，比如輔助列法、公式法、VBA法，今天涂涂給大家分享使用VBA代碼來生成工資條的方法。

相關(guān)鏈接

工資條的制作 I （輔助列法）

工資條的制作 II （公式法）

?工資條效果圖

 

操作步驟


◆將xlsx后綴的文件另存為xlsm后綴的文件

◆按<Alt F11>打開VBE編輯界面，新建代碼模塊。在模塊內(nèi)寫入下面的代碼；保存，關(guān)閉VBE界面

◆在Excel表格中插入按鈕控件，并指定相應(yīng)的宏，點擊按鈕即可快速生成工資條。

代碼示例

  1. Sub 工資條制作()

  2.    Dim i As Integer

  3.    Application.ScreenUpdating = False

  4.    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

  5.        Rows(i).Insert

  6.        Range('A1:D1').Copy Range('A' & i & ':D' & i)

  7.        Rows(i).Insert

  8.    Next i

  9.    Application.ScreenUpdating = True

  10. End Sub

代碼解釋：

Cells(Rows.Count, 1).End(xlUp).Row

◆查找A列的非空行數(shù)

For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

◆使用For循環(huán)開始遍歷，從A列最后一行非空行開始，到第3行結(jié)束，步長值為-1（遞減）

Rows(i).Insert

◆插入空行

Range('A1:D1').Copy Range('A' & i &':D' & i)

◆復(fù)制標(biāo)題行到第i行（插入的空行）

Tips

◆使用VBA制作工資條，如果每月人員信息總表的格式一樣， 每次生成只需點擊一下按鈕即可，可以說是一勞永逸

◆相比輔助列法、公式法，VBA不受人員信息總表的數(shù)量限制，更快，更省事

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

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多