Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 查找单元格，创建活动单元格并重复_Vba_Excel - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba 查找单元格，创建活动单元格并重复

Vba 查找单元格，创建活动单元格并重复

vba excel

Vba 查找单元格，创建活动单元格并重复,vba,excel,Vba,Excel,我有一个简单的代码可以在启动时运行，它工作得很好，只是我需要它使当前创建的单元格使用“true”语句ActiveCell，并对该ActiveCell运行“Call”，然后移动到下一个“true”查找并使该ActiveCell重复该过程 For Each c In sheet1.Range("AU5:AU1000") If c.value = True Then Call startup.VALUES End If Next c

我有一个简单的代码可以在启动时运行，它工作得很好，只是我需要它使当前创建的单元格使用“true”语句
ActiveCell
，并对该
ActiveCell
运行“Call”，然后移动到下一个“true”查找并使该
ActiveCell
重复该过程

For Each c In sheet1.Range("AU5:AU1000")     
    If c.value = True Then     
        Call startup.VALUES    
    End If    
Next c
问题是它找到了所有的“真”值，但在当前的
ActiveCell上重复这个过程
如果“真”是单元格的值，您是否试图将“真”发送到子“启动”中


Dim rng As  Range, c As Range

Set rng =  Worksheets("Sheet1").Range("AU5:AU1000")

For Each c in rng
    If c.value = True Then 
     valToSend = c.value
    Call startup(valToSend)
 End If 
Next c



我不能测试这个，因为我在打电话
 您的代码驻留在哪里？它是在某个事件处理程序中还是在标准模块中？请同时共享您的其他模块
startup.VALUES
。他们在同一单元吗？其中一个是否驻留在工作表模块中？如果您能提供帮助，我将执行其余操作：对于sheet1.Range（“AU5:AU1000”）中的每个c，如果c.value=True，则“此处的某个值将偏移“True”旁边的单元格，并假设在此处输入一个“1”值，如果接下来需要一些新代码来查找和选择单元格，感谢您尝试您的代码驻留在哪里？它是在某个事件处理程序中还是在标准模块中？“下一步”是什么意思？