نجوم المشاركات

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

طلب احد الزملاء طريقة فصل القيم عن الحروف فى ملف اكسيل قام بنسخه من الانترنت ، من هذا الموقع http://www.priceoftravel.com/595/public-transportation-prices-in-80-worldwide-cities/# بالمناسبة الملف عن مقارنة لاسعار المواصلات فى عدة دول ، و لا اعلم مدى دقة بياناته علما بانه بعد النسخ كان طول النص و كذلك طول القيم مختلف من خلية لاخرى مرفق الملف و به المعادلة ، ربما يحتاجه البعض الفكرة فى البجث عن مكان حرف ال $ باستخدام دالة find و تجزيء النص بالطريقة العادية باستخدام دالتي left , right Split PT Prices around the world.rar

لا يمكن اخي الكريم ابو تامر XLSX غير مخصص لحفظ الاكواد المخصص والشائع الاستخدام لحفظ وحدات الماكرو عموما هم Xls Xlsm Xlsb

مشكور استاذنا الكريم ا محمد طاهر ولاثراء الموضوع بالكود والغاء علامة $ وتحويل القيم الى رقمية لاجراء العمليات الحسابية على المخرجات بكل سهولة Sub splitText() Dim splitVals As Variant Dim totalVals As Long For Each xx In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) splitVals = Split(xx.Value, "$") totalVals = UBound(splitVals) Range(Cells(xx.Row, xx.Column + 1), Cells(xx.Row, xx.Column + 1 + totalVals)).Value = splitVals Next FIND ConvertTextNumberToNumber End Sub Sub ConvertTextNumberToNumber() On Error Resume Next For Each Y In Sheet1.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(Y) Then Y.Value = Val(Y.Value) Next End Sub Sub FIND() Range("D:D").Replace What:="–", Replacement:="", LookAt:=xlPart End Sub تقبل تحياتي Split PT Prices around the world.rar

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

عَنْ أَبِي هُرَيْرَةَ قَالَ قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ مَنْ سَلَكَ طَرِيقًا يَلْتَمِسُ فِيهِ عِلْمًا سَهَّلَ اللَّهُ لَهُ طَرِيقًا إِلَى الْجَنَّةِ

من غشنا فليس منا ... بارك الله فيك أخي عمر من يحاول مساعدة إخوانه بأن يطرح الموضوع في المنتديات الأجنبية فهذا ليس بغش إنما هي محاولات للتعلم والاستزادة من ذوي الخبرات ، وفي نفس الوقت حل مشكلة أخ في الله ربما لا تساعدة اللغة على أن يقوم بذلك ولا يمكننا أن ننكر أن في المنتديات الأجنبية من يفوقونا في الإمكانيات لأنهم سبقونا ، وهذا لا يعني مطلقاً أننا ليس لدينا إمكانيات وقدرات .. يوجد منا الكثير ممن لديهم موهبة فذة (ومن أمثالهم معلمنا أبو تامر) ولي رجاء أن تفصح عما في صدرك فأنا لا أخفي سراً ، واسمي في المنتديات الأجنبية YasserKhalil (في كل المنتديات الأجنبية التي تخص الإكسيل) ، ولا أنكر أنني ربما أطرح أكثر من موضوع كل يوم ، وحتى في الموضوعات التي لدي حل لها طلباً للمزيد ولمزيد من الإفادة والاستفادة وها هو رابط الموضوع http://www.excelforum.com/excel-programming-vba-macros/1156481-gather-similar-data-in-two-tables.html تقبل تحياتي

بعد اذن اخي ياسر تم التحويل الى ارقام فرز ارقام salim_number.rar

اخي الكريم احمد ضع هذه المعادلة مكان الخلية الصفراء =SUBTOTAL(109;$B$3:$B$12)

شكرا لك اخي ياسر العربى جزاكم الله كل خير

أخي العزيز الزباري بارك الله فيك وجزيت خيراً الدالة Trim تقوم بحذف المسافات الزائدة أما المسافة الواحدة فلا تحذفها ، ولذا مع وجود مسافة واحدة ستظل كما هي وسيظل الناتج كما هو 4 لذا فإن المعادلة التي قدمها أخونا محمد صبحي تعطي النتيجة المطلوبة حيث يتم استبدال المسافات بلا شيء فتعطي النتائج المطلوبة =LEN(SUBSTITUTE(A1," ","")) تقبل تحياتي

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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد والان اترككم مع الدرس وان شاء الله تعم الفائدة

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

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

هههههه الحمد لله ودا شرف لي ان تكون افكارى تشابه افكارك اخي الكريم سليم تقبل تحياتي

جرب هذه المعادلة في نفس المكان =IF(SUBTOTAL(103,$B$3:$B$12)=10,"",SUBTOTAL(109,$B$3:$B$12)) اخي ياسر يبدو ان هناك توارد افكار فيما بيننا

اولا معذرة اخي سليم لم ارى اجابتك ثانيا تفضل اخي احمد المعادلة التالية =IF(SUBTOTAL(3;$B$3:$B$12)=COUNTA($B$3:$B$12);"";SUBTOTAL(109;$B$3:$B$12))

اثراءً للموضوع حل آخر Color_cel Keeping The Origenal Color.rar

وهذه محاولة أخرى Sub Test() Dim arr, X, I As Long arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Resize(, 4).Value On Error Resume Next For I = LBound(arr, 1) To UBound(arr, 1) X = Split(arr(I, 1), "$") arr(I, 2) = X(0) arr(I, 3) = Replace(X(1), "–", "") arr(I, 4) = X(2) Next I Range("B2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr End Sub

اخي ياسر اقبل تفسيرك علي علته شكلا و موضوعا بارك الله فيك اخي

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله كلنا نتعلم من بعضنا البعض أخي وحبيبي مختار ، وكم تعلمت منك الكثير والكثير وما زلت تبهرني بما تقدم ، فجزاك الله خير الجزاء

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

أشكرك أخى ياسر بالفعل أخى بعد كتابة الكود تذكر ت ماذا لو كان هناك خلايا ملونة بالفعل وظللت أفكر فى طريقة لارجاع اللون الاساسى للخلية قبل التحديد الى أن وجدت مشاركتك السابقة و أشكرك مرة تانية على الرابط المرفق تطبيق لكودك مع خالص تحياتى Highlight ActiveCell Only Using C. F.rar

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

اكتب هذه المعادلة في الخلية B15 =SUBTOTAL(109,$B$3:$B$12)

أهلا بك يا أيها العضو الجديد ضع الكود فى حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Cells.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 7 Application.ScreenUpdating = True End Sub الرقم 0 يدل على عدم تلوين خلايا الشيت الرقم 7 يدل على لون الخلية المحددة يمكنك تغيره تحياتى

مبدع كالعادة المهندس ياسر بارك الله فيك انا فكرتك فقط ملك ف االاكواد فظهرت عبقريتك ف المعادلات وشكرا للمهندس جمال على ابداعه باركك الله

استاذنا القدير ابداع وروعه ادامك الرحمن لنا منقذا

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

شكرا لكم إخوتي الأستاذ رمهان و الأستاذ محمد أيمن و الأستاذ أبو عبد الله الحلواني زادكم الله من علمه و فضله. و أيضا هذا الكود بإمكانه أن يقوم بالمهمة المطلوبة. Private Sub أمر2_Click() Do While currentrecord <> Me.list0.ListCount list0.RemoveItem 0 Loop End Sub

أخى محمد التنسيق أمر سهل جدا الحل في حجم ورقة الفاتورة 4.rar

تحياتي استاذنا الغالي بالفعل تواردت الخواطر في نفس اللحظة وحتى نفس الكود الذي ذكرته لكنني احببت الاختصار قدر الامكان

اخي الاستاذ محمد ايمن يبدو ان الخواظر تواردت في نفس اللحظة وهذه فكرة اخرى Private Sub أمر2_Click() For i = 0 To Me.القائمة0.ListCount - 1 Me.القائمة0.RemoveItem 0 Next End Sub تحياتي للجميع

Me.القائمة0.RowSource = "" تحياتي

تفضل اخي الكريم list box1.rar

السلام عليكم أولا- دعك من مثال الاخوة الذى تم تعديله (فلكل مثال حالته الخاصة وفكرته التى يقوم عليها) وللنظر الى مثالك الخاص , صف لنا حركة المديونية الخاصة بعملائك أنت كيف هى وماذا تريد أن تفعل بها سأعطيك مثالا نظريا حسب فهمى لمرادك وأخبرنى ان كان فهمى صحيحا أم لا العميل (س) رصيده = 100 فى 1/9 فاتورة للعمل (س) = 50 فى 2/9 صار رصيد العميل الآن 150 (تمام كدا) تم سداد العميل (س) لمبلغ 30 فى 3/9 صار رصيده الآن 120 هذه حركة مديونية العميل (س) من 1/9 حتى 3/9 ان كان هذا مرادك قمنا بتطويعه لك

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

انظر المرفق وأخبرني بالنتيجة فلتر يوزر فورم مع التعديل.rar

جزاك الله خيرا وربنا ما يجعلنا ممن يتعلمون فيسيؤون العمل واجعلنا ممن يتعلمون فيحسنون العمل بالتوفيق اخى ياسر

قبل كود الطباعه ضع هذا الكود فقط Me.Refresh

تم التعديل على اساس كل عميل في صفحة فإن ارت ان تضم اكثر من عميل في صفحة فاحذف الفاصل في التذييل tables&.rar