求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 .Value = "" Then
.Value = d2.serialnumber
Else
If .Value = d2.serialnumber Then
Exit Sub
Else
' Application.Quit '这句是完全退出excel,如果用这句下面关闭工作薄的命令就不用了
ThisWorkbook.Close Savechanges:=False
End If
End If
End With
End Sub

二、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