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

هل تريد برامج جاهزة ؟

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

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

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

ربنا يبارك فيك اخي الكريم مصطفى شاهين

يمكنك استعمال هذا الكود Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long If InternetGetConnectedState(0&, 0&) Then 'code if conected Else MsgBox "تأكد من اتصالك بالانترنت" End If مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول وكود الشرط يمكن تضمينه في أي إجراء أو حدث وفقنا الله وإياكم لكل خير

لا اعرف اذا كان هذا المطلوب فعلاً انظر الى الصفحة Salim من هذا الملف Choose Salim.rar

أتمنى أن يكون قصدك الاستعلام عن النتيجة كما في المرفق Choose.rar

السلام عليكم هذا ما تقصده اخي الكريم اليس كذلك

ما تحكي كده من الصبح Option Explicit Sub New_Numeration() Dim sh As Worksheet Dim k% Set sh = Sheets("Data") k = 2 With sh Do Until Range("d" & k) = "" Range("b" & k) = Application.CountIf(.Range("d2" & ":d" & k), .Range("d" & k)) k = k + 1 Loop End With End Sub

العمر لا يكتب رقما هكذا ولكنه يستخرج بمعادلة بين تاريخين ( تاريخ الولادة و تاريخ اليوم ) فالمعادلة مثل هذه : =Round(DateDiff("d";[Dateage];Date())/360;1) رقم 1 في آخر المعادلة من اجل اظهار رقم عشري واحد ويمكنك تغييره الى 2 او جعله صفرا اذا اردت الناتج رقما صحيحا بهذه الطريقة يتجدد العمر آليا

جرب هذا الملف (يتم فصل الارقام اينما وجدت في أول النص او وسطه او اخره) فصل الارقام عن النص salim.rar

اخي ابا نادر شكرا على ثقتك باخوتك هنا اكثر من الغرب وبالموقع السابق جرب الكود التالي وبعيدا عن اين المشكلة بكودك السابق وسنعود للمشكلة بعد التاكد من نجاح المطلوب Private Sub print_Click() Set obj = CreateObject("Word.Application") obj.Visible = True obj.Documents.Open "path" obj.ActiveDocument.Shapes("nnnn").Fill.ForeColor.RGB = RGB(0, 0, 0) obj.ActiveDocument.Close SaveChanges:=wdSaveChanges obj.Quit End Sub تنبيهات قبل التنفيذ: 1. حاول ان تغير الثيم او الخلفية للمربع المقصود nnnn حيث اكتشفت ان به مشكلة تتطلب اعادة اللون عن طريق التنسيق او اعادة الانشاء ثم احفظ المستند 2. غير المسار الصحيح بديلا للكلمة path في الكود اعلاه ان شاء الله يتم المطلوب وبالتوفيق

الاخ steel2008man وعليكم السلام ورحمة الله وبركاتة وبعد اذن الاخ شوقى انظر الصور سجلت اسمك فى اعلى الفورم مكان التعديل ضع البيان داخل الاقواس فهذا الكود لتسجيل المطلوب اعلى الفورم Private Sub UserForm_Initialize() Me.RightToLeft = True Me.Caption = "مجدى عبد المنعم يونس" RemplirTableau sNomFeuil, sTableau ' دالة ملئ المصفوفة الرئسية End Sub انظر الصورة اسمك داخل الاقواس

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