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

اين النموذج والازرة ؟؟؟؟؟

اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير CC فى الكود و فى المثال هنا عدد أعمدة كل بلوك هو 3 ـ و يمكنك تغييره كما تشاء ثم قم بتظليل كافة البيانات المراد تغيير وضعها على أن تكون عدد الاعمدة المختارة من مضاعفات الرقم المختار لأعمدة كل بلوك ثم شغل الكود Sub PivotBlocks_arafa() Dim r, c, b As Integer Dim g As String cc = 3 ' قم بتعديل هذا الرقم لتغيير عدد الاعمدة الافتراضي فى البلوك الوحد r = Selection.Rows.Count c = Selection.Columns.Count b = c / cc g = ActiveCell.Address For x = 1 To b - 1 Range(ActiveCell.Offset(0, cc * x), ActiveCell.Offset(r - 1, cc * x + cc - 1)).Cut ActiveCell.Offset(r * x - 1 + 1, 0).Activate ActiveSheet.Paste Range(g).Activate Next x End Sub صاحب الملف محمد طاهر تمت الاضافه 07 يول, 2020 الاقسام قسم الإكسيل  

هل جربت هذا الكود ؟؟؟؟؟؟ Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj Set FrontDB = Nothing

ربما هذا الفيديو يفيدك .... شرح باركود الاصناف والوزن للميزان

جرب هذا الكود Option Explicit Sub get_all() Dim Sh As Worksheet Dim My_rg As Range Dim Arr(), I%, k%, m% m = 2 For Each Sh In Sheets If UCase(Sh.Name) <> UCase("salim") Then ReDim Preserve Arr(k) Arr(k) = Sh.Name k = k + 1 End If Sheets("Salim").Range("B:B").ClearContents Next Sh For k = LBound(Arr) To UBound(Arr) Set My_rg = Sheets(Arr(k)).Range("b1").CurrentRegion If My_rg.Rows.Count = 1 Or _ Sheets(Arr(k)).Range("B1") = "" Then GoTo next_K Set My_rg = _ My_rg.Offset(1).Resize(My_rg.Rows.Count - 1).Columns(1) My_rg.Copy Sheets("Salim").Range("B" & m) m = m + My_rg.Rows.Count next_K: Next k Sheets("Salim").Range("B1") = "Data" End Sub الملف مرفق H_Rady.xlsm

السلام عليكم ورحمة الله جربى هذا الكود Sub ImportData() Dim ws As Worksheet, Sh As Worksheet Dim p As Integer, x As Integer, LR As Long Dim C As Range, A, B Application.ScreenUpdating = False Set Sh = Sheets("DataReport") A = Sh.Range("K2"): B = Sh.Range("L2"): p = 1 LR = Sh.Range("B" & Rows.Count).End(xlUp).Row For Each ws In ThisWorkbook.Worksheets x = ws.Tab.ColorIndex If x = 10 Then For Each C In ws.Range("A6:A" & ws.Range("A" & Rows.Count).End(xlUp).Row) If C >= B And C <= A Then p = p + 1 Sh.Range(Sh.Cells(p, 2), Sh.Cells(p, 9)).Value = ws.Range(ws.Cells(C.Row, 2), ws.Cells(C.Row, 9)).Value End If Next End If Next Application.ScreenUpdating = True End Sub

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

هذا نوركم ونور علمكم اخوانى واساتذتى خالد وحسام جزاكم الله خيرا 💐

ما شاء الله استاذ kha9009lid منور كعادتك استاذ الفلاحجي

نعم اخي حسام تعطي النتيجة المطلوبة تحياتي وتقديري استاذ @husamwahab

مشاركة مع اخي واستاذي kha9009lid واستكمالا للمعلومة حول الدالة Round الدالة تعمل عمل دالة التقريب التي درسناها في الرياضيات مع فرق غريب وهو انه تتعامل مع الرقم 5 اذا كان ما بعده صفر على انه اصغر من 5 مثال: Round (12.085,2)=12.08 Round (12.0850000001,2)=12.09 وعليه مع تغيير بسيط لدالتك فتعطي النتائج المطلوبة Round([asasy]*0.05+0.000001,2) وارجو من الاساتذة الكرام التعقيب والتصحيح ان لم تكن المعلومة صحيحة او دقيقة وعذرا للاطالة

السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من فديوهاتي سلسلة مميزة للبحث بالاسم في الفورم وهي من 13 جزء ج1 بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي تم النشر بتاريخ 31/8/2017 ج2 بحث بالاسم زر تعديل البيانات في اليوزرفورم اكسل VBA ساجدة العزاوي تغير لغة كتابة Textbox ثلاثة اجزاء ج113 كود تغيير لغة الكتابة عربي انكليزي فرنسي تغيير مؤشر الكتابة داخل textbox ساجدة العزاوي vba تم النشر بتاريخ 14/3/2019 ج114 تغيير لغة كتابة اليوزرفورم نغيير لغة textboxe تغيير لغة keyboard عربي اكسل vba ساجدة العزاوي ج115 التحكم بلغة كتابة textbox من خلال optionbutton تغيير لغة يوزرفورم ساجدة العزاوي اكسل vba 20/3/2019 قائمة تشغيل تعلم اكسل vba https://www.youtube.com/watch?v=XGWdEThvQW4&list=PLb_hBgQ-kdgVKPF3X5dFsrFZ5l-R90wJ9

عليكم السلام والرحمة في هذه المرحلة لا توجد علاقة مباشرة بين الجدولين الافضل انشاء جدول ثالث يقوم بالربط بين الجدولين وهذا هو التعديل حسب فهمي libraies-1.rar

اليكم اختبار فى عواصم ودول العالم مع لعبة من سيربح المليون تم تعديل الاسئلة لتختبر فى عواصم ودول العالم وستكون طريقة تعليمية ثقافية مسليه ولكن فى موضوع واحد وهو دول وعواصم العالم فك الضغط عن الملف واضغط على فايل Million وعيش حياتك وده الاصدار الاول Million.rar

تفضل اخي الشرح https://youtu.be/-idXdwSuof0

هل يمكن جعل الكود ياسم الشيت بدل الرقم ما هو اسم كل صفحة من 1 الى عدد الشيتات هل هو " Sheet1 " او " Data1" او "1 Any thing " " Sheet2 " او "Data2 " او "1 Any thing " الح.....

كان يجب توضيح هذا الأمر مسبقاً من الصعب جداً عمل ذلك بالمعادلات لانه يمكن ان يكون هناك اكثر من ورقتي عمل يمكنك تجربة هذا الكود Option Explicit Sub get_all_1() Dim Sh As Worksheet Dim Arr(), I%, k%, m%, x%, t% Dim My_rg As Range m = 2 For Each Sh In Sheets If UCase(Sh.Name) <> UCase("salim") Then ReDim Preserve Arr(k) Arr(k) = Sh.Name k = k + 1 End If Sheets("Salim").Range("B:B").ClearContents Next Sh For k = LBound(Arr) To UBound(Arr) With Sheets(Arr(k)) x = .Cells(Rows.Count, 2).End(3).Row Set My_rg = .Range("b2:b" & x).SpecialCells(2) My_rg.Copy Sheets("Salim").Range("B" & m) m = Sheets("Salim").Cells(Rows.Count, 2).End(3).Row + 1 End With Next k Sheets("Salim").Range("B1") = "Data" Erase Arr End Sub الملف من جديد H_Rady_1.xlsm

تسلم اخي احمد وجميعنا نتعلم من بعض نخطئ ونصيب ونكتسب كل يوم خبرات وافكار جديدة

البرنامج جميل جدا ولكن من الصعوبة تقييمة من خلال الصور لدي بعض الملاحظات البسيطة بناء على الصور تكويد البضاعة الافضل تكويد الاصناف اعتقد نحتاج اضافة شاشة للاصناف التالفة والمنتهية الصلاحية المذكرات تعديل العنوان بدلا من المزكرات اضافة رصيد اول المدة للاصناف اجمالي الفاتورة ممكن استخدام دالة لمعالجة عبارة name? اضافة شاشة لطباعة الباركود للاصناف التي لا تحتوي على رمز باركود في جميع الاحوال مجهود كبيرة ولكن تقييم برنامج يتطلب اجراء اختبار مكثف في بيئة عمل فعلية او محاكيه مع تمنياتي لك بالتوفيق اخي الكريم

ماشاء الله جميل جدا

أشكرك أخي @حسين العربى بارك الله فيك .. ياسلام هكذا يتم الامر .. منتظر للملف والمقطع الفيديو أشكرك أستاذي @ابو ياسين المشولي اشكرك على المحاوله .. لكن ليس هذا المطلوب

تفضل اخي العزيز ارجو ان يكون طلبك فقط اسماء الصفحات اظهار-aa.rar

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

لان كلا الحقلين ترقيم تلقائي اجعل احدهم رقم

السلام عليكم استاذي ابو بسملة العزيز شكراً على ردك لي وقمت بتجربتها وجتها تتعثر بعض الشي وجدول الرواتب يبقى فارغاً فرجعت الى عملي السابق وهو الاختيار من قائمة التسلسل المنسدلة سأرفق اليكم ما تم انجازه . مع فائق الشكر والتقدير 22.accdb

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

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

بالمشاركه مع اخوانى واساتذتى خالد وحسام جزاهم الله خيرا 💐 ارفق موضوع لام عهود جزاها الله خيرا للاطلاع http://arabteam2000-forum.com/index.php?/topic/74264-مشكلة-خطيرة-فى-التقريب-داخل-access/

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

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

الرقم الصحيح هو 77.085 في النموذج مع استخدامك لدالة التقريب Me.nesab = Round([asasy] * 0.05, 2) اعطاك الرقم مقرب لاعلى 77.09 في الاستعلام اعطاك الرقم مقرب الى اقل 77.8 يمكن الحصول في الاستعلام على الرقم مقرب للاعلى من خلال دالة التنسيق بدون الحاجة لدالة التقريب في الاستعلام تحديث الى ضع التالي Format([tbl_moratb]![asasy]*0.05;"Standard") او حل اكثر احترافية عن طريق وحدة نمطية من اعداد الاستاذ رمهان Function ramhan_round(xnumber, xrounded) xn = Format(xnumber, "0." & String(IIf(xrounded < 0, 0, xrounded), "0")) ramhan_round = Left(xn, Len(xn) + Int(Right(xn, 1) = ".")) End Function وللاستدعاء في الاستعلام ramhan_round([tbl_moratb]![asasy]*0.05;2) وفي النموذج لديك Me.nesab = ramhan_round([asasy] * 0.05, 2)

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

وعليكم السلام لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وان يكون مصمم به الفورم المطلوب فالمنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة أو يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=-gxAiCnwvvY ولما لا تقوم ايضاً بإستخدام خاصية البحث بالمنتدى فبه طلبك - تفضل برنامج ايصالات استلام وصرف النقدية كما يمكنك رؤية هذا الملف لعله طلبك نموذج-سند-قبض.xlsx

ما هكذا تدرج الجداول في اكسل قم بازالة الخلايا زالصفوف المدمجة أولا من الصفحتين

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

السلام عليكم اخي sabry fahmy اود ان استفسر منكم هل تريد البرنامج لعمل شيكات ام لعمل شهادات وما الخانات المطلوبة لعمل ما تريد وما شكل التقرير الذي تريد الطباعة عليه ودع شيت الاكسيل فانا لم افهم منه ما تريد اطتب بالتفصيل ما تريد وان شاء الله ستجد المساعدة مني ومن الافاضل الموجودين بالموقع

أحسنت استاذ منير عمل رائع الى الأمام دائماً ... ونرجو منك ايضا التفاعل الإيجابى ومحاولة مساعدة الأساتذة فى الرد على تساؤلات واستفسارات الأعضاء بالمنتدى بما لديك من خبرات واسعة فى مجال الإكسيل ونتمنى الإستفادة من خبراتكم

تفضل اخي كود ترحيل الفاتورة.xlsm

وعليكم السلام -اهلا بك اخى الكريم فى المنتدى ومرحبا بجميع اهل العراق الشقيقة يمكنك رؤية هذا الرابط https://www.officena.net/ib/topic/26897-ترحيل-بيانات-الطلاب-الى-الشهادات/

السلام عليكم ورحمة الله وبركاته اخي ياسر إليك هذه المشاركة المتواضعة والسلام عليكم FormatConditions1.rar