logo

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



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




موضوع مغلق


  • تمت الإجابة
17-06-2021 04:34 مساءً
الهدف العام من الدالة اذا مربع البحث فارغ وعند الضغط على زر الطباعة تظهر مسج ادخل المنطقة

واذا

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

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





look/images/icons/i1.gif دالة If the Else دايما رسالة خطأ
  17-06-2021 05:12 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
ربما
CODE
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

أثارت هذه المشاركة إعجاب: saherr، منجة فاتح، ali mohamed ali، YasserKhalil،



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


المشاركة الأصلية كتبت بواسطة: حسين مامون ربما
CODE
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 


أثارت هذه المشاركة إعجاب: YasserKhalil،






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









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

الساعة الآن 04:52 AM