اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information