نجوم المشاركات

وعليكم السلام .. ليس هناك داعى لكل هذا -تفضل هذا برنامج لأستاذنا الكبير ابو خليل به طلبك , بارك الله فيك ,واعلم يقيناً ان المنتدى دائماً تعليمى وليس لتقديم البرامج الجاهزة شجرة عائلة _ شجرة حسابات

وعليكم السلام-تم ضبط وعمل المطلوب بالكود وتجربته بالفعل على الطابعة ويعمل بكل كفاءة ملحوظة : عليك بعدم العبث بأبعاد الصفحات او محاولة تغييرها وهذا هو الكود المستخدم فى ذلك Private Sub Do_It() Application.ScreenUpdating = False With Sheets("قطاعات") a_max = .Cells(.Rows.Count, "A").End(xlUp).Row b_max = a_max prows = 45 a = 5 Do a = a + prows Loop Until a + 45 >= a_max .Rows(a_max + 1 & ":" & a_max + 3).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(a_max + 1, "A") b_max = b_max + 3 For aa = a To 5 + prows Step -prows .Rows(aa & ":" & aa + 2).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(aa, "A") b_max = b_max + 3 Next aa .PageSetup.PrintArea = "A1:F" & b_max .PrintOut For a = 5 + prows To a_max Step prows .Rows(a & ":" & a + 2).Delete shift:=xlUp Next a .Rows(a_max + 1 & ":" & a_max + 3).Delete shift:=xlUp .PageSetup.PrintArea = "A1:F" & a_max End With Application.ScreenUpdating = True End Sub 1اعتماد مستندات.xls

وعليكم السلام-لك ما طلبت اخفاء صفوف1.xlsm

بعد اذنك باش مهندس الاكسل هذه المعادلة ربما تضيف شيئاً ما =A3&" "&CHAR(177)&" "&B3

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

من الأفضل انك وضعك ملف اكسل ووضح فيه الشكل للبيانات وأيضا كتبت القيم المتوقعة عموما مرفق ما فهمته من طلبكحساب نسبة الخطأ.xlsx وبالتوفيق

قمت بتبديلها في مكان واحد فقط و يجب تيديلها اينما وجدت تم تشغيل اليوزر Book_Mhmd .xlsm

أحسنت استاذ محمد عمل هائل بارك الله فيك وزادك الله من فضله

وعليكم السلام-ضع هذا الكود فى حدث Thisworkbook Private Sub Workbook_Open() UserForm1.Show End Sub Backup of work2.xlsm

أحسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

وعليكم السلام -تفضل ملف قيم لما تريد List All files from Folder and Sub-folders in Excel Workbook File_Manager.xlsm وهذا ملف اخر Open Excel files in a folder [VBA] List-all-files-in-a-folder.xlsm وهذا الرابط من داخل المنتدى أيضاً سيفيدك للأستاذ محمد صالح شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba

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

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

بارك الله فيك أستاذنا الكريم ابو خليل وجزاك الله كل خير

ان لله وانا اليه راجعون البقاء لله ... اللهم اغفر لها وارحمها وأدخلها جنات الفردوس الأعلى , وألهم اهلها الصبر والسلوان

وعليكم السلام-كان عليك استخدام خاصية البحث فى المنتدى فبه طلبك -تفضل كود دمج عدة شيتات اكسيل منفصلة بشيت واحد

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

وعليكم السلام-فقط عليك استخدام هذه المعادلة =IFERROR(VLOOKUP($L11,الجدول1,6,0),"") الفلزات1.xlsx

السلام عليكم هذا البرنامج عملته في زمن مضى برنامج لتسجيل الأسر : الأجداد والآباء والأبناء والأحفاد بكل يسر وسهولة باستخدام جداول عدة مترابطة و يتم عرضهها في تقرير خاص ايضا استخدمت شجرة الحسابات كمستكشف لعرض الأصول والفروع بطريقة شيقة ولمسات خاصة وبالألوان ولمسات اخرى تجدونها عند تجربة البرنامج ارجوا ممن يستفيد منه الا ينساني من دعوة في ظهر الغيب . Osrah.rar

فيديو شرح للفرز المتخصص حسب تسلسل المنصب وليس الابجدية https://www.youtube.com/watch?v=2yeQw4COGeI ان شاء الله تستفيدون منه

فيديووووووو جديد جديد كيفية فصل بيانات عمود إلى عدة أعمدة بعض برامج بتخرج منها بيانات بتبقى في عمود وللاسف عايزين نشتغل على البيانات ونفصلها على اعمدة ونعمل شوية تقارير مطلوبة مننا ... حرفية جميلة وبسيطة هانعمل بيها المطلوب مننا https://www.youtube.com/watch?v=RyXvKPrxAzc حرفية سريعة لفصل بيانات من عمود إلى عدة اعمدة.rar

اتبع الشرح فالرابط التالى ووافنا بالنتيجه لحل هذه المشكله الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق

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

طيب جرب الان عما اشرح لك New1.accdb

ا حسام يستحيل تقليص وضم الجداول لان كل جدول مساحته كبيره وعند ضمه سيصل الجدول الواحد الى 2 جيجا وتقفل القاعده تمام كما تعلم حالا

طيب جرب الان New.accdb

لا اقصد تقليص عدد الفروع القصد تقليص الجداول مع بقاء عدد الفروع اي التعديل ببنية قاعدة البيانات

السلام عليكم مشاركه مع اخى @husamwahab جزاه الله خيرا 💐 هل هذا ما تريد افتح النموذج اختار الفرع المحول منه ثم اختار الفرع المحول اليه ثم اختار الموظف الذى سيتم نقله للفرع المحول عليه ثم اضغط زر تنفيذ ملحوظه الاسماء سوف تظهر بعد اختيار الفرع المحول منه ثم افتح الجدول الخاص بالفرع المحول عليه جرب ووافنا بالنتيجه New.accdb

هل ممكن التعديل على قاعدة البيانات كاختصار عدد الجداول ام لا

طول بالك .. سيأتيك الحل بإذن الله

تفضل أخي محمد بعد ضغط على زر "بحث" و عرض فواتير اضغط على زر جديد في اعلى يسار نموذج كهرباء.mdb

السلام عليكم اخي هل توجد طريقة عند اضافة مستخدم مثل اسم المستخدم جديد عمار قام بتسجيل بياناته وسجل بلال مستخدم جديد وسجل بيانه اخي عند دخول عمار لم تظهر بيانات بلال اخي اريد تسجيل جميع البيانات بجدول واحد وليس كل مستخدم جدول

جزاك الله خيرا اخى واستاذى @husamwahab 💐 اتفضل اخى @محمد التميمي جرب ووافنا بالنتيجه بالتوفيق 33(1).accdb

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

السلام عليكم موضوع مثير وكبير، كنت أود تحضير منشور له، ولم يتح لي. معادلات إكسل الفريدة وتتسيقات خلاياه السهلة مما يفتقد وبشدة مع الأكسس، وكما تفضل الأستاذ @محمد أبوعبدالله باختصار هناك طريقتان لاستخدام معادلات إكسل في الأكسس الأولى من خلال : Creatobject وذلك ببناء كود فيجوال بيزك يستخدم صيغ إكسل. هذا رابط يقريب الفكرة مع الأسف لم يسعفني البحث بإيجاد رابط قديم واضح في هذا المجال. https://sfmagazine.com/post-entry/april-2018-access-using-excels-pmt-function-in-access/ أو بإضافة مكتبات إكسل كمرجع من محرر أوامر VBA هذا رابط لتقريب الفكرة. https://stackoverflow.com/questions/1776001/ceiling-function-in-access الطريقة الثانية باستخدام VBA بعمل ورقة إكسل ونسخ البيانات إلى هذه الورقة لتقوم بالعملية الحسابية المطلوبة ثم إعادة نسخهاللأكسس وقد استخدمتها لتحويل التاريخ من ميلادي إلى هجري مستفيداً من تنسيقات إكسل الفريدة. واستفدت من مكتبات إكسل بدوال التقريب مميزة كما تفضل الأستاذ محمد. وغيرها الكثير... بالتوفيق.

السلام عليكم نفسها نفسها لا لكن يمكن عمل ما هو افضل بالتأكيد فمثلاً دالة ceiling غير موجودة في اكسيس وبديلها في الاكسيس Round ويمكن تطويعها اكثر من ceiling او انشاء الدالة من الاساس لكن ستجد الموضوع كثيرا ممتع اكثر من الاكسيل ابدأ على بركة الله وستجد يد العون من الجميع باذن الله تحياتي

الحمد لله وبالتوفيق اخي الكريم تحياتي

يمكنك عمل ذللك بـ: nested if و لكن عند اضافة الشيتات تضظر دائما اللى تغييير المعادلات باضافة الاوراق الجديدة كما أانه في حال بيانات كثييرة تكون الاستتجابة بظيئة. تفضل هدا الكود اسرع و يعمل مهما اضفت من صفحات جديدة. ضع فقط الارقام التي تريد في العمود A في ششيت البحث ثم اضغط جلب. Sub bring() Dim ash As Worksheet Dim sh As Worksheet Dim cell As Range Dim lrw As Integer Set ash = Sheets("search") ash.Range("b2:e1000").ClearContents For Each sh In ThisWorkbook.Sheets If sh.Name <> ash.Name Then For Each cell In sh.Range("a2:a1000") lrw = ash.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lrw If cell = ash.Cells(i, 1) Then ash.Cells(i, 2) = cell.Offset(, 1) ash.Cells(i, 3) = cell.Offset(, 2) ash.Cells(i, 4) = cell.Offset(, 3) ash.Cells(i, 5) = cell.Offset(, 4) End If Next i Next cell End If Next sh End Sub جلب بيانات من الشيتات.xlsb

يمنكك تجربة هذا الملف (صفحة Salim) Option Explicit Sub All_in_One() Dim S As Worksheet Dim Rg_A As Range, Rg_D As Range Dim i%, m%, La%, LD% Dim Obj_Num As Object, Obj_Text As Object Set S = Sheets("Salim") S.Range("I2").Resize(1000).Clear La = S.Cells(Rows.Count, 1).End(3).Row LD = S.Cells(Rows.Count, 4).End(3).Row Set Obj_Num = CreateObject("System.collections.Arraylist") Set Obj_Text = CreateObject("System.collections.Arraylist") For i = 2 To La If S.Cells(i, 1) <> vbNullString Then If IsNumeric(S.Cells(i, 1)) Then Obj_Num.Add S.Cells(i, 1).Value Else Obj_Text.Add S.Cells(i, 1).Value End If End If Next '+++++++++++++++++++++++++++++ For i = 2 To LD If S.Cells(i, 4) <> vbNullString Then If IsNumeric(S.Cells(i, 4)) Then Obj_Num.Add S.Cells(i, 4).Value Else Obj_Text.Add S.Cells(i, 4).Value End If End If Next If Obj_Num.Count Then Obj_Num.Sort End If If Obj_Text.Count Then Obj_Text.Sort End If m = 2 If Obj_Num.Count Then S.Cells(m, "i").Resize(Obj_Num.Count) = _ Application.Transpose(Obj_Num.toarray) S.Range("I2").Resize(Obj_Num.Count) _ .Interior.ColorIndex = 35 m = m + Obj_Num.Count - 1 End If If Obj_Text.Count Then S.Cells(m, "i").Resize(Obj_Text.Count) = _ Application.Transpose(Obj_Text.toarray) S.Cells(m, "i").Resize(Obj_Text.Count) _ .Interior.ColorIndex = 40 m = m + Obj_Text.Count - 1 End If With S.Range("i2").Resize(m - 1) .Borders.LineStyle = 1 .Font.Size = 14: .Font.Bold = True .InsertIndent 1 End With End Sub الملف مرفق (الصفحة Salim) ABOU_Yahya Two_in_One.xlsm

تفضل اعتقد هذا ما تريده على حسب ما فهمت Private Sub ListFind_Change() Dim i As Long With ListFind For i = .ListCount - 1 To 0 Step -1 Debug.Print i, ListFind.List(i, 0) If ListFind.List(i, 0) <> "" Then .ListIndex = i Exit For End If Next i End With End Sub تفعيل اخر صف في اللست بوكس.xls

شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة inputbox with password mask.xls

أحسنت استاذ منير .. مجهود رائع بارك الله فيك

وعليكم السلام- على الرغم ان طلبك هذا عكس المألوف والمعتاد عليه دائما على ان يتغير ارتفاع الصف وعرض العمود تلقائى بما يتناسب مع البيانات المدخلة اليهم ولكن بالنسبة لطلبك ,يمكنك استخدام هذه الأكواد لتحديد عرض العمود وارتفاع الصف وتثبيت ذلك Sub Column_Width() Columns("h:n").ColumnWidth = 8.58 End Sub Sub RowHeight() Rows("8:16").RowHeight = 15 End Sub Column Width &RowHeight.xlsm

تفضل بكل بساطة بعد ضبط ملفك, عليك بوضع هذه المعادلة بداية من الخلية I3 من صفحة المواد سحباً للأسفل وشكراً =SUMIF(مبيعات!$E:$E,$A3,مبيعات!$H:$H)+SUMIF(بياره!$B:$B,$A3,بياره!$E:$E) مبيعات1.xlsx

وعليكم السلام-طالما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة ... فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع المشاركة -تفضل مكتبة الموقع - كود لقلب وضعية بلوكات كاملة

وعليكم السلام -يمكنك استخدام معادلة المصفوفة(Ctrl+Shift+Enter) فى الخلية J4 =INDEX($B$5:$B$9,MATCH(1,MMULT(--($C$5:$F$9=$K$4),TRANSPOSE(COLUMN($C$5:$F$9)^0)),0)) code departement1.xlsx

جزاك الله كل خير الى الأمام دائماً

بارك الله فيك استاذ محمد وزادك الله من فضله

تفضل هدا الكود اكتب الرقم بدون الرقمين الاولين ثم اضغط على أضف ارقمين فيقوم الكود باضافة الرقمين الاولين الى جميع الارقام في العمود و اذا كانت ارقام الهواتف تحتوي مسبقا على الرقمين الاوليين لا يعيد اضافتهما. Book1.xlsm

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