Question

VBA中如何添加按钮让其点击一次循环一次

Sub tt()
Dim x as Long
x = x + 1
If x>=10 Then x=1
If Cells(x, 1)<>"" Then Cells(x+1, 1)="完成"
End Sub

设置一个按钮 点击一下 如果A1不为空 A2就变成完成 再点击一下 A3等于完成
但是当X=4的时候 如果A2等于空 依然会执行A4等于完成
如何让他能按顺序来每点击一次完成一个单元格呢？

Answer 1

首先要定义的是全程变量而不是局部变量。
戳我头像，一切都会有的。 所得取决于所付出的。
其次，你要说清楚究竟想要干啥。初始是什么，点一次后是什么，再点一次后是什么。

Answer 2

Sub tt()
    Dim x as Long
    x = Cells(Rows.Count,1).End(xlUp).Row + 1
    Cells(x, 1)="完成"
End Sub

Answer 3

int inthestr(char *s,char ch)
{
while(*s!='\0'){
if(*s==ch)
return 1;
s++;
}
return 0;
}