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

الردود على موضوع (افتح الباب وادخل لعالم البرمجة)


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

الأخ الفاضل زوزوزو

مرحبا بك في المنتدى .. بالنسبة لطلبك ليس هذا موضعه ولكن سأرد عليك

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

فمثلاً لو كتبنا هذ الرقم 15.12312 في الخلية A1 ، ثم كليك يمين على الخلية ثم Format cells أو تنسيق خلايا ثم اخترنا Number من قائمة Catregory ثم حددنا العلامات العشرية وجعلناها 2 من Decimal Places أي أن عدد الأرقام العشرية الظاهرة ستكون رقمين فقط أي أن الخلية A1 ستظهر بهذا الشكل 15.12

قم بنفس الخطوات في الخلية B1 اكتب الرقم 10.32641 واجعل التنسيق يبدو بهذا الشكل 10.33 .....

الآن نأتي لاختبار القيم (ركز أن القيم الظاهرة مجموعها يدوياً يساوي 25.45 ) ..

في الخلية C1 اكتب المعادلة بهذا الشكل
 

=SUM(A1:B1)

سيكون الناتج 25.45

وهذا أيضاً قيمة ظاهرية فقط .....وللتأكد قم بنسخ الخلية C1 ، كليك يمين عليها ثم Copy ، وفي أي خلية فارغة كليك يمين ثم لصق خاص واختر Values أي لصق القيم فقط ستجد أن الناتج هو 25.44953

 

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

لأن حل المشكلة إذا فهمتها جيداً قد يفيدك في أمور مماثلة ..

المهم هناك دالة في الإكسيل تسمى ROUND وهي دالة التقريب .. تقوم الدالة بتقريب الأرقام العشرية

في الخلية A2 اكتب المعادلة التالية

=ROUND(A1,2)

أي أن الدالة ستقوم بتقريب الرقم الموجود في الخلية A1 لأقرب رقمين عشريين وسيكون الناتج 15.12 ، وللتأكد أنه لا يوجد أي أرقام عشرية مرتبطة الآن بهذا الرقم قم بنسخ الخلية A2 والصقها لصق خاص كقيم في أي خلية فارغة

اسحب المعادلة في A2 إلى الخلية B2 لتصبح المعادلة في B2 بهذا الشكل

=ROUND(B1,2)

ويكون الناتج 10.33 وهو قيمة حقيقية وليست ظاهرة

الآن في الخلية C2 اكتب معادلة الجمع

=SUM(A2:B2)

ويكون الناتج 25.45 ، للتأكد من صحة النتائج قم بنسخ الخلية C2 ، كليك يمين ثم Copy ثم في خلية فارغة كليك يمين ثم Paste Special ثم اختر Values أي القيم .. ستجد أن الناتج 25.45

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

تقبل تحياتي

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

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

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

جزاك الله خير وبارك الله فيك يا ابو البراء في ميزان حسناتك وشوية لام محمد والان وقت غداء خلي ام محمد تجهز الغداء

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

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

 وهذه محاولة مني لتجريب الكود مع إضافة تمكن بالمحافظة على المسلسل وجعله ديناميكيا وقد أدرجت خاصية usedrange بدل xlup وأتمنى من سيادتكم التوجيه إلى الأصوب

Sub SortData()
''للحفاظ على المسلسل يمكن جعل الترتيب ديناميكي كم سيأتي:
  Dim Line As Long, LineMax As Long
  
    With ورقة1
       ' 'يمكن إدراج عبارة .usedrange بدل xlup كالتالي:
     LineMax = .UsedRange.Rows.Count
      ' ' الترتيب المطلوب:
        Range("A1:C" & LineMax).Sort Key1:=Range("C1:C" & LineMax), _
        Order1:=xlDescending, Key2:=Range("B1:B" & LineMax), Order2:=xlAscending, Header:=xlYes
      ' ' الترتيب الديناميكي للصف انطلاقا من آخر صف مستخدم
        ' ' لاحظ استخدام عبارة step-1
        For Line = LineMax To 2 Step -1
            If .Cells(Line, 2) <> "" Then
              .Cells(Line, 1).Value = Line - 1
            End If
        Next Line
 
    End With
   End Sub

Lesson13Exam.rar

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

ليا رجاء لو ممكن حد يساعدنى

لانى عملت فورم بس مبعرفش اربطها بالاكسيل او اخفى الاكسيل واخلى الفورم هيا اللى تظهر بس وانا عايز اعملها كدا لو سمحتم؟

http://www.officena.net/ib/index.php?showtopic=58721

 

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

مشكور أخي خالد على مرورك العطر

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

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

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

  • 2 weeks later...

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

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

شكرا وبارك الله فيك أستاذنا يـــــاسر واصل إلى الأمام ســــــــر  ، تقبل الله سعيك وزادنا وإياك علما نافعا ونفع بك الأمة.

تقبل تحيـــــــــــاتي.

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

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

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

المهم يا شباب عايز أشوف إبداعاتكم .. في مساعدة الأخوة المبتدئين ..!!

احنا زرعنا زرعة عايزين نشوف يوم الحصاااااااااد

تقبلوا تحياتي

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

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

أخي الغالي ياسر ، تهاني الصادقة بمناسبة ترقيتك إلى خبير معتمد ( التهنئة متأخرة ههههههه)

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

غيابي له علاقة بموضوعين اثنين :

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

الثاني هو تغيير مقر الإقامة حيث تنعدم فيها الأنترنت ( منطقة ريفية خلابة )

تأكد أخي أنك لم تغب عن ذهني ومحبتك خالصة لوجه الله تعالى

ما تقدمه للمنتدى رائع ، جعله الله في ميزان حسناتك

تحياتي إلى الجميع ، أعدكم بالعودة ريثما أحال على التقاعد ( العام المقبل ههههههههه ).

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

الأخ الحبيب الغالي .. الأخ الغائب عن العين الحاضر في القلب دائماً

لكم اشتقت إليك واشتقت إلى تواجدك معنا بالمنتدى

الله وحده يعلم مدى حبي لك في الله .. وغلاوتك في قلبي ...

وننتظرك دائما وأبدا متواجدا معنا بشكل دائم كما عهدناك سابقاً ...

أشهد الله وأشهد جميع خلقه وكل من بالمنتدى (إني أحبك في الله)

جمع الله بيننا في الفردوس الأعلى من الجنة (قوووووووووول آمين يا سالم)

:dance1:  :dance1:

:fff: :fff:

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

الأخ الفاضل الفارابي

نورت المنتدى ومرحبا بك بين إخوانك

.. إنت لسه شفت إندهاش ..عيش بس في المنتدى شوية وإنت الإندهاش بالنسبة لك هيبقا عادي جدا ..

تقبل تحياتي

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

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