❶ 大師請幫忙,我想讓宏1每分鍾自己運行一次,每分鍾都運行一次宏1
Private Sub AutoRun()
Dim NewTime
NewTime = Now + TimeValue("00:01:00")
' ThisWorkbook.Save
' 此處可以有代碼
Application.OnTime NewTime, "ThisWorkbook.AutoRun"End Sub
利用Application.OnTime程序調用自身,Application.OnTime NewTime, "ThisWorkbook.AutoRun",
每1分鍾調用一下本程序,運行的時候又設定1分鍾後執行本程序,形成循環,
❷ Excel使用VBA宏循環一列的所有數據到下一列
Sub aaa()
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = "張" And Cells(i, 2) = 1 Then Cells(i, 3) = "a"
Next
End Sub
如果要判斷B列是否為"空",可用函數 IsEmpty (Cells(i, 2)) ,當Cells(i,2)沒有任何值時為"真"