oyq的博客

1.在这里主要以一个人员薪酬表为例子，做简单的增删改等操作，以及快速生成工资条，窗口示例如下2.数据表信息如下3.生成的工资表如下4.详细代码如下'添加员工信息Private Sub CommandButton1_Click()Dim iDim w1Set w1 = Worksheets(1)i = 2While w1.Cells(i, 1) <> ""i = i + 1WendIf ...