用宏。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub dayin() Dim x, i As Integer x = ExecuteExcel4Macro(“Get.Document(50)”) MsgBox “现在打印奇数页”, vbOKOnly For i = 1 To Int(x / 2) + 1 ActiveSheet.PrintOut From:=2 * i – 1, To:=2 * i – 1 Next i MsgBox “现在打印偶数页”, vbOKOnly For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i Next iEnd Sub在此界面下直接按F5运行此宏,解决问题。
css基本代码,css过渡详解,元素渐变模糊css,网页内浮动的css,css 表格只显示横线,css按钮的背景土坯n,css 随风飘动效果