作者cal953122 (kaka)
看板Office
标题[算表] 如何设定巨集
时间Tue Jul 24 15:39:58 2018
软体: excel
版本:2010
想合并这两个按扭功能
让按一次按件就能完成下面的作业
→先确认以特定原料编号为名称的工作页存不存在
→有在就跑出对话方块提醒存在，再自动跳到该分页
→没有就新增以该编号为名字的新工作页
不知道该怎麽合并
希望有高手可以帮忙
谢谢
-------------------------------------
sub 仓库原料搜寻
name = InputBox("请输入原料编号")
For i To Sheets.Count
If Sheets (i).name Like "*" & name & "*" Then
Sheets.(I).select: Exit For
End If
Next
End sub
-------------------------------------
sub 新增仓库原料清册
Dim name As String
Dim Sh As Worksheet
name = InputBox("请输入需要建立新分页的原料代码)
If name = " " Then Exit Sub
For Each Sh In sheets
If Sh.name = name Then
MsgBox"已存在该号的工作页"
Exit Sub
End If
Next
Worksheets("清单格式").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.C
Sheets(Sheets.Count).name = name
End
End Sub
-------------------------------------
※ 编辑: cal953122 (223.136.7.145), 07/24/2018 15:42:45
1F：→ soyoso: 选这二个程序内其中一个回圈写法，判断worksheet.name是否07/24 15:54
2F：→ soyoso: 存在；这二个在判断也是不尽相同，就看是要like模糊比对或07/24 15:55
3F：→ soyoso: 另一个完全符合07/24 15:56
4F：→ soyoso: 判断为真表示已有该工作表时，对话方块msgbox...:07/24 15:59
5F：→ soyoso: worksheet.select，再exit sub07/24 16:00
6F：→ soyoso: 没有就新增该编号为新工作表名称，则写在回圈下方07/24 16:01
7F：→ soyoso: 动作上如是以程序新增食库原料清册内加上like模糊比对和07/24 16:09
※ 编辑: cal953122 (223.136.7.145), 07/24/2018 16:19:29
成功了，太谢谢soyoso大
※ 编辑: cal953122 (223.136.7.145), 07/24/2018 16:22:20