標題:
[發問]
按鈕無法指定巨集問題
[打印本頁]
作者:
blue2263
時間:
2014-2-16 06:46
標題:
按鈕無法指定巨集問題
程式編寫完後,設定按鈕,指定巨集,指定巨集時,
會出現
"參照來源必須是巨集表"
的錯誤訊息
不知是設定上有問題 ? 還是程式碼有問題 ?
請教高手大大要如何解決! 謝謝感恩
程式碼如下
Dim x
Sub b1()
'
' b1 b
'每月資料整理程序
x = InputBox("年月") '欄位名稱
If Mid(x, 4, 1) = 1 Then
x1 = Mid(x, 4, 2)
Else
x1 = Mid(x, 5, 1)
End If
x2 = x1
x1 = x1 & "月"
x2 = x2 & "月排名"
Call b11
Sheets(x1).Select
Call b12
Sheets(x2).Select
Call b12
MsgBox "新增完成"
End Sub
Sub b11()
'yoy分析資料整理
Application.ScreenUpdating = False '停止螢幕更新以加快速度
Sheets("yoy分析").Select
'x = InputBox("年月") '首欄名稱
y = Cells(1, 1).End(xlToRight).Column '找最後一欄資料
Z = Cells(1, y).End(xlDown).Row '找最後一列資料
Cells(1, y + 1) = x
Range(Cells(2, y), Cells(Z, y)).Copy Range(Cells(2, y + 1), Cells(Z, y + 1))
Range(Cells(2, y), Cells(Z, y)).Copy
Cells(2, y).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '選擇性貼上值
End Sub
Sub b12()
'月排名資料整理
'x = InputBox("年月") '首欄名稱
y = Cells(1, 1).End(xlToRight).Column '找最後一欄資料
Z = Cells(1, y).End(xlDown).Row '找最後一列資料
Cells(1, y + 1) = x
Range(Cells(2, y), Cells(Z, y)).Copy Range(Cells(2, y + 1), Cells(Z, y + 1))
Range(Cells(2, y), Cells(Z, y)).Copy
Cells(2, y).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '選擇性貼上值
End Sub
作者:
Kubi
時間:
2014-2-16 10:49
巨集名稱近似於儲存格的Address將不被允許，請版大修改巨集名稱例如b1改為bb,b11改為cc...等。
作者:
blue2263
時間:
2014-2-16 11:39
原來是這樣!
感謝K大解答
作者:
GBKEE
時間:
2014-2-17 07:03
本帖最後由 GBKEE 於 2014-2-17 07:04 編輯
回復
3#
blue2263
巨集名稱近似於儲存格的Address將不被允許，請版大修改巨集名稱例如b1改為bb,b11改為cc...等。
2003版沒有不被允許,但
Kubi
說的有理,修改巨集名稱避免混淆.
作者:
blue2263
時間:
2014-2-17 10:44
謝謝K大G大幫忙
名稱更改後就沒問題了
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
