0

我在用户表单后面有以下代码

Private Sub add_button()
    On Error Resume Next
     If TextBox1 > TextBox9 Then
         TextBox12 = "YES"
     Else
         TextBox12 = "No"
         If TextBox8 > TextBox3 And TextBox8 < TextBox4 Then
            TextBox11 = "YES"
         Else
            TextBox11 = "no"
            If TextBox12 = "NO" Then
                TextBox10 = "NO"
            ElseIf TextBox11 = "NO" Then
                TextBox10 = "NO"
            Else
                TextBox10 = "YES"
            End If
         End If
     End If
End Sub

上面的代码不起作用：请就可能的错误提出建议。

4

2 回答 2

1

一些事情，

  1. 删除错误处理，然后您将知道执行中是否存在问题，如 Siddharth 的评论
  2. 平衡文本格式/案例的左右比较作为拉里的评论
  3. 使用适当的属性来获取设定值。在你的情况下Textbox.Text
  4. F8通过按下并添加在调试模式下运行代码break points
  5. Do Debug.Printor a Msgboxat eachif-else确保逻辑流程
  6. 在社区尽最大努力帮助您解决问题时回复评论。

这是您可以对代码进行的更改。此时您已经设置了两个逻辑12，11在NO这种情况下，没有必要进行此检查：

 If TextBox12 = "NO" Then 
     TextBox10 = "NO" 
 ElseIf TextBox11 = "NO" Then 
     TextBox10 = "NO"

你可以简单地设置Textbox10.Text = "NO"

于 2013-01-24T06:26:45.163 回答
0

请您检查脚本的实际条件是否有效，因为我有点不确定这些条件对文本的效果如何。只需复制所有现有代码并复制以下内容作为测试：

Private Sub add_button()
    If TextBox1 > TextBox9 Then
        MsgBox "TextBox1 > TextBox9 "
    Else
        MsgBox "TextBox1 < TextBox9 "
        If TextBox8 > TextBox3 And TextBox8 < TextBox4 Then
            MsgBox "TextBox8 > TextBox3 And TextBox8 < TextBox4 "
        End
    End If
End Sub
于 2013-01-24T08:44:47.320 回答