|
右键点击EXCEL程序界面工具条的空白部位，在弹出的工具条设置菜单中勾选“控件工具箱”，然后在控件工具箱的工具条上点击“命令按钮”，再点击工作表，然后双击添加好的命令按钮，在VB编辑器里写上如下代码Private Sub CommandButton1_Click()Dim a$, b$n = ActiveSheet.Range("a65536").End(xlUp).RowFor i = 1 To nIf Cells(i, 1) = 1 Thena = Trim(Cells(i, 2))Cells(1, 3) = Cells(1, 3) + aEnd IfIf Cells(i, 1) = 2 Thenb = Tr... |
