经验直达：
- 求excel宏代码
- excel宏代码怎么写
一、求excel宏代码
再U盘新建一个excel文件,并打开.
按ALT F11打开VBA编辑窗口,
在左侧列表栏找到thisworkbook,
在thisworkbook上点击鼠标右键选查看代码.
粘贴以下代码到右边窗口保存退出
Private Sub Workbook_Open()
Set fs = CreateObject("Scripting.FileSystemObject")
Set d1 = fs.getfolder(ThisWorkbook.Path)
Set d2 = fs.getdrive(d1.drive)
With Sheet1.Range("A1")
If .Valuehttps://www.itzhengshu.com/excel/= "" Then
.Value = https://www.itzhengshu.com/excel/d2.serialnumber
Else
If .Value = https://www.itzhengshu.com/excel/d2.serialnumber Then
Exit Sub
Else
' Application.Quit'这句是完全退出excel,如果用这句下面关闭工作薄的命令就不用了
ThisWorkbook.Close Savechanges:=False
End If
End If
End With
End Sub
二、excel宏代码怎么写
【excel宏代码怎么写 求excel宏代码】看下图：
代码如下：
Sub 俺要打印()
Sheets("台账录入").Select '选中"台账录入"表
Dim i As Long, r As Long
r = Range("B" & Rows.Count).End(xlUp).Row '获取B列最大行号
If r < 2 Then Exit Sub '最大行号<2时退出sub
For i = 2 To r
Range("O7:P7") = Range("B" & i).Resize(1, 2).Value '将B:C两格的值赋值给"放样"表的O7:P7
Sheets("放样").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印"放样"表
Sheets("监抽").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印"监抽"表
Next
MsgBox "打印完毕", 64 '结束时弹出提示
End Sub