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. ロジック フローを確実にするために、それぞれに実行Debug.Printまたは実行します。Msgboxif-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 に答える