excel問(wèn)題集合2(編輯修改稿)
2024-09-26 09:52 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 餐 插座 伙食 住宿 共扣 39。 天數(shù) 工資 津貼 時(shí)間 金額 時(shí)間 金額 夜班 其他 牌 費(fèi) 費(fèi) 金額 39。10 月份 a001 朱 xx 26 107 3 39。10 月份 B108 袁 xx 150 0 Sub CreatePayRoll() Dim TitleRow As Integer 39。 工資表標(biāo)題行數(shù) Dim TitleCol As Integer 39。 工資表標(biāo)題欄數(shù) Dim MyPageBreak As Integer 39。 每頁(yè)打印多少個(gè)工資條 CurVer = 39。 當(dāng)前版本號(hào) TitleRow = 3 MyPageBreak = 7 response = MsgBox(本程序由 WongMokin 制作 , 當(dāng)前版本號(hào) amp。 CurVer, vbOKOnly + vbInformation + vbDefaultButton0, 工資表轉(zhuǎn)換成工資條 , , 0) 39。先關(guān)閉屏幕刷新 ,免的閃 = False 39。實(shí)有工資條 = 取得當(dāng)前區(qū)域的最后一行行號(hào) 標(biāo)題行數(shù) num = (A1). TitleRow num = InputBox(請(qǐng)?jiān)谙旅娴妮斎肟蛑墟I入要生成工資條的條數(shù) . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 只能輸入數(shù)值 , 若輸入其他內(nèi)容將導(dǎo)致程序出錯(cuò) , 后果自負(fù) . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 經(jīng)檢查共有工資記錄 : amp。 num amp。 條 , 要生成的工資條的條數(shù) , num) If Int(num) 1 Then response = MsgBox(要生成的工資條數(shù)目太少 ,不需要執(zhí)行此程序 ., vbOKOnly + vbExclamation + vbDefaultButton0, 工資表轉(zhuǎn)換成工資條 警告 , , 0) Exit Sub End If 39。工資表的欄數(shù)，如 TitleCol = 10 TitleCol = 33 TitleCol = InputBox(請(qǐng)?jiān)谙旅娴妮斎肟蛑墟I入工資條表頭的欄數(shù) . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 只能輸入數(shù)值 , 若輸入其他內(nèi)容將導(dǎo)致程序出錯(cuò) , 后果自負(fù) . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 默認(rèn)值為 : amp。 TitleCol, 工資條表頭的欄數(shù) , TitleCol) TitleCol = Int(Abs(Val(TitleCol))) 39。將輸入的數(shù) 值取正整數(shù) , 防止一般的輸入性錯(cuò)誤 . MyPageBreak = InputBox(每頁(yè)打印多少條工資條 ? amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 _ 預(yù)設(shè)每頁(yè)打印 amp。 Int(MyPageBreak) amp。 條 amp。 Chr(10) amp。 Chr(13), 工資表轉(zhuǎn)成工資條 , 7) MyPageBreak = Int(Abs(Val(MyPageBreak))) response = MsgBox(工資表轉(zhuǎn)工資條的過(guò)程即將開(kāi)始 amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 按 是 (Yes) 后將開(kāi)始進(jìn)行轉(zhuǎn)換 , 未完成前您的電腦可能無(wú)法執(zhí)行其他操作 . amp。 Chr(13) amp。 Chr(10) amp。 _ 請(qǐng)先將您的 Excel文檔保存后再繼續(xù)此操作 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 工資條標(biāo)題格式為 amp。 TitleRow amp。 行 amp。 TitleCol amp。 欄 , 要轉(zhuǎn)換的工資條數(shù)為 : amp。 num amp。 條 amp。 _ 每頁(yè)打 印工資條數(shù)為 : amp。 MyPageBreak amp。 條 , vbYesNo + vbExclamation + vbDefaultButton2, 工資表轉(zhuǎn)工資條 執(zhí)行前確認(rèn) , , 0) If response = vbYes Then 39。 用戶按下 是 39。 暫未使用 Else 39。 用戶按下 否 Exit Sub 39。退出此程序 End If 39。 復(fù)制當(dāng)前工作表并更改名字 = 工資條打印 39?？?cè)藬?shù) 5，如工資表中有 100 人則為 100 5即 num = 500 39。即表頭 3 行 , 工資單一行 , 空一行 num = Int(Abs(Val(num))) * (TitleRow + 2) 39。判斷有多少條記錄 39。 x = (A1). 39。 or x = Range(a1).(xlCellTypeLastCell).Row 39。開(kāi)始插入標(biāo)題 For y = 5 To (num 1) Step 5 39。將標(biāo)題復(fù)制到記錄上面 Rows(1:3).Select Rows(y).Select Shift:=xlDown Shift:=xlDown If y Mod MyPageBreak * (TitleRow + 2) = 0 Then 39。插入分頁(yè)符 Range(A amp。 y).PageBreak = xlPageBreakManual End If Next 39。選擇整個(gè)表去掉表格線 Range(F1).Activate (xlDiagonalDown).LineStyle = xlNone (xlDiagonalU
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1