[算表] 如何設定巨集

[cal953122 (kaka)]

軟體: 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
→ soyoso: 選這二個程序內其中一個迴圈寫法，判斷worksheet.name是否
→ soyoso: 存在；這二個在判斷也是不盡相同，就看是要like模糊比對或
→ soyoso: 另一個完全符合
→ soyoso: 判斷為真表示已有該工作表時，對話方塊msgbox...:
→ soyoso: worksheet.select，再exit sub
→ soyoso: 沒有就新增該編號為新工作表名稱，則寫在迴圈下方
→ soyoso: 動作上如是以程序新增食庫原料清冊內加上like模糊比對和
→ soyoso: 已存在工作表選取的話 https://i.imgur.com/ROtXb5s.jpg
※ 編輯: cal953122 (223.136.7.145), 07/24/2018 16:19:29
成功了，太謝謝soyoso大
※ 編輯: cal953122 (223.136.7.145), 07/24/2018 16:22:20