نجوم المشاركات

الكود سيصبح هكذا Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "TEST-1.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub وهنا يتم تعديل اسم الملف MyFlName = "TEST-1.xls"

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

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

اخى الفاضل بالرغم انى مش مقتنع ابدا بالحل المرفق وبتكرار الأكواد بهذا الشكل ومقتنع ان حل الأستاذ ياسر خليل هو الأصح والأفضل لكن طالما انت عاوز كده وده طلبك ... فتفضل الملف المرفق تحياتي Aziz.rar

اﻻستاذ والمعلم الكبير ياسر خليل ما تراه من عمل هو نتاج جهدك في الشرح وسعيك المثابر في شرح البرمجه ... حقيقه انا سعيد جدا باطﻻعك على الموضوع واعجابك به وﻻ اخفي سرا كنت انتظر مرورك واعد الدقائق لذلك دمت ذخرا استاذي

الاخوة الكرام علي المصري ... at_aziz ..... تعليموه شكرا لمروركم وثنائكم هنا بعض المشاركات حول هذا الموضوع http://www.officena.net/ib/index.php?showtopic=43914#entry254950 http://www.officena.net/ib/index.php?showtopic=53179#entry333843

تسلم إيدك بجد ،، جزاك الله خير

تعديل بسيط على البرنامج ( في حالة نسبة النجاح 100 % ) 11LA -11LB -11S.rar

السلام عليكم تفضل هذا الكود يعتمد علي إضافة فواصل اعلي سطرين من الخلية التي بها حرف م (مسلسل) Sub Add_B_Brake() For r = 1 To [A9999].End(xlUp).Row If Cells(r, 1) = "م" Then ActiveSheet.HPageBreaks.Add Before:=Cells(r - 2, 1) Next End Sub والمرفق به الكود Fawasel.rar

تفضل أخي الحبيب الفكرة في أن المعادلة عند استخدامها يتم تحويل الفاصلة المنقوطة ; إلى فاصلة .. جرب الملف index.rar

س اذا كنت تقصد النموذج الذي اسمه frmGyab1 عدل نوع النموذج الى نموذج فردي singleForm لأن الأزرار لاتعمل في النموذج الذي صيغته صفحة بيانات DataSheet طبعا ممكن , و تجد له عدة مواضيع في المنتدى لاستخدام دوال التفقيط

السلام عليكم تفضل أخي الحبيب الملف المرفق فيه طريقتين لدمج التعليقات الأولى باستخدام دالة معرفة وناتج دمج التعليق في A1 و B1 يكون في الخلية C1 الطريقة الثانية باستخدام زر الأمر ..فيه تعليق في A3 ألا وهو Yasser .. ويوجد تعليق في B3 ألا وهو Khalil عند الضغط على زر الأمر يتم دمج التعليق في الخليتين معا في B3 Get Comments.rar

اخى yasiressa اشكرك على المتابعه واتمنى لك الاستفاده تقبل تحياتى

طريقة حلى .. طبعا بالأكواد حددت الشيت كامل وسميته وليكن data كنطاق واحد ودخلت محرر الأكواد وفي حدث Worksheet_Activate كتبت السطر ده Range("A1").ClearContents Range("A1") = Application.CountBlank(Range("data")) اعطانى الرقم 17179869184 في الخلية A1 >>> اعتقد انه صحيح ... اوفيس 2010 بس .. شكرا الى اللقاء في لغز آخر تحياتي

استبدل بهذا Sub kh_tst() Dim v Dim Rng As Range Dim R As Long, m As Long Dim c As Integer On Error GoTo 1 With Sheets("Vacc").Range("A2") Set Rng = Range(.Cells, .Cells.End(xlDown)) End With With Sheets("Report") For R = 3 To .Cells(Rows.Count, "B").End(xlUp).Row m = Val(CStr(Application.Match(Val(.Cells(R, "B")), Rng, 0))) If m Then For Each v In Split(Rng.Cells(m, 2), "+") c = Val(v) If c Then With .Cells(R, "B").Offset(0, c) If Val(.Cells) Then .Interior.Color = vbRed Else .Value = "ج" End With End If Next End If Next End With 1 If Err Then MsgBox Err.Number, vbCritical, "Error Number " Set Rng = Nothing End Sub تحياتي

الأخ الفاضل والحبيب والغالي سليم أعتذر لم أرى مشاركتك .. عموما حل جميل ، ولكن أعتقد أنه لن يقبل به (اسألني ليه؟) عشان الأخ ذيب اليمن في موضوع آخر ، بعدما قدم له الأخ عيد وقدمت له حلولا بالأكواد عن طريق ضغط الزر ،قام قال عايز الكود يشتغل لوحده ، فعرفت هنا بردو إنه عايز يوزع الرقم لوحده تقبل تحياتي أخي سليم ومتزعلش مني أخي الحبيب ذيب اليمن (أنا بس كنت بوضح وجهة نظري هههه) تقبل تحياتي

اليك الحل بواسطة الكود توزيع ماكرو.rar

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

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

تفضل اخى الكريم هذه معادله صفيف ستحقق المطلوب ان شاء الله لاتنسى الضغط على مفتاح ctrl+shift+enter =SUM(--(MID(A2;{1;2;3;4;5};1)="9")) حساب تكرار رقم.rar

بعد إذن الأساتذة الكرام جرب أخي المعادلة التالية =SUMPRODUCT(LEN(A2:A11)-LEN(SUBSTITUTE(A2:A11,9,"")))

يحتوى الملف على موسوعة اختصارات لوحة المفاتيح المستخدمةو فى برنامج الوورد و كذلك نظام تشغيل الويندوز تم تنظيمها و سردها فى 8 صفحات فقط للتحميل اضغط على الرابط التالي http://www.up-00.com/?GXqS كما يمكنك تحميلها من المرفقات ... اتمنى ان ينال الملف اعجابكم و يقدم الافادة المرجوة اختصارات لوحة المفاتيح.pdf

اخي محمدي تم افتتاح مكتبة الاكواد وهذا رابطه http://www.officena.net/ib/index.php?app=downloads&showcat=16 لما لا تستغله في هذه السلسلة التعليمية حتي يسهل الرجوع اليه والامر متروك لك

تفضل اخوي ونصيحه لا تحاول ربط الجداول باللاسماء فيما بينها حاول استخدام الارقام WLAYYAT.rar