京寵展信息指南
801
2025-03-31
如何在Excel中每X分鐘重復(fù)或循環(huán)一次宏？
如何在Excel中每X分鐘重復(fù)或循環(huán)一次宏？
在使用Microsoft Excel時(shí)，您可能需要?jiǎng)?chuàng)建宏以實(shí)現(xiàn)某些操作。 例如，您要?jiǎng)?chuàng)建一個(gè)宏以自動(dòng)將一系列數(shù)據(jù)復(fù)制到新位置。 由于數(shù)據(jù)將經(jīng)常更改，因此您需要此宏每5分鐘自動(dòng)運(yùn)行一次，而無(wú)需手動(dòng)觸發(fā)它以同步這兩個(gè)數(shù)據(jù)范圍。 如何實(shí)現(xiàn)呢？ 本文中的方法可以為您提供幫助。
每隔X分鐘在Excel中重復(fù)或循環(huán)一次宏
每隔X分鐘在Excel中重復(fù)或循環(huán)一次宏下面的VBA代碼可以幫助您每隔X分鐘在Excel中重復(fù)一次宏。 請(qǐng)執(zhí)行以下操作。
1。 按 其他 + F11 按鍵同時(shí)打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。
2.在 Microsoft Visual Basic應(yīng)用程序 窗口，請(qǐng)點(diǎn)擊 插頁(yè) > 模塊。 然后將以下VBA代碼復(fù)制并粘貼到 代碼 窗口。 看截圖：
VBA代碼：在Excel中每X分鐘重復(fù)或循環(huán)一次宏
Sub ReRunMacro()
Dim xMin As String
Insert your code here
xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
If xMin = "Exit" Then
SaveSetting "Kutools", "Macro", "min", "False"
Exit Sub
End If
If (xMin = "") Or (xMin = "False") Then
xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
SaveSetting "Kutools", "Macro", "min", xMin
End If
If (xMin <> "") And (xMin <> "False") Then
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Else
Exit Sub
End If
End Sub
Copy
備注：在代碼中，請(qǐng)?zhí)鎿Q此行 在這里插入您的代碼 使用代碼，您將每X分鐘運(yùn)行一次。
3。 按 F5 鍵來(lái)運(yùn)行代碼。 在彈出 Kutools for Excel 對(duì)話(huà)框，請(qǐng)輸入您要重復(fù)執(zhí)行宏的間隔時(shí)間，然后單擊 OK 按鈕。 看截圖：
從現(xiàn)在開(kāi)始，某個(gè)宏將在您的工作簿中每5分鐘重復(fù)運(yùn)行一次。
備注：如果您需要停止執(zhí)行宏并更改周期間隔，請(qǐng)復(fù)制以下VBA代碼到同一宏中 模塊 窗口，然后按 F5 鍵來(lái)運(yùn)行代碼。 然后宏將停止，請(qǐng)重新運(yùn)行上面的代碼以指定新的間隔。
VBA代碼：停止執(zhí)行宏
Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub
Copy
Office Tab -Excel中的工作簿的選項(xiàng)卡式瀏覽，編輯和管理：
Office Tab 將在Web瀏覽器（如Google Chrome，Internet Explorer新版本和Firefox）中看到的選項(xiàng)卡式界面引入Microsoft Excel。 這將是一種節(jié)省時(shí)間的工具，并且在您的工作中不可替代。 參見(jiàn)下面的演示：
點(diǎn)擊免費(fèi)試用 Office Tab!
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專(zhuān)業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過(guò) 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪(fǎng)問(wèn)各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過(guò)強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類(lèi)型的下拉列表：通過(guò)各種功能和類(lèi)型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶(hù)友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專(zhuān)家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開(kāi)并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
