أ / محمد صالح

بعد إذن أخي هادي جرب أخي صاحب السؤال هذا الكود الذي عرضه أخونا هادي بتعديل بسيط Sub sum100() For i = 2 To 101 Cells(i, "C").Value = Cells(i, "C").Value + Cells(i, "B").Value Next i End Sub هذا الكود يقوم بجمع الخلايا الموجودة في العمود B مع الخلايا الموجودة في العمود C ويعرض الناتج في العمود C وذلك لمدة 100 صف ابتداء من الصف الثاني (2) للصف 101 أتمنى أن يكون هو المطلوب

أخي يحيى حسين اسمح لي بقليل من التعليق وهو أنك اعتمدت في الأكواد السابقة على فراغ الخلية الأولى من كل صف حتى يتم حذفه فمن الممكن أن تكون الخلية الأولى فارغة وباقي الخلايا مكتوب فيه أو العكس وبالفعل تم مناقشة هذا الموضوع في منتدى آخر وعرض أحد الإخوة هذه الدالة التي تقوم بحذف الصفوف الفارغة Sub deleteEmptyRows() Dim LastRow As Integer Dim MyRow As Integer Application.ScreenUpdating = False LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count For MyRow = LastRow To 1 Step -1 If Application.CountA(Rows(MyRow)) = 0 Then Rows(MyRow).delete Next MyRow Application.ScreenUpdating = True End Sub ولكني لاحظت أنها تقوم بحذف الأسطر الفارغة صفا صفا وكنت قد بحثت في فترة سابقة على النت فوجدت هذه الدالة التي تعتمد على حذف المناطق الفارغة مما يزيد سرعة عملية الحذف Sub DeleteBlankRows() Set myrange = Range("B4:I31") Set blanks = myrange.SpecialCells(xlCellTypeBlanks) For Each area In blanks.Areas If area.Columns.Count = myrange.Columns.Count Then area.EntireRow.Delete End If Next area End Sub وهذه دالة من تصميمي بناء على الدالة الأولى مع بعض التعديلات Sub Mas_DelBlankRows() On Error Resume Next Dim n As Integer For n = 1 To ActiveSheet.UsedRange.SpecialCells(4).Areas.Count If ActiveSheet.UsedRange.SpecialCells(4).Areas(n).Columns.Count = ActiveSheet.UsedRange.Columns.Count Then ActiveSheet.UsedRange.SpecialCells(4).Areas(n).EntireRow.Delete Next n End Sub وفي الكودين السابقين يتم تحديد الصف الفارغ بناء على عدم وجود بيانات في أي خلية من خلاياه وليس فقط الخلية الأولى وبالله التوفيق أخوكم محمد صالح

الحمد لله على كل حال المهم الدروس المستفادة من هذه التجربة

الحمد لله على عودة المنتدى ولكن يبدو أننا فقدنا جزءا كبيرا من المواضيع والمشاركات تصل تقريبا لمدة أسبوع من آخر تاريخ موجود بالموقع الذي هو 16/9/2009 وإذا لم يكن لدى اخينا الباشمهندس محمد طاهر نسخة احتياطية لهذه المواضيع والمشاركات فهذا درس من الدروس المستفادة من هذا التوقف "أخذ نسخة احتياطية من قاعدة البيانات كل 12 ساعة أو بصورة يومية على الأكثر" المهم نبارك جميعا لأنفسنا عودة المنتدى

أشكرك أخي صفوت والحمد لله والله ما كنت مصدق

مرحبا بك يا وليد في بيتك نتمنى لك إقامة سعيدة وأن تفيد وتستفيد كل عام أنتم بخير

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

أخي الكريم المتغير n يمثل سلسلة الأرقام من 2 إلى 31 وهو يمثل عدد الصفوف التي بها قائمة الإيميلات For n = 2 To 31 If Range("b" & n & "").Value = "" And Date - Range("a" & n & "").Value > 14 Then If Range("c" & n & "").Value <> "" Then Kill ThisWorkbook.Path & "\test.html" generatehtml (n) ففي بداية السلسلة التكرارية تكون قيمة n=2 وهكذا يمكنك استبدال الحرف n بقيمته 2 فيما سبق من أكواد ويتم تنفيذ الأكواد حتى نجد السطر next n والذي يعني تكرار نفس الخطوات مع زيادة قيمة n إلى 3 ثم 4 ثم 5 وهكذا حتى الرقم الموجود بعد to الذي هو 31 في حالتنا أتمنى أن يكون الأمر اتضح

هل جربت أكواد لتغيير دقة الشاشة لدى مستخدم برنامجك كثيرا ووجدت بها بعض المشاكل مثل: عدم ظهور أزرار التكبير والتصغير والاستعادة الخاصة بالويندوز مدة التغيير طويلة قليلا تحتاج لموديول كامل كبير لقراءة دقة الشاشة وآخر أطول منه لتغييرها الحل في المرفق تحياتي للجميع كل عام أنتم بخير ولا تنسوني من دعائكم وقت الإفطار mas_resolution.rar mas_resolution64x.rar

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

بارك الله فيك اخي الكريم وأود لفت نظرك إلى أن الآية بدون ضمير الهاء في استأجرته (قَالَتْ إِحْدَاهُمَا يَا أَبَتِ اسْتَأْجِرْهُ إِنَّ خَيْرَ مَنِ اسْتَأْجَرْتَ الْقَوِيُّ الْأَمِينُ) (القصص:26) وتقبل الله منا ومنكم لا ينقصني سوى دعائكم

تفضل أخي الكريم مع ملاحظة عدم مسح المعادلة الموجودة تحت العنوان mac address كل عام أنتم بخير mas-pings2.rar

الله يبارك فيك يا أخي يحيى وعقبالك

أشكرك أخي خبور خير على هذه اللفتة الجميلة زادك الله خيرا وأجدد الشكر لأخي سالم سلمه الله من كل سوء

تفضل يا أخي الكريم يوجد زر يقوم بالمطلوب ولا ينقصني سوى دعائكم mas-getdata.rar

رائع أخي يحيى حياك الله شرح مناسب لكل من المبتدئين مثلي والمتقدمين أيضا لا حرمنا الله منك ولا حرمك ثواب ذلك العمل

بارك الله فيك أخي أحمد على مرورك الطيب ولا تنساني من دعائك وقت الإفطار بالله عليك أن يسد الله ديني

رغم تأكدي من إرفاقي للملف هذا هو alnor.rar

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

كيف ينقص وأخوك محمد موجود؟ تفضل quran-simple.rar

ياريت مزيد من التوضيح ويفضل ارفاق مثال للتعديل عليه

دائما تأتي لنا بالجديد المفيد أخي محمد حياك الله

ايه الحلاوة دي اخي يحيى على فكرة ممكن عملها في الباور بوينت كمان جزاك الله خيرا

تفضل أخي الكريم في المرفق دالتين لعمل ping مرة لقائمة من الآي بي ومرة لقائمة من اسماء الأجهزة على الشبكة تحياتي mas-pings.rar

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