محمد طاهر عرفه

جرب تغيير الاعدادت المحلية للنظام
ابحث عن  System Local
و غيرها للعربية
 
او اتبع الخطوات هنا
1- Control Pannel
2- Date , time or number format  
3- Administrative language setting
4- change system local
و اختر العربية

مرفق مثال
اختر احدي الخلايا
ثم اختار قائمة التنسيق الشرطي
من قائمة تنسيق لتري كيفية كتابة الشرط

Format
Conditional format

الشرط معد بحيث ان اللون اذا كانت القيمة 7 او اكثر تلون بالازرق
و ان كان اقل من 6 تلون بالاحمر

و للتنفيذ اختار الخلايا المراد تلوينها و نفذ نفس التنسيق
او اختار نسخ و لصق التنسيق من الخلايا فى الملف الي ملفك
conditional.zip

بفرض ان الكيلو فى العمود الاول و المتر فى التالي و السم فى الثالث


Private Sub Worksheet_Change(ByVal Target As Range)    Dim aval, bval, cval    aval = Range("a" & Target.Row).Value    bval = Range("b" & Target.Row).Value    cval = Range("c" & Target.Row).Value     If ActiveCell.Column = 1 Then If Target.Column = 1 Then    Range("b" & Target.Row).Value = aval * 1000    Range("c" & Target.Row).Value = aval * 100000    Exit Sub End If End If If ActiveCell.Column = 2 Then If Target.Column = 2 Then    Range("a" & Target.Row).Value = bval / 1000    Range("c" & Target.Row).Value = bval * 100    Exit Sub End If End If If ActiveCell.Column = 3 Then If Target.Column = 3 Then    Range("b" & Target.Row).Value = cval / 100    Range("a" & Target.Row).Value = cval / 100000    Exit Sub End If End If End Sub
ExcelUnits.zip

السؤال : كيف يمكن أن أضع قيود علي الادخال فى الخلايا

مثلا ألا تزيد عن 6 أرقام

الاجابة

Data
Validation Rules
Whole Number
is less than or equal to
1000000

السلام عليكم
تم الدمج بعد التاكد من كون الحسابين لك

السلام عليكم

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

أي أن كل الارقام التي زادت عن ال 45000 يتم تطبيق نسبة 1.5% علي أول 45000 منها ... و هكذا ...

مثال اذا وقع الرقم تحت ال 60000 يتم تطبيق 1.5% علي اول 45000 و 3% علي الباقي .. و هكذا

مرفق المثال و أرجو أن يكون هو ما تطلب
GetPerentage2.rar

جرب هذا الموضوع
http://www.officena.net/ib/index.php?showt...ic=583&hl=تقريب

مع استخدام التقريب بدرجة تقريب 0.5 فى الدالة الثالثة فى المثال

لزيادة قيمة علي الموجود فى خلية

Range("B3").Value = Range("B3").Value + 1 أو بصورة أكثر تفصيلا كاحتياط لعدم وجود قيمة فى الخلية Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("B3").Value) Then Range("B3").Value = 1 End If aa = Range("B3").Value Range("B3").Value = aa + 1 Application.ActiveWorkbook.Save End Sub

مثلما فى هذا الموضوع
http://www.officena.net/ib/index.php?showtopic=396

أعتقد أن الحل الذي قمت به مناسب جدا

هذا ملف به طريقة مثيلة ، راجع الخلايا فى الصفوف الاولي المخفية
Calendar_for178_years.rar

فى بداية الماكرو ضع الكود التالي


If Range("a1") <> 1 Or Range("a2") <> 2 Then  MsgBox "not valid"  Exit Sub End If

Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNull(Range("a3")) Then Range("b3") = Now() End Sub

مرفق ملف اكسيل به 3 ماكروهات

الاول لاظهار مربع حوار فتح ملف ثم الفتح
الثاني لاظهار مربع حوار حفظ ملف ثم الحفظ
الثالث لاختيار الالوان و تطبيق الاختيار علي الخلايا المختارة

لتشغيل الماكرو
من قائمة
tools
Macros

أو

ALT+F8
Dialogs.rar

المثال لعدد كبير من الدوال موجود هنا


التفقيط فى الإكسيل
تحويل الأرقام الي حروف
http://www.officena.net/ib/index.php?showt...pic=33&hl=تفقيط

المثال المرفق يبين كيفية اختيار بيانات من مجال محدد عن طريق كومبو و اظهار النتيجة كصف فى مكان آخر
و لأن هذه الطريقة تعيد القيمة فى خلية واحدة فقط
فقد تم الاستعانة بالدالة vlookup لعرض باقي القيم
أولا : من تخصيص اليقونات اضغط علي صندوق الادوات
Toolbox
و ختار القائمة المنسدلة combo box
و ضعها فى ورقة العمل
اختار القائمة المنسدلة بالزر الايمن
ثم
Format Control
control
وحدد مجال الادخال و النتيجة
( راجع المثال )
combo1.xlsx

اذا كان المقصود اغلاق الاكسيل


Application.Quit

الفكرة هي فى عملية تثبيت المراجع للخلايا المختلفة

فاذا لاحظنا اذا استخدمنا اللصق الخاص ثم paste Link
ستجد علامتي $ موجودتان فى المرجع امام خانتي الصف و العمود
فبذلك يكون الارتباط بهذه الخلية اينما ذهبت و حتي لو اختلف مكانها فى الترتيب

لذا و انت فى الشيت الرابع اختار الخلية التي تريد ، ثم اكتب فيها =
ثم اذهب بالماوس الي الشيت الثاني و انتقي الخلية المطلوبة ثم اضغط F4 لمرة واحدة ، ثم اكتب +
ثم اذهب الي الشيت الثالث و انتقي الخلية المطلوبة ثم اضغط F4 لمرة واحدة

فتكون انشأت المعادلة المطلوبة و التي تربط بين الثلاث خلايا فى الشيتات الثلاثة حتي مع تحركها

ملاحظة
نلاحظ أنه بضغط F4 مرة واحدة تم وضع العلامة $ امام مرجع الصف و العمود و هذا يعني التحديد التام للخلية
فاذا نسخت المعادلة رأسيا أو افقيا ستظل تشير الي نفس الخلاية

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

بالنسبة للشرح المصور و الدروس ، يصعب علي ذلك فى الوقت الحاضر للاسف

مع تحياتي

الحل الانسب و الاسرع هو الجداول المحورية أو عمل فلتر متقدم و افضل الجداول المحورية لسهولة التحديث و تغيير شكل العرض
http://www.officena.net/ib/index.php?showt...150&hl=المحورية

تم فصل السؤال فى موضوع منفصل
و يرجي طرح كل سؤال فى موضوع منفصل بحسب قواعد المشاركة

بخصوص كلمة السر راجع هذا الموضوع

كيف يمكن عمل باسورد لشيت ؟
http://www.officena.net/ib/index.php?showtopic=695

بالنسبة للتقدير راجع هذا الموضوع
درجات الطلاب والتقدير التلقائي في الاكسيل
http://www.officena.net/ib/index.php?showt...رجات,or,الدرجات
تصنيف المجموعات فى الاكسيل
مثل تحديد تقدير الطلاب
http://www.officena.net/ib/index.php?showt...69&hl=المجموعات

معادلة الترتيب
http://www.officena.net/ib/index.php?showtopic=1546

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

مع تحياتي

tools
options
calculation
automatic

و اذا لم تعمل
ففي الاغلب سيكون هناك
Circulat reference
في معادلة من المعادلات
و لاكتشافها
Tools
Customize
Toolbars
Cirucular reference
و افتح الكومبو لتعرف مكان الخطأ

و مرفق المثال لعمل كشف حساب عميل
للاخ أمير
customer_mobtadii.rar

ضع ال 11 و ال 4
فى الخلايا
a1,a2
عل التوالي

و المعادلة تكون


=+ROUNDDOWN(A1/A2;0)

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

أو تستخدم ماكرو

و الدوال المتاحة هي
Lower
Upper
Proper

و لتجربتها ضع اي كتابة فى خلية مثلا c3
و امتاب المعادلة الاتية فى أي خلية أخري


=PROPER(C3) =UPPER(C3) =LOWER(C3) للتحويل بين الانواع المختلفة من طرق الكتابة و يمكن تطبيق نفس الدوال من خلال الماكرو مثل اذا اردنا تحويل خلية واحدة أن تضع الكود التالي لتحويل الحلية الفاعلة ال uppercase Sub getupper() ActiveCell.Value = UCase(ActiveCell.Value) End Sub

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

الخلفية المضافة من
Format
Background
للمشاهدة فقط و لا تطبع

اذا اردت الطباعة
فأدرج صورة من قائمة
Insert

مع تحياتي

ما هي الدالة Mround ??

هي دالة قمت بكتابتها ، أم مضافة من Add-in ؟؟

عموما بالنسبة لاستخدام الشرط فى هذه الحالة


=IF(A2>=0;mround(A2;7);mround(A2;-7))

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

اختار تنسيق الخلية أو الخلايا
ثم
تنسيق مخصص

Format cell
custom

و ضع التسيق التالي

0000.00