excel - 做直到循环。满足一个或另一个条件

标签 excel vba windows

我正在尝试创建一个循环,让 Excel 告诉基于 DOS 的系统搜索条件。如果它找不到条件,我就会陷入无限循环。我发现很多情况下,循环会一直持续到满足条件为止。但是有没有办法让它运行直到满足条件或整数达到一个点?我对 VBA 很陌生,所以请轻视我的知识匮乏。

我已经尝试了几个单一条件指南,并为傻瓜购买了 VBA,(帮助不大)

Sub Test ()
    DOS.readscreen StrLoop 3, 1, 4  

    Do Until StrLoop = "TXT"

    Loop
End Sub

我希望有一个整数计数到某个点,如果它达到一个点就退出循环。我只是不确定该怎么做。

最佳答案

Dim StrLoop as string, i as long

Do
    DOS.readscreen StrLoop 3, 1, 4
    i = i + 1
Loop Until StrLoop = "TXT" or i = 1000

关于excel - 做直到循环。满足一个或另一个条件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55922881/

相关文章:

vba - 有没有办法通过VBA调整Excel图表中LegendEntries(系列)的顺序?

c# - 从 C# 中的列向 Excel 中的标记添加标签

vba - 用Word宏实现自增

json - 在 VBA 中返回空 JSON 引发类型不匹配错误

css - Windows 8 - 使用图像作为背景

c - 将文件列表附加到二进制文件

vba - 宏未显示在运行宏菜单中

vba - Excel VBA : How to Loop Through Workbooks in Same Folder using Given Code?

VBA - 错误 1004 - 方法类的 CopyPicture 失败

PHP SVN 更新 - TortoiseSVN