عبد الله-بلال

جزاكم الله خيرا

السلام عليكم إخواني أريد المشاركة مع أستاذي الفاضل Eng.Qassim لقد أضفت إضافة عل الدلة التي استفدنا منها جزاكم الله خيرا فأوفت بالغرض و الحمد لله و هي كما يلي : Public Function RoundNmber(Rou As Double) As Double If Rou - Int(Rou) = 0 Then RoundNmber = Int(Rou) Else If Rou - Int(Rou) <= 0.5 Then RoundNmber = Int(Rou) + 0.5 Else RoundNmber = Int(Rou) + 1 End If End If End Function جزاكم الله كل الخير و شكرا

السلام عليكم يا أساتذتي الأعزاء جزاكم الله كل الخير . عندي استفسار لأبو خليل : لقد جربت الدالة هي تعمل مع 0.5 فقط بمعنى إذا كان الرقم مثلا 8.25 تعطينا 9 و هي في الواجب تعطينا 8.50 يعني كل ما فوق 0.50 يكون صحيحا و أما دون 0.50 تعطينا بالخطأ : فمثلا : 7.75 تعطي 8 و هذا صحيح و أما 7.26 تعطينا كذلك 8 و هذا خطأ .فالواجب تعطينا 7.50 . أرجو أن أكون وفقت في إبراز الفكرة و شكرا

أبو خليل السلام عليكم و رحمة الله تعالى و بركاته و جزاكم الله خيرا على هذا الرد السريع . تحياتي

السلام عليكم إخواني أريد دالة تقرب للأعلى في أكسس في حقل محسوب فمثلا : ما دون 0.5 تعطيني نصف و ما فوق 0.5 يعطيني 1 و جزاكم الله كل الخير

السلام عليكم و رحمة الله تعالى و بركاته جميعا و جزاكم الله خيرا على كل مجهود أريد استفسار من الأخ : عبدالله فاروق ابو ريان فيما يخص الدالة dategap فمثلا في الفرق بين التاريخ : 08/11/2021 و التاريخ : 10/03/2023 يزيد سنة يعني النتيجة تكون كالآتي : 2 سنة و 4 شهور و 2 يوم ، و الصحيح هو : 1 سنة و 4 شهور و 2 يوم . فما هو حل هذه المشكلة و جزاكم الله كل الخير .

السلام عليكم إخواني موضوع جميل جزاكم الله خيرا أنا عندي مشكلة أخرى فيما يخص اللغة العربية في الكابشن في إكسل 2016 ، فمثلا عندما أدرج buton أو label في الفورم و أريد أن أغير اسمها في الكابشن باللغة العربية تظهر لي رموز . أرجو من الله أولا ثم من الإخوة حل هذه المشكلة لكي نستفيد جميعا و شكرا

السلام عليكم و رحمة الله تعالى و بركاته أخي الأستاذ محمد صالح و جزاكم الله كل الخير على هذه المعلومة القيمة و لكن أنا كنت أود أن أقول عندما لا يكون تاريخ مكتوب في الخلية b6 يعطيني اسم الشهر للتاريخ المكتوب في الخلية السابقة b5 و في حالة عدم وجود التاريخ في كلتا الخليتين يعطيني فراغ و ليس يناير . و لكن مع المعلومة التي أعطيتها لي و جدت الحل بإذن الله تعالى الله يعطيكم العافية و أدخلكم الله الجنة إن شاء الله . =IF(B6<>"",TEXT(B6,"mmmm"),IF(B5<>"",TEXT(B5,"mmmm"),"")

السلام عليكم يا إخواني موضوعي هو : لقد استخرجت من التاريخ الموجود في العمود b اسم الشهر الموجود في العمود i و لكن عندما امسح التاريخ من أي خلية موجود بها تاريخ ( العمود b ) يعطيني يناير في العمود المقايل i . أريد من الإخوة عندما أمسح التاريخ من أي خلية من العمود b يعطيني فراغ في أي خلية في العمود i و ليس يناير . و جزاكم الله كل خير . المرفق في الأسفل اسم الشهر.xlsx

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

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

أخي إبراهيم الحداد جزاك الله خيرا على الرد ليكن في علمكم بأن الكود جربته و هو يعمل جيدا و لكن أنا لا أحتاج ترحيل الرقم أحتاج التاريخ و هناك شيء آخر أريده إن أمكن و هو خانة المبلغ المتبقي بها معادلات مرتبطة بخلية أخرى يعني عند الترحيل تظهر بهذا الشكل REF# . و للعلم الأخ إبراهيم وجدت كود آخر من الإخوة الأفاضل و هو : Sub Trheel() Dim LR As Integer LR = [B1000].End(xlUp).Row Range("B7:D" & LR).Copy Sheets("Archives").Range("B" & Sheets("Archives").[B10000].End(xlUp).Row + 1) 'Range("B2:D" & LR).ClearContents MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ ", vbOKOnly, "ÊäÈíå" End Sub و جزاكم الله كل الخير

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

جزاكما الله خيرا يا أهل الخير

نعم و اسمح لي على التأخر في الرد