anas_amt قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 السلام عليكم تحدي حقيقي للخبراء ،، ولم اجد له حل بخبرتي .. عندي ملف اكسل قمت بتصدير خلاياه من برنامج محاسبي /أفاق/ ولكن الارقام لا يمكنني وضعها في معادلات ولا يقرأها اكسل كارقام ولو قمت بتعديل الخصائص لها //كأنها يقرأها كصورة\\ وفي المرفقات محاولة لعمل معادلة بسيطة لاستخراج سعر المستهلك من سعر التكلفة ولكن لا جدوى والدليل موجود في المرفقات test.rar 1
الصـقر قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 اخى الحبيب انس مرحبا بيك فى جامعه اوفيسنا يا عم انس بلاش شعارات التحدى دى انا كلنا هنا بنتعلم مش خبراء ولا حاجه انا عن نفسى بحاول معاك يا بتصيب يا بتخيب المهم بخصوص طلبك ممكن تبعتلى نسخه من الملف الاصلى بعد عملية التصدير من البرنامج مباشرة وعايز اسالك سؤال هل بعد عملية التصدير وبتدخل للاكسيل تلاقى فى على الخلايا علامة مثلث خضراء صغيره جدا هل رائيتها ام لا ؟ تقبل تحياتى 3
ياسر العربى قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 انا بحب التحدى ياعم صقر انا احط ايدي علي المشكلة تلاقيني فريره بس احط ايدي علي المشكلة بس انا كسبت التحدي test.rar هاااااااا انا قد التحدي المشكلة الفاصلة بس تعمل بحث واستبدال وتحط علاة ال فاصلة وتنزل مكانها . بوينت دي 4
ياسر العربى قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 (معدل) عملتلك برنامج تحويل الارقام كمان دا الواحد بقي خبير خبرة مستخبرتشي علي حد اه نسيت اقول ياريت تغيرر اسم الظهور بالمنتدى للغة العربية لسهولة التعامل الحل هنا وانسخ براحتك من اي برنامج.rar تم تعديل نوفمبر 2, 2015 بواسطه ياسر العربى 4 1
الصـقر قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 (معدل) يا حبيبى كدا انت بقيت خبير معتمد طيب الناس زعلانه ليه من ترقيتك اللى جت بسرعه الصاروخ قالو يمكن لك واسطه او شئ ما انت تستاهل اهو طبعا انت عرفت مين دلوقتى ارفع روح التحدى كمان وكمان هى دي اوفيسنا طاقه ايجابيه تكاد تنفجر من الابداع تقبل تحياتى يا كبير تم تعديل نوفمبر 3, 2015 بواسطه الصـقر 5
الـعيدروس قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 اخ ياسر العربي حل جميل وهذا لتغير الفاصله في مدى الارقام Sub A() Dim R As Range For Each R In Range("B2:D" & Cells(Rows.Count, 2).End(xlUp).Row) R.Replace [i1], "." Next End Sub 4
عبد العزيز البسكري قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيكما : الأستاذ القدير "الصّقر" الأستاذ القدير "ياسر العربي" على الحلول العمليّة المفيدة و الرّافعة للتحدّي ..قبِلتما التحدّي و كسبتماه.. رغم إنّي من المتفرّجين لكن .. المتفرّجين المشجّعين الذين يجيدون التّصفيق بحرارة ..أقول لكما : بارك الله فيكما و زادكما من علمه وفضله و زادها بميزان حسناتكما فائق إحتراماتي 3
ياسر العربى قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 اخ ياسر العربي حل جميل وهذا لتغير الفاصله في مدى الارقام Sub A() Dim R As Range For Each R In Range("B2:D" & Cells(Rows.Count, 2).End(xlUp).Row) R.Replace [i1], "." Next End Sub مشكور استاذي الغالي العيدروس علي الاضافة الجميلة السّلام عليكم و رحمة الله و بركاته بارك الله فيكما : الأستاذ القدير "الصّقر" الأستاذ القدير "ياسر العربي" على الحلول العمليّة المفيدة و الرّافعة للتحدّي ..قبِلتما التحدّي و كسبتماه.. رغم إنّي من المتفرّجين لكن .. المتفرّجين المشجّعين الذين يجيدون التّصفيق بحرارة ..أقول لكما : بارك الله فيكما و زادكما من علمه وفضله و زادها بميزان حسناتكما فائق إحتراماتي اخي عبد العزيز البسكري انت ونعم المتابع الجيد الاحظ نشاطك في المشاركات وتفاعلك اما بحل او بشكر او اعجاب لك كل الشكر والتقدير علي مساهماتك الطيبة داخل المنتدى العظيم 3
سليم حاصبيا قام بنشر نوفمبر 2, 2015 قام بنشر نوفمبر 2, 2015 انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء انسخها الى الخلية F2 واسحب نزولاً =SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2) 7
الصـقر قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 (معدل) ماشى يا عم سليم وانا قبلت التحدى كنا عايزين نكون متواضعين بس يالا طالما قلبتوها تحدى دا حل لاى تصدير من اى برنامج محاسبى الى ملف الاكسيل باستخدام تحديد الفاصله العشريه المستخدمه بعيد عن الاكواد وبعيد عن المعادلات شاهد الصور وانا مازالت منتظر اجابته عن هل بعد عملية التصدير وبتدخل للاكسيل تلاقى فى على الخلايا علامة مثلث خضراء صغيره جدا هل رائيتها ام لا ؟ لو الاجابه نعم فالحل بضغط زر صغيره مرفق ملف يا عم انس وبلاش عبارات التحدى دى تانى لان من تواضع لله رافعه لان العلم ملوش كبير وملوش نهاية وفوق كل زى علم عليم test.zip تم تعديل نوفمبر 3, 2015 بواسطه الصـقر 6
ياسر العربى قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 خلاص بقي ياعم صقر وقت التحدي انتهى (وفهمتوا التيته ) ابقي ترجم التيته دي لاني معرفشي اقولها ازاي 4
عبدالله المجرب قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 جميل جداً اشكرا الجميع على جهودهم واشكر صاحب الكوضوع على التحدي الذي كان نتاجه هذه الحلول الجميلة وشكراً 3
محمد الريفى قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 السلام عليكم استاذتى الاعزاء اسمحوا لى ان ازيد فى هذا الخير بهذه المعادلة =VALUE(REPLACE(D2;FIND("٫";D2;1);1;".")) test.rar 5
ياسر العربى قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 السلام عليكم استاذتى الاعزاء اسمحوا لى ان ازيد فى هذا الخير بهذه المعادلة =VALUE(REPLACE(D2;FIND("٫";D2;1);1;".")) test.rar مشكور اخي الغالي محمد الريفي لاضافتك الجميلة وجميع الخبراء ويبقي الحل النهائي للموضوع هو بحث واستبدال الفاصلة نهائيا لسهولة التعامل مع الارقام فيما بعد داخل اي معادلة حسابية 1
محمد الريفى قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 بارك الله فيك وجزاك خيرا استاذنا الحبيب ياسر العربى هذا فعلا اساس الحل وانا اسعد حين ارى حلولا متنوعه مره بالكود ومره باستخدام خيارات الاكسيل ومره بالمعادلات ماشاء الله لاقوة الا بالله واننى من انصار التحدى بالمعادلة فى الاكسيل . ماشاء الله ربنا يبارك فى الجميع تقبل تحياتى وتقديرى 2
محمد حسن المحمد قام بنشر نوفمبر 3, 2015 قام بنشر نوفمبر 3, 2015 ما شاء الله بارك الله بحر من العلم الزاخر بالدرر جزاكم الله خيراً. عمل رائع وإضافات جميلة.. لا نملك إلا تقديم الشكر.. والسلام عليكم. 4
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.