該巨集可能無法在此活頁簿中使用

Question

該巨集可能無法在此活頁簿中使用

匿名

程式執行就出現此錯誤

已經把Office重新安裝 64位元32位元都安裝過了

信任中心基本也都開啟了

還是無法

爬文有爬到一篇說出現此錯誤可能是程式有問題?

不知道是我程式還是有辦法哪裡解決

鎖定的問題。此問題已從 Microsoft 支援服務社群移轉。您可以對其是否有幫助進行投票，但無法對問題新增註解或回覆，或進行追蹤。

0 則留言

9 個回答

Answer 1

匿名

請把發生錯誤時，VBA IDE 畫面會呈現錯誤，那個畫面跟程式碼標記為黃色的那個畫面貼上來。

0 則留言

Answer 2

您好心冷大大

Dim timerEndTime As Double

Private Sub CommandButton1_Click()

If Range("B1").Value = "未啟動" Then 

    StartRobot 

ElseIf Range("B1").Value = "已啟動" Then 

    EndRobot 

End If

End Sub

Sub StartRobot()

Range("B1").Value = "已啟動" 

CommandButton1.Caption = "機器人已啟動" 

' 設定定時器結束時間 

timerEndTime = Now + TimeValue("00:00:03") 

' 啟動定時器 

StartTimer

End Sub

Sub EndRobot()

Range("B1").Value = "未啟動" 

CommandButton1.Caption = "機器人未啟動" 

' 傳送"程式結束"的訊息視窗 

MsgBox "程式結束" 

' 取消定時器 

On Error Resume Next 

Application.OnTime timerEndTime, "UpdateStatus", , False 

On Error GoTo 0

End Sub

Sub StartTimer()

' 定時器 

Application.OnTime timerEndTime, "UpdateStatus", , True

End Sub

Sub UpdateStatus()

If Range("B3").Value = Range("B4").Value Then 

    ' 如果是，把B2的值用訊息視窗告知 

    MsgBox "B2的值是：" & Range("B2").Value 

    ' 重新設定定時器結束時間 

    timerEndTime = Now + TimeValue("00:00:03") 

    ' 繼續定時器 

    StartTimer 

Else 

    ' 如果不是，繼續等待 

    timerEndTime = Now + TimeValue("00:00:03") 

    ' 繼續定時器 

    StartTimer 

End If

End Sub

我是想讓他寫一個LINE notify 機器人

按鈕按下去的時候每秒會檢查B3=B4

如果是傳B2的值給機器人,並且1分鐘如果再次相等,不重複傳送訊息

然後再次按下的時候結束程式

但好像在呼叫UpdateStatus() 的時候那邊出錯

所以我就把程式慢慢減少到現在這樣

但還是不知道是哪裡出了問題

Answer 3

匿名

chatgpt 上面的答案通常不精確，請把畫面貼上來，包含程式碼。

0 則留言

Answer 4

匿名

您好 Y大

旁邊有office更新我按下去他顯示已經是最新版本

本身不會寫程式

程式是chatgpt上面來的

所以有沒有錯誤我也不太清楚

還是我要把程式碼貼上來呢?

0 則留言

Answer 5

您好，Baron1997

您的Excel是什麼版本呢？有可能您使用的巨集在最新版的Office上才能使用。您的巨集是從哪裡獲得的？是您自己編寫的？還是在哪裡看到的？

另外，您有檢查過巨集程式碼嗎？裡面有沒有什麼錯誤或不支援的語法？

Yuhao Li

Microsoft社群技術支援