Ali Mohamed Ali

تفضل اخى الكريم للشرح-1.xlsx

من فضلك لو ممكن ارسال صورة المشكلة التى تظهر لك

السلام عليكم اخوانى واساتذتى كل عام وانتم جميعا بخير اقدم لكم برنامج للمحاسبة المالية شامل و يضم قيود يومية وميزانية وميزان المراجعة وقائمة الدخل ....... وبه ملف وورد لتقديم شرح وتعليمات للبرنامج ونظرا لانه يتعدى 2 ميجا -فرفعته على موقع خارجى جزاكم الله كل خير http://www.mediafire.com/file/g9ol85xzbno4ot9/برنامج+المحاسبة+المالية.rar

تفضل اخى الكريم فرز الأسماء-1.xlsx

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

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

تفضل تتبع هذه الصور

تفضل اخى الكريم sum-1.xlsx

تفضل اخى نموذج لحساب الترقيات فى الدرجات.xls

هذه طريقة بالتنسيقات الشرطية بحيث لو الإسم مختلف عن اللى موجود فى القائمة الأولى يظلل باللون الأحمر فرز الأسماء .xlsx

تفضل اخى الكريم وعندما تريد اضافة بيانات جديدة سوف ترتب تلقائيا الاسر -1الفقيرة.xlsm

جرب هذا اخى الكريم لعله يفيدك https://support.office.com/ar-sa/article/إنشاء-مخطط-من-البداية-إلى-النهاية-0baf399e-dd61-4e18-8a73-b3fd5d5680c2 https://ar-vids.com/video/شرح-كيفية-حفظ-وفتح-القوالب-في-الرسم-البياني-الاحترافي-في-برنامج-الاتجاه-8-Q7anJB7eYXk.html

وعليكم السلام اخى الكريم ولكن من الأفضل ان ترسل ملف للعمل عليه تجنبا اضاعة الوقت فى ملف غير الذى تقصده ولكنى قمت بعمل هذا الملف لك لعله المطلوب ترتيب الأسماء ابجديا.xls وهذا ايضا ملف ترتيب تلقائى بمعنى بمجرد كتابة الإسم فى العمود الأول A ثم الضغط على انتر او تنزل الى السطر التالى سترتب الأسماء تلقائيا حسب الأبجدى جزاك الله كل خير autu_sort-كود لترتيب الاسماء ابجدي.xlsm

أخى الكريم انك لم تجرب الملف !!! هو بالفعل لو قمت بتغيير الأرقام فبناءا عليه يتغير الحرف

وعليكم السلام-اهلا وسهلا بك فى منتدانا الكريم تفضل لك ما طلبت Book1-1.xlsx

وعليكم السلام تفضل اخى الكريم دمج-1.xlsm

تفضل استاذى الكريم alma3(Recovered).xlsm

يمكنك تجربة هذا الكود Sub saveas_pdf() Dim fw As Variant fw = "c:\ الموظف رقم \الوظائف_" & Range("f7").Value & ".pdf" Range("a1:h13").ExportAsFixedFormat Type:=xlTypePDF, FileName:=fw, openafterpublish:=True End Sub

تفضل FILTER-2.xlsm

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

تفضل اخى الكريم حساب كميات حسب الموقع-1.xlsx

يمكنك تجربة هذا FILTER.xlsm

تفضل اخى الكريم الإستغناء عن المعادلات بالأكواد.xlsm

هو بالفعل اخى الكريم ورقة الموظفين هى المصدر الذى يؤخذ منه البيانات وتقبل منى الملف بعد التعديل المطلوب ليوم الجمعة ‏‏الحضور والانصراف معدلة-2.xlsx

صحيح اخى الكريم ولكنها لا تظهر فى الطباعة ولا تحفظ Option Explicit Option Base 1 Sub DrawRedCircles() Dim myArray As Variant Dim Rng As Range Dim Cel As Range Dim Cell As Range Dim L As Long Dim T As Long Dim W As Long Dim H As Long Dim X As Long Dim rRow As Long Dim startRow As Long 'مصفوفة بأسماء الأعمدة المراد وضع دوائر حمراء بها myArray = Array("Q", "U", "Z", "AD", "AI", "AM", "AS", "AT", "AU", "AY", "BE", "BF", "BG", "BK", "BN", "BQ", "BR", "BW", "CA", "CG", "CH", "CI", "CM", "CR", "CV") 'رقم الصف الذى يحتوى على الدرجات النهائية الصغرى rRow = 9 'صف البداية أى أول صف به درجات الطلاب startRow = 10 Application.ScreenUpdating = False Call RemoveCircles With Sheets("Sheet1") For X = LBound(myArray) To UBound(myArray) Set Cel = .Range(myArray(X) & rRow) Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown)) For Each Cell In Rng If Cell.Value < Cel Or Cell.Value = "Û" Then L = Cell.Left: T = Cell.Top W = Cell.Width: H = Cell.Height With .Shapes.AddShape(msoShapeOval, L, T, W, H) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Transparency = 0 .Line.Weight = 1.5 End With End If Next Cell Next X End With Application.ScreenUpdating = True End Sub