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

أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ ويتم تغير هذا الجزء من الكود Private Sub BT_SAVE_Click() Dim old_num Set sh = Sheets("Sheet1") last = sh.Cells(Rows.Count, 1).End(3).Row If last = 1 Then Exit Sub sh.Range("A2:G" & last).Interior.ColorIndex = 35 If Me.T_NewMASROUF.Value = "" Then MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _ vbMsgBoxRtlReading Exit Sub End If old_num = LB_Kadim.Caption With Me.ListBox1 If .ListIndex < 2 Then Exit Sub x = .List(.ListIndex, 7) sh.Cells(x, 7) = Me.T_NewMASROUF.Value .List(.ListIndex, 0) = Me.T_NewMASROUF.Value End With Me.ListBox1.ListIndex = -1 Me.LB_Kadim.Caption = old_num sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40 Application.Goto sh.Cells(x, 1) Me.T_CODE = "" Me.T_KOUMI = "" Me.LB_Kadim = "" Me.T_NewMASROUF = "" End Sub اخر اربع اسطر مسئولين عن مسح الحقول سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله احترامى لشخصك الكريم

طيب شوف المرفق ... هل هذا ما تريد .... حتى نكمل بقية البيانات ... kan_12.accdb

تم عمل المطلوب بالنسبة للأقساط (عدم ذكر الصف ) فقط المرحلة لان الاكسل لا يعرف كل صف في اي مرحلة Bilal2.xlsm

افهم من كلامك خلاص انت تكمل المتبقي ؟؟؟ أم ماذا ؟؟؟

جرب المرفق واعلامنا بالنتيجة ...... ترقيم تلقائي جديد كل سنة.mdb

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

لتصفح ملفات الكمبيوتر و اختيار الصورة Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With

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

معليش ... ممكن نعرف ليش .... أمكن لدى البعض افكار اخرى تساعدك في حل مشكلتك ... بارك الله فيك

تم معالجة الامر تم اضافة ChecBox لاختيار حقل البحث عندها لا تجدث مشاكل 1-اختيار احد ChecBox يسمح لك بالكتابة فقط في المريع المناسب ويقوم يتفريغ المربع الآخر 2- تم اضافة ميزة جديدة بحيث يتلون السطر الذي تم اجراء التعديل عليه الملف من جديد YARA_FORM_Super..xlsm

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

تفضل 🙂 Dim myCriteria As String myCriteria = "[idlh]=" & Me.idlh myCriteria = myCriteria & " And [B]=" & Me.B If DCount("*", "ld", myCriteria) > 0 Then Dim stry As Integer stry = Me.B Me.Undo Dim rs As Object myCriteria = "[B]=" & stry Set rs = Me.Recordset.Clone rs.FindFirst myCriteria If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If جعفر

تفضل ...... ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb

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

الآن اصبح الاستعلام qry_srch_Receiving هو مصدر بيانات نموذج البحث الفرعي ، والتقرير 🙂 ويمكنك ربط الاستعلام مع استعلام الرسم البياني حتى يكون الرسم البياني لهذا المورد فقط 🙂 جعفر 1261.1.1.accdb.zip

اضف لنهاية الكود بعد التصدير يقوم بمسح الجدول kan

اذا اعجبتك الاسماء أرجو ابتكار المزيد مثلها (مع الاسماء المؤنّثة) انصح باضافة هذين السطرين على الكود ( في المكان المتاسب حسب الصورة ) لمسح التكست بوكس المناسب تحضيراً للبحث التالي

اخر اربع اسطر مسئولين عن مسح الحقول لا قيمة لهذا الأمر بالنسبة للخطأ الذي تقصده الأخت يارا

أعتقد المشكل هنا يجب تبديل الرقم 7 الى الرقم 1 عندي يعمل بشكل رائع

صدقت صحيح لكني عدلت الملف حسب طلب اخونا السائل

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

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

شكرا جزيلا استاذ @jjafferr وهو المطلوب واسف لاني لا استطيع اختار افضل اجابة وهي لك لا اعرف السبب لا يظهر لي الاختيار والشكر موصول للاستاذ الفاضل حلبي المبدع

السلام عليكم هل تقصد بـ "صفحتين من اكسل" مصنفين (ملفين) إكسل أم ورقتين (شيتين) -من نفس الملف-؟

أخي الكريم @Hawiii من حقك تعرف إذا حلت المشكلة أم لا .. هذا أولا . ثانيا : كنت اخترت الإجابة الأفضل قبل أن تدلو بدلوك . ثالثا : جربت مشاركتك ولم تفلح معي . رابعاً : لا تظن أنني 24 ساعة أمام جهاز الكمبيوتر . فدخولي هنا بين الحين والآخر . خامسا : تقبل تحياتي .

على حسب علمي لا يمكن يوجد برامج نصية خاصة الجوجل شيت ماكروات الاكسيل العادي لا تدعم الجوجل شيت

وعليكم السلام 🙂 السؤال غير واضح ، محتاجين معلومات اضافية لوسمحت 🙂 جعفر

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

ألا ترى أخي @د.كاف يار أن ارفاق الصورة في الحقل سيأخذ مساحة اكبر في قاعدة البيانات ؟؟ لم لا يكون بدل حقل المرفق مسار الصورة .. أخف على قاعدة البيانات من ارفاق الصورة ..

السلام عليكم حاجه على قد الحال ان شاء الله تلبى طلبك تم عمل استعلام qryFilter لتصفيه البيانات بناء على 2 كومبوكس للتصفيه وجلب اخر سجل ثم فى حدث بعد التحديث لـ GradName تم وضع الكود التالى لجلب اخر سجل واضافه 1 عليه جرب ووافنا بالنتيجه Private Sub GradName_AfterUpdate() lastNum = Nz(DLast("ItemCode", "qryFilter"), 0) strNum = Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) + 1 strLeft = Left(lastNum, InStrRev(lastNum, "-")) If lastNum = 0 Then Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 Else Me.ItemCode = strLeft & strNum End If End Sub بالتوفيق New Microsoft Access Database (3) - Copy.accdb

السلام عليكم معذرة ولكني لا أعرف هذه الرموز (كا2) و (F)!!

السلام عليكم 🙂 نفس حل اخوي ازهر ، ولكن بصورة ابسط جعفر

جرب هذا الكود( بدون معادلات) Option Explicit Dim My_formula$ Dim Ar(), i% Dim Ar1() Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$4" _ And Target <> "" And Target.Count = 1 Then vl_formula End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++ Sub vl_formula() My_formula = "=IFERROR(VLOOKUP(A4,id!A4:P500,2,0),"""")" Ar = Array(2, 3, 12, 13, 15, 8, 14, _ 6, 5, 4, 7, 10, 9, 11) Ar1 = Array("C5", "G5", "C7", "E7", "G7", _ "C9", "E9", "G9", "C11", "E11", "G11", _ "C13", "E13", "C15") For i = LBound(Ar) To UBound(Ar) Range(Ar1(i)) = Evaluate(Replace(My_formula, 2, Ar(i))) Next End Sub الملف مرفق Zoukra.xlsm

مرحبا اخي زبير للحصول على اجابة اسرع يفترض ان تشرح المطلوب في نفس الموضوع لانه الكثير من الاعضاء لا يرغب في تحميل الملف المرفق ثم يقرر هل يستطيع تقديم المساعدة من عدمة ايضا اخي العزيز لا تستعجل الرد وباذن الله دائما ستجد العون من اعضاء الموقع الكرام في المرفق قمت باجراء تعديل على اساس عند اختيار التعرفة من قائمة هلله يتم احتساب المبلغ سواء كانت التعرفة 0.15 او 0.30 هلله ويتم احتساب الضريبة بواقع 15% هل هذا هو المطلوب اخيرا يمكن عمل المطلوب بشكل افضل بحيث يتم احتساب التعرفة والضريبة بشكل تلقائي بمجرد ادخال قيمة القراءة الحالية ولكن يتطلب معرفة متى يتم احتساب تعرفة 15% ومتى تكون 30% الملف مرفق تجربة.accdb

السلام عليكم هو شيت بسيط لا يحتوي الا على معادلتين تم ارفاق الملف مدعوم بشرح واتمني ان يكون الشرح وافي نسخة من خدمة شؤون الموظفين.xlsx

السلام عليكم أعتقد أن هناك خطأ في القيمة 0.44 التي وضعتَها والصحيح هو 0.73... ومعذرة على الخطأ الذي اقترفتُه في ملفي السابق عند حساب المتوسط الكلي للعينات و الانحراف المعياري الكلي... بن علية حاجي الإحصاء 22.xlsx

ممكن الحل بطريقة احرى الاسماء والارقام في الشيت Source وما تريد في الشيت Target يمكنك اخفاء الشيت Target عن الفضوليين اذا اردت واطهارها في حال تريد التعديل عليها (حذف اسماء/ زيادة اسماء / أو تعديل ارقام الخ.....) القوائم المنسدلة في الخلايا الصفراء (Target) مطاطة تستجيب لاي تغيير في البيانات و لا تذكر المكرر الا مرة واحدة وبذلك لا داعي لكتابة الاسم (منعاَ للأخطاء الاملائية وتوفيراً للوقت) بل تختاره من الفائمة المنسدلة الملف مرفق Kan3any.xlsm

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

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

السلام عليكم ألق نظرة على الملف المعدل بالمرفقات إن كان يلبي القليل مما تريده... بن علية حاجي مثال (5).xlsx

اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك Sub test() Sheets("casher").Range("A3:D18").Copy Sheets("sales").Range("A14:d25").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone End Sub 13.xlsm

السلام عليكم تفضل الملف لعل فيه ما تريد... احتساب الحضور و الانصراف2.xlsx

جرب هذا الكود لعله المطلوب اكتب في الخلايا e3,f3 الاسماء بعد كتابة التواريخ Sub bring_customers() Dim CustID As String: CustID = sheet2.[e3].Value Dim CustID1 As String: CustID1 = sheet2.[f3].Value Dim FromDt As Long: FromDt = sheet2.[d3].Value Dim ToDt As Long: ToDt = sheet2.[c3].Value Application.ScreenUpdating = False sheet2.[A5].CurrentRegion.Offset(1).Clear With sheet1.[A2].CurrentRegion .AutoFilter 3, CustID, xlOr, CustID1 .AutoFilter 2, ">=" & FromDt, xlAnd, "<=" & ToDt .Offset(1).EntireRow.Copy sheet2.Range("A" & Rows.Count).End(3)(2) .AutoFilter End With Application.ScreenUpdating = True End Sub Example.xlsm

السلام عليكم اخي ياسر فتحي اشكرك على مرورك العطر ولك مثل دعائك اضعاف مضاعفه ان شاء الله الاخ والاستاذ ياسر خليل اليك المرفق ان شاء الله ان تم حل اشكاليته Kh_Srech_Al_###.rar

السلام عليكم اخي ياسر هذا المرفق رفعته مره اخرى اضفت تعديلات بسيطه امل ان يعمل معك Kh_Srech_Al_#.rar

تعديلات على الكود * بحث لجميع إمتدادات الإكسل * تسريع الكود عند استخراج مسارات الملفات Kh_Srech_Al.rar

السلام عليكم الاخ الحبيب A L M A I S T R O عدلت على ملف الاستاذ العلامه خبور وهذا بعد اذنه بما يتماشا مع طلبك الاليه كالتالي : أولا تحدد نوع الإمتداد ثم تضغط زر "إختار المجلد الرئيسي" بدوره يخرج مسار ملفات الاكسل من المجلدات الفرعيه للمجلد المحدد أو حتى قرص محدد ثم تحدد نوع الإمتداد مثلاً xls او xlsm او الخ ...... ورقة البحث الافتراضيه للملفات هيا الاولى و المدى الافتراضي = "A1:Z1000" واشياء اخرى اكتشفها في الملف ارجو التجربه ان وجدت اخطاء او ملاحظات انا موجود ---------------------------------- للمعلومية ...... حاول الا تبحث بقرص كامل لانه حتماً سيكون بطيئ جداً احبذ اختيار مجلد معين ---------------------------------- المرفق الاول شرح الية العمل المرفق الاخر الملف شرح_بحث.rar Kh_Srech.rar

السلام عليكم تفضل الفيديو المرفق لتوضيح كيفية عمل مجال حسابي أي ادخال المعادلات في الجداول المحورية Add_Calculated_Field_to_Pivot.rar