生成工资条

mcy168

Private Sub Worksheet_Activate()
    Dim i, j, X As Integer
    Cells.Delete Shift:=xlUp
    Columns("A:A").ColumnWidth = 9.25
    X = 2
    For j = 5 To Sheet3.Rows.Count
        If (Sheet3.Cells(j, 1).Value <> "") Then
            For i = 1 To 18
                Cells(X - 1, 1).Value = "日 期"
                Cells(X, 1).Value = Format(Sheet3.Cells(3, 8), "yyyy年mm月")
                Cells(X - 1, i + 1).Value = Sheet3.Cells(4, i)
                Cells(X, i + 1).Value = Sheet3.Cells(j, i)
                Cells(X + 1, i).Value = "- - - - - "
                Cells(X + 1, i + 1).Value = "- - - - - "
                With Range(Cells(X - 1, "a"), Cells(X, "s")).Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 14
                End With
               Next i
            X = X + 3
        Else
            GoTo ENDSUB
        End If
    Next j
ENDSUB:
        MsgBox "工资条生成完毕！", 64, "系统提示"
End Sub

AKACHIKI

太嗲了，好好学学

xujunlz

谢谢啊，先学习了。我是菜鸟来的啊。谢谢版主啊。

Saka

顶 :lol

孤独的龙

正需要这个,太感谢楼主

1201

谢谢，下来看看。

juliahzh

呵呵，太强了，好用啊

ywwlo

呵呵，都是高手啊

jingyouxi

都不错呀！

hollinton

thanks very much