Excel VBA 自動有條件地執行

Upstairs 使用單元格事件，這些事件已完成但未完成，如下所示：

private sub worksheet_selectionchange(byval target as range) '單元格事件。

dim i as string

i = cells(7, 4)

if i = "yes" then rows("8:8"). = true '隱藏第 8 行。

if i = "no" then rows("8:8"). = false '顯示第 8 行。

end sub

從sub開始，當然不能，你必須使用事件。

加入 VBA 活動**。

private sub worksheet_selectionchange(byval target as range)

if = 17 then

for i = - 1 to + 1

if cells(i, 2) =mc and cells(i, 17) cells(i, 17). = 3

elsecells(i, 17). = 0end if

nextend if

end sub

將此 VBA** 新增到資料輸入表中，資料將在資料輸入和修改過程中自動更改顏色。 注意：變數 MC 和 SI 需要提前設定。

強烈建議不要在 VBA 的 chang 事件中實現此功能。 因為，每次輸入或者點選乙個單元格都會觸發這個程式，就個人而言是一件很煩人的事情。

建議使用條件格式使清單中當前列中的字型為紅色。 這是本例中最常用的。

如果您有任何疑問，請通過電子郵件傳送問題。

示例已傳送給您，以檢視它是否有效。

假設您的小程式如下所示：

sub test()

msgbox "ok,test!"

end sub

然後你可以新增以下**，點選開啟的工作簿並自動執行上面的小程式sub auto open（）。

testend sub

Excel的VBA模組是用來編寫和儲存巨集的**，Private Sub Workbook Open（ ）這是工作簿開啟事件，當你開啟它時，就會發生該事件，如下圖**執行時會彈出乙個巨集對話方塊---在名稱欄中新增它作為你喜歡的名字---執行。

private sub workbook_open()msgbox "開啟工作簿"

end sub

我應該新增什麼**才能使其自動執行？ 你不需要新增任何東西**，你點選選單欄，點選綠色三角形或f5執行。

VBA 模組需要由可識別的事件觸發才能執行，例如啟用工作表。

沒有辦法這樣做，如果別人把巨集的安全性設定為“高”或者“中”，它會自動阻止VBA執行或者提示是否執行巨集，你不能在**中設定更改巨集的安全性，如果可以在**中設定更改巨集的安全性，那麼excel的巨集安全性就沒有意義了。

將更改事件更改為計算事件以自動執行。

Calculate 是響應公式值更改而執行的事件。

將 Worksheets SelectionChange 過程新增到 VBA 並呼叫 Worksheets Change 函式的內容。 或者嘗試切換到其他表並檢視切換回來。

將程式放入工作表的 calculate 事件中，即在重新計算工作表後生成此事件。

當公式的值發生變化時，即重新計算工作表，計算後執行私有子工作表 calculate（）columns（） 事件"a:f").autofitend sub

沒有辦法這樣做，如果別人把巨集的安全性設定為“高”或者“中”，它會自動阻止VBA執行或者提示是否執行巨集，你不能在**中設定更改巨集的安全性，如果可以在**中設定更改巨集的安全性，那麼excel的巨集安全性就沒有意義了。

sub a()

for i=1 to 200

呼叫巨集 two。

nextend sub

我真的不明白你想要的結果。

您可以在巨集 2 的末尾新增一句話 **。 讓 b1 增加 1

子巨集 two（）。

這是你的**，最後一句話新增如下：

b1]=[b1]+1

end sub

您希望使用者單擊數字調整鍵，巨集 2 將自動執行，對嗎？

使用工作表更改事件，然後呼叫“巨集二”，就可以開始了。

現在數字調整鍵不是來自巨集，而是可以用巨集來控制——巨集 xx 可以控制單元格 B1 的值。

巨集 xx 可以在巨集 2 中呼叫 **。

這個巨集 xx 就是你要連續自動執行 200 次，也就是 b1 的數量連續變化 200 次，巨集 2 也執行 200 次。

首先，一定要在自動開啟或工作簿開啟事件中寫 **。

其次，要確定當前時間，可以使用 minute（now（）），對吧？

最後，儲存它，您可以錄製乙個。

另外，如果不需要寫判決，對吧？