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

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه برنامج و فورم الفواتير بالتقرير_ استرجاع حركة بيانات بقائمة الفواتير خاصه لكل كود عميل _ أ/ رحمه الله_ الحسامي برنامج فواتير _ أ/ رحمه الله_ الحسامي فاتورة مبيعات _ أ/ رحمه الله_ الحسامي يومية مبيعات _ أ/ رحمه الله_ الحسامي فاتورة مبيعات بالترحيل _ ا / رحمه الله_ الحسامي _ ا / احمدزمان فاتورة مبيعات_ بزر اضافة فاتورة جديده _ الاستاذ/ الحسامي رحمه الله بالكود _ استدعاء فاتوره _ أ/ رحمه الله_ الحسامي _ الاستاذ / طارق محمود برنامج اكسل يعطي تقرير هام وممتاز_تقرير العملاء و الربح و الخساره _ أ/ رحمه الله_ الحسامي _ و مشاركة أ / دغيدى فورم فـاتورة مع الطباعة (English)_ أ/ ضاحى الغريب فاتورة ((خبورية )) تجارية مع الطباعة_ أ/ ضاحى الغريب نموذج فاتورة مبيعات عربي انجليزي مع ايصال_ أ/ ضاحى الغريب نموذج فاتورة على الفورم (هدية لجميع الاعضاء) _ أ/ شوقي ربيع طريقة سلسة لادخالات اصناف الفواتير _ أ/ شوقي ربيع نموذج فواتير منوع (مبيعات /مشتروات/ مردوات المبيعات/مردودات المشتروات) _ أ/ عبدالله باقشير نموذج فاتورة بفورم بامكانية الترحيل والاستدعاء _ أ/ عبدالله باقشير نموذج فاتورة متكامل بفورم بامكانية الطباعة (برنامج جاهز) _ أ/ عبدالله باقشير فاتورة ترحيل وبحث _ أ/ عبدالله باقشير فاتورة بالكود _ مع الترحيل و الاستدعاء _ أ/ عبدالله باقشير فاتورة بترحيل للبيانات _ أ/ عبدالله باقشير نموذج لفاتوره بدون فوروم-حفظ-تعديل-حزف _ أ/ ابراهيم ابو ليلة اهداء الى المنتدى--شرح كيفية عمل فاتوره على الكسيل بدون فورم _ أ/ ابراهيم ابو ليلة دعوة للخبراء في درس عمل فاتورة ديناميكية رهيييبة _ أ/ الزبارى و مشاركات الاعضاء ترحيل فاتورة مبيعات بفورم (هدية بسيطة)_ أ/ الزبارى فاتورة ديناميكية _ أ/ الزباري اكسر الباب وادخل عالم الباركود _ أ/ الزباري هديتي إليكم.. كاشير مبيعات بالأصنف _ أ/ الزباري فاتوره بيع مع التحقق من رصيد الصنف _ أ/ عادل حنفي فاتورة بسريال متغير مع الحفط في فولدر الملف الاساسي برقم الفاتوره _ أ/ عادل حنفي استدعاء و ترحيل فاتورة _ الساده / KHMB _ و _ سليم حاصبيا برنامج ايصالات و فواتير _ أ / حمادة عمر جلب البيانات فاتورة _ أ/ خالد الرشيدى و مشاركات الاعضاء برنامج متنوع _ أ / احمد حمور-ابوعبدالله برنامج موردين و مبيعات_فاتورة مع السندات و الاستعلام _ أ / طلعت محمد حسن برنامج _فاتورة بالفورم مع الاستعلام _ أ / طلعت محمد حسن فاتورة_كود حفظ كل فاتوره مستقله على مسار drive_D _ أ / عبدالله المجرب برنامج فاتورة من نسختين مع الترحيل _ أ / ابو عبدالله_اكسلجى نموذج فاتوره أ / ابو اسامة العينبوسي برامج المخازن و المستودعات نظام مخازن متكامل : نظام الربيع العربي لادارة المخزون _ أ/ الحسامي رحمه الله جديد : نزول برنامج المخزون و الفواتير الشامل الاصدار الثالث .... المشروع الكبير_ أ/ عمرو المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث_ أ/ عمرو (موضوع مميز) الاصدار الاول_ برنامج المخزون و الفواتير الشامل ...هديتى الى كل الاعضاء_ أ/ عمرو برنامج مخزون وفواتير شامل_ الاصدار الثانى ( الاكسيل بشكل جديد )_ أ/ عمرو هديتى_برنامج مخازن_2030gadham_دبل كليك بالارصدة_صنف_مورد_عميل جلال الجمال_ابو أدهم برنامج مخزنى اوفيسنا 2020_ اصدار 2_بحث و طباعه_ جلال الجمال_ابو أدهم هديتى _برنامج مخزنى جاهز _ ارصدة_ كارت صنف بين تاريخين 2013_ جلال الجمال_ابو أدهم كارت الصنف الذكى لمحاسب / امين المخزن المحترف ( اصدارة معدلة )_ أ/ ابو اياد ( الاسيوطى ) هدية العيد كارت الصنف الذكى لمحاسب / امين المخزن المحترف_ أ/ ابو اياد ( الاسيوطى ) برنامج خاص بالمحاسبة والجرد لصيانة الهاتف _ أ/ شوقي ربيع نظام حركة المستودعات و متابعة المخزون_ أ/ احمد زمان برنامج جرد العهده المخزنيه _ أ/ احمد زمان برنامج مخازن _ أ/ محمد حسن المحمد برنامج طلبات الشراء_ أ/ ابو عبدالله برنامج مخزنى و فواتير_ متعدد _ أ / ابو عبدالله_اكسلجى ملف لاحتساب تكاليف وتسعير طلبية بضاعة مستوردة _ أ / ابو عبدالله_اكسلجى تكويد / ادخال صنف بناء على اسم المجموعة _ أ/ حسام عيسى _ الصقر كود ترحيل البيانات بين شيتين مع اضافة رصيد الصنف اذا كان مرحل سابقا _ أ / عبدالله باقشير _ أ/ ibn_egypt بداية خيط لبرنامج مخازن _ أ / عبدالله باقشير بالكود ترحيل وارد و منصرف المخزن مع الترصيد _ أ / عبدالله باقشير اضافة وصرف الي ومن ثلاثة مخازن _ أ/ عمر الحسيني الوارد اولا صادر اولا (first in first out (FIFO _ أ/ ياسر العربى برنامج لادراج خامات و اصناف بفورم مع الترصيد الشهرى _ أ/ ibn_egypt _ أ/ أبوعيد * برنامج المشتريات والمبيعات والمستودع* (برنامج جاهز) _ أ/ حسام نور النسخة العربية من برنامج المستودع _ أ/ حسام نور برنامج المستودع ومراقبة المخزون (برنامج جاهز) _ أ/ حسام نور برنامج لحساب المبيعات والمشتريات والأرباح لمحل ملابس _ أ/ أبو أكرم برنامج حسابات مخازن _ أ/ احمد فضيله بالفورم برنامج مخزنى جاهز بالتقرير_demo اسهل واسرع برنامج مخازن على الاطلاق _ أ/ كله على الله برنامج حركة مخازن _ أ/ ولدطيبة _ علاء الفهد الاسود برنامج المخازن والحسابات.. هديتي للأحبة _ أ/ غسان العبيدي عرض شكل ملف _ أ/ خزاني استعراض آخر 3 سجلات من الجدول عن طريق صندوق الرسائل msgbox _ أ/ الزباري فكرة برنامج مخازن بسيط هديه _ أ/ محمد السباعي برنامج حسابات الاصناف نرجوا من عمالقة المنتدي الغالي المشاركه _ أ/ ahmedghandour برنامج المخازن مجانى 100% _ أ/ عماد محمد غازى محمد رحمة و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

بفضل الله ثم مجهودك زادك الله من علمه النافع

جزاك الله عنى خيرا

آسف أخي تفضل comb.rar

العفو اخي صالح ،،، لا شكر على واجب

السلام عليكم اتمنى أني فهمت المطلب انظر المرفق officena.rar

شكرا جزيلا أستاذي الوزير لقد وفيت و كفيت بارك الله لك وجعلها في ميزان حسناتك إن شاء الله الآن تقريبا إكتملت لدي معلومات التصدير و الإستيراد بفضل الله عز وجل الذي سخرك لنا لتساعدنا و تأخذ أجرك من عنك رب السموات و الأراضين. تقبل الله صيامك و قيامك بمزيد من الأجر و الثواب

في المرفق عند الضغط على استيراد يتم استيراد جميع اوراق ملف اكسل وادراجها في جدول جديد يتم استخلاصه من الجدول الاساسي الخاص بك بعد ذلك تستطيع عمل زر الحاق بالسجل الرئيسي مع معيار رقم الصف :: تحياتي ImpExPortToEXCEl.rar

تشكر على المعلومة بارك الة فيك &[Page] / &[Pages]

جواب شافي ووافي ... احسنت اخي العزيز ... بارك الله بعمرك ومن تحب .

=IF(B5="";"";IF(AND((COUNTIFS(C5:AX5;"غائب")=0);(COUNTIFS(C5:AX5;"دون المستوى")=0));"ناجح";"راسب")) انظر الى المعادلة (هذا العمل للمحترم الاستاذ محمد ابو البراء ) لو لاحظنا في هذه الدالة سنجد ان االدالة ليس فيها الا نطاق واحد متكرر مرتان وهو c5:ax5 هذا النطاق هو نطاق اول طالب فيه تقديراته من اول مادة الى اخر مادة فبالتالي اذا اردنا استخدامها نستطيع وبسهولة وكل ما علينا الا تغيير هذا النطاق ليتناسب مع عدد موادنا دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. =IF(B5="";"";IF(COUNTIF(C5:AX5;"غائب")+COUNTIF(C5:AX5;"دون المستوى")=0;"ناجح";"راسب")) للاستاذ المحترم جمال عبد السميع دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح. ====================================================== ====================================================== شرط النجاح للطالب ان يكون حاصل علة 30% من درجه امتحان اخر العام ان يكون الطالب حاصل على نصف او اكبر من نصف درجة المجموع لنفس الماده لايكون غائب في امتحان اخر العام لنفس الماده abo_abary_Book1.ra =IF(OR(H13<$H$10;H13="غ";I13<$I$10);"راسبة";"ناجحة")

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

السلام عليكم في الويندوز عندك ادخل المسار التالي بعد ما تقفل كافة البرامج المفتوحة ويفضل تعمل ريستارت قبل ما تنفذ الخطوات C Windows System32 المفترض وجود ملف يسمى Fm20.dll اذا لم يكن موجود يمكن تحميله بكتابة اسمه في جوجل أو ممكن نجبهولك مفيش مشكلة ثانيا في حالة وجود الملف او اضافته الخطوة الثانية من قائمة ستارت تشغيل Run واكتب التالي Regsvr32.exe fm20.dll واضغط انتر المفترض يظهرلك رسالة كالتالية تفيد نجاح تثبيت الملف DllRegisterServer in c:\windows\system32\fm20.dll succeeded. اضغط أوكي وجرب تفتح الاكسل عسى خير ان شاء الله

Private Sub food_Change() Me.Txt = Me.food.Text Txt.SetFocus 'food.Requery food.SetFocus Txt = "" End Sub حياك الله اخي محمد اوقف التحديث في حدث عند التغيير للكومبو Food

السلام عليكم و رحمة الله تعالى وبركاته .بارك الله فيك يا أخي و أحسن الله إليك على المساعدة و الشكر موصول أيضا للأستاذ ياسر خليل أبو البراء الحمد لله لقد نجحت معي الفكرة بعد إجراء بعض التغييرات على الكود و أصبح كما يلي: lr = ws.Range("A1").CurrentRegion.Rows.Count .Range("f2").Formula = "=SUM(c2:e2)/count(c2:e2)" .Range("f2").AutoFill Destination:=.Range("f2:f" & lr), Type:=xlFillDefault .Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" .Range("h2").AutoFill Destination:=.Range("h2:h" & lr), Type:=xlFillDefault

جزاكم الله كل خير على أعمالكم

ممكن نشارككم استاذ عبدالفتاح وبكود مختصر من وجهة نظري قبل التحديث افضل وعدم تصفير العنصر لكي لا يتم الادخال من جديد Private Sub CHqawmy_BeforeUpdate(Cancel As Integer) If Len(CHqawmy) <> 14 Then Cancel = MsgBox("الرقم غير صحيح") End Sub

ههههههههههههههههه ياحبيبى بس انت إعملها وتعالى وأخبرنى بميعاد الطائرة والله العظيم إحنا جدعان قوى وبنعشق من قلوبنا اللى بيحبنا والله ياأبو حنين كتر ألف خيرك وربنا يجعله فى موازين حسناتك كل عام انتم وجميع الاسرة الكريمة بخير بمناسبة حلول عيد الفطر المبارك أعاده الله عليكم وعلينا وعلى سائر الامة الإسلامية والعربية باليمن والبركات تقبل وافر تقديرى وإحترامى **** وجزاكم الله خيرا

السلام عليكم لم استطع تحميل الملف ، و لا ادري ما السبب ============================= تم حل المشكلة و كانت في بطئ الانترنات جرب المرفق اخي ابو عبد الرحمان و اخبرني بالنتائج أبو حنين 2.rar

جرب هذا الماكرو Sub fix_Them() lr = Sheets("ورقة1").Cells(Rows.Count, "A").End(3).Row Sheets("ورقة1").Range("f2").Formula = "=Average(d2:e2)" Range("f2").AutoFill Destination:=Range("f2:f" & lr), Type:=xlFillDefault Range("f2:f" & lr).Value = Range("f2:f" & lr).Value Sheets("ورقة1").Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" Range("h2").AutoFill Destination:=Range("h2:h" & lr), Type:=xlFillDefault Range("h2:h" & lr).Value = Range("h2:h" & lr).Value End Sub

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

تفضل أخي الكريم: لم يفتح معي لاني ايضا لا املك الا اوفيس 2007 اضف حقل التعريف لديك في استعلام البحث وغير رقم العمود (7) حسب مكان حقل المعرف لديك، من خلال الصورة بعد اضافة المعرف في الاخر يكون (7) ضع هذا الكود في حدث عند النقر المزدوج على الاسم بعد التصفية Dim stLinkCriteria As String stLinkCriteria = "[رقم المعرف لديك]=" & Me.[اسم القائمة التي يظهر فيها البحث].Column(7) If IsNull(Me.[اسم القائمة التي يظهر فيها البحث].Column(0)) Then MsgBox ("يجب اختيار اسم قبل النقر المزدوج") Else DoCmd.OpenForm "اسم النموذج الذي تريد فتحه", , , stLinkCriteria DoCmd.Close acForm, "اسم نموذج البحث" End If :: جرب ووافني بالنتيجة واذا لم تستطع ارفق مثالاً بصيغة 2007 تحياتي

تمام شكراً لك اخي الكريم وبارك الله بك

عوداً حميداً أخي الغالي الجموعي لقد اشتقنا لرؤية مشاركاتك كل عام وأنت بخير

فقط اكتب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) With [a15] .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .VerticalAlignment = -4108 .HorizontalAlignment = -4108 End With End Sub

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

حياك الله اخي الكريم الحقل (Txt) لم يكن موجوداً وكان ناقصاً.

السلام عليكم اخي الكريم جرب هذا الملف يظهر رقم الفلاشة ويمكن حفظه في جدول flash Disk Serial.rar

الحل : ICDL_TrainingCenter_ver2.rar