[算表] 如何設定巨集
軟體: 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
→
07/24 15:54,
7年前
, 1F
07/24 15:54, 1F
→
07/24 15:55,
7年前
, 2F
07/24 15:55, 2F
→
07/24 15:56,
7年前
, 3F
07/24 15:56, 3F
→
07/24 15:59,
7年前
, 4F
07/24 15:59, 4F
→
07/24 16:00,
7年前
, 5F
07/24 16:00, 5F
→
07/24 16:01,
7年前
, 6F
07/24 16:01, 6F
→
07/24 16:09,
7年前
, 7F
07/24 16:09, 7F
→
07/24 16:09,
7年前
, 8F
07/24 16:09, 8F
※ 編輯: cal953122 (223.136.7.145), 07/24/2018 16:19:29
成功了，太謝謝soyoso大
※ 編輯: cal953122 (223.136.7.145), 07/24/2018 16:22:20
Office 近期熱門文章
PTT數位生活區 即時熱門文章