这个问题在这里已有答案：
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sub changeto1quickly()
range("C1").Value = 1
sleep(1)
("C1").Value= 0
End sub
上面的工作是将C1更改为1然后暂停它然后将其恢复为0所以现在我需要在偏移包含引用的列中聚合它
我需要能够更改包含特定单词的列左侧的单元格的值 . 例如在COLUMNS C 和 D 中，因此B列中具有Dim的每个cel都需要运行上面的sub来快速将零更改为1 .
B D E
1 dim 0
dim 0
car 0
car 0
dim 0
car 0
我需要能够制作一个VBA公式，如果你把它拖下来，如果公式可以做的话，几乎可以做任何excel . 我在这里找到了这个：http://www.quepublishing.com/articles/article.aspx?p=2021718&seqNum=8 Suppose you have a list of produce in column A with totals next to them in column B. If you want to find any total equal to zero and place LOW in the cell next to it, do this ：
Set Rng = Range("B1:B16").Find(What:="0", LookAt:=xlWhole, LookIn:=xlValues)
Rng.Offset(, 1).Value = "LOW"
虽然我需要它稍微不同，但不是指从A中的A列或B列，而是指不相邻的列 . 即检查是D：D有Dim然后在C列中的任何单元格中放置1：C偏移到coumn D：D当然可以根据我的需要进行调整 . 也许..
作为一个子
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sub pump_onall()
Set Rng = Range("B1:B16").Find(What:="Dim", LookAt:=xlWhole, LookIn:=xlValues)
Rng.Offset(3, 0).Value = 1
sleep(1)
Rng.Offset(3,0).Value = 0
End sub
我在设置的Rng行上得到了错误
Sub pump_onall()
Set Rng = Sheets("Account Details --->").Range("DH1:DH50").Value.Find(What:="DQ3", LookAt:=xlWhole, LookIn:=xlValues)
Rng.Offset(0, -7).Value = 1
Sleep (1)
Rng.Offset(0, -7).Value = 0
End Sub
当然这可行
Sub pump_onall()
Sheets("Account Details --->").Range("DH1:DH50").Value.Find(What:="DQ3", LookAt:=xlWhole, LookIn:=xlValues)
Sheets("Account Details --->").Range("DH1:DH50").Offset(0, -7).Value = 1
Sleep (1)
Sheets("Account Details --->").Range("DH1:DH50").Offset(0, -7).Value = 0
End Sub
the error I get is error 9 subscript out of range
1 回答
Sleep函数允许您这样做：