خطا در بلوک If

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Juliet

    • 2014/06/17
    • 47
    • 61.00
    #1

    خطا در بلوک If

    درود دوستان
    این خلاصه ای از کد پشت Text Box منه، اما به محض فشردن هر کلیدی (Key Down) روی سطری که قرمز کردم خطا میده متن خطاش هم اینه:

    چرا باید رو این سطر این خطا رو بده؟
    Compile Error
    End If without block If
    کد:
    Private Sub tb_Code_e_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If (KeyCode = 13) Then
        
        For i = 2 To 294
            If (Worksheets(1).Cells(i, 1) = tb_Code_s.Text) Then
                If (Cells(3, 1) = "") Then
                    Row_Num = 3
                End If
                Do
                    Cells(...
                    Cells(...
                    Cells(...
                    Cells(...                
                    i = i + 1
                While (Worksheets(1).Cells(i, 1) = tb_Code_e.Text)
                    
[SIZE=4] [B][COLOR=#b22222]       End If[/COLOR][/B][/SIZE]
        Next i
        
        tb_Code_s = ""
        tb_Code_e = ""
    End If
End Sub
    Last edited by Juliet; 2014/06/23, 17:09.
    [CENTER][COLOR=#006400]«زمانيکه با زمانه خويش نساختي و با [/COLOR][COLOR=#b22222][B]مسندنشينان[/B][/COLOR][COLOR=#006400] و [/COLOR][B][COLOR=#b22222]امربران[/COLOR][/B][COLOR=#006400] ايشان کنار نيامدي
    و آنچه را [/COLOR][B][COLOR=#b22222]جاهلان [/COLOR][/B][COLOR=#006400]ميگويند، جاهلانه باز نگفتي،
    لاجرم به تبعيد ابدي گرفتار خواهي شد!
    حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
    و اگر بر نپذيرفتن، پاي فشردي،

    [/COLOR][COLOR=#3366cc][B]آواره ات خواهند کرد،
    [/B][/COLOR][COLOR=#3333cc][B]به زندانت خواهند افکند
    [/B][/COLOR][COLOR=#333366][B] و به دارت خواهند کشيد ...»[/B][/COLOR][COLOR=#006400]
    [/COLOR][/CENTER]
    برچسب ها: end if whitout block if
    • ~M*E*H*D*I~
      مدیر ارشد انجمن

      • 2011/10/19
      • 4377
      • 70.00
      #2
      درود

      do

      loop while
      اصلاح کنید
      [CENTER]
      [SIGPIC][/SIGPIC]
      [/CENTER]

        کامنت

        • Juliet

          • 2014/06/17
          • 47
          • 61.00
          #3
          واااای
          چه گیجم، بیخود نیست میگن عجله کار شیطونه، ولی خودمونیم ارورش نکته انحرافی داشت

          سپاس
          [CENTER][COLOR=#006400]«زمانيکه با زمانه خويش نساختي و با [/COLOR][COLOR=#b22222][B]مسندنشينان[/B][/COLOR][COLOR=#006400] و [/COLOR][B][COLOR=#b22222]امربران[/COLOR][/B][COLOR=#006400] ايشان کنار نيامدي
          و آنچه را [/COLOR][B][COLOR=#b22222]جاهلان [/COLOR][/B][COLOR=#006400]ميگويند، جاهلانه باز نگفتي،
          لاجرم به تبعيد ابدي گرفتار خواهي شد!
          حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
          و اگر بر نپذيرفتن، پاي فشردي،

          [/COLOR][COLOR=#3366cc][B]آواره ات خواهند کرد،
          [/B][/COLOR][COLOR=#3333cc][B]به زندانت خواهند افکند
          [/B][/COLOR][COLOR=#333366][B] و به دارت خواهند کشيد ...»[/B][/COLOR][COLOR=#006400]
          [/COLOR][/CENTER]

            کامنت

            قبلی template بعدی
            چند لحظه..