اذهب الي المحتوي
أوفيسنا

تحدي للخبراء في ملف اكسل


anas_amt

الردود الموصى بها

السلام عليكم

تحدي حقيقي للخبراء ،، ولم اجد له حل بخبرتي ..

عندي ملف اكسل قمت بتصدير خلاياه من برنامج محاسبي /أفاق/

ولكن الارقام لا يمكنني وضعها في معادلات

ولا يقرأها اكسل كارقام ولو قمت بتعديل الخصائص لها

//كأنها يقرأها كصورة\\

وفي المرفقات محاولة لعمل معادلة بسيطة لاستخراج سعر المستهلك من سعر التكلفة

ولكن لا جدوى

 

والدليل موجود في المرفقات

test.rar

  • Like 1
رابط هذا التعليق
شارك

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

يا عم انس بلاش شعارات التحدى دى انا كلنا هنا بنتعلم مش خبراء ولا حاجه

انا عن نفسى بحاول معاك يا بتصيب يا بتخيب 

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

وعايز اسالك سؤال

هل بعد عملية التصدير وبتدخل للاكسيل تلاقى فى على الخلايا علامة مثلث خضراء صغيره جدا هل رائيتها ام لا ؟ 

تقبل تحياتى

 

  • Like 3
رابط هذا التعليق
شارك

انا بحب التحدى ياعم صقر  

انا  احط ايدي علي المشكلة تلاقيني فريره   :dance1:

:')بس احط ايدي علي المشكلة بس

 

انا كسبت التحدي

test.rar

:jump:هاااااااا انا قد التحدي

المشكلة الفاصلة بس تعمل بحث واستبدال 

وتحط علاة ال فاصلة وتنزل مكانها  

.   بوينت دي 

  • Like 4
رابط هذا التعليق
شارك

عملتلك برنامج تحويل الارقام كمان

:wink2:دا الواحد بقي خبير خبرة مستخبرتشي علي حد

اه نسيت اقول ياريت تغيرر اسم الظهور بالمنتدى للغة العربية لسهولة التعامل

 

الحل هنا وانسخ براحتك من اي برنامج.rar

تم تعديل بواسطه ياسر العربى
  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

يا حبيبى كدا انت بقيت خبير معتمد

طيب الناس زعلانه ليه من ترقيتك اللى جت بسرعه الصاروخ قالو يمكن لك واسطه او شئ :wink2: ما انت تستاهل اهو

طبعا انت عرفت مين دلوقتى :Rules:

 :biggrin::clapping::clapping::clapping::clapping::biggrin:

:power::power:ارفع روح التحدى كمان وكمان :power::power:

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

تقبل تحياتى يا كبير

تم تعديل بواسطه الصـقر
  • Like 5
رابط هذا التعليق
شارك

اخ ياسر العربي حل جميل

وهذا لتغير الفاصله في مدى الارقام

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

 

  • Like 4
رابط هذا التعليق
شارك

السّلام عليكم و رحمة الله و بركاته

بارك الله فيكما :

الأستاذ القدير "الصّقر"

الأستاذ القدير "ياسر العربي"

على الحلول العمليّة المفيدة و الرّافعة للتحدّي ..قبِلتما التحدّي و كسبتماه.. رغم إنّي من المتفرّجين لكن .. المتفرّجين المشجّعين الذين يجيدون التّصفيق بحرارة ..أقول لكما :

بارك الله فيكما و زادكما من علمه وفضله و زادها بميزان حسناتكما

فائق إحتراماتي

  • Like 3
رابط هذا التعليق
شارك

اخ ياسر العربي حل جميل

وهذا لتغير الفاصله في مدى الارقام

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

 

مشكور استاذي الغالي العيدروس

علي الاضافة الجميلة

السّلام عليكم و رحمة الله و بركاته

بارك الله فيكما :

الأستاذ القدير "الصّقر"

الأستاذ القدير "ياسر العربي"

على الحلول العمليّة المفيدة و الرّافعة للتحدّي ..قبِلتما التحدّي و كسبتماه.. رغم إنّي من المتفرّجين لكن .. المتفرّجين المشجّعين الذين يجيدون التّصفيق بحرارة ..أقول لكما :

بارك الله فيكما و زادكما من علمه وفضله و زادها بميزان حسناتكما

فائق إحتراماتي

اخي عبد العزيز البسكري انت ونعم المتابع الجيد

الاحظ نشاطك في المشاركات وتفاعلك اما  بحل او بشكر او اعجاب

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

 

  • Like 3
رابط هذا التعليق
شارك

انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء

انسخها الى الخلية F2  واسحب نزولاً

=SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2)

 

  • Like 7
رابط هذا التعليق
شارك

ماشى يا عم سليم وانا قبلت التحدى كنا عايزين نكون متواضعين بس يالا طالما قلبتوها تحدى

دا حل لاى تصدير من اى برنامج محاسبى الى ملف الاكسيل 

باستخدام تحديد الفاصله العشريه المستخدمه

بعيد عن الاكواد وبعيد عن المعادلات

شاهد الصور

large.1.png.53df1c3127a744e2fbf5b651e330

 

large.2.png.99a6a253ed95f71506ff687055cd

 

وانا مازالت منتظر اجابته عن هل بعد عملية التصدير وبتدخل للاكسيل تلاقى فى على الخلايا علامة مثلث خضراء صغيره جدا هل رائيتها ام لا ؟ 

لو الاجابه نعم فالحل بضغط زر صغيره

مرفق ملف يا عم انس 

وبلاش عبارات التحدى دى تانى :rol: لان من تواضع لله رافعه لان العلم ملوش كبير وملوش نهاية وفوق كل زى علم عليم

test.zip

تم تعديل بواسطه الصـقر
  • Like 6
رابط هذا التعليق
شارك

جميل جداً 

اشكرا الجميع على جهودهم 

واشكر صاحب الكوضوع على التحدي الذي كان نتاجه هذه الحلول الجميلة 

وشكراً 

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم استاذتى الاعزاء اسمحوا لى ان ازيد فى هذا الخير بهذه المعادلة

=VALUE(REPLACE(D2;FIND("٫";D2;1);1;"."))

 

test.rar

مشكور اخي الغالي  محمد الريفي لاضافتك الجميلة  

وجميع الخبراء

ويبقي الحل النهائي للموضوع هو  بحث واستبدال الفاصلة نهائيا 

لسهولة التعامل مع الارقام فيما بعد داخل اي معادلة حسابية 

:wink2:

  • Like 1
رابط هذا التعليق
شارك

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

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

واننى من انصار التحدى بالمعادلة فى الاكسيل . ماشاء الله ربنا يبارك فى الجميع

تقبل تحياتى وتقديرى

 

  • Like 2
رابط هذا التعليق
شارك

ما شاء الله بارك الله بحر من العلم الزاخر بالدرر

جزاكم الله خيراً. عمل رائع وإضافات جميلة..

لا نملك إلا تقديم الشكر..

والسلام عليكم.

  • Like 4
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information