محمد الورفلي1

شكراَ استاذ مختار

ممكن شرح اوضح يا استاذ صلاح ما هي الارقام التي تضبر مع بعضها لم اهم الطريقة

السلام عليكم استفسار1 : من لدية ملف استخرج الرقم الهارد الاصلي الذي لايتغير بعد الفورمات استفسار2 : ماهو كود الحماية للتطبيق شكراً مقدماً

جميل جداً استاذ عبد الباري

السلام عليكم كيف اجعل هذا الملف يعمل على جهازين فقط بتحدد مرجع معين يتظمن الرقم السري الذي ادخله او التعديل علي هذا الكود حتي يتقبل رقم اضعة بنفسي ليس رقم الهارد .لان رقم الهارد يكون مختلف فيعمل المف على جهاز والجهاز الاخر لايعمل لاختلاف رقم الهارد Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "A8520DF" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub ملف يعمل علي جهازين.rar

المرفق فارغ

السلام عليكم استاذ محمود هذا كود انا استخدمة في عملي من اكواد الاستاذ " سليم حاصبيا " ادخال رقم. . استاذ ياسر كود جميل اضفته لمكتبتي Option Explicit Sub ConvertAll() Dim I As Long For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row If Cells(I, "F") = 1 Then Cells(I, "F") = "الأولى" ElseIf Cells(I, "F") = 2 Then Cells(I, "F") = "الثانية" ElseIf Cells(I, "F") = 3 Then Cells(I, "F") = "الثالثة" ElseIf Cells(I, "F") = 4 Then Cells(I, "F") = "الرابعة" ElseIf Cells(I, "F") = 5 Then Cells(I, "F") = "الخامسة" ElseIf Cells(I, "F") = 6 Then Cells(I, "F") = "السادسة" ElseIf Cells(I, "F") = 7 Then Cells(I, "F") = "السابعة" ElseIf Cells(I, "F") = 8 Then Cells(I, "F") = "الثامنة" ElseIf Cells(I, "F") = 9 Then Cells(I, "F") = "التاسعة" ElseIf Cells(I, "F") = 10 Then Cells(I, "F") = "العاشرة" Else Cells(I, "F") = Cells(I, "F") End If Next I End Sub

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

السلام عليكم لدي هذا المف في جهازي من هذا المنتدي القيم لعله يكون طلبك الغاء تفعيل علامة x.rar

السلام عليكم استاذ ابراهيم .... نعتذر عن التفاعل في المشاركات لان كثير منا يتابع ويطبق بصمت وانا منهم وان كان هناك سؤال عن نقطة غير واضحة فلن اتردد في السؤال وهذا دليل لسهولة ووصول المعلومة للمتلقي اقترح .... عليك فكرة وهي وضع سؤال او احجية من الشرح السابق ... او مجموعة اسئلة مثل اسئلة الابواب التي في الكتاب المدرسي لتري مدى الاستجابة والتنافس في الطلاب ........والاجابة تكون من غير المحترف في vba

السلام عليكم استاذ محمد اقل واجب اعطاء كل ذي حق حقه

السلام عليكم استاذ ابو عيد شكراً للتعاون الاستاذ ابوسليمان هذا ماتريد ام لا

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

فعلاً هذا هو المطلوب شكراً استاذ جعفر

للرفع

السلام عليكم ماهو عكس الدالةMODE اذ كان عمود به ارقام 1 1 1 1 1 5 5 5 6 6 3 فالدالة mode سفوم بإحضار الرقم 1 لانه اكبر تواجد في العمود اريد دالة تظهر اقل تواجد في العمود وهو الرقم 3

وجدت الحل شكراً للمنتدي =LARGE($C$14:$C$36;2) شكراً ياباش مهندس طارق

السلام عليكم اريد ايجاد اكبر خمس قيم في الملف استخدم الدالة =MAX($C$14:$C$36;{1;2;3;4;5}) كذالك الدالة =LARGE($C$14:$C$36;{1;2;3;4;5}) اصبحة النتيجة اكبر خمس قيم.rar

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

بارك الله فيك استاذي العزيز

السلام عليكم شكرأ استاذ عادل مشكلة ان شاء الله بسيطة اريد ان يكون احضار البيانات عن طريق شرطين وليس شرط واحد If Sheets(I).Cells(r, 4) = [d5] Then كما فهمت من شرح الكود في المشاركة السابقة ان هذا السطر مخصص للشرط الذي يجلب به البيانات فقد حاولت لكن فشلت اريد توجهكم في الطريقة الصحيحة هذه هي المحاولة If Sheets(I).Cells(R, 4, 5) = [D5:e5] Then

السلام عليكم شكراً للرجل القدير عادل حنفي الذي اعرفه من اعماله من تاريخ 18/2/2014 وهو لايعرفني شكراً لهذا الكود الجميل بارك الله فيك ** طبعاً رجل الاسعاف السريع الذي لايتردد في مساعدة اي شخص في المنتدى الاستاذ ياسر خليل شكراً على الحل

شكرأ علي الشرح الوافي " استاذ عادل " لي سؤال ..... لقد اثقلت عليك سامحني اذا كان هذا السطر مخصص لتجنيب الشيت المفنوح وهو صفحة الاستدعاء تجنيبب الشيت المفتوح من الحلقة الاسمرارية If Sheets(i).Name <> ActiveSheet.Name Then فما العمل اذا كان لدي اكثر من صفحة في الملف الاصلي .... اريد من الكود ان يستثنيها "" مثلاً صفحة اسمها (( المحاسب )) ويتم فيها حساب الوارد والصادر من جميع الشيتات وكذالك صفحة اخرى بإسم " احصاء العمر "

السلام عليكم استاذ ضاحي ........... لفتة كريم من حضرتك لتذكر احد أساتذة هذا الصرح رحمه الله تعالي "" عماد الحسامي "" نسأل الله العلي القدير ان يكون في ميزان حسناته ويكون صدقة جارية له ولك استاذ ضاحي

السلام عليكم شكراً استاذ بن علية