أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





دالة If the Else دايما رسالة خطأ

الهدف العام من الدالة اذا مربع البحث فارغ وعند الضغط على زر الطباعة تظهر مسج ادخل المنطقة واذا في كتابة في مربع الب ..


موضوع مغلق


17-06-2021 04:34 مساء
saherr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-06-2021
رقم العضوية : 22491
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 20-4-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 


الهدف العام من الدالة اذا مربع البحث فارغ وعند الضغط على زر الطباعة تظهر مسج ادخل المنطقة

واذا 

 في كتابة في مربع البحث

textbox1 
تتم الطباعة بنجاح

لكن جزء 
if

في البرنامج دايما تظهر رسالة خطأ
compile error else withour if

كما في الصورة والبرنامج المرفق 
 If TextBox1.Value = "" Then MsgBox ("Enter Destination")
  Else
    Sheet1.Range("A1:B260").PrintOut
    
End If
 
 
  compile error-if.png   تحميل png compile error-if.png مرات التحميل :(2)
الحجم :(28.142) KB
 
  BOOKINGTABLEtestif.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(85.47) KB



أفضل إجابة مقدمة من حسين مامون وهي:
ربما
Private Sub CommandButton1_Click()
    
Dim r As Range, lr As Long
    With Sheet1
        Application.Goto .Range("A6")
        ActiveCell.Offset(1, 0).Select
        Do Until ActiveCell.EntireRow.Hidden = False
            ActiveCell.Offset(1, 0).Select
        Loop
        lr = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1
        For Each r In Intersect(Selection.EntireColumn, .AutoFilter.Range.SpecialCells(12))
            Sheet2.Cells(lr, 2).Value = r.Value
            lr = lr + 1
        Next r
    End With
        Dim nextRow As Long
        nextRow = Sheets("sheet2").Range("B10000").End(xlUp).Row
        With ThisWorkbook.Sheets("sheet2")
                      .Range("C" & nextRow).Value = Sheets("sheet1").Range("F5").Value
        End With
        If TextBox1.Value = "" Then
        MsgBox ("Enter Destination")
        Exit Sub
        Else
        Sheet1.Range("A1:B260").PrintOut
    
End If
    TextBox1.Value = ""
ActiveSheet.TextBox1.Activate
End Sub
عرض الإجابة




17-06-2021 05:12 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif دالة If the Else دايما رسالة خطأ
ربما
Private Sub CommandButton1_Click()
    
Dim r As Range, lr As Long
    With Sheet1
        Application.Goto .Range("A6")
        ActiveCell.Offset(1, 0).Select
        Do Until ActiveCell.EntireRow.Hidden = False
            ActiveCell.Offset(1, 0).Select
        Loop
        lr = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1
        For Each r In Intersect(Selection.EntireColumn, .AutoFilter.Range.SpecialCells(12))
            Sheet2.Cells(lr, 2).Value = r.Value
            lr = lr + 1
        Next r
    End With
        Dim nextRow As Long
        nextRow = Sheets("sheet2").Range("B10000").End(xlUp).Row
        With ThisWorkbook.Sheets("sheet2")
                      .Range("C" & nextRow).Value = Sheets("sheet1").Range("F5").Value
        End With
        If TextBox1.Value = "" Then
        MsgBox ("Enter Destination")
        Exit Sub
        Else
        Sheet1.Range("A1:B260").PrintOut
    
End If
    TextBox1.Value = ""
ActiveSheet.TextBox1.Activate
End Sub

17-06-2021 06:05 مساء
مشاهدة مشاركة منفردة [2]
saherr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-06-2021
رقم العضوية : 22491
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 20-4-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 
look/images/icons/i1.gif دالة If the Else دايما رسالة خطأ
نعم تم العمل كما هو مطلوب
جزاكم الله خيرا



الكلمات الدلالية
دالة ، Else ، دايما ، رسالة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:24 صباحا