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