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

السلام عليكم الشكر واصل لخي الجبيب جمال واخي الحبيب رجب ..........حفظهما الله لاثراء الموضوع هذه دالة بالكود Option Explicit Function kh_vCont(iText) As Long Dim Obj As Object, Tx ''''''''''''''''''''''''''''' Set Obj = CreateObject("Scripting.Dictionary") ''''''''''''''''''''''''''''' For Each Tx In Split(iText, ",") If Not Obj.Exists(Trim(Tx)) Then Obj.Add Trim(Tx), 1 End If Next kh_vCont = Obj.Count Set Obj = Nothing End Function المرفق 2003 دالة عدد الأرقام الفريدة في نص.rar

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

انشاء ملف Word بنفس القيم الموجودة فى ملف الاكسيل Sub proWord() Dim varDoc As Object Set varDoc = CreateObject("Word.Application") varDoc.Visible = True Sheets("ورقة1").Range("A1:B15").Copy varDoc.documents.Add varDoc.Selection.Paste varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "منتديات اوفيسنا.doc" varDoc.documents.Close varDoc.Quit Application.CutCopyMode = False End Sub جمع اكثر من خلية فى خلية Sub جمع() Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9")) End Sub جمع عمود فى خلية Sub جمع_عمود() Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4")) End Sub تحديد مجموعة خلايا Sub شكلبيضوي8_نقر() Range("A1:G5").Select End Sub مرفق ملف به كل الاكواد 123.rar

السلامعليكم ورحمة الله وبركاته الاخت الفاضلة /أم عبدالله...........حفظكم الله الف مليووووون مبروك والى الامام دوما........ تقبلوا تحياتي وشكري

أخى الحبيب / محمد أرجو ارفاق ملف لما تريده فى الترتيب لزيادة التوضيح

أخى الحبيب / محمد فى حالة التنسيق الشرطى تكون معادلة التنسيق كالآتى =AND($A1<>"";$A1<10) تنسيق.rar

الأستاذ /مبروك السلام عليكم ورحمة الله وبركاته المطلوب كان عندما تكون الخلية c4مساوية للصفر يكون الاسم باللون الأسود وإن كان أكبر من الصفر يكون الاسم باللون الأحمر لذلك تم تنسيق شرطي واختيار الصيغة فقط تكتب C4>0 = واختار من تنسيق اللون الأحمر فقط لا غير.

سؤال بسيط. كيف يمكن ربط Access2010 مع VB6 أنا أستطيع ربط بين أكسس 2003 مع الفيجول بيسك 6 لكن أريد ربط أكسس 2010 مع الفيجول بيسك 6 لو تكرمتم

4-1 إضافة يوزرفوم Userform مايكروسوفت إكسل - أساسيات اليوزرفوم إكسل

مليون مبروك للأخ // حسين العصلوجى والى الامام دائما

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

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

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