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

بسم الله الرحمن الرحيم اليوم اقدم لكم بحث متقدم للبحث عن الاسم بالحرف او الكلمة او الجملة وعرض النتائج في كمبوبوكس والليست بوكس وايضا تم اضافة امكانية تحديد الاسم من الليست بوكس وعمل شيت بنفس الاسم المحدد داخل اللسيت كما يمكنك ايضا من الذهاب الى شيت الاسم المحدد داخل الليست بوكس الكود المستخدم داخل الملف كود البحث Private Sub ComboBox1_Change() Dim a() Dim b, c, d, e Dim Ws As Worksheet: Set Ws = Sheets("Sheet1") Dim l As MSForms.ComboBox: Set l = Me.ComboBox1 Dim i As Long: i = 0 e = Ws.Range("a40000").End(xlUp).Row a = Ws.Range("A2:a" & e).Value With Me.ComboBox1 .List = a .ListRows = 20 .MatchEntry = fmMatchEntryNone .TextAlign = fmTextAlignCenter End With Set b = CreateObject("Scripting.Dictionary") d = "*" & UCase(Me.ComboBox1) & "*" For Each c In a If UCase(c) Like d Then b(c) = "" Next c Me.ComboBox1.List = b.keys While i < l.ListCount If "" = Trim$(l.List(i, 0)) Then: l.RemoveItem (i): Else i = 1 + i Wend ListBox1.AddItem ListBox1.List = ComboBox1.List End Sub كود اضافة شيت بالاسم المختار من الليست بوكس Private Sub CommandButton1_Click() Dim Ws As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Text)) On Error GoTo 0 If Ws Is Nothing Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = CStr(ListBox1.Text) Sheet1.Activate Set Ws = Nothing End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub كود الذهاب الى شيت الاسم المختار Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Ws As Worksheet On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Value)) Ws.Activate Set Ws = Nothing End Sub لتحمل البرنامج اضغط هنا تقبلو تحياتي ياسر العربي

كل الشكر وا لتقدير لكم احبائي ابو يوسف عبدالعزيز البسكري تقبلوا فائق احترامي وتقديري

السّلام عليكم و رحمة الله و بركاته أخي الغالي " ياسر العربي" إبداع رائع و متميّز حول البحث المتقدّم يُضاف لقائمة إبداعاتك بارك الله فيك و لك و جزاك خير الجزاء و زادك من علمه و فضله فائق إعجاباتي

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

تفضل من هنا يوجد اكثر من مطلوبك

http://www.officena.net/ib/topic/64121-ادراج-الكميه-في-مربع-حوار-استعلام-من-خلال-لوحة-ارقام-مصممه-داخل-النموذج/ ارجو من الاخوه الاعضاء المساهمة في تطوير البرنامج كل من لديه فكره يضيفها لتعم الفائده للجميع

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

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

يوجد بالمرفقات بروجرس بار مفيد جدا للاستاذ عبد الباري البنا رائع ولكن اريد التعديل عليه من فضلكم بحيث يعمل عند تنفيذ اكواد تانيه Progressbar.rar

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

وعليكم السلام أخي العزيز في شبت الأسعار يوجد مجمدة حجم 14 صيني بينما في شيت السجل يوجد مجمد حجم 14 تركي مجمدة حجم 14 مصري وهما غير موجودتان في شيت الأسعار والظاهر أنه خطأ منك تم التعديل تفضل معادلة لجمع المواد الداخلة2.rar

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

أخي الكريم بومتعب إليك الملف التالي عله يفي بالغرض إن شاء الله اضغط Alt + F8 من لوحة المفاتيح ، واختر الإجراء الفرعي المسمى Collect_Data ثم انقر على Run لتنفيذ الكود حمل الملف من هنا

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

طيب الحمد لله اخي الكريم واعذر الجميع فالكل يشارك بقدر تفرغه واستطاعته تقبل فائق احترامي

يعني انت محتاج بيانات الشيت الاول تترحل للشيت التاني مع ترك 3صفوف بعد كل 25 صف ممكن يامعلم بس انت كدا دخلت مواضيع في بعضها ومسمعتش الكلام وعملت موضوع جديد المهم انا هحاول اظبطلك طلبك عند تفرغي اذا كان حسب ما فهمت تقبل تحياتي

تفضل اخي الكريم Book1.rar

يرجى عمل موضوع جديد بالمطلوب في الملف الجديد تقبل تحياتي

Private Sub A4_Change() Dim ws As Worksheet Set ws = Worksheets("Archives_Bill") If ComboBox2.Text = "" And A4.Text <> "" Then MsgBox ("الرجاء اختيار الوحدة") A4.Text = "" Exit Sub Else With Me If Me.A4.Text > Me.A1.Text = True Then MsgBox "عفوا هذا العدد اكبر من القيمة الموجودة" ' تظهر هذه الرساله ومعها القيمة الموجوده او الفرق بنهم الموجود في ( A1 ) A4.Text = "" Else End If: End With If ComboBox2.Text = "بالكرتونة" Or ComboBox2.Text = "بالعلبة" Or ComboBox2.Text = "بالعبوة" = True Then ws.Cells(3, 2).Value = "" ws.Cells(3, 1).Value = Me.A4.Value Else ' Exit Sub If ComboBox2.Text = "بالقطعة" Or ComboBox2.Text = "بالمتر" Or ComboBox2.Text = "بالكيلو" Or ComboBox2.Text = "بالعدد" Or ComboBox2.Text = "بالطن" = True Then ws.Cells(3, 1).Value = "" ws.Cells(3, 2).Value = Me.A4.Value End If End If End If End Sub

تفضل الملطوب Book1.rar

تفضل جرب المرفق Book1.rar

تفضل اخي الكريم المشكلة تكمن في الحدث للتكست بوكس حيث انه عند كتابة اي شي يتم تنفيذه وتم تغيير الحدث من Private Sub A4_Change() End Sub الى Private Sub A4_AfterUpdate() End Sub اي بعد ملئ التكست بوكس يتم تنفيذ الكود Book1.rar

تم استخدام عمود مساعد في شبت الأسعار وهو العمود I تفضل معادلة لجمع المواد الداخلة1.rar

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

لو ترفع الملف يكون افضل .. يمكن تكون الاشكالية في كود اخر

ضفها بعد الصف السادس

اضف Exit Sub بعد A5.Text = ""

هل هذا سؤال أم اقرار وهذا ما يحث بالبرنامج

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

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

شكرا لحضرتك الحمد لله توصلت للكود المطلوب Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim y y = Range("D1").Value Selection = y Range("D1").Activate End Sub شكرا مره اخري

السلام عليكم ورحمة الله أخي الكريم alyfahem شاهد الملف المرفق أتمنى أن يكون كما طلبت سوف يتم تنفيذ كود الترحيل أثناء ظهور شريط البروجرس وينتهي الترحيل عند الوصول الى 100% وبالنسبة لملف أستاذنا عبد الباري القصد كان من كلامي في المشاركة السابقة أن الاستاذ عبد الباري قام بنشر الموضوع والفكرة فقط في ذلك الوقت ولم يكن هو المبرمج كما فهمت مني له منا كافة التقدير والاحترام وجزاه الله كل خير على مايقدمه للموقع من مواضيع وافكار متميزة وبالنسبة لسؤال أخي ناصر سعيد حول تطويع الفورم والكود على أي ملف في الملف المرفق التالي أكبر مثال على ذلك تقبلو تحياتي ومروري كود الترحيل بالبروجرس1.zip

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

وعليكم السلام أخي الغالي عماد غازي بارك الله فيك وجزاك الله خيراً على هذه السلسلة الرائعة

جرب هذا الكود :كلمة السر Salim هذا الكود يسمح لك بتحديد الخلية التي تحتوي غلى معادلة فقط (دون اي اجراءات اخرى مسح /تعديل /تلوين ...الخ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="Salim" If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With ActiveSheet.Protect Password:="Salim" End If End Sub

اخي تفضل هذا الكتاب microsoft_access_2013_step_by_step يمكنك تزيله من هنا ايضاً http://www.mediafire.com/download/cfpj8daze1l23n9/microsoft_access_2013_step_by_step.rar

السلام عليكم يمكن تحميل الكتاب من الرابط http://misprivate.boun.edu.tr/kutlu/bis515/access2013.pdf

اخي الكريم صدقني ما ان يكون السؤال المطروح واضح ومرفق معه مثال يوضح المشكلة حتى تجد العديد من الأخوة الأفاضل المحترفين داخل مشاركتك بشكل لايمكنك توقعه وهذا بالضبط ماحصل معي حين طلبت حلاً لمشكلة جمع الأوقات في التقرير .. مع اني وجدت حلاً لتلك المشكلة الا ان الاساتذة الكرام ابوا الا ان يزودونني بعدة حلول اخرى .. اخي الكريم الكل يمر بمرحلة ما في برنامجه يعاني فيها من مشكلة حتى المحترفون انفسهم "طبعا مشاكل المحترفين لايجيد حلها الا المحترفين" فلا تيأس من الانتظار او تكرار السؤال او حتى تغيير صيغة السؤال عسى ان يكون اوضح من سابقه .. ليس هنالك اي ضغط من الاعضاء على اسرة المنتدى لأن اغلب الاعضاء تواجههم مشاكل تعتبر بسيطة الى حد ما امام عباقرة المنتدى .. على العموم سوف ارى مالدي من كتب وان شاء الله اتمكن من ايجاد شيء ما يفيدك. تحياتي اخي لدي كتاب باللغة الانجليزية اسمه "microsoft_access_2013_step_by_step" وحجمه 34 ميجا لايمكن ارفاقه هنا .. هل لديك موقع تفضل رفع الملفات عليه؟ ارجو منك تزويدي به

أخي الكريم كيف تختار اسم الملف المراد الترحيل إليه ..؟؟؟ الكود يعتمد على التصدير لمصنف جديد وليس إلى مصنف موجود بالفعل ..الأمر مختلف تماماً أما بالنسبة لمكان الحفظ فيمكنك تغييره من خلال السطر التالي .SaveAs ThisWorkbook.Path & "\Exported.xlsm", xlOpenXMLWorkbookMacroEnabled

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

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

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