Ali Mohamed Ali

بارك الله فيك وزادك الله من فضله
اللهم اغفر لوالدك وارحمه، وعافه واعف عنه، وأكرم نزله، ووسع مدخله، واغسله بالماء والثلج والبرد، ونقه من الخطايا كما ينقى الثوب الأبيض من الدنس. - اللهم أبدله دارا خيرا من داره، وأهلا خيرا من أهله، وزوجا خيرا من زوجه، وأدخله الجنة، وأعذه من عذاب القبر، ومن عذاب النار

بعد وضع هذا الكود فى موديول
Option Explicit Function cleanup(s As String) Dim i As Long Dim c, t As String For i = 1 To Len(s) c = Mid(s, i, 1) Select Case Asc(c) Case 1 To 239 t = t & c End Select Next i cleanup = t End Function عليك بكتابة هذه المعادلة فى الخلية المراد حذف التشكيل منها
فعلى سبيل المثال ,اذا كان النص المراد حذف التشكيل منه موجود فى الخلية A2 فعليك كتابة المعادلة مثلا فى الخلية B2
وهى
=CLEANup(A2) بارك الله فيك

وعليكم السلام . كان لابد من رفع ملف للتوضيح ولكن يمكنك استخدام هذه المعادلة
=IF(A1<=21000,0, IF(A1<=30000,(A1-21000)*2.5%, IF(A1<=45000,(A1-30000)*10%+225, IF(A1<=60000,(A1-45000)*15%+225+1500, IF(A1<=200000,(A1-60000)*20%+225+1500+2250, IF(A1<=400000,(A1-200000)*22.5%+225+1500+2250+28000, IF(A1<=600000,(A1-400000)*25%+225+1500+2250+28000+45000, IF(AND(A1>600000,A1<=1200000),(A1-400000)*25%+225+1500+2250+28000+45000+IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}),0), IF(A1>1200000,((A1-1200000)*27.5%)+300000,0) ))))))))  

هذه فقط تظهر معك لعدم ضبط اللغة العربية لديك , فعليك بضبطها وأوضحنا هذا من قبل كثير جداً
 
 

اتمنى ان تجدى ما تريديه فى هذا الرابط : وهو برنامج حضور وانصراف للطلاب والطالبات بالأكسيس :
https://www.officena.net/ib/topic/84643-برنامج-الحضور-والإنصراف-والمخالفات-للطلاب/
 
ولكم جزيل الشكر
 

وعليكم السلام-تفضل هذا الكود
Sub ColorPaletteDialogBox() Dim lcolor As Long If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then 'user pressed OK lcolor = ActiveWorkbook.Colors(10) ActiveCell.Interior.Color = lcolor Else 'user pressed Cancel End If End Sub  

وعليكم السلام -يمكنك استخدام هذه المعادلة
=IFERROR(INDEX(ورقة1!B2:B270,MATCH(0,COUNTIF($A$1:A1,ورقة1!B2:B270),0)),"")  
تلخيص1.xlsx

وعليكم السلام-ياريت تقوم بتغيير عنوان المشاركة ليصبح ( معادلة IF متعددة الشروط)  وهذه المعادلة تفى بالغرض وشكراً
=IF(AND($C4<>"غ",$B4="ذكر"),"ناجح",IF(AND($C4<>"غ",$B4="أنثي"),"ناجحة",IF(AND($C4="غ",$B4="ذكر"),"ناجح بحكم القانون",IF(AND($C4="غ",$B4="أنثي"),"ناجحة بحكم القانون",""))))  
معادلة IF.xlsx

وعليكم السلام -تفضل لك ما طلبت .. وكان لابد من رفع الملف بدون ضغط , طالما حجم الملف صغير  وذلك تجنباً لإهدار الوقت وشكراً
 
Aziz1.xlsx

وعليكم السلام-تفضل هذه المعادلة تخص اللون الأخضر
=COUNTIFS($G$5:$G$700,">=9",$G$5:$G$700,"<=10") أما اللون الأحمر فيكفيك هذه المعادلة   ...وشكراً
=COUNTIF($G$5:$G$700,"<=4")  
فرق بين تاريخين.xlsx

وعليكم السلام .. لابد ان يكون هناك ملف اكسيل بأى مشاركة لتدعيمها وتوضيح المطلوب بكل دقة وذلك تجنباً لإهدار الوقت !!
ولكن عليك بوضع هذا الكود بحدث ThisworkBook  حتى يتم تنفيذ طلبك 
Private Sub Workbook_Open() Worksheets("Main").Activate Range("D5").Select End Sub وهناك كود أخر بالملف المرفوع لك للإنتقال الى خلية معينة من الصفحة الأخرى وسيكون ذلك بمديول عادى
 
Example.xlsm

تفضل هذا بمعادلة مصفوفة  (Ctrl+Shift+Enter)

 
Report Between Two Dates.xlsb

وعليكم السلام لا يمكن فتح أى ملف اكسيل يحتوى على أكواد VBA على الموبيل وشكراً !

وعليكم السلام كان عليك استخدام خاصية البحث في المنتدى-تفضل
https://www.officena.net/ib/topic/67320-كيفية-اضافة-التقويم-الى-الاكسل-بدون-اكواد-مع-عماد-غازى-calendar/?tab=comments#comment-438360

جرب هكذا وهناك ايضا فيديو لشرح عملية التحويل للأستاذة ساجدة العزاوى لها منا كل الإحترام
ج100 كيف نجعل كود 32 بت يعمل على 64 بت وعدم ظهور خطأ ptrsafe اكسل vba ساجدة العزاوي
تحويل64بيت.xlsb

وعليكم السلام ..بسيطة وسهلة , بما انك لم تقم بوضع القيمة صفر فى الأعمدة فكان  لزاماً عليك تغيير الصفر بالفراغ داخل المعادلة "" لتصبح المعادلة هكذا وشكراً
=COUNTIFS($C$1:$C$2400,"<>"&"",$A$1:$A$2400,$J4) Countifs الحل1.xlsx

وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022  ..وأما بالنسبة لما لا يظهر معك من  عقوبة ومهمة  وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً  .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm
كشف حضور 1مميز.xlsx

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة 
=VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

تفضل
 
azd - Copie.xlsx

وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت 
جدول 1المباريات.xlsx

وعليكم السلام-تفضل
=IFERROR(INDEX($G:$G,MATCH($C3,$H:$H,0)),"لا يوجد") Book3.xlsx

يمكنك استخدام هذه المعادلة على الرغم انك لم توضح أين يتم وضع معادلة البحث ,, فقد تـــم عمل وتنظيم كل شيء ..فقد تم عمل قائمة منسدلة بكل أرقام السيارات ما عليك سوى إختيار السيارة المراد البحث عنها واترك الباقى على الإكسيل
=LOOKUP(2,1/($B$2:$B$500=$N2),$G$2:$G$500) 1تموين سولار.xlsb

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


التاريخ والوقت.xlsm

أعتقد ان هذا هو المطلوب
توزيع ارباح-3.xlsx

ممكن تجرب هذا الملف
طباعة اليوزر فورم.xlsm