作者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