EXCEL中条件VBA函数
答案:3 悬赏:40 手机版
解决时间 2021-01-15 05:34
- 提问者网友：寂寞梧桐
- 2021-01-14 05:58
EXCEL中条件VBA函数
最佳答案
- 五星知识达人网友：玩世
- 2021-01-14 07:38
Sub chushih()
Set sht = ActiveSheet
Do While sht.Range("f6") <> 0 Or sht.Range("f7") <> 0 Or sht.Range("f8") <> 0
Application.Calculation = xlCalculationAutomatic
sht.Range("b6:b8").Calculate
Loop
Application.Calculation = xlCalculationManual
End Sub
Set sht = ActiveSheet
Do While sht.Range("f6") <> 0 Or sht.Range("f7") <> 0 Or sht.Range("f8") <> 0
Application.Calculation = xlCalculationAutomatic
sht.Range("b6:b8").Calculate
Loop
Application.Calculation = xlCalculationManual
End Sub
全部回答
- 1楼网友：琴狂剑也妄
- 2021-01-14 09:01
看不出这种操作的意义啊
- 2楼网友：有你哪都是故乡
- 2021-01-14 07:54
Function fls()
Do
DoEvents
Cells(1, 1) = Cells(1, 1)
Loop Until Cells(6, 6) = 0 And Cells(7, 6) = 0 And Cells(8, 6) = 0
End Function
Do
DoEvents
Cells(1, 1) = Cells(1, 1)
Loop Until Cells(6, 6) = 0 And Cells(7, 6) = 0 And Cells(8, 6) = 0
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯