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

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

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

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

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

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

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

كفكرة يمكنك استخدام Step للتنقل بمقدار 6 صفوف كل مرة بدلاً من التنقل بشكل عادي .. For I = 1 to 1000 Step 6 هذا مجرد خيط يمكن أن تبدأ به .. وأعتذر لأن وقت العمل قد حان ولن أكون متواجد

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

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

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

وعليكم السلام جرب الملف التالي حسابات تجارية.rar

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

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

وعليكم السلام ورحمة الله وبركاته كفكرة يمكنك إرسال الملفات إلى أحد الأعضاء ممن يستخدمون 2016 ليحفظها لك بتنسيق قديم وليكن 97 / 2003 لا أعلم شكل النتائج للملفات بعد فتحها لكن آمل أن تنجح الفكرة

جرب الدالة المعرفة التالية لتفي بالغرض تماماً مثل الدالة FormulaText الغير مدرجة في أوفيس 2007 Function GetFormula(MyRange As Range) As String If Left(MyRange.Formula, 1) = "=" Then GetFormula = MyRange.Formula Else GetFormula = "" End If End Function أخي الكريم أبا سلمان إليك الملف المرفق الذي يلبي طلبك إن شاء الله رابط الملف المرفق من هنا

تفضل أخي الكريم الملف التالي عله يفي بالغرض إن شاء المولى رابط الملف المرفق من هنا

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

بارك الله فيكم إخواني الكرام وجزيتم خيراً على تشجيعكم الدائم لي تقبلوا تحياتي

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

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

بارك الله فيك أخي أبو عيد إثراءً للموضوع إليكم ملف بدون أكواد بمعادلات فقط تمكنك من الذهاب إلى آخر خلية في العمود المحدد (في المرفق مطبق على العمود C) بحيث يذهب لآخر خلية في العمود C .. رابط الملف المرفق من هنا

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

جميل إنك غيرت فكرك في دالة عمود البحث عايز تتنصل من الأفكار القديمة شوية ..شايفك معتمد على Lr آخر صف في أكتر من سطر .. أما آن الأوان لاستخدام كلمة UBOUND يليها قوس مفتوح ثم اسم المصفوفة المطلوب معرفة أقصى عدد للصفوف أو الأعمدة ثم فاصلة ثم الرقم 1 إذا كنت تريد الحصول على أقصى عدد للصفوف أو الرقم 2 إذا كنت تريد الحصول على أقصى رقم للأعمدة .. هذا سيجعل الكود أكثر مرونة .. ويلا بالمرة كمل جميلك وخليه التعديل رقم 17 .. وبردو فيه رقم واحد في السطر ده معرفشي لازمت ايه .. myArray = DATA.Range("A2:J" & lr + 1) تقبل تحياتي

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

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