2024年4月29日发(作者：)

VB自动生成配料单的程序(1)

Sub 创建工作表()

MsgBox ("如果删除了工作表，请先保存、关闭后再打开进行创建，不然序号对不上。")

Dim i As Integer, count As Integer

Dim vinput

count =

vinput = InputBox("请输入要创建到的工作表数目：")

For i = count To vinput - 1

After:=Worksheets(i)

Next i

End Sub

Sub 帮助()

MsgBox ("如有疑问，联系:626394844.")

End Sub

Sub 删除工作表()

Dim i As Integer, count As Integer, m As Integer

count =

n = InputBox("请输入要删除的开始工作表序号")

m = InputBox("请输入要删除的结束的工作表序号")

For i = m To n Step -1

MsgBox ("这是第" & i & "个工作表")

Worksheets(i).Select

Worksheets(i).Delete

Next i

End Sub

Sub 复制工作表()

MsgBox ("请先复制要粘贴的工作表Ctrl+A,Ctrl+C")

Dim i As Integer, n As Integer, m As Integer

n = InputBox("输入开始粘贴的工作表的序号")

m = InputBox("输入结束粘贴的工作表的序号")

For i = n To m

Worksheets(i).Select

Worksheets(i).Paste

Next i

End Sub

Sub 改变搅拌机编号()

Dim i As Integer, n As Integer, m As Integer

Dim s As String

n = InputBox("输入开始改变搅拌机编号工作表的序号")

m = InputBox("输入结束改变搅拌机编号工作表的序号")

s = InputBox("输入搅拌机的编号")

For i = n To m

Worksheets(i).Select

(What:="搅拌机编号", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, MatchByte:=False, SearchFormat:=False).Activate

Range("F4:Y4").Select

aR1C1 = s

Next i

End Sub

Sub 改变生产班组()

Dim i As Integer, n As Integer, m As Integer

Dim s As String

n = InputBox("输入开始改变生产班组工作表的序号")

m = InputBox("输入结束改变生产班组工作表的序号")

s = InputBox("输入生产班组")

For i = n To m

Worksheets(i).Select

(What:="生产班组", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, MatchByte:=False, SearchFormat:=False).Activate

Range("F6:Y6").Select

aR1C1 = s

Next i

End Sub

Sub 通知单号()

Dim i As Integer, n As Integer, m As Integer

Dim s As String

n = InputBox("输入开始改变通知单号工作表的序号")

m = InputBox("输入结束改变通知单号工作表的序号")

s = InputBox("输入通知单号的的字母部分")

For i = n To m

Worksheets(i).Select

(What:="通知单号", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, MatchByte:=False, SearchFormat:=False).Activate

Range("AE3:AX3").Select

If i < 10 Then

aR1C1 = s & "00" & i

ElseIf i >= 10 And i < 100 Then

aR1C1 = s & "0" & i

ElseIf i > 99 Then

aR1C1 = s & i

End If

Next i

End Sub