工資條打印設(shè)置
選中表格數(shù)據(jù)中的任意位置，然后點(diǎn)擊菜單欄的‘?dāng)?shù)據(jù)’，再點(diǎn)擊‘分類匯總’；接下來(lái)會(huì)彈出單元格，勾選‘每組數(shù)據(jù)分頁(yè)’，點(diǎn)擊確定；接下來(lái)數(shù)據(jù)就分開(kāi)了；點(diǎn)擊打印預(yù)覽會(huì)只顯示一個(gè)人的工資條；如果需要將匯總一行刪除，選中任意一列，點(diǎn)擊ctrl+G，然后選中‘空值’，點(diǎn)擊確定；然后將鼠標(biāo)放在選中的空值單元格，右擊鼠標(biāo)，點(diǎn)擊刪除；選中整行；點(diǎn)擊確定即可。
Excel-VBA設(shè)計(jì)工資條打印格式
應(yīng)用場(chǎng)景
設(shè)置工資條的打印格式
知識(shí)要點(diǎn)
1：在工作表末列添加輔助內(nèi)容，以該區(qū)域判斷是否需要插入行
2：Range.End(xlDown) 原因單元格對(duì)象向下第一個(gè)非空單元格
3：選擇所有插入的第二行，黏貼標(biāo)題行作為分割后的標(biāo)題
4：選擇所有插入的第一行，設(shè)置行高，作為分割的間隔行
5：恢復(fù)時(shí)整行刪除插入行
Sub 生成工資條()
If ActiveSheet.ProtectContents Then MsgBox '工作表已保護(hù)，拒絕執(zhí)行'
On Error Resume Next
Dim Activerng As Range, Rngg As Range, Rownum As Long, i As Long, Btrow
Star:
Btrow = Application.InputBox('請(qǐng)指定標(biāo)題行數(shù)！', '確定工資條頭', 1, , , , , 1) '讓用戶確認(rèn)標(biāo)題行數(shù)
If Btrow <= 0 Or Btrow > 10 Then MsgBox '只能1到10之間,請(qǐng)重新輸入', 64, '友情提醒': GoTo Star '如果不在10行內(nèi)重新指定
'將列號(hào)為最后一列、行數(shù)為標(biāo)題行行數(shù)加1的單元格賦予變量
Set Activerng = Cells(Btrow 1, Columns.Count)
Application.StatusBar = '正在生成工資條，請(qǐng)稍后......' '在狀態(tài)欄顯示信息
Application.Calculation = xlManual '設(shè)置手動(dòng)計(jì)算，加快速度
Application.ScreenUpdating = False '關(guān)閉屏幕更新,加快速度.
'創(chuàng)建輔助區(qū)，以該區(qū)域?yàn)榛鶞?zhǔn)判斷是否需要插入行
Cells(1, Columns.Count).Resize(ActiveSheet.UsedRange.Rows.Count, 1) = 1
Do '開(kāi)始循環(huán)
'插入行，行數(shù)為標(biāo)題行 1
Activerng.Offset(1, 0).Rows('1:' & Btrow 1).EntireRow.Insert shift:=xlDown
'重置對(duì)象，將activerng變量指向原有對(duì)象向下第一個(gè)非空單元格
Set Activerng = Activerng.End(xlDown)
'記錄數(shù)據(jù)區(qū)域的最大行行號(hào)（插入行后該數(shù)據(jù)會(huì)增加）
Rownum = Cells(Rows.Count, Columns.Count).End(xlUp).Row
Loop While Activerng.Row < Rownum
'合并所有用于存放標(biāo)題的行
Set Rngg = Rows(Btrow 3 & ':' & 2 Btrow 2)
For i = 2 (Btrow 2) 1 To Rownum Step Btrow 2
Set Rngg = Union(Rngg, Rows(i & ':' & i Btrow - 1))
Next
Rows('1:' & Btrow).Copy Rngg '復(fù)制第一個(gè)標(biāo)題到其他用于存放標(biāo)題的空行中
Set Rngg = Rows(Btrow 2) '合并剩下的所有行（改行用于每個(gè)工資條的間隔行）
For i = 2 (Btrow 2) To Rownum Step Btrow 2
Set Rngg = Union(Rngg, Rows(i))
Next
Rngg.Borders.LineStyle = xlNone '將空行的邊框去掉
Application.ScreenUpdating = True
'指定工資條間隔的高度
Btrow = Application.InputBox('請(qǐng)指定工資條之間空行的高度！')
If Btrow <= 0 Or Btrow > 409 Then MsgBox '行高必須在0 到409之間'
Rngg.RowHeight = Btrow '對(duì)間隔行設(shè)定高度
(1)、工資條打印怎么設(shè)置 excel打印工資條的幾種方法
制作工資條在財(cái)務(wù)工作和HR工作中很常用，方法有很多種，今天我們介紹幾種常用方法；1.升序法第一步：復(fù)制工資表表頭，在工資表下方進(jìn)行粘貼，有7個(gè)人員，粘貼6行；第二步：在I2：I7填充1到7，再將I2：I7的1到7粘貼到I8：I14，對(duì)I列進(jìn)行升序排序，刪除I列；2.插入行法1).在I3輸入1，在J4輸入2，選中I3：J4區(qū)域，向下填充，Ctrl+G，調(diào)出定位對(duì)話框，【定位條件】，【空值】，鼠標(biāo)放在...查看更多
(2)、攝影師工資待遇怎么樣 攝影師任職條件有哪些
攝影師職業(yè)介紹攝影師是指從事電影、電視攝影、攝像工作的人員。攝影師具體做什么①依據(jù)創(chuàng)作劇本，完成影片攝影藝術(shù)創(chuàng)作的攝影闡述工作；②參與討論分鏡頭劇本，選擇外景場(chǎng)地，商議美術(shù)設(shè)計(jì)，為主要演員試鏡頭；③根據(jù)導(dǎo)演的要求，運(yùn)用攝影藝術(shù)手段完成影視片的電影造型。攝影師崗位薪資薪資:￥3000-12000/月目前我國(guó)開(kāi)設(shè)攝影專業(yè)的學(xué)校主要有：北京電影學(xué)院、中央美術(shù)學(xué)院藝術(shù)設(shè)計(jì)系、清華大學(xué)美術(shù)學(xué)院、四川美術(shù)學(xué)院...查看更多
(3)、民航飛行員工資待遇好不好 民航飛行員招考條件有哪些
飛行員月薪多少1、據(jù)了解目前國(guó)航、南航、東航等三大航的最資深的教員機(jī)長(zhǎng)，目前的月薪在6萬(wàn)左右。隨著國(guó)內(nèi)民航業(yè)的蓬勃發(fā)展。一些小航空公司出于發(fā)展的需求，在機(jī)制靈活的背景下，反而對(duì)機(jī)長(zhǎng)的薪酬會(huì)支付的更多。如有的小航空公司機(jī)長(zhǎng)的年薪可能會(huì)有70-80萬(wàn)元，有些大航空公司機(jī)長(zhǎng)的年薪則在40-50萬(wàn)元左右。一名教員機(jī)長(zhǎng)的年薪約在70-80萬(wàn)元，而一些貨航機(jī)長(zhǎng)的年薪可能會(huì)在百萬(wàn)以上。2、飛行員是很多人巨羨慕的...查看更多
(4)、攝像師工資一般多少 攝像師任職條件是什么
攝像師職業(yè)介紹攝影師是指從事電影、電視攝影、攝像工作的人員。攝像師具體做什么①依據(jù)創(chuàng)作劇本，完成影片攝影藝術(shù)創(chuàng)作的攝影闡述工作；②參與討論分鏡頭劇本，選擇外景場(chǎng)地，商議美術(shù)設(shè)計(jì)，為主要演員試鏡頭；③根據(jù)導(dǎo)演的要求，運(yùn)用攝影藝術(shù)手段完成影視片的電影造型。攝像師崗位薪資薪資:￥3000-12000/月目前我國(guó)開(kāi)設(shè)攝影專業(yè)的學(xué)校主要有：北京電影學(xué)院、中央美術(shù)學(xué)院藝術(shù)設(shè)計(jì)系、清華大學(xué)美術(shù)學(xué)院、四川美術(shù)學(xué)院...查看更多
(5)、水利水電工程工資待遇怎么樣 水利水電工程師有哪些任職條件
水利水電工程師職業(yè)介紹水利·水電工程師是指總體規(guī)劃設(shè)計(jì)水庫(kù)、水電站、灌溉工程，并主持施工的工程技術(shù)人員。水利水電工程師具體做什么①研究江河湖海的水文、水利情況及水利建筑特性；②研究規(guī)劃水能利用、農(nóng)田水利運(yùn)用；③設(shè)計(jì)水庫(kù)、水電站、水利樞紐、灌排系統(tǒng)等水利、水電建筑及主持施工；④制定水利設(shè)施技術(shù)指標(biāo)、技術(shù)規(guī)程、操作方法；⑤進(jìn)行水利、水電設(shè)施的運(yùn)行調(diào)度；⑥分析處理運(yùn)行技術(shù)問(wèn)題，指導(dǎo)操作人員作業(yè)。水利水電...查看更多
(6)、茶藝師工資待遇怎么樣？茶藝師任職條件是什么？
茶藝師職業(yè)介紹茶藝師是指在茶藝館、茶室、賓館等場(chǎng)所專職從事茶飲藝術(shù)服務(wù)的人員。茶藝師具體做什么①鑒別茶葉品質(zhì)；②根據(jù)茶葉的品質(zhì)，選擇相適的水質(zhì)、水量、水溫和沖泡器具，進(jìn)行茶水藝術(shù)沖泡；③選配茶點(diǎn)；④向顧客介紹名茶、名泉及飲茶知識(shí)、茶葉保管方法等茶文化知識(shí)；⑤按不同茶藝要求，選擇或配置相應(yīng)的音樂(lè)、服裝、插花、熏香等環(huán)境。茶藝師崗位薪資薪資:￥3000-8000/月茶藝師是茶文化的傳播者、是高品位文化...查看更多
(7)、2020年財(cái)政部長(zhǎng)兩會(huì) 你的工資條要變了
快打開(kāi)你的工資條留張影吧，因?yàn)樗芸赡芫鸵兞耍?變高點(diǎn) 個(gè)稅起征點(diǎn)“該提高就提高”2011年，中國(guó)將個(gè)人所得稅起征點(diǎn)自每月2000元人民幣上調(diào)至3500元。自此6年便“雷打不動(dòng)”的體現(xiàn)在你的工資條上。數(shù)字不變，但房?jī)r(jià)、物價(jià)不斷上漲，全國(guó)居民人均可支配收入每年上漲8%�！疤岣邆�(gè)人所得稅起征點(diǎn)”的聲音不斷出現(xiàn)。這一次，記者把話喊到了兩會(huì)財(cái)政部新聞發(fā)布會(huì)上。財(cái)政部長(zhǎng)肖捷說(shuō)：“在...查看更多
(8)、2020年河南大學(xué)生村官報(bào)考條件,河南村官政策及工資待遇標(biāo)準(zhǔn)
【2017年河南省大學(xué)生村官報(bào)名條件,河南省大學(xué)生村官待遇標(biāo)準(zhǔn)】 大學(xué)生村官是指到農(nóng)村(含社區(qū))擔(dān)任村黨支部書(shū)記、村委會(huì)主任助理或其他村“兩委”職務(wù)的具有大專以上學(xué)歷的應(yīng)屆或往屆大學(xué)畢業(yè)生。工作多為社區(qū)(村)事務(wù)。2002年河南省鶴壁市招聘205名大學(xué)生“村官”，拉開(kāi)了河南省大學(xué)生“村官”工程序幕。2013年河南省大學(xué)生村官招募工作即將啟動(dòng)。這對(duì)不少大學(xué)生而言，是一份可遇不可求的高起點(diǎn)職業(yè)。...查看更多
(9)、2020年貴州大學(xué)生村官報(bào)考條件,貴州村官政策及工資待遇標(biāo)準(zhǔn)
【2017年貴州省大學(xué)生村官報(bào)名條件,貴州省大學(xué)生村官待遇標(biāo)準(zhǔn)】 什么是大學(xué)生村官?大學(xué)生村官是指到農(nóng)村(含社區(qū))擔(dān)任村黨支部書(shū)記、村委會(huì)主任助理或其他村“兩委”職務(wù)的具有大專及以上學(xué)歷的應(yīng)屆或往屆大學(xué)畢業(yè)。工作多為社區(qū)(村)事務(wù)。財(cái)政廳按每人每年1.8萬(wàn)元標(biāo)準(zhǔn)對(duì)省選聘的大學(xué)生村官下?lián)茇?cái)政補(bǔ)助資金，并專門(mén)下發(fā)通知，對(duì)資金使用提出明確要求。大學(xué)生村官的報(bào)名條件是什么?報(bào)名條件各地不同，...查看更多
(10)、2020年河北大學(xué)生村官報(bào)考條件,河北村官政策及工資待遇標(biāo)準(zhǔn)
【2017年河北省大學(xué)生村官報(bào)名條件,河北省大學(xué)生村官待遇標(biāo)準(zhǔn)】 (1)思想政治素質(zhì)好，組織紀(jì)律觀念強(qiáng)，服從分配，踏實(shí)肯干，志愿到農(nóng)村基層工作;(2)有一定的組織協(xié)調(diào)能力和較強(qiáng)的語(yǔ)言表達(dá)能力;(3)學(xué)習(xí)態(tài)度端正，學(xué)業(yè)成績(jī)良好;(4)身體健康，符合規(guī)定的體檢要求;(5)需擔(dān)任學(xué)生干部1年以上;(6)必須是參加全國(guó)普通高等院校本科、研究生統(tǒng)一招生考試或按規(guī)定免于考試錄取的。對(duì)...查看更多
Columns(Columns.Count).Clear
Application.Calculation = xlAutomatic
Application.StatusBar = '' '還原狀態(tài)欄
End Sub
