excel如何自動執行vba程序-tft每日頭條

首页

每日頭條

生活

excel如何自動執行vba程序

更新时间：2026-01-11 07:08:00

錄入過程中，為了反複錄入符号“√”，讓不少人心煩。

excel如何自動執行vba程序（ExcelVBA自動錄入一個）1

解決的辦法可以使用數據有效性，也可以使用VBA，方法很簡單。

假如I列要輸入“是否三好學生”，如果是，錄入一個“√”，因為第1、2行為标題行，從第3行開始，點擊鼠标，顯示一個“√”。

鼠标右鍵點擊工作表标簽，選擇“查看代碼”，将如下代碼粘貼到光标處：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
For Each Rng In Target
If Rng.Row > 2 And Rng.Column = 9 Then '如果單元格行号大于2 并且列号等于9 (I列)
Rng = IIf(Rng = "√", "", "√") '如果這個單元格原來是"√"，改為空，否則，輸入"√"
End If
Next
Application.EnableEvents = True
End Sub

返回工作表，即可使用該功能。

Comments

Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.

Show More Comments

推荐阅读

1975年出生能趕上延遲退休嗎

“好幸運，沒想到我竟然能夠正點退休，延遲退休，嚷嚷了這麼多年，搞得我心神難甯，這次沒趕上，可真是太開心了！”一位領到養老金的大姐，滿心歡喜。看她溢出來的幸福感，可以看出延遲退休4個字，多數人看到了還是會心懷忐忑。如今再提延遲退休已經不是新鮮...

2026-01-11

曬幹的金銀花可以放冰箱嗎

曬幹的金銀花可以放冰箱嗎?曬幹的金銀花可以放冰箱冰箱保存法：将金銀花分小袋裝好然後将金銀花放在玻璃罐内再将玻璃罐密封好，表面套上一個塑料袋最後放在冰箱冷藏層中冷藏在取出金銀花時，最好是讓罐内的溫度回升至室溫再打開，下面我們就來說一說關于曬幹...

2026-01-11

23款菲斯塔nline空間

或許是“年輕人”三個字太讓人上頭，這個躁動的汽車市場，太多牌子将用戶畫像定在20出頭的年輕人身上。可問題是，它們嘴上說年輕化，腦子裡還是30甚至40的觀念，造的車就像中年人穿潮牌，怎麼看怎麼别扭。用上帝視角去理解“年輕”往往錯位，想打進年輕...

2026-01-11

保持饑餓感的好處

保持饑餓感的好處?适度饑餓感，有助于更好地控制血糖,吃得少而精可以活得更長,适度饑餓有助于強化免疫功能，接下來我們就來聊聊關于保持饑餓感的好處?以下内容大家不妨參考一二希望能幫到您!保持饑餓感的好處适度饑餓感，有助于更好地控制血糖,吃得少而...

2026-01-11

乳腺增生應避免吃哪些食物

乳腺增生是女性常見的乳腺疾病，乳房疼痛和腫塊是其主要症狀。90%的乳腺增生屬于良性的，一側或兩側乳房脹痛，輕者如同針刺樣疼痛，往往會累積到肩膀、上肢以及胸背部，月經來潮前疼痛較明顯，月經幹淨後疼痛減輕或消失。乳腺增生并不是無緣無故産生的，跟...