محمد الورفلي1

اذ ا اردنا ادراج احد الاسماء الموجودة في العمود B عن طريق الفورم بحث بمجرد النقر علي الاسم يتجه الي الخلية H17 فما هي الطريقة بارك الله فيكم بحث 10.rar

عظم الله اجركم يا استاذ رجب وانا لله وانا اليه راجعون

الي اهل الخبر والاساتذ الكرام في المنتدي افيدونا سؤال هل يوجد كود يضرب الشيت عند اختراق رمز الحماية بمعن تدمير ذاتي او كود يحمي الشيت من الاختراق . وشكراً

الاستاذ احمد \ السلام عليكم مشكور جداَ علي الحل البسيط والمتنوع وشكراً كذالك علي الطريق ان شا الله في ميزان حسناتك

شكراً علي الرد اي طريقة بس اهم شي الفكرة تنجح

شكراً علي الرد اي طريقة صحيحة مافيش مشكلة في الطريقة ام شى الحل

ارجو الدخول للتعديل

هل يوجد حل

للرفع

http://www.officena....345#entry326726 http://www.officena....4&hl=+كتاب +vba http://www.officena....7&hl=+كتاب +vba http://www.officena....219#entry307706 http://www.officena....showtopic=49980 فالكل متواجد للمساعدة بإذن الله . تقبل تحياتي

مساعدة في مسح محتوى متفرق من الخلايا بمفتاح مع الطباعة مسح محتوى بعد فترة.rar

ممتاز

للرفع هل ممكن المسح يكون بشكل عشوائي مثلاً نريد مسح الخلية A3 والخلية C7 والخلية F22 والخلية L23 والخلية K4 اذكان هناك طريقة فكيف وياريت بالشرح لو سمحتو المرفق Sub sClear() Dim cel As Range For Each cel In Range("D1:F1:D5") Range(Cells(cel.Row, 1), Cells(cel.Row, 12)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub مسح محتوى .rar 6.69كيلو 1 عدد مرات التحميل

احسنت بارك الله فيك وجعلك وعون للمسلمين واعانك الله

ممكن يفيدك http://www.officena.net/ib/index.php?showtopic=52637

السلام عليبكم

اريد اظهار التكسات التي بالفورم في vib

للرفع

اولًا الاخ العزيز حمادة باشا شكراَ جزيلاً للرد على كنت بدائت ايئس من ان يرد علي احد فبارك الله فيك وزادك الله علم 1/ وضعت التكست داخل زر وليس فورم لئنى لااعرف طريق ادراج فورم في الصفحة للتوضيح لكم فهى صدفة وان توضعت لي باعجابك بالفكرة 2/احسنت في هذا العمل وشكراً انا لدي فورم في الاصل للاخ عبد الله باشقير وقد تم التعديل عليه فلقد استطعت ان اغير في حجم الفورم والالوان وذالك بعد الاستائذان طبعاً من استاذ عبد الله ولكنى في قصة الاكواد فان صفر على الشمال فأذ تكرمت علي سوف ارفق ملف اكسييل اريسد ربط التكسات بنفس المعادلات الموجودة في الشيت اذ سمحت طبعاً test.rar

نريد العلم

اللهم اشفيها شفاء لايغادر سقمها عاجل غير اجل يارب العالمين اللهم تقبل منا الدعاء لمن طلب منا الدعاء

اريد تصحيح فقط وهل هذه الطريقة صحيحة Sub sClear() Dim cel As Range For Each cel In Range("D1:F1:D5") Range(Cells(cel.Row, 1), Cells(cel.Row, 12)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub

هل يوجد حل

هل توجد معادلة نستطيع جبر التكسات بعمل معادلة جمع وضرب وناقص وقسمة واجبار التاكسيت بعدم ادخال تاريخ اكبر من تاريخ الجهاز الحالي مثلاً تاريخ الكمبيوتر 4/4/2014 لايسمح التكست للمستخدم بادخال تاريخ واظهار رسالة توضخ ذالك 5/4/2014 في فورم وكيفية ذالك معادلة التاكسيت.rar

اريد الكود ضروري