ياسر خليل أبو البراء

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

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

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

وعليكم السلام ورحمة الله أخي وأستاذي الغالي بن علية نفتقد وجودك فيما بيننا لعل غيابك عن المنتدى يكون خير إن شاء الله ... تقبل وافر تقديري واحترامي

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

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

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

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

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

وعليكم السلام أخي الفاضل أحمد العدوي بارك الله فيك وجزيت خيراً على دعائك الطيب ومرورك العطر بالموضوع تقبل تحياتي

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

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

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

أخي الفاضل محي الدين أبو البشر بارك الله فيك على مرورك العطر بالموضوع إليك التعديل البسيط ..تم وضع جملة IF لاختبار إذا ما كانت القيمة فراغ ام لا ..قبل تخزينها في القاموس Sub GetUniqueValues() Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long Set Obj = CreateObject("Scripting.Dictionary") myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value For I = 1 To UBound(myData) If Not IsEmpty(myData(I, 1)) Then Obj(myData(I, 1) & "") = "" End If Next I Temp = Obj.Keys Range("E1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub تقبل تحياتي

وجزيت خيراً أخي الفاضل أحمد بمثل ما دعوت لي وزيادة

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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية ويرجى إرفاق شكل النتائج المتوقعة .. هل تريد النتائج في العمود F أم في عمود آخر ؟ وكيف يتم احتساب التأخير ؟ ولما تريد أن تحوله لساعات والناتج دقائق

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

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

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

المشكلة أنني ليس لدي محاولات لك لأن الملف يعمل لدي بشكل جيد ..فمساعدتي ستكون مجرد تخمين ليس أكثر ولا أقل سؤال هل قمت بتغيير الإعدادات الإقليمية لديك ..؟؟ قم بضبط الإعدادات الإقليمية من خلال لوحة التحكم ... قد تكون المشكلة فيها تقبل تحياتي

إخواني الكرام السلام عليكم ورحمة الله وبركاته أقدم لكم كود مع الشرح لاستخدام القاموس في استخراج القيم الفريدة أي الغير مكررة بفرض أن لديك قائمة أسماء في العمود الأول تبدأ من الخلية A2 .. وتريد استخراج القيم الفريدة أي الغير مكررة في النطاق .. أحد الحلول الجميلة هو استخدام القاموس لتخزين القيم الفريدة (بس يا ريت فريدة متزعلش) وإليكم الكود بالشرح Sub GetUniqueValues() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("E1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub لن يتم إرفاق ملف (عشان الكسالى ... يصحصحوا ويركزوا ) الموضوع بسيط مش محتاج مرفق افتح ملف إكسيل وضع قيم في النطاق A2:A20 مثلاً .. ضع أسماء مكررة في النطاق افتح محرر الأكواد ..أدرج موديول .. ضع الكود في الموديول روح لورقة العمل ونفذ الكود عن طريق Alt + F8 ... هتلاقي القيم الغير مكررة في النطاق من أول الخلية E1 .. وممكن تغير في الكود لتضع النتائج في أي خلية تريدها بس خلاااااااااااص ..وتصبحوا على السرير سالمين آمنين معافين تقبلوا تحياتي

جرب تغير تنسيق الخلايا التي فيها المعادلات إلى التنسيق التالي [White]dd-mm-yyyy

أخي الكريم معادلتك تعمل لدي بشكل طبيعي بدون مشاكل عموماً جرب المعادلة بهذا الشكل =IF(D4="","",DATE(YEAR(D4),MONTH(D4),DAY(D4)+C4)) إذا لم تعمل المعادلة قم بتغيير الفاصلة العادية لمنقوطة

عاجبك كدا أديني أخدت برد وعمال بعطس .. يا شماتة العربي فيا .. العربي مين؟؟! اخرس