2,463
社区成员
发帖
与我相关
我的任务
分享
Sub SetV1(int value)
If value=1
'做你的操作
'v1=0
Else
v1=value
End If
End Sub
Private Sub Text4_Change()
Dim i As Long
If Text4.Text <> "1" Then Exit Sub
For i = 0 To 2
Text1(i) = Text1(i + 1)
Text2(i) = Text2(i + 1)
Text3(i) = Text3(i + 1)
Next i
Text1(3) = NewValue1
Text2(3) = NewValue2
Text3(3) = NewValue3
End Sub