如何在Excel中根據(jù)單元格值運行宏?

      網(wǎng)友投稿 475 2025-04-02

       如何在Excel中根據(jù)單元格值運行宏?

      假設我的工作簿中有多個宏代碼,現(xiàn)在,我想基于單元格值運行這些代碼。 本文,我將討論在使用Excel的日常工作中可能遇到的幾種情況。


      如果單元格值大于或小于VBA代碼中的特定值,則運行或觸發(fā)宏

      如果單元格值等于帶有VBA代碼的特定文本,則運行或觸發(fā)宏

      如果單元格值大于或小于VBA代碼中的特定值,則運行或觸發(fā)宏

      例如,如果單元格A1中的值在10到50之間,請運行macro1,如果該值大于50,則運行macro2。 要在Excel中解決此任務,請應用以下VBA代碼。

      1。 右鍵單擊要基于單元格值執(zhí)行宏的工作表選項卡,然后選擇 查看代碼 從上下文菜單中,然后在打開的 適用于應用程序的Microsoft Visual Basic 窗口,將以下代碼復制并粘貼到空白模塊中:

      如何在Excel中根據(jù)單元格值運行宏?

      VBA代碼:如果單元格值大于或小于以下,則運行宏:

      Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$A$1" Then Select Case Target.Value Case 10 To 50: Macro1 Case Is > 50: Macro2 End Select End If End Sub
      Copy

      備注:在上面的代碼中:

      A1 是包含要基于其運行宏的特定值的單元格;

      情況10至50:Macro1:表示該值在10到50之間,運行Macro1;

      案例> 50:Macro2:這意味著如果該值大于50,請運行Macro2。

      請根據(jù)需要更改這些宏名稱和條件,并且您還可以在 案例 腳本。

      2。 然后保存并關閉此代碼窗口,現(xiàn)在,當您在單元格A10中輸入的值介于50到1之間時,將觸發(fā)Macro1,如果輸入的值大于50,則將執(zhí)行Macro2。

      如果單元格值等于帶有VBA代碼的特定文本,則運行或觸發(fā)宏

      例如,如果要基于單元格中的特定文本觸發(fā)宏,則在輸入文本“ Delete”的情況下運行macro1,而在鍵入文本“ Insert”的情況下運行macro2。 以下代碼可以幫您一個忙。

      1。 右鍵單擊要基于單元格值執(zhí)行宏的工作表,然后選擇 查看代碼 從上下文菜單中,然后在打開的 適用于應用程序的Microsoft Visual Basic 窗口,將以下代碼復制并粘貼到空白模塊中:

      VBA 代碼:如果單元格值是特定文本,則運行宏

      Sub worksheet_change(ByVal target As Range) Set target = Range("A1") If target.Value = "Delete" Then Call Macro1 End If If target.Value = "Insert" Then Call Macro2 End If End Sub
      Copy

      備注:在上面的代碼中,“刪除“和”插頁”是您要基于其運行宏的單元格文本,并且 Macro1 Macro2 是您要基于文本執(zhí)行的宏。 請根據(jù)需要更改它們。

      2。 然后保存此代碼并關閉窗口,現(xiàn)在,當在單元格A1中輸入文本“ Delete”時,將觸發(fā)macro1,如果輸入文本“ Insert”,則將執(zhí)行macro2。

      相關文章:

      Excel中單元格值更改時如何運行宏?

      如何在Excel中打印之前自動運行宏?

      如何基于從Excel的下拉列表中選擇的值運行宏?

      如何通過單擊Excel中的超鏈接運行宏?

      從工作簿中選擇工作表時如何運行宏?

      最佳辦公生產(chǎn)力工具

      將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

      準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel!

      為什么需要 Kutools for Excel

      ???  超過 300 項強大功能: Kutools 包含 300 多項高級功能,可簡化您在 1500 多種場景中的工作。

      ??  卓越的數(shù)據(jù)處理能力:合并單元格、刪除重復項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力!

      ??  高效的批量操作:當你可以聰明地工作時,為什么還要付出額外的努力呢? 輕松批量導入、導出、組合和調(diào)整數(shù)據(jù)。

      ??  可定制的圖表和報告:訪問各種附加圖表并生成富有洞察力的報告。

      ???  強大的導航窗格:通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。

      ??  七種類型的下拉列表:通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。

      ??  用戶友好:對于初學者來說輕而易舉,對于專家來說是一個強大的工具。

      立即下載,與 Excel 一起穿越時空!

      閱讀更多 免費下載... 采購... 
      Office Tab 為 Office 帶來選項卡式界面,讓您的工作更輕松
      在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發(fā)布者,Access,Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。 每天將您的工作效率提高50%,并減少數(shù)百次鼠標單擊!
      閱讀更多 免費下載... 采購... 

      版權(quán)聲明:本文內(nèi)容由網(wǎng)絡用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容,請聯(lián)系我們jiasou666@gmail.com 處理,核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

      版權(quán)聲明:本文內(nèi)容由網(wǎng)絡用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容,請聯(lián)系我們jiasou666@gmail.com 處理,核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

      上一篇:翻譯rfc2616 Http狀態(tài)碼規(guī)范
      下一篇:關于中級經(jīng)濟師統(tǒng)計報表模板的信息
      相關文章
      亚洲高清国产拍精品青青草原| 亚洲精品色播一区二区| 亚洲AV无码一区二区大桥未久| 亚洲黄色免费电影| 国产亚洲综合久久系列| 亚洲中文字幕无码爆乳AV| 亚洲成av人片一区二区三区| 久久亚洲AV成人无码国产电影 | 亚洲国产精久久久久久久| 久久亚洲国产欧洲精品一| 亚洲阿v天堂在线| 亚洲国产精品无码久久一区二区 | 77777午夜亚洲| 国产亚洲精品VA片在线播放| 亚洲а∨天堂久久精品9966| 亚洲日韩一中文字暮| 国产亚洲精品成人AA片| 亚洲色大网站WWW永久网站| 亚洲欧美日韩中文字幕在线一区| 2020国产精品亚洲综合网| 国产亚洲精aa在线看| 亚洲日韩国产欧美一区二区三区| 亚洲欧美成人一区二区三区| 亚洲av无码成人精品国产| 国产精品亚洲а∨无码播放不卡| 亚洲欧洲中文日韩久久AV乱码| 国产精品亚洲高清一区二区| 亚洲欧洲日产国码无码网站| 亚洲AV无码成人精品区天堂| 亚洲综合激情视频| 亚洲一区二区免费视频| 亚洲人成色在线观看| 朝桐光亚洲专区在线中文字幕| 亚洲国产午夜福利在线播放| 亚洲伊人久久大香线蕉综合图片 | 亚洲色成人四虎在线观看| 亚洲1区2区3区精华液| 亚洲精品一级无码中文字幕| 亚洲国产精品SSS在线观看AV| 久久久无码精品亚洲日韩按摩| 亚洲同性男gay网站在线观看|