اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

أخواني الأعزاء

السلام عليكم ورحمة الله وبركاته

أبحث عن كود يجعل أحد أزرار الفورم غير مفعل إلا بتحقق شرط معين

أرجو توضيح الخطوات في الملف المرفق

والسلام ختام :cool2:

___________________11.rar

قام بنشر

السلام عليكم

دخلت موضوعك ولم افهم المطلوب

فالعنوان شئ و الرفق شئ اخر

على العموم هذه الاوامر تستخدم لتفعيل او عدم تفعيل اى زر

مثال على عدم التفعيل

Me.CommandButton1.Enabled = False
التفعيل
Me.CommandButton1.Enabled = True

قام بنشر

أشكرك أخي أبو أسامة على الرد

لكن أين أضع الكود لجعل الزر Again غير مفعل أول تشغيل الملف

مع العلم أ، كود التفعيل سهل ( سأضعه في كود الزر copy )

والمرفق مرة أخرى للتأكيد

والسلام ختام

___________________11.rar

قام بنشر

السلام عليكم

انا ساجيب في زاويه اخرى ونكمل الحل

هذا الكود افضل من استدعائك للماكرو

  If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox1.Value < 0 Or TextBox2.Value < 0 Then
        Beep
        GoTo 1
        End If
        Dim x  As Integer
        Dim y As Integer
        x = Me.TextBox1.Value
        y = Me.TextBox2.Value
        Sheets("النسخ").Select
        Range(Cells(1, 1), Cells(y, x)).Select
        Selection.copy
1

قام بنشر

مشكور أخي أبو أسامة

والكود رائع

بس المشكلة أني مبتدأ وبعتمد الماكرو لسهولته

وفي سؤال أخييييييير

استخدامك لكود عدم التفعيل

وضعته ضمن sub أكيد لها معاني معينة

فهل ممكن لدورة تدريبية عن الـ sub بالذات

والسلام ختام :cool2:

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information