السلام عليكم ورحمة الله تعالى وبركاته
تم رسم الشكل عن طريق VB
تم التحكم في الفم عن طريق شكل تم التحكم فيه حسب معادلة تحدد حسب قيم H3
ثم يتم رسم شكل الفم حسب معادلة وهي
= 0.7181 + Target.Value / 1000
حيث Target.Value تنحصر القيم بين 0.7 و 0.9 حيث الكود هو كالتالي
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errHandler
If Target.Address = "$H$3" Then
Application.EnableEvents = False
' min is 0.7181
' max is 0.8111
Select Case Target.Value
Case 0
Shapes("HappyFace").Adjustments.Item(1) = 0.7
Case 50
Shapes("HappyFace").Adjustments.Item(1) = 0.767
Case 100
Shapes("HappyFace").Adjustments.Item(1) = 0.9
Case Else
Shapes("HappyFace").Adjustments.Item(1) _
= 0.7181 + Target.Value / 1000
End Select
End If
exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
MsgBox Err.Number & " " & Err.Description
GoTo exitHandler
End Sub
السلام عليكم ورحمة الله تعالى وبركاته
يمكن ذلك من خلال الخط wingdings
J للوجه الضاحك
L للوجه بدون تعبير
K للوجه العابش
فمثلا
العلامات الأقل من3 وجه عابس
العلامات الأقل من 5 والأكثر من 3 وجه بدون تعبير
العلامات الأكثر من 5 وجه ضاحك
اكتب الفورم التالي
=IF(A1<3,"L",SI(A1>5,"J","K"))
السلام عليكم ورحمة الله تعالى وبركاته
بعد إذن أخي الكريم justice والكود الرائع جزاك الله كل خير
أقدم الكود التالي بالدالة IF
=IF(C2="مدير",30,SI(C2="مهندس",25,SI(C2="اداري",20,SI(C2="ملاحظ",18,SI(C2="فني",15,12)))))
السلام عليكم ورحمة الله تعالى وبركاته
تحية وسلام للأستاذ القدير أبو تامر ، الكلمات لا تُوَفي حقك في مابذلته في هذا المنتدى،
ومع ذلك أستاذنا القدير أبو تامر ألف شكر على الموضوع
السلام عليكم ورحمة الله تعالى وبركاته
لدينا ضيوف جدد هذه الأيام , مرحبا بك أخا كريما بيننا
لم أفهم طريقة تقسيم الخلية بشكل رأسي أو أفقي
رجاء أخي الكريم أوضح أكثر مشكلتك بمثال أو عن طريق تحميل ملف يحوي ماتريد من الإخوة القيام به
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم JUSTICE تحياتي وسلامي العطرين لأحد أعمدة المنتدى وبارك الله فيك
وجدت طريقة أرجو أن تحوز رضاكم والشرح بالتفصيل الممل
المشكلة في الخلايا الفارغة في العمود يجب حذفها كالتالي:
1- نختار القائمة
2- لصق عادي في المكان المراد نقل القائمة إليه
3- إعادة اختيار القائمة الجديدة
4- الضغط على الزر F5 أو Ctrl + T
5- اختيار خلايا
6- اختيار خلايا فارغة
7- سيتم اختيار كل الخلايا الفارغة في القائمة
8- وضع مؤشر الفأرة فوق أحد الخلايا الفارغة ثم كليك يمين ، حذف ، نقل الخلاي نحو الأعلى
السلام عليكم ورحمة الله تعالى وبركاته
مرحبا بالأخ أبو العقاب أخا كريما بيننا
جرب أخي مايلي:
1- إدراح
2- ارتباط تشعبي
3-الموضع في الملف التالي
4- اختر الورقة التي تريد الانتقال إليها
لكن هذه الطريقة بدون أزرار يكفي فقط الضغط على الخلية
السلام عليكم ورحمة الله تعالى وبركاته
تحياتي للأخ أحمد يعقوب وبعد الإذن
أخي الكريم، رجاء حمل ملف يوضح مطلوبك ، واترك الباقي للإخوة
إن شاء الله يتم توضيح ما تحتاجه
السلام عليكم ورحمة الله تعالى وبركاته
تفضل أخي الكريم الملف التالي، والذي تم رفعه من منتدانا الغالي
يحوي برنامج فك الحماية لورقة محمية بكلمة سر
رجاء أكون وفرت طلبك
aofpr_260_setup.rar
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم إذا أردت تحويل الرق335 إلى وقت 3:35 اكتب الكود التالي
=TEMPS(PLANCHER(A2;100)/100;DROITE(A2;2);0)
أو الكود التالي للنسخة الانجليزية
=TIME(FLOOR(A7,100)/100,right(A7,2),0)
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم إذا كان الوقت لديك يظهر 335 فماعليك سوى مايلي
- خصائص الخلية
- رقم
- تخصيص
- ثم كتابة 0000
أما إذا كان لديك الوقت 3:35 فقم بما يلي
- خصائص الخلية
- رقم
- تخصيص
- ثم كتابة hh:mm
السلام عليكم ورحمة الله تعالى وبركاته
مرحبا بـ mido أخا كريما بيننا
أخي الكريم إذا واجهتك أي مشكلة رجاء أرسل ملف يوضح طلبك فقط , وسنتكفل و باقي الإخوة بالرد إن شاء الله
السلام عليكم ورحمة الله تعالى وبركاته
مرحبا بالأخ الكريم يوسف زين أخا كريما بيننا
المنتدى افراده إما معلم أو متعلم ومرحبا بمبادرات كل الإخوة بصدر رحب
إن كنت بحاجة لأي شئ في الإكسيل فكل الإخوان تحت التصرف
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم تفضل أرجو أن يكون ما طلبت
كود الدراهم
=DROITE(SOMME(C6:C18);3)
كود الدنانير
=ENT(SOMME(C6:C18)/1000)+SOMME(D6:D18)
السلام عليكم ورحمة الله تعالى وبركاته
اخي الكريم تفضل الملف التالي وهو للأخ خبور وتم التغيير علييه حسب الحاجة
رجاء يساعدك في عملك
في الورقة الثالثة يتم كتابه المننجات في العمود B و الحد الأدنى لكل منتج ثم ترتب ابجديا
يتم تسجيل الشراء في الورقة الأولى يتم تسجيل المشتريات بعد اختيارها من القائمة في العمود E
يتم تسجيل عملية البيع في الورقة الثانية حيث يتم تحديد المنتوج في العمود E وكتابة البيانات في الخانات الصفراء
gestion_stock1.rar
السلام عليكم ورحمة الله تعالى وبركاته
بعد إذن الأخ الكريم طارق
لكي يمكن مشاركة المصنف من طرف عدة مستخدمين يجب وضع الملف في المجلد shared doument ليسهل للمستخدمين العمل عليه