أ / محمد صالح

بارك الله فيك أخي صفوت بالتوفيق في القادم

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

يا ريت مزيد من التوضيح للمطلوب مع العلم أنك في مرفقك لم تصمم اي حد للصفحات بل الذي يظهر البيانات فقط

أخي يحيى وفقنا الله وإياكم إلى ما يحب ويرضى أليس معنى هذا الجزء من الكود For i = LR To 1 Step -1 If Range("A" & i).Value = "" Then Range("a" & i).EntireRow.Delete End If Next i أنه بعدد الصفوف يتم تكرار الشرط إذا كانت قيمة الخلية a1 تساوي "" أي لا شيء يتم حذف الصف الذي يحتوي على هذه الخلية وهكذا مع الخلية a2 , a3 , a4, a5 وهكذا وبالنسبة لأخي محمد طاهر بنا يكون في عونه لما يحدث ونبارك لنا وله عودة هذا الصرح التعليمي الكبير الدالة المقدمة مني هي عبارة عن دمج للدالتين ولكن الخطأ بها يعود غلى حالة وجود أكثر من صف في النطقة الفارغة وتم معالجة هذا الأمر في الدالة التالية Sub masDeleteBlankRows() For Each area In ActiveSheet.UsedRange.SpecialCells(4).Areas If area.Columns.Count = ActiveSheet.UsedRange.Columns.Count Then n = n + 1 If n = 1 Then Set delrange = area.EntireRow Else Set delrange = Union(delrange, area.EntireRow) End If End If Next area delrange.Delete End Sub بانتظار تجارب الإخوة

أخي الكريم يا ريت توضح أكثر ماذا تريد؟ فبالنسبة لتسمية الخلايا باسم فلا يوجد قيود ويمكنك تسمية أي عدد من الخلايا من خلال تحديد الخلايا المطلوبة جميعا باستخدام زر CTRL ثم الضغط على الخلايا المطلوبة جميعا ثم الضغط بزر الفارة الأيمن واختيار name a range ثم اكتب الاسم الذي تريده

أخي الكريم الملف المرفق غير موضوعك نهائيا فالمرفق به طريقة لجمع قيمة يتم كتابتها في العمود الأول على ما كان مكتوبا به قبل الكتابة ووضع الناتج في نفس الخلية فمثلا الخلية a1 بها قيمة مثلا 5 ثم كتبت بها 10 فستصبح قيمة هذه الخلية 15 بعد الانتهاء من الكتابة وموضوعك حمع 100 صف من خليتين وإظهار الناتج في أحدهما

حل رائع أخي قطان وفقك الله لكل ما يحب ويرضى

بعد إذن أخي هادي جرب أخي صاحب السؤال هذا الكود الذي عرضه أخونا هادي بتعديل بسيط 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