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

انا اشکرکم جميعا ... لمشاركتكم معنا

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

قريبا باذن الله وسأعرض احد برامجي هنا بعد تردد كبير

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

فيه بعض المؤسسات تطلب الفصل بين السنوات المالية من أجل المحاسبة الأرشفة ليست متعلقة بحجم الملف فقط

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

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

مع اجمل تحية لابي غفران .. لسنا بحاجة لــ Update ولا الى جداول اضافية للمخزون ما دام يتم رصد الداخل والخارج .. فمن عمود الداخل والخارج يظهر المخزون .. ويدخل ضمنا مرتجع البيع والشراء فمرتجع البيع(داخل) ومرتجع الشراء (خارج) ، وهذا يعني ان المرتجعات تشترك مع البيع والشراء في حقل النوع .

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

السلام عليكم ورحمة الله تعالى وبركاته فى البداية اود ان اعتذر عن قلة مشاركاتى وذلك لقلة تعاملى مع الاكسس نظرا لانشغالى بـــ بيئة بيسك.نت ببساطة نحن مستخدمى الاكسس نريد ان يكون لدينا هذا الزر فى برامجنا 😂😂😂 اولا كان لدى محاولة واحدة عن كيفية جعل المستخدم يبحث عن تحديثات جديدة للبرنامج الخاص به عن طريق الانترنت فكانت نتيجة المحاولة هو ربط قاعدة البيانات اكسس بقاعدة بيانات سيكوال موجودة على استظافة مجانية قاعدة سيكوال بها حقلين هما رقم النسخة الجديدة ورابط التحميل الخاص بالتحديث الجديدة وهذا الموضوع يشرح ذلك وكانت اكبر المشاكل التى تقابلنى هى الاستضافة المجانية التى بعد شهرين او اكثر تحذف قاعدة بياناتك بدون سابق انذار ولا يوجد المال الكافى لحجز استضافة ورفع قاعدة البيانات سيكوال الخاصة بك عليها فكان التفكير فى استخدام البرامج السحابية (جوجل درايف - وان درايف - دروبوكس ) واكبر المشاكل التى ستقابلك هى المزامنة ثم المشكلة الاخرى وهى انك لن تطلب من كل المستخدمين تثبيت اى من البرامج السحابية لديه واعطائة اسم المستخدم وكلمة السر الخاص بالبرنامج السحابى الذى سترفع عليه التحديث حتى تتم المزامنة على جهاز العميل اولا باول اذا فما هو الحل انا اريد ان يضغط العميل على زر ( البحث عن تحديث جديد ) ثم يجد رسالة تخبره ان برنامجه محدث او انه توفر اصدار جديد من البرنامج اليكم فكرتى قد تحتاجونها او لا ولكن ما كنت لابخل عليكم بشئ فاء الله على به الفكرة بسيطة جدا تتلخص فى ملف نصى LastVersion.Txt قمت بكتابته به مجموعة اسطر الاول هو رقم الاصدار الجديد الثانى هو رابط تحميل التحديث الجديد وبعد هذا سطور على حسب الحاجة تقوم بالتعريف فيها بالتحديث الجديد ومميزاته طريقة العمل سيقوم المرفق الذى سادرجه هنا بتحميل الملف النصى من حسابك الخاص على دروبكس وتفريغ الاسطر التى بداخله الى مربعات النصوص التى بالنموذج ثم يقارن رقم التحديث الجديد بالرقم الحالى ويعلمك اذا كانت نسختك محدثة ام تحتاج تحديث المشاكل التى واجهتنى 1 - عدم وجود (direct download link او static download link ) نظرا لتغير رابط تحميل الملف النصى دائما فماذا سافعل اذ قمت مسبقا بادراج رابط ثابت لتحميل الملف النصى داخل البرنامج 2 - اذا اطلقت نسخة جديدة من برنامجى فساحتاج الى تعديل الملف النصى المحمل مسبقا والمدرج رابط التحميل الخاص به فى النموذج فكانت الحلول هو عمل static download link للملف النصى اى رابط تحميل ثابت للملف النصى تابع معى المتطلبات ---------------------- ان يقوم مصمم البرنامج فقط بالتسجيل على الموقع السحابى (https://www.dropbox.com/h) .. المصمم فقط ان شئت قلت كأنك حجزت استضافة مجانية بها 12 جيجا بايت ومجانية لانه بعد التسجيل سنحتاج اسم المستخدم وكلمة المرور لكتابتهم فى دوال التحميل داخل المرفق وهما دالتان مثل هذا الشكل الدالة الثانية ثم يقوم بانشاء الملف النصى الخاص بالبرنامج الذى صممه انا كتبته بهذا الشكل سنستخدم البرنامج السحابى دروبوكس (https://www.dropbox.com/h) بعد التسجيل - يمكنك التسجيل بسهوله عليه عن طريق رابط جوجل دون الحاجة الى ملئ البيانات بعد التسجيل ستجد نفسك فى الصفحة الرئيسية الخاصة بك بعد كتابة الملف النصى نقوم برفعه على الدروبكس بعد رفعه على الدروبكس نقوم باخذ اللينك الخاص به كوبى وذلك لعمل رابط مباشر له لتحميله بعد اخذ اللينك كوبى بقى اهم خطوة وهى عمل رابط تحميل مباشر له تابع معى ستجد رابط المشاركة بهذا الشكل الرابط الذى اخذته كوبى https://www.dropbox.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 فقط استبدل https://www.dropbox.com استبدلها https://dl.dropboxusercontent.com ليصبح شكل الرابط هكذا https://dl.dropboxusercontent.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 وبذلك اصبح لديك رابط مباشر له بعذ ذلك خذ الرابط الجديد وادرجه فى البرنامج فى هذا الكود ثم نقوم برفع القاعدة الجديدة المحدثة على الدروبكس وعمل رابط مباشر لها ولكن هذه المرة نقوم بادراج الرابط المباشر هذا فى الملف النصى لا فى البرنامج مع مراعاة ان نقوم بتحديث رقم الاصدار فيها قبل رفها ليطابق رقم الاصدار الموجود فى الملف النصى والان فيديو يشرح طريقة العمل تم اضافة اسم للمستخدم وكلمة السر يمكنك الان تجربة البرنامج المرفق LinkToUpdate.accdb اتمنى ان اكون عرفت اشرح وطبعا انا منتظر تشريفكم بتعليق لتجربة مرفقى المتواضع

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

نزولاُ عند رغبة بعض الأصدقاء و متابعة للموضوع على هذا العنوان ( المراتب من 1 الى مئة) http://www.officena.net/ib/topic/84849-المراتب-من-1-الى-100/ تم زيادة النطاق لغاية الرقم 1000 و بذلك يكتب لك الاكسل مثلاً الرقم 125 (مئة وخمسة وعشرون) : الرقم 934 (تسعمئة وأربعة وثلاثون) الكود Option Explicit Function Order_Salim(cel) Dim degree$, i%, My_num1%, My_num2% Dim aHad$, Asharat$ If Not IsNumeric(cel) Then Order_Salim = "N/A": Exit Function If cel = 100 Then Order_Salim = "المائة": Exit Function End If If cel > 100 Then Order_Salim = "too Big Number": Exit Function End If cel = Int(Abs(cel)) Dim deg1$, deg2$, deg3$, deg4$, deg5$, deg6$, deg7$, deg8$, deg9$, deg10$ deg1 = "الأوّل": deg2 = "الثّاني": deg3 = "الثّالث": deg4 = "الرّابع" deg5 = "الخامس": deg6 = "السّادس": deg7 = "السّابع": deg8 = "الثّامن": deg9 = "التّاسع": deg10 = "العاشر" Dim deg01$, deg02$, deg03$, deg04$, deg05$, deg06$, deg07$, deg08$, deg09$ deg01 = "عشر": deg02 = "والعشرون": deg03 = "والثّلاثون": deg04 = "والأربعون": deg05 = "والخمسون" deg06 = "والستون": deg07 = "والسّبعون": deg08 = "والثّمانون": deg09 = "والتّسعون" If cel < 11 Then Select Case cel Case Is = 1: degree = deg1 Case Is = 2: degree = deg2 Case Is = 3: degree = deg3 Case Is = 4: degree = deg4 Case Is = 5: degree = deg5 Case Is = 6: degree = deg6 Case Is = 7: degree = deg7 Case Is = 8: degree = deg8 Case Is = 9: degree = deg9 Case Is = 10: degree = deg10 End Select Order_Salim = degree: Exit Function Else My_num1 = Mid(cel, 2, 1) '=========================== Select Case My_num1 '======================= Case Is = 1: aHad = "الحادي" Case Is = 2: aHad = deg2 Case Is = 3: aHad = deg3 Case Is = 4: aHad = deg4 Case Is = 5: aHad = deg5 Case Is = 6: aHad = deg6 Case Is = 7: aHad = deg7 Case Is = 8: aHad = deg8 Case Is = 9: aHad = deg9 End Select '====================== My_num2 = Mid(cel, 1, 1) Select Case My_num2 Case Is = 1: Asharat = deg01 Case Is = 2: Asharat = deg02 Case Is = 3: Asharat = deg03 Case Is = 4: Asharat = deg04 Case Is = 5: Asharat = deg05 Case Is = 6: Asharat = deg06 Case Is = 7: Asharat = deg07 Case Is = 8: Asharat = deg08 Case Is = 9: Asharat = deg09 End Select If My_num1 = 0 Then Order_Salim = Right(aHad & " " & Asharat, Len(aHad & " " & Asharat) - 2) Else Order_Salim = aHad & " " & Asharat End If End If End Function Function OrdeUP100(cel) If Not IsNumeric(cel) Or Int(cel) <> cel Or Int(cel) <= 0 Then OrdeUP100 = "ERROR": Exit Function End If If cel = 1000 Then OrdeUP100 = "الألف": Exit Function If cel > 1000 Then OrdeUP100 = "Too Large Integer": Exit Function Dim Mi3at, Free, Martab1 If cel <= 99 Then OrdeUP100 = Order_Salim(cel): Exit Function Select Case Left(cel, 1) Case Is = 1: Mi3at = "مئة" Case Is = 2: Mi3at = "مئتين" Case Is = 3: Mi3at = "ثلاثمائة" Case Is = 4: Mi3at = "أربعمئة" Case Is = 5: Mi3at = "خمسمئة" Case Is = 6: Mi3at = "ستممئة" Case Is = 7: Mi3at = "سبعمئة" Case Is = 8: Mi3at = "ثمانمئة" Case Is = 9: Mi3at = "تسعممئة" End Select If Mid(cel, 2, 1) = 0 Then Free = Right(cel, 1) Select Case Free Case 0: Martab1 = "" Case 1: Martab1 = " وواحد" Case 2: Martab1 = "وإثنين" Case 3: Martab1 = "وثلاثة" Case 4: Martab1 = "وأربعة" Case 5: Martab1 = "وخمسة" Case 6: Martab1 = "وستة" Case 7: Martab1 = "وسبعة" Case 8: Martab1 = "وثمانية" Case 9: Martab1 = "وتسعة" End Select OrdeUP100 = Mi3at & " " & Martab1: Exit Function End If OrdeUP100 = Mi3at & " و" & Order_Salim(Mid(cel, 2, 2) * 1) End Function الملف مرفق order_up_to_1000.xlsm

السلام عليكم أستاذي ألا يمكن ضم الحقول كلها في جدول واحد ثم جعل النموذج الخاص بكل نوع من الحركات يعرض الحقول للخاصة بها دون غيرها ؟

بفارق الصبر سانتظر لكي اشوفه لا تردد نحن بنتظارك

ارجو الافاده عن وجود معادلة او طريقة توجد العلاقة بين رقمين على سبيل المثال : ما العلاقة بين الرقمين التاليين 1708873787 341848544

العفو استاذ خلف وتقبل تحياتي

حيا الله الجميع الاستاذ صالح : حسب فكرتك احب اذكر ان هناك مساعد لها وفي قواعد البيانات السيرفرية مثل الاوراكل والاسكيو ال سيرفر وهو مايسمى بالتريقرز او بالعربي الزناد وهو حدث للجدول يتم تلقائي ( محصور بالاضافة او التحديث او الحذف ) وعند حدث يت لجدول اخر . وحسب فكرتك عرف تريقر على على جدول المخزون بالتحديث عند عمل اضافة شراء او بيع بجداول البيع والشراء. ملاحظة : الاكسس اتى من 2010 اعتقد بهذه الميزة ولكن بحدود ضيقة وعن طريق عرض الجدول بالتصميم ثم خيار انشاء ماكرو بيانات من شريط الادوات. ملخص فكرتك : عند كل فاتورة شراء يتم وضع الرصيد مع الفاتورة وكذلك عند البيع وخلينا نكمل عند الارجاع وعند الاتلاف وعند الجرد وووو ... ! اسئلة : 1. اخذت الرصيد ووضعته بحقل في فاتورة الشراء . هل سيتم وضعه بدون كميات الفاتورة المصاحبة ام يحسب كذلك كميات الفاتورة الحالية بالحسبان؟ ان قلت يتم اخذها في الحسبان فكيف اعرف الرصيد قبل هذه الفاتورة والعكس ؟ اروح للفاتوره اللي قبلها ؟ ايش عرفني انه بينهما حركات بيع وارجاع واتلاف وغيره ؟ 2. لو تم الغاء فاتورة او قل حذفها ......... اين الرصيد هل نقول معليش والله راح مع الفاتورة !!!! 3. هل تخيلت بيئة تعدد المستخدمين والشبكات : هل تضمن تنفيذ عمليات الابديت المتتالية بنجاح ؟ اخيرا : مسالة السنوات السابقة وتصفير قاعدة البيانات فهناك مايسمى الارصدة الافتتاحية وليست مخزون فقط بل الامور المالية والحسابات وكذلك الموظفين والاجازات وغيره بل ان هناك انظمة تستطيع القراءة من اكثر من سنة مالية بدون تعديل فقط قراء وتقارير لانه ليس من المعقول ان تقاريري بالنظام الحالي لا تقرأ سنواتي السابقة . تحياتي

السلام عليكم موضوع في منتهى الروعة من أستاذ مبدع @Elsayed Bn Gemy شكرا جزيلا أستاذ جمال دائما مفاجآت بعد كل غياب أهنيك على على زوعة الموضوع

هذه الاشارة هي بديل As Integer

قم بسحب جميع عناصر النموذج إلى الجهة اليمنى ثم قم بتصغير النموذج بشكل عادي

ربما تستفيد من هذا الملف Working_time.xlsx

انا لا استخدم هذا شيء ... ولا اظن ان يحتاج هذا الا بعد عدة سنوات وحسب حركة الشغل واذا احتجت ذلك سنقوم بفتح موضوع اخر وهو تحويل الجداول الى sql

نعم سوف أجربها إنشاء الله و سوف أعطيك نسخة من برنامجي بعد أن أخفف من حجمه لأن حجم الواجهة كبير

الكود موجود بمديول 8 بال vba ودي صورة عنو العامود e هوة الي الكود بيوصل الى اخر بيانات فيه انت غيرو حسب ما تريد

وعليكم السلام تم عمل اللازم عليك اختيار الإسم فقط من القائمة المنسدلة والباقى سيأتى تلقائيا بالمعادلات Search.xlsx

جرب هذا الكود docmd.setwaring =false يقوم بايقاف اي رسالة خطا او تنفيذ اي استعلام ويجعله مخفيا عن المستخدم وهو كود قوي جدا

Dim s As String s = "select * from اسم الجدول where([حقل الاسم]='" & Me.p & "')" حيث p هو الاسم المراد البحث عنه Me.نموذج فرعي.Form.RecordSource = s Me.نموذج فرعي.Form.Requery الكود السابق يكتب في زر بحث وتوضع النتيجة في نموذج فرعي وانشاء الله ينجح مع الكود

بدون الحاجة الى وحدة نمطية او غير ذلك توجد دالة اسمها datediff() هذه الدالة تطرح بين تاريخين وترجع قيمة معينة مثلا (شهر او يوم او سنة شاهد دروسها على اليوتيوب وهي دالة سهلة جدا

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub

وعليكم السلام والرحمة والاكرام تفضل اخي انا تعبت لان كنت بدور زيك بس الحمد لله حليت الموضوع ويا رب تقدر تستفيد منه الامر معمول بالكود fatoura33.rar

بارك الله فيكم وجزاكم الله خير الحقيقه انا اوويد فكرة الاخ شفان جدول واحد فيه جميع عمليات البيع والشراء واسهل في الاستعلامات واخراج التقارير وطريقتي اني اميز سجلات البيع والشراء بحقل يكون فيه رمز لسجل البيع ورمز لسجل الشراء مثلا اي سجل بيع يحمل رمز B واي سجل شراء يحمل زمز S

وعليكم السلام ورحمة الله وبركاته تفضل: فقط اضف في التقرير تجميع لـ: EmployeeID وانقل التقرير الفرعي داخله newQ.mdb

راجع هذا

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أخي الحبيب محمّد أبو صهيب نسأل الله تعالى أن نلقاه وهو راضِ عنا باتباع نهجه القويم وصراطه المستقيم الذي سلكه الأنبياء والمرسلون والشهداء والصالحون ...وصلى الله تعالى على من تركنا على البيضاء ليلها كنهارها لا يزيغ عنها إلا هالك ...اللهم اجعلنا من أهل التوحيد الذين تحبهم ويحبونك والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم الاوخوه الكرام السلام عليكم ورحمة وبركاته كيف يتم انشاء استعلام اقساط واضافة الاقساط تلقائى كما هو في الصوره التالية؟؟ نامل من الله المساعده في قاعدة البيانات والله يحفظكم ويرعاكم تحياتي Database2.rar Database2.rar

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel فتابعونا. تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel ربما تعرضت لنسخ جدول من برنامج ميكروسوفت وورد إلى إكسل، ولكن وجدت أن اتجاه الجدول من اليسار لليمين، قمت بعدة محاولات وتغيير اتجاه الشيت في إكسل ولكن لم تحصل على النتيجة المطلوبة، وتريد عكس اتجاه الجدول أفقيا Flip horizontal أو عكس اتجاه الجدول رأسيا Flip vertical أو حتى عكس اتجاه الجدول بزاوية Flip diagonal . أو تريد تدوير الجدول لليسار Rotate left أو تدوير الجدول لليمين Rotate right أو تريد تبديل الصفوف إلى أعمدة Transpose فقررت تصميم دالة معرفة تقوم بالمطلوب وكذلك مجموعة من المعادلات التي تؤدي الغرض فأصبح لدينا 6 معادلات لعمل المطلوب وكذلك 6 دوال معرفة لعمل المطلوب بالكود تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba بدائل دالة transpose تعمل على جميع إصدارات إكسل تخزين قيم الخلايا في مصفوفة واستعادتها مرة أخرى نسخ المعادلات مهما تغير مصدر البيانات في الجدول والمفاجأة الكبرى أن جميع ما سبق يتم بالمعادلات في أي مكان تريده ويتم بالكود وفي نفس المكان Flip range horizontal in place by VBA Flip range vertical in place by VBA Flip range diagonal in place by VBA Rotate range left in place by VBA Rotate range right in place by VBA Transpose range in place by VBA …… والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديوتدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح في المرفقات أو من هـــــنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور rotate flip transpose range formula and vba.rar

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

رحم الله والديك ، انا ما انتبهت لهذه القضية ، صحيح اني شفت مجرد 7 اوراق في ملف الاكسل ، لكني قلت هذا كل اللي عندهم. أخي as2003fm ، مثل ما لاحظت انت انه مب سهل جلب البيانات ، وفيه شغل ، ولكن بعد الشغل تفاجأني (مثل بعض الناس ) وترفق لي الملف الحقيقي علشان اضبطه ، يصير لي احباط فرجاء من البداية ارفق الملف الاصل ، واذا البيانات حساسة ، ارفعه في احد المواقع ، وارسل لي الرابط برسالة على بريدي الخاص انتوا المدرسين حالة خاصة على الخاص جعفر