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

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير وجزيت خيراً أخي صلاح على دعائك الطيب تقبل تحياتي

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

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

السلام عليكم أخي الكريم صلاح الدين اذهب لمحرر الأكواد Alt + F11 انقر دبل كليك على اسم الفورم المسمى add من نافذة المشروع انقر دبل كليك على زر الأمر المسمى "استعراض" قم بمسح الكود المرتبط بهذا الزر (الجزء التالي) Private Sub CommandButton3_Click() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختر صورة") TextBox11.Value = Image_path 'ActiveWorkbook.Save If Image_path <> False Then Me.Lab_pic.Picture = LoadPicture(Image_path) End If End Sub ضع الكود التالي مكانه رابط الكود من هنا فبل تشغيل الفورم ، قم بالذهاب لأدوات Tools واختر Reference وأضف المكتبة التالية Microsoft Scripting Runtime الآن قم بتشغيل الكود وجرب النقر على زر استعراض .. لتحصل على اسم الصورة في التكست بوكس رقم 11

أخي الكريم هلا أرفقت بعض النتائج المتوقعة ليسهل الوصول لحل فأنا أو غيري لا يفهم طبيعة عملك (تحدث بلغة الإكسيل) ، والأفضل إرفاق شكل النتائج المتوقعة

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

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

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

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

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

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

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

جرب نسخ الكود من المشاركة التالية Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Sh As Worksheet Dim iLastRow As Long If Target.Cells.Count <> 1 Then Exit Sub End If With ComboBox1 .LinkedCell = "": .Clear: .Visible = False End With If Not Intersect(Target, Range("C3:C779")) Is Nothing Then Set Sh = Sheet2 iLastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row With ComboBox1 .Top = Target.Top: .Left = Target.Left .Width = Target.Width: .Height = Target.Height .LinkedCell = Target.Address .List = Sh.Range("A1:A" & iLastRow).Value .Visible = True: .Activate End With SendKeys "%{DOWN}" End If If Not Intersect(Target, Range("D3:D779")) Is Nothing Then Set Sh = Sheet2 iLastRow = Sh.Cells(Rows.Count, "B").End(xlUp).Row With ComboBox1 .Top = Target.Top: .Left = Target.Left .Width = Target.Width: .Height = Target.Height .LinkedCell = Target.Address .List = Sh.Range("B1:B" & iLastRow).Value .Visible = True: .Activate End With SendKeys "%{DOWN}" End If End Sub لو حدثت نفس المشكلة لديك قم برفع الملف بعد وضع الكود داخله

أخي الغالي مختار حسين أخي العزيز جلال الجمال بارك الله فيكما وجزيتما خير الجزاء ، ومشكور على مروركما المشرف والعطر بالموضوع تقبلا تحياتي

بارك الله فيك أخي سليم ومشكور على إثرائك للموضوع .. تقبل تحياتي

بارك الله فيك أخي الكريم أشرف ومشكور على مرورك العطر بالموضوع وأهلاً بك بين إخوانك في منتدى أوفيسنا

السلام عليكم أخي الكريم يوسف ممكن تراسلني على الخاص على الفيس بوك الخاص بي yakh777@yahoo.com لأرى ما يمكنني تقديمه لك تقبل تحياتي

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

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

أخي الكريم أبو حنف كود البحث مبني على خلية واحدة فقط وهي الخلية C1 في ورقة العمل Sheet1 حيث يتم جلب البيانات بناءً على قيمة هذه الخلية بالنسبة للنقطة الثانية الشرط هو تساوي الرقم الموجود في الخلية C1 في ورقة العمل Sheet1 والتي يمثلها المتغير Ws (الشطر الأيمن من السطر) بالقيمة أو الخلية في العمود الأول وقد يكون هذا هو إجابة سؤالك الأول حيث يمثل الرقم 1 في الشطر الأيسر رقم عمود البحث وهو العمود A ... حلقة تكرارية لكل صف من صفوف ورقة العمل التي يتم البحث فيها ، والبحث في العمود الأول أرجو أن تكون قد اتضحت الصورة قليلاً واسأل ولا تخجل ، وحتى لو كررت السؤال فلن أمل حاول تفهم كيف تسير الأمور ..استخدم مفتاح F8 لتتبع أسطر الكود سطر بسطر ومحاولة معرفة ما يجري تقبل تحياتي

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

أخي الكريم اضغط Alt + F11 للدخول لمحرر الأكواد ثم قم بنسخ الدالة المعرفة بالكامل ، واذهب لملفك وادخل لمحرر الأكواد ثم قم بإدراج موديول جديد ثم الصق الدالة واستخدمها لمعرفة المزيد حول البديات قم بزيارة الموضوع التالي بداية الطريق لإنقاذ الغريق

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

أختي الكريمة عوداً حميداً غبت عن المنتدى فترة ليست بالقصيرة بالنسبة لسؤالك الرقم 1111 هو شرط وليس نطاق أو مرجع حيث أن نطاق الشرط يوجد في ورقة الأسماء في النطاق L2:L2800 الشرط هو 1111 ... والنطاق المشار إليه توجد به معادلة تجميع للصف والفصل والنوع والديانة ..

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