Sub制作工资条()''制作工资条Macro''Cells.SelectSelection.CopySheets("Sheet3").SelectActiveWindow.SmallScrollDown:=-15Range("A1").SelectActiveSheet.PasteRange("K3").SelectApplication.CutCopyMode=FalseActiveCell.FormulaR1C1="1"Range("L4").SelectSelection.Style="常规2"WithSelection.Interior.Pattern=xlNone.TintAndShade=0.PatternTintAndShade=0EndWithSelection.Borders(xlDiagonalDown).LineStyle=xlNoneSelection.Borders(xlDiagonalUp).LineStyle=xlNoneWithSelection.Borders(xlEdgeLeft).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithSelection.Borders(xlEdgeTop).LineStyle=xlNoneSelection.Borders(xlEdgeBottom).LineStyle=xlNoneSelection.Borders(xlEdgeRight).LineStyle=xlNoneSelection.Borders(xlInsideVertical).LineStyle=xlNoneSelection.Borders(xlInsideHorizontal).LineStyle=xlNoneWithSelection.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.WrapText=False.Orientation=0.AddIndent=False.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=FalseEndWithActiveCell.FormulaR1C1="1"Range("K3:L4").SelectSelection.AutoFillDestination:=Range("K3:L47")Range("K3:L47").SelectSelection.SpecialCells(xlCellTypeBlanks).SelectActiveWindow.SmallScrollDown:=-12Range("A1:J1").SelectSelection.CopyActiveWindow.SmallScrollDown:=90Range("A1:J92").SelectSelection.SpecialCells(xlCellTypeBlanks).SelectActiveSheet.PasteActiveWindow.SmallScrollDown:=-9Columns("K:L").SelectApplication.CutCopyMode=FalseSelection.ClearContentsSelection.DeleteShift:=xlToLeftCells.SelectSelection.RowHeight=19.75Selection.RowHeight=21ActiveWorkbook.SaveEndSub
本文档为【Sub制作工资条】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483