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

لتحميل الاصدار من هنا تحميل

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

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

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

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم الصيام و القيام. أخوتي الأعزاء في هذا المنتدى الأكثر من رائع أقدم لكم كود إعادة ترقيم جميع سجلات حقل و ذلك بالضغط مرة واحدة على الزر الذي وضعة عليه الكود. بدون إطالة أقدم لكم هذا الكود. DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To 11 On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i و هذا الملف يوضح ذلك. لا تنسونا من خالص دعائكم في هذا الشهر العظيم إعادة ترقيم عمود في جدول.rar

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

شكرا لك اخى الكريم وكل عام وانتم بخير

For r = 3 To 24 ' Me.Controls("TextBox" & r) = "" With WARED SH = .C جرب هذا التعديل

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

قاعدة البيانات محمية بكلمة مرور ؟ وعلى كل حال انظر المرفق ، ان كانت بياناتك كاملة data_2.rar

تفضل إعادة ترقيم عمود في جدول.rar

بارك الله بكم اخي الكريم و زادكم من فضله

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

السلام عليكم أخي العزيز اعطاك الله العافية على هذا الجهد ارجو أن تعيد النظر بالسطر If TextBox14.Text = WARED.Range("A", khh).Value Then If TextBox14.Text = WARED.Range("A"& khh).Value Then جرب هذا التعديل وبالتوفيق

السلام عليكم ورحمة الله وبركاته اخي الكريم يمكنك اختصار الكود الخاص بك في فورم invoice الكود الخاص بك هو : d1.Value = Val(b1) * Val(c1) d2.Value = Val(b2) * Val(c2) d3.Value = Val(b3) * Val(c3) d4.Value = Val(b4) * Val(c4) d5.Value = Val(b5) * Val(c5) d6.Value = Val(b6) * Val(c6) d7.Value = Val(b7) * Val(c7) d8.Value = Val(b8) * Val(c8) d9.Value = Val(b9) * Val(c9) d10.Value = Val(b10) * Val(c10) d11.Value = Val(b11) * Val(c11) d12.Value = Val(b12) * Val(c12) d13.Value = Val(b13) * Val(c13) d14.Value = Val(b14) * Val(c14) d15.Value = Val(b15) * Val(c15) d16.Value = Val(b16) * Val(c16) d17.Value = Val(b17) * Val(c17) d18.Value = Val(b18) * Val(c18) d19.Value = Val(b19) * Val(c19) d20.Value = Val(b20) * Val(c20) d21.Value = Val(b21) * Val(c21) d22.Value = Val(b22) * Val(c22) d23.Value = Val(b23) * Val(c23) d24.Value = Val(b24) * Val(c24) d25.Value = Val(b25) * Val(c25) d26.Value = Val(b26) * Val(c26) d27.Value = Val(b27) * Val(c27) d28.Value = Val(b28) * Val(c28) d29.Value = Val(b29) * Val(c29) d30.Value = Val(b30) * Val(c30) d31.Value = Val(b31) * Val(c31) d32.Value = Val(b32) * Val(c32) d33.Value = Val(b33) * Val(c33) d34.Value = Val(b34) * Val(c34) d35.Value = Val(b35) * Val(c35) d36.Value = Val(b36) * Val(c36) d37.Value = Val(b37) * Val(c37) d38.Value = Val(b38) * Val(c38) d39.Value = Val(b39) * Val(c39) d40.Value = Val(b40) * Val(c40) الكود بعد الاختصار هو Dim i As Integer For i = 1 To 40 Controls("d" & i).Value = Val(Controls("b" & i)) * Val(Controls("c" & i)) Next i

تفضل جرب المرفق برامج حسابات1.rar

abo_abary_شيت كنترول خاص بالصف الأول والثاني والثالث الإبتدائي.rar

السلام عليكم وجدت هذا الكود : Shell "RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus ولكنه يفتح مجلد الطابعات ،، شيء جيد ولكني أريد الكود يدخلني على الطابعة نفسها ، وهي اسمها : BIXOLON SRP-350III يعني بدل ما يفتح لي مجلد الطابعات وانا انقر مزدوج فوق الطابعة BIXOLON SRP-350III لفتح خياراتها ، أريده تلقائيا يدخلني على الطابعة لو سمحتوا ومن جهتي سوف أبحث إن شاء الله وإذا وجدت نتيجة سوف انشرها للفائدة

كم مات قوم وما ماتت مكارمهم ... وعاش قوم وهم فى الناس اموات الله يرحمك يا استاذ عماد الحسامي

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

اخي الكريم: لا تنقل احساس أن الذين يقدمون المساعدة للآخرين في هذا الصرح على أنهم يعملون لديك!!! فالكلمة الطيبة والأسلوب الحسن كفيل أن يسهل الصعب ويسخر الجميع في خدمتك - زر الاعجاب بهذا - ما هو إلا اختصار لكلمة شكراً أو جزاك الله خيراً لما يقدمه الإنسان المسلم لأخيه المسلم :: تحياتي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة معلومة رقم (1) ... كيف تخفي ال sheet نهائياً تم ارفاق كود الحل من الفاضل/ الحسامي _ رحمه الله و لا تنسونا من صالح الدعاء تحياتى اخفاء ال sheet نهائياً (1).rar اخفاء ال sheet نهائياً--بالعربي.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة من هنا وهناك : نافذة للجميع لإضافة كل جديد وطريف في عالم الإكسيل تم ارفاق كود الحل من الافاضل / الحسامي _ رحمه الله هذا مع مجموعه من المشاركات التى تخص دمج الصفوف بخليه و نسخ البيانات من عمودى الى رأسى من مشاركات الاعضاء الافاضل / الحسامي _ رحمه الله _ هشام شلبى _ ياسر خليل أبو البراء _ أبوعبد الله _ يحيى حسين _ سالم شباني _ امان و لا تنسونا من صالح الدعاء تحياتى قائمة منسدلة ب8اتجاهات.rar

كيف تغرف ارقام الاعمدة من A الى ما تريد(حسب تحديد العدد) انظر الى المرفق column_number.rar

ربنا يخليك احي ياسر و الحمدلله غالسلامة وحشتنا أوي يا راجل فينك انت بقى (يمكن تكون امتحانات الثانوية العامة زي ما انا كنت مشغول فيها) اضافة بسيطة على الملف column_number 1.rar

جرب المرفق كدا انا مش متأكد من الحجم بس شوف كدا Yasser.rar ان لم يفلح المرفق الاول جرب المرفق الثاني Yasser.rar

بارك الله فيك أخي الحبيب عادل حنفي اسمح لي بوضع حل آخر إثراءً للموضوع إليك دالة معرفة توضع في موديول عادي .. Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer) Dim I As Long, J As Long Dim Result As String For I = 1 To LookupRange.Columns(1).Cells.Count If LookupRange.Cells(I, 1) = Lookupvalue Then For J = 1 To I - 1 If LookupRange.Cells(J, 1) = Lookupvalue Then If LookupRange.Cells(J, ColumnNumber) = LookupRange.Cells(I, ColumnNumber) Then GoTo Skip End If End If Next J Result = Result & " " & LookupRange.Cells(I, ColumnNumber) & " ، " Skip: End If Next I MultipleLookupNoRept = Trim(Left(Result, Len(Result) - 3)) End Function لاستخدام الدالة طبقاً لآخر ملف أرفقه أخونا عادل حنفي ضع المعادلة التالية في الخلية I4 ثم قم بسحبها =MultipleLookupNoRept(H4,$D$4:$E$18,2) حيث يمثل البارامتر الأول خلية البحث والثاني نطاق البحث والثالث رقم العمود في نطاق البحث تقبل تحياتي وكل عام وأنت بخير

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

السلام عليكم ورمضان مبارك تقبل الله صيامكم وقيامكم وبعد عاد النور إلى منتدانا الحبيب بعودة الأستاذ ياسر حمداً لله على السلامة

الله عليكم رائع بس لو تخصصون نصف ساعة من وقتكم الثمين لتعليم المبتدئين من مثلي دروس vba (سلسلة تشرح كل يوم كود ) كود لا دوال الأكسس لأنها موجودة خاصة تراكيب الكود و بعض الرموز التي تأتي معه & " ' "'" ";" و شوف كم يضاعف الأجر للأسف نحن لم نجد معاهد تكوين متخصصة تمكننا من ذلك كل ما تعلمناه هو من الأنترنت لكن تبقى ناقصة و الكتب كلها إنجليزي فاياريت تبسط لنا الأمور حتى نتحكم فيها و يزول الغموض و الله أنا بغير منكم و في قلب حسرة أني لم أستطيع التقدم في هذا المجال و الله أنتم طوبى لكم و شكرا

معذرة هذه هي تفضل sum_time5.rar

شكرا للاستاذ صالح وشكرا للاستاذ كرار سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To Me.Recordset.RecordCount On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

و عليكم السلام و رحمة الله و بركاته ... تقبل الله منا و منكم صالح الاعمال ... تعديل بسيط ... DoCmd.GoToRecord , , acFirst Dim i, d As Integer d = DCount("*", "جدول1") For i = 1 To d On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

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

أخي الكريم محمد حمدان كل عام وأنت بخير جرب الملف التالي علك تجد فيه ضالتك إن شاء الله تقبل تحياتي NoToTxt Spell Numbers UDF Function.rar

بسم الله ما شاء الله بدأت بشاير البحث تبان يا فلاحجي إحنا قولنا تكون النتائج في العمود المجاور بس التعديل هيكون بسيط ...في آخر سطر غيره إلى التالي لكي تظهر النتائج في العمود المجاور WorkRng.Offset(, 1).Formula = Arr تقبل تحياتي

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

أخي الحبيب سليم عندما نطرح موضوع فنحن نتعامل دائماً مع النطاقات بشكل ديناميكي ليكون الحل المقدم مرن ويفيد الجميع بدون أن يضطر المستخدم العادي إلى التعديل بارك الله فيك وجزيت خيراً على المعادلات الرائعة وإضافة بسيطة جرب المعادلة بهذا الشكل =IFERROR(OFFSET($A$1,COUNTA($A:$A)-ROW(),),"") في انتظار المزيد من الحلول بالمعادلات أو بالأكواد أو بأي طريقة .. تقبل تحياتي

احي ياسر انت اقترحت فقط 6 خلايا ،وانا اشتغلت على هذا الاساس اذا كنت تريد اكثر انظر الى هذا الملف جدول مقلوب.rar او ربما هذه المعادلة ابسط قليلاً =IF(ROWS($A$1:A1)>COUNTA(A:A),"",INDEX(A:A,COUNTA(A:A)-ROWS($A$1:A1)+1))

الأصدار الثاني التجريبي علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=46612 برجاء تجربته ومراسلتي في حالة وجود اخطاء او تعديلات جزانا الله واياكم كل خير