在EXCEL状态下,按alt+F11 左上角双击Sheet11(Sheet1) 右边见到有"通用",请下拉Worksheet 隔壁有个下拉列表,选择Caculate 加入以下代码 Private Sub Worksheet_Calculate() If Range("B1").Value = 2 And Range("A1").Value = 1 Then Range("C1").Select End Sub 这是计算,如果单元格B1=2 与单元格A1=1的时候,自动跳到C1单元格
第2个回答 2020-01-25
很久没人求助了,恰好我现在不忙:) 在excel里,同时按atl和f11进入宏界面,点菜单的插入,模块,粘贴如下代码: sub test() dim n as integer for n = 1 to 20 range("e1") = n activesheet.printout next n end sub 将e1替换为你的指定单元格,将20替换为你的几份。然后直接在此界面按f5运行此宏,ok。 注意默认打印机已设置好。