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

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

السلام عليكم ورحمة الله وبركاته إخواني أحبابي في الله وفقنا الله عزوجل إلى فكرة جديدة بدأناها من أسبوعين ، وهي أن يخصص كل أسبوع موضوع للبحث ، يشارك فيه جميع الأعضاء بالبحث وتقديم الحلول المختلفة حول موضوع معين .. ليكون الموضوع فيما بعد مرجع للباحث ، حيث أن الموضوع سيستغرق أسبوع وهي فترة ليست بالقصيرة ، والكل يشارك فيه بكل معلومة ولو بسيطة لإثراء الموضوع .. ويتم مناقشة الحلول المقدمة ومعرفة جوانب القوة والضعف في كل حل لنصل في النهاية إلى حلول متنوعة تثري الموضوع وتجعل الباحث يجد مبتغاه فيما يبحث بشأنه أرجو من الجميع المشاركة وعدم التكاسل ... لا أريد مجرد ردود وفقط .. أريد من الجميع تقديم ولو معلومة بسيطة تثري الموضوع ، فلربما وجد الأخوة الحلول من مجرد فكرة بسيطة موضوع الأسبوع هو كيفية عكس القيم في عمود .. لنفترض أن لدينا القيم التالية في النطاق A1:A6 Yasser 15 Khalil Hello Nader Bye المطلوب أن تكون القيم في العمود المجاور له العمود B بالشكل التالي Bye Nader Hello Khalil 15 Yasser وتقبلوا جميعاً وافر تقديري واحترامي

العفريبت مختفي عننا ليه ؟؟!! تظهر فجأة وتختفي بعدها ..ايه حكايتك يا عفريت

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

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

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

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

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

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

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

أخي وحبيبي الجموعي لكم افتقدتك الآونة الأخيرة .. عوداً حميداً يا رجل ولا تحرمنا من تواجدك معنا فنحن أخوة ونشتاق لإخواننا فلا تحرمنا من رؤياك ولو لدقائق كل يوم مشكور على الهدية القيمة والرائعة تقبل وافر تقديري واحترامي

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

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي

أخي الحبيب عماد غازي مواضيعك مميزة ورائعة .. فقط ينقصها أن ترفق ملف في آخر الموضوع ليتمكن الأعضاء من التطبيق العملي تقبل تحياتي

إنت حيرتني أكتر بالنتائج المرفقة نسبة الـ 10 % في النتائج الخاصة بم مختلفة !!!!!!!!!!!!!!؟؟؟؟؟ مرة 30.32 ومرة 63.31 ةمرة 54.78 ؟ فكيف ذلك عموماً جرب المعادلة التالية في الخلية G6 =($E$6*F6)/SUM($F$6:$F$10) النتائج حسب المعادلة هي 39.6 و 59.4 و 59.4 و 39.6 و 39.6 أي نسب الـ 10 % متساوية ونسب الـ 15 % متساوية !! إذا لم يكن المطلوب يرجى مزيد من التوضيح حول المسألة لتتضح صورة طلبك تقبل تحياتي

بارك الله فيك أخي الغالي الزباري على الهدية الجميلة والرائعة تقبل وافر تقديري واحترامي

لكن النسب الموجودة في الملف المرفق مجموعها 60 % ولذلك طلبت شكل النتائج المتوقعة أخي الفاضل

شوف الفيديو ده لعله يفيدك تقبل تحياتي

أخي الكريم عمر وعليكم السلام ورحمة الله وبركاته رغم أن السؤال يبدو سهلاً إلا أن هناك لبس في فهم المطلوب لدي .. هلا أرفقت بعض النتائج المتوقعة؟ وهل النسب المئوية المراد تقسيم الرقم على أساسها مجموعها لا يشترط أن يكون = 100% أم يشترط ؟ تقبل تحياتي

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

أخي الكريم سامح جرب الكود التالي Sub LoopThroughClosedWBs() Dim WBK As Workbook Dim FolderPath As String Dim FileName As String Dim Counter As Double Dim Sh As Worksheet 'ضع المصنف الذي يحتوي الكود في نفس مسار الملفات المراد العمل عليها FolderPath = ThisWorkbook.Path & "\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" If FileName <> ThisWorkbook.Name Then Application.Calculation = xlManual Set WBK = Workbooks.Open(FolderPath & FileName) With WBK.Sheets("Sheet1") .Range("E1").Formula = "=SUM(A1:B1)" End With Application.Calculation = xlAutomatic WBK.Close SaveChanges:=True End If FileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub في السطر قبل حفظ وإغلاق المصنف يتم وضع السطر التالي Application.Calculation = xlAutomatic تقبل تحياتي

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

ملف الإكسيل يطلق عليه مصنف .. وكل مصنف Workbook به أوراق عمل Sheets يبدو أن الأرقام تم نسخها من مكان ما .. ما هو مصدر هذه الأرقام أخي الكريم لأنني جربت معها أكثر من 10 طرق للآن ولم تفلح المحاولات .. ولكني لن أيأس بإذن الله ... وما زالت المحاولات مستمرة

مشكلة غريبة بالفعل .. لم ألاحظ طلبك بشكل جيد هل المصنف محمي ؟؟؟ !!! المصنف في التبويب Review يشير إلى أن المصنف محمي بكلمة سر ..!! ما هي كلمة السر؟ لأني أجرب عدة طرق .. فصادفني أن المصنف محمي

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