حمادة عمر

السلام عليكم الاخ الكريم / محمد محمد عادل بالنسبة لذلك اقصد انه يمكن الاستغناء عن (( بعض )) المعادلات واستخدام الاكواد التي تنفذ نفس المهمة حيث انها اخف واسرع ولكن بالطبع لا غني عن المعادلات نهائياً ولا يمكن ذلك ... ولك لاهميتها القصوي في الاكسيل فهناك مثلا معادلة للترقيم التلقائي نستخدمها لترقيم عمود معين عند ادخال قيمة في عمود آخر ( ستكون المعادلات لنهاية العمود ) ... مما يزيد من حجم الملف بالتأكيد ولو قمنا باستخدام كود الترقيم التلقائي لهذا العمود ... لقل حجم الملف عن حجمه عند استخدام المعادلات ... وتوصلنا لنفس النتيجة ارجو ان قد وفقت في توصيل ما اقصده جزاك الله خيرا

السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520 جزاك الله خيرا

السلام عليكم الاخ الكريم / إبراهيم ابوليله اليك اخي لمسه بسيطة جدا علي كود الرائع / بن عليه ... جزاه الله خيرا ليقوم بنسخ جزء معين من الصفحة الموجودة ويقوم بعمل Print Preview تلقائيا بعد اضافة الصفحة ارجو ان يلبي هذا طلبك جزاك الله خيرا اضافة ورقة جديدة ومعاينة.rar

السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير انت الارووووع دائما كعادتك جعلك الله دائما زادا لنا من العلم وبارك الله فيك جزاك الله خيرا

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

السلام عليكم الاخ الكريم / halimnacer اعتقد ان ذلك لا يمكن مع الاكسيل الا بعد قيامك بعمل Shortcut للملف او البرنامج الذي تريدة ثم يمكنك اذا تغيير شكل الـ Shortcut وذلك من الضغط كليك يمين بالماوس واختيار Properties ثم Change Icon ثم اختر الشكل الذي تريده من الموجود بالجهاز او بالشكل الذي لا تريده جزاك الله خيرا

السلام عليكم لم يكن لي طلب في هذا الموضوع ولكني عندما وجدت اسم الاستاذ الرائع / هشام شلبى اثناء تصفحي في لمنتدي وفي هذا الموضوع الذي احبه من كل قلبي حبا خالصا لله اردت توجيه رساله له بان طالت غيبته عنا وفقه الله وعسي ان يكون عدم تواجده بيننا لخير ان شاء الله جزاه الله خيرا

السلام عليكم اخي الفاضل / هاني مصطفي بارك الله فيك وجزاك الله خيرا علي كلماتك الجميلة

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

السلام عليكم الاخ الكريم / الصّارم بارك الله فيك والحمد لله انك وصلت لمبتغاك ... هذا ما نتمناه دائما والشكر الاول والاخير للرائع الاستاذ / جعفر جزاك الله خيرا

السلام عليكم المهندس العميد / دغيدى بارك الله فيك طريقة جميلة والاجمل بساطتها جزاك الله خيرا

السلام عليكم الاخ الكريم / هيثم مقبول اعتقد ان ذلك يكون بسبب كبر حجم البيانات والمعادلات الموجودة بالملف المقصود وكذلك زيادة التنسيقات او اضافة صور او ماشابه للملف ويتم التغلب علي هذه المشكلة اما باستخدام الاكواد بدلاً من المعادلات في كثير من الاحيان والتخفيف من التنسيقات والصور والكائنات علي قدر المستطاع جزاك الله خيرا

سلام عليكم الاستاذ العزيز / سعيد بيرم تفضل المرفق به المطلوب عما استعلام عن عدد 28 شيت بشاشة استعلام لكل شيت ولكن لم يتم عمل الشاشة الرئيسية ... حيث لا اعرف ان كنت تريدها ام لا والشاشات موجودة في محرر الاكواد واكوادها كامله وجاهزة ... وانا جاهز لاي تعديلات مطلوبة اخري اما بخصوص اضافة صورة الموظف هل تريدها في بيان الحالة ... ام في الفورم نفسه جزاك الله خيرا

السلام عليكم الاخ الكريم / الصّارم اعتقد ان التالي به طلبك تماماً ولكن عذرا للاطالة فالموضوع ليس موضوعي ولكنه للقدير العبقري الاستاذ القدير / جعفر طرباق .... جزاه الله خيرا بعنوان ((( كيف نجعل الملف ينتحر و يحدف نفسه من الجهاز تلقائيا ! )))) ولكني احببت ان انقله كما هو ليستفيد منه الجميع بكل طرقه واشكاله ============================================= الكود ادناه يفعل ذلك من داحل الملف نفسه و يمكن ربطه مثلا بالحدث Workbook_BeforeClose و مسح الملف تلقائيا و نهائيا و من دون اشعار المستخدم. SuicidalWorkbook.rar Option Explicit Private Const MSG_TITLE As String = "Deleting Current Workbook ..." Private Const MSG_TEXT As String = _ "You are about to permanently delete the current workbook located in :" Sub Kill_Myself() Dim lUserDecision As Long Dim sMsg As String On Error Resume Next sMsg = "Attention !" & vbNewLine & vbNewLine sMsg = sMsg & MSG_TEXT & vbNewLine sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine Beep lUserDecision = _ MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE) With ThisWorkbook If lUserDecision = vbYes Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End If End With End Sub ====================================================== الكود التالي يحدف الملف بعد شهر واحد من اول استعماله تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If If Date > Evaluate("InitialDate") + 30 Then Kill_Myself End Sub Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود. ================================================================ الكود التالي يحدف الملف بعد 3 الستعمالات تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود ========================================================= الكود التالي يحذف الملف بعد دقيقة واحدة من فتحه : (ضع الكود في ThisWorkbook Module) Option Explicit Private Const TIMEOUT As Long = 1 Private Sub Workbook_Open() Application.OnTime _ Now + TimeSerial(0, TIMEOUT, 0), Me.CodeName & ".Kill_Myself" End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ===================================================== حذف الملف ولكن باشعار المستخدم بذلك !!!! للتمكن من اشعار المستخدم و في نفس الوقت منعه تماما من اجهاض عملية حذف الملف , اقترح الكود التالي حيث يتم اشعار المستخدم بعد حذف الملف و ليس قبل : (الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف) Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Call NotifyUser Call Kill_Myself End If End Sub Private Sub NotifyUser() Dim sVbsFile As String sVbsFile = Environ("Temp") & "\VBS_MSG.vbs" Open sVbsFile For Output As #1 Print #1, "Dim Wb" Print #1, "On Error Resume Next" Print #1, _ "set wb=Getobject(" & Chr(34) & Me.FullName & Chr(34) & ")" Print #1, _ "MSG= ""You have exceeded the Maximum Number of uses of this file."" & vbnewline & vbnewline" Print #1, _ "MSG= msg & ""The file has been permanently deleted from your Drive !""" Print #1, "Do" Print #1, "Loop until wb.name=""""" Print #1, "WScript.Echo MSG" Close #1 Call Shell("WScript.exe " & sVbsFile) End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub وارجو من الله ان يجعل فيها افادة ... وادعو للاستاذ القدير العملاق / جعفر ... جزاه الله خيرا جزاكم الله خيرا

السلام عليكم اخي العزيز / إبراهيم محمد بارك الله فيك واكرمك لما يحبه ويرضاه واشكرك جزيل الشكر علي التشجيع الدائم لي جزاك الله خيرا

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

السلام عليكم الاخ الفاضل / إسلام الشيمي بارك الله فيك وجعلني دائماً عند حسن ظنك ومرورك وحده يكفي علي الموضوع ليزداد شرف بك جزاك الله خيرا

السلام عليكم الاستاذ العزيز / سعيد بيرم ان شاء سيتم عمل المطلوب كما تريد جاري التنفيذ .... جزاك الله خيرا

السلام عليكم الاخ الكريم / عمر أبو صهيب كلنا هنا لنتعلم ونعلم بعضنا البعض وكل منا يرشد الآخر للذي يعرفة فهذا ما تعلمناه من اساتذه هذا الصرح لعملاق وبالطبع علي رأس الجميع الاستاذ الخبير / عبد الله باقشير جزاك الله خيرا

السلام عليكم الاخ الكريم / الصّارم بعد اذن الاخوة الكرام اليك اخي ملف رااائع للقدير دائما / عبد الله المجرب الملف المرفق ملف يفتح لـ 5 مرات فقط ثم يغلق بعدها ارجو ان يلبي طلبك جزاك الله خيرا اغلاق ملف.rar

السلام عليكم الاخ الكريم / أبو محمد أشرف ادعو من الله ان يعجبك الشرح وتستفيد منه بعض الشئ والاستاذ / مجدي لا يترك احدا في نفسه شئ جزاك الله خيرا

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

السلام عليكم الاخ الكريم / نور محمود راجع الرابط التالي به طلبك ملف اكثر من رائع للاخ الكريم / ابراهيم محمد قام فيه بعمل ما تريده بطريقة جميله واي استفسارات او اي طلب آخر طبعا انا معك باذن الله دائماً http://www.officena.net/ib/index.php?showtopic=45248 جزاك الله خيرا

السلام عليكم الاستاذ الغالي / احمد فضيله بارك الله فيك مجهود رااائع وملف مفيد جدا وصدق استاذنا واخينا / ابو حنين .... ودائما كما عودتنا اعمال مميزة من رجل مميز ... جزاك الله خيرا

السلام عليكم الاستاذ القدير / تومي محمد رااائع وجميل معلومات قيمة ومفيده للجميع جزاك الله خيرا