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

وعليكم السلام تفضل . الكود هو Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A Me.txt_B = B Me.txt_C = C A = 0 B = 0 C = 0 End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip

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

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

جرب هذا الملف العامود الاخضر تعديل معادلة sa;im.rar

السلام عليكم حل أول باستعمال الدالة SUMPRODUCT في المرفق... بن علية تعديل معادلة.rar

هذا شرف كبير أستاذى العزيز - تهنئتكم أحب الى من الترقية ولكنى كنت أعتقد أن بعد الفضية الذهب وكنت أنتظر الذهبية (طبعا أسعار الذهب مرتفعة فى مصر هذه الأيام - ووسام ذهب كان هيعمل مبلغ كبير - يلا كل شىء نصيب )

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

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

السلام عليكم اخوتي في الله عايزين نبدء مشاركة لكل الاعضاء واللي عنده معلومة يشارك بيها من حيث بناء قاعدة بيانات مبيعات ومشتريات ومن حيث التعلم واخذ فكرة عن انشاء عمل كمثل هذا انا واحد من الناس قمت بانشاء عديد من البرامج ولكن عجزت امام انشاء قاعدة بيانات مبيعات ومشتريات انا بصراحة في الاول كنت افتكرها سهلة وكان عندي بعض المعلومات عنها لكن بطرحي سؤال في المنتدي الغالي اوفيسنا اتضحلي ان كل المعلومات اللي عندي لانشاء قاعدة البيانات خطأ وبالتحدث مع الاستاذ الفاضل رضوان ( rudwan ) لقيت ناقصني كتير وانه فيه جداول كنت متخيل انها مش ضرورية في البرنامج لان كان الفكرة في انشاء برنامج بالنسبالي هو شاشة بيع واضافة رصيد للجداول من نفس الشاشة طلبت من الاستاذ رضوان بانشاء موضوع جديد لعمل قاعدة بيانات مبيعات ومشتريات ومشاركة كل واحد من الاعضاء ولو بفكرة عشان نقدر نوصل لنتيجة كويسة الفكرة من انشاء قاعدة البيانات هي ان اللي مش عارف يتعلم وياخد فكرة عن المشروع ولو حب ينفذه يلاقي حاجة تساعه في العمل انا قمت بعمل بعض الجداول واللي شايف ان فيه جداول المفروض تكون موجودة يقدر يضفها ويرفق الملف توكلنا علي الله مبيعات ومشتريات.rar

وجزيت خيراً الموضوع بسيط ولابد من تعلم الأساسيات .. يوجد هذا السطر للتعامل مع ورقة العمل النشطة With ActiveSheet إذا أردت التعامل مع ورقة العمل المسماة add على سبيل المثال ، ستقوم بتغيير كلمة ActiveSheet إلى التالي With Sheets("aadd")

وعليكم السلام جرب الكود التالي Option Explicit Private Sub CommandButton1_Click() Dim x As Variant Dim y As Long With ActiveSheet x = TextBox1.Value y = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1) If x = "" Or Not IsNumeric(x) Or x > y Then MsgBox "Enter Valid Value", vbExclamation: Exit Sub .PrintOut From:=1, To:=x End With End Sub لاحظ أنه عندما يكون الموضوع مباشر والطلب واحد ومحدد تجد استجاية أفضل (راجع الموضوعات التي لم تجد فيها استجابة ستجد أن هناك تشتت وأكثر من طلب) أحببت أن أنوه لك لكي ينتبه الجميع للأمر ، فالله يعلم أني أريد المصلحة والمنفعة للجميع وفقنا الله وإياكم لكل خير

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

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

وعليكم السلام جرب الكود بالشكل التالي Option Explicit Private Sub UserForm_Initialize() Dim sh As Worksheet Dim i As Integer Dim valeurs1 As Variant Dim sDic1 As Object Set sh = Sheets("add") Set sDic1 = CreateObject("Scripting.Dictionary") With Application .ScreenUpdating = False .DisplayAlerts = False End With With sh valeurs1 = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value valeurs1(1, 1) = "الكل" For i = LBound(valeurs1) To UBound(valeurs1) If Not IsEmpty(valeurs1(i, 1)) Then sDic1(valeurs1(i, 1)) = "" Next i End With If IsArray(valeurs1) Then Me.ComboBox4.List = sDic1.keys With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub

بارك الله فيك استاذ ياسر

أخي عبدالفتاح بارك الله فيك، إجابة سليمة 100% ولا يوجد عليها غبار. بارك الله فيك الله يعطيك العافية

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أستاذي بن علية حاجي بدءا قد وفّيت وانه المطلوب، ثُمّ إنه لمن المحرج أن لا اجد ما يعبر عن شكري وامتناني، غير اني آمل من الله أن يكرمك ويجزيك خيرا بقدر ما هو أهلً له من كرم وسخاء، شكرا استاذي كما لا يفوتني ابدا أن ادعو لكل أساتذتنا في اوفيسنا من الاستاذ ياسر ابو البراء الى خبور الى الاستاذ جاويش اليهم جميعا فردا فردا.... فإننا نقدر مجهوداتهم ولا نخفي جميلهم جميعا. شكرا

بعد إذنك (مستر مصطفي) لدي قاعدة بيانات قمت بتصميمها بعد متابعة شرح ( إنشاء سوبر ماركت علي الفيجوال بيسك ) ولكني لم أكمل البرنامج لوجود إختلاف وصعوبة في الفيجوال . وأنا أجدها قاعدة بيانات قوية وملمة بنواحي كثيرة في مشروع السوبر ماركت أو أي مشروع مبيعات ومشتروات .لذا أرجو من الأخوة الخبراء العمل عليها وإستكمالها . وأتمني من الأخوة الأعضاء عندإضافة أي جديد في هذا الموضوع أن يقوم بشرح الخطوات . لكي يستفيد الآخرين Super Market.rar وهذا رابط الشرح

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

الحمد لله وأنا بخدمتكم متى شئتم على قدر المستطاع وكنت أتمنى مشاركتم ببرنامجين تتوق نفسى لانجازهم ووقفهم لوجه الله برنامج لتيسير أحكام التجويد - والآخر للمواريث والتقسيم الشرعى أن تعاونونا بالبحث العلمى والأدلة الشرعية وأنا بالجانب الفنى على حسب الوسع . والطاقة حسبة لوجه الله تعالى وهى دعوة للأحبة أيضا لمن أراد المساهمة بفكرة أو بدعوة بظهر الغيب بالتوفيق لهذا العمل مبارك علىّ التعرف بكم وأسأل الله أن يجمعنا بكم مع النبى محمد (صلى الله عليه وسلم) على فكرة ما كنت أظن أن أخوتنا بـ كوردستان يجيدون العربية حتى سمعت صوتك خلنا من سيرة الذهب تلك - فقد ضاع وسام يجى 1.5 جرام وعموما شكرا على الورد وشكرا على الزيارة العطرة

وعليكم السلام جرب الكود التالي Private Sub UserForm_Initialize() Label1.Caption = Format(Label1.Caption, "#,###.##") End Sub

هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر

كلام سليم، لكن ما أتحدثه عنه هو عبارة عن 1000 ارتباط تشعبي أو ما يزيد، عملية الذهاب لكل ارتباط وإزالته بطريقتكم ستأخذ وقت طويل جداً، أريد طريقة مختصرة وسريعة لذلك. أشكرك لك مشاركتك

السلام عليكم ورحمة الله وبركاته إخواني الكرام في الصرح العملاق أوفيسنا (الذي يعتبر بمثابة الأم التي تحتضن أبناء الوطن جميعهم) أقدم لكم موضوع بسيط جدا في كيفية تظليل عمود وصف الخلية النشطة بناءً على رغبة الأخ الحبيب أحمد غانم (حفظه الله ورعاه) إذا أردت تنفيذ الفكرة بنفسك قم بعمل الآتي : أولاً حدد خلايا ورقة العمل بأكملها ..مش صعبة يا أحمد ثانياً روح للتنسيق الشرطي ..واختار New Rule ثم Use a formula to determine which cells to format ثم اكتب المعادلة التالية : =COLUMN()=COLUMN(INDIRECT($P$1)) اضغط Format ثم التبويب Fill واختار اللون اللي على مزاجك (يا لذيذ يا رايق) كرر نفس الخطوات السابقة مرة أخرى واكتب المعادلة التالية أيضاً .. =ROW()=ROW(INDIRECT($P$1)) ثالثاً : كليك يمين على ورقة العمل ثم View Code واكتب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Range("P1").Value = Target.Address Application.ScreenUpdating = True End Sub رابعاً ودي أهم خطوة : بس خلاص جرب الملف المرفق .. في الملف المرفق قمت بتلوين بعض النطاقات ، وعمل تنسيق شرطي للتأكد من أن الكود لا يؤثر بأي حال على التنسيق الشرطي الموجود ولا على الخلايا التي تم تلوينها من قبل ، ويسمح أيضاً بتلوين أي خلايا تريدها Highlight Activecell's Row And Column V2.rar

وجزيت خيراً بمثل ما دعوت لي أخي الغالي مجدي يونس تقبل تحياتي

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب باستعمال الكود السابق (مع بعض التعديل) وإضافة أمر "الترحيل" (سطر واحد)... وتم نسخ الكود نفسه باسم آخر (بعد التعديل) لأجل الترحيل دون الطباعة مع حذف أمر "الطباعة" (سطر واحد)... أرجو أن يفي الغرض المطلوب... بن علية ترحيل من خلية الى صفحات مفهرسة + طباعتها.rar

آمين ولك بالمثل أرجو أن نستطيع تقديم هذا العلم النافع وجزاك الله خيرا

اليك هذا الكود جرب ووافيني بالنتيجة ControlPanelValue = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)

إخوانى فى الله نظرا لعدم دخول كثير من رواد الكنترول والمهتمين والعاملين بهذا المجال ، وهذا شىء لا أفهمه من قبل السادة الأعضاء بالرغم من كون الأمر بسيط وسهل ولكن بالفعل كل شخص يرغب فى تصوره الخاص بالنسبة لهذا الموضوع ولو وضعت الوزارة شكلا أو تصميما أو برنامجا للعمل عليه كان إلتزم الكل به بلا نقاش أو جدال حتى ولوكان مليئأ بالأخطاء والعيوب بالرغم أنى ذكرت فى بداية موضوعى أن هناك منتديات أخرى (( أجنبية )) بها تعاون يفوق الوصف والكل يؤمن بالهدف ويسعون لتحقيقه دون الدخول فى أحاديث جانبيه لا تنفع ولا يأتى منها نتيجة فعاله تخدم الهدف وبالرغم من كل المهتمين بهذا الموضوع من أعضاء المنتدى يمتلكون عده ملفات وعده أفكار وهذا ما لاحظته أثناء عملية البحث بالمنتدى ولكن لا توجد لديهم فكرة التواصل الحقيقى المثمر الهادف الذى يخدم الجميع وقد طرحت هذا الموضوع بمنتدى أجنبى للتوصل إلى كيفية تقريب الآراء والأفكار وسبحان الله وجدت تفاعل قوى و بالفعل وصلنا إلى فكرة هامة سأنقلها لكم وهى :- (( تجميع الأفكار داخل ملف )) 1 - تسجل فيه شرح لكل المعادلات المستخدمة فى هذا المجال 2 - جميع الأكواد التى ستسجل داخل محفظة بها شرح واف لكيفية إستخدامها أما فيما يختص بشكل الجداول نظرا لأنهم لا يستخدمون تلك الملفات الضخمة لأنهم يعرفون جيدا أن الأكسل لا يصلح لقواعد البيانات ، يؤمنون أن كل يوم يحدث تطورا فى العلم مع معرفتهم أن هناك إصدارات للأوفيس لا تعمل عليها جميع المعادلات بخلاف أنهم يعرفون تعدد إمكانيات الأجهزة المستخدمة (( الكمبيوتر )) فتوصلوا إلى أنه لابد من تقسيم هذا الملف ، لتقليل حجم الملف حتى يكون أداؤه أكثر دقة وسرعة ولكم مطلق الحرية بالأخذ بتلك الفكرة أو تجنبها والهدف هو مساعدة شريحة كبيرة من أعضاء المنتدى وأعتذر عن الإطالة عليكم شاكرا لكم حسن تعاونكم وتجاوبكم وتقبلوا منى وافر الاحترام والتقدير

جذاك الله خير

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عدة ادخالات بفورم واحد تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح فورم ترحيل و ادخال طبقا لرؤوس الاعمده.rar __________________________________.rar و فورم ادخال و ترحيل افقى للبيانات مرفق الملف و الشرح ________________________.rar و لا تنسونا من صالح الدعاء تحياتى

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

وفقك الله اخي ابو عبدالله ..وجزاك بكل خير .. أصاب الله ببرك مواقعه ، ولا جعل الله لك إلى لئيم حاجة ، ولا سلب نعمة عن كريم قوم إلا جعلك سبباً في ردها .

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

كود البرنامج في مشاركتي الاولى ، هنا: جعفر

استاذ محمد ... بعد التحية معادلةجيدة ولو كانت ظويلة حبتين لكن نتائجها غير مضمونة (حيث انك حددت الارقام) 1000 , 5000, 10000 ..الى اخره لنفرض ان الرقم هو 1500 أو 9800 مثلاً لاحظ ماذا تحصل

السلام عليكم جرب هذا لعله يوافق مطلبك ajazat.rar

أستاذ محمد حسب فهمي للموضوع أظن أن هذا ما تبحث عنه Gotorecord.rar

فينك يا رجال غبت عنا - ولا الاكسل أخذك منا - شفت متابع أخبارك ازاى جزاك الله خيرا وأرجو أن يكون تم برنامجك الخير على خير أيها الرجل الطيب . أستاذى الغالى جزاك الله خيرا - هذا وسام آخر تهنئتكم أعتز به

حياك اخ محمد اولا خلينا ننبه على شي وبعدين نشوف النموذج مرتبط بالجدول ومربع السرد مرتبط بحقل بالجدول التنبيه : اثاناء عملية البحث انت بتعدل قيمة السرد بالسجل الحالي للنموذج ! لاحظ ان تبحث عن Oda Oda ستجده حل محل القيمة السابقة لهذا السجل وهذا شي خطير فمارايك ؟

=VLOOKUP($B$2,{1000,273;5000,381;10000,802;20000,1055;30000,1870;40000,2627;50000,2772;60000,3261},2)*(1+IF($D$2="ليلاً ",0.5,0)) جرب هذه المعادلة

السلام عليكم جميعا.. إليكم طريقة إلغاء الزر الأيمن لكائن المستعرض بأبسط طريقة من داخل أكسس! 1- الخطوة الأولي اضف المكتبة الخاصة بمستندات HTML من مكتة المراجع ( Microsoft Html Object Library ) 2- افتح محرر الشفرة للنوذج وأضف الإعلان التالي في رأس المحرر.. (WithEvents) تنشئ أحداثا خاصة للغرض المعلن عنه! Public WithEvents HTML As HTMLDocument 3- من القائمة المنسدلة اليسرى في أعلى المحرر: اختر الغرض (HTML) الذي سبق الإعلان عنه 4- من القائمة المنسدلة اليمنى: اختر الحدث (oncontextmenu) هذا الحدث يعيد قيمة منطقية (TRUE, FALSE).. اسند القيمة (FALSE) لهذا الحدث كالتالي Private Function HTML_oncontextmenu() As Boolean HTML_oncontextmenu = False End Function 5- في حدث (onload) للنموذج: أضف السطرين التاليين.. [قم بتبديل ما يلزم] Private Sub Form_Load() Me.WebBrowser0.Navigate "ABOUT:BLANK" Set HTML = Me.WebBrowser0.Document End Sub هذا كل شي.. إليكم المثال web_browser.zip

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

تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: Private txtPageCount2 As Integer Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txtPageCount = txtPageCount2 txtPageCount2 = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then txtPageSum = txtPageSum + [تسمية79] End If txtPageCount2 = txtPageCount2 + 1 End Sub جعفر 570.1.حساب عدد الأسر.accdb.zip

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

الاخ الكريم / ياسر بارك الله فيك لاهتمامك الشديد بالموضوع انا كنت بعت رد لحضرتك يو السبت بخصوص 03/09 و قلت لحضرتك ان استخدام المعادلات مش عملى خالص لان الملف بيبقى ثقيل جدا و بيهنج الجهاز. الرجاء القاء نظرة على الملف المرفق و ان امكن حضرتك تعدل الكود ( حضرتك كنت بعتهولى قبل كدة فى مشاركة سابقة فى ملف اسمة حسابات جديدة + معادلات + كود ) لان استخدام الاكواد اسهل و اخف على الجهاز من استخدام المعادلات لعمل كشف الحساب. بارك الله فيك مقدما على مجهودك و سعة بالك حسابات جديدة - كود ياسر.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته انظروا الى المرفق ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور Dawah.rar

مرفق المثال بالاكسس و به 4 طرق واحدة باستخدام IIF و 3 بال VBA مع تحياتي Grades.rar