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

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

في جزئية كنت ناوي اكتبها مع مشاركتي السابقة ، بس لما اخبرتني ام العيال ان الغدى جاهز ، طارت عن بالي 🙂 بعض الاوقات يكون عندنا مربع سرد فيه اكثر من عمود ، ونكون عملنا كود على الحدث "بعد تحديث" المربع ، حتى يضع قيمة العمود الثاني او الثالث في حقل او حقلين ، وعليه يكون الكود هكذا / Private Sub Form_Current() Dim nRow As Long, nColumn As Long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn = 0 For nRow = 0 To Me.typ.ListCount - 1 If Me.typ.Column(nColumn, nRow) = "Y" Then Me.typ.Value = Me.typ.ItemData(nRow) Call typ_AfterUpdate '<==== Exit For End If Next i End Sub Private Sub typ_AfterUpdate() '<==== Me.Typ2 = Me.typ.Column(1) End Sub جعفر

ما مهمت عليك كيف يبقى حقل التاريخ مستقل أمام الشخص ( هل تقصد كل تاريخ في حقل خاص مثلا ) ؟؟؟؟

هل هذا هو طلبك ؟؟؟؟ New Microsoft Access قاعدة بيانات (3) (1).accdb

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

وعليكم السلام اخى @ازهر عبد العزيز اتفضل ان شاء الله يكون ما تريد وجزاها الله خيرا اختنا ومعلمتنا العزيزه زهره ام عهود بالتوفيق ان شاء الله Elements.accdb

تفضل اخي العزيز ارجو ان يكون طلبك week1.rar

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

Sub Button1_Click() Dim ws As Worksheet WkSheets = Array("ورقة1", "ورقة2", "ورقة3", "ورقة4") For Each ws In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4")) ws.Select Range("b46:n46").Formula = "=SUM(B3:B43)" Range("b47:n47").Formula = "=SUM(B7:B13,B27,B32)" Range("n2:n44").Formula = "=SUM(B2:m2)" Next ws End Sub غير المصفوفه باسماء الاوراق الاربعة لديك

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

على العموم ، صحيح ان جميع الطرق اعلاه تعطي النتيجة المطلوبة ، وذلك لأن مثال اخوي ازهر بسيط وبعمود واحد ، بينما الطريقة الصحيحة هي ، البحث عن القيمة في القائمة ( ComboBox او ListBox ) ، ومن اي عمود ، ثم اظهارها ، هكذا : rim nRow as long, nColumn as long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn=0 For nRow = 0 To Me.Typ.ListCount - 1 If Me.Typ.Column(nColumn, nRow)="Y" Then Me.Typ.Value = Me.Typ.ItemData(nRow) Exit For End If Next i جعفر

جرب هذا الماكرو Option Explicit Sub No_Duplicates() Dim Dic As Object Dim Mmax%, i% Dim SH As Worksheet Set SH = Sheets("Sheet1") Set Dic = CreateObject("Scripting.Dictionary") With SH If .Range("E1").CurrentRegion.Rows.Count > 1 Then _ Range("E1").CurrentRegion.Offset(1).ClearContents Mmax = .Cells(Rows.Count, 1).End(3).Row i = 2 Do Until i > Mmax If .Cells(i, 1) <> vbNullString Then If Not Dic.exists(.Cells(i, 1).Value) Then Dic(.Cells(i, 1).Value) = IIf(IsNumeric(.Cells(i, 2)), _ .Cells(i, 2), 0) Else Dic(.Cells(i, 1).Value) = _ Dic(.Cells(i, 1).Value) + _ IIf(IsNumeric(.Cells(i, 2)), _ .Cells(i, 2), 0) End If End If i = i + 1 Loop If Dic.Count Then .Range("e2").Resize(Dic.Count) = _ Application.Transpose(Dic.keys) .Range("F2").Resize(Dic.Count) = _ Application.Transpose(Dic.items()) End If End With End Sub الملف مرفق No_tekrar.xlsm

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا انظر للاستعلام q ان كان ما تريد ابنى نموذجك عليه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق New Microsoft Access قاعدة بيانات (3)(1).accdb

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

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

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

تفضل استاذ محمد..تم ضبط تنسيق عمود صفحة الإكسيل أيضاً كما تريد ... على ان يكون بهذا التنسيق [$-F800]dddd dd-mm-yyyy المصنف2.xlsm

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

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس 🙂 ولازال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

الإخوة الأعضاء الكرام : في المرفق دالة تقريب بسيطة للأرقام يمكن استخدامها لتقريب أي رقم إلى أقرب عدد صحيح أو إلى أقرب رقم من مضاعفات الوسيطة (numApp) . إلى الأعلى أو إلى الأسفل حسب اخيارك. أرجو أن تفيدكم. قاعدة بيانات1.rar

بالخدمة استاذي العزيز

المطلوب غير واضح ؟؟؟؟

تفضل اخي هذا بالكود ولكن ليس سريع لضخامة بياناتك EURUSD1440 (1).xlsm

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

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

ممتاز اخ ابوتراب اكثر من رائع لدى سؤال اذا اردت ان ادخل بيانات فى النموذج بمعنى تحويل ادخال بيانات الى نعم سوف يتوقف النموذج عن العمل

وعليكم السلام ورحمة الله وبركاته وشكراً لثناءك و دعاءك ولك بمثله وللمسلمين أجمعين : اللهم آمين بما أني هذه الفترة مشغول بأعمال كثيرة . سوف أبدأ معك في كيفية إضافة العملة في البرنامج أين تريد إضافة أو وضع هذه العملة بعد التحويل ؟ يعني تريد إظهار القيمة بعد التحويل في إجمال الفاتورة ؟ أو مع الصنف ؟ اشرح لي الفكرة التي تريدها .

السلام عليكم TestEdit.mdb

السلام عليكم هناك عدة طرق لعمل ذلك و الأفضل استخدام إحدى الطريقتين في المرفق: الأولى بجلب البيانات بالدالة Dlookup من جدول الأصناف بناء على مربع السرد و الحوار الخاص برقم الصنف . الثانية بنسخ قيمة الأعمدة من مربع السرد الحوار إلى الحقول المطلوبة. هاتان الطريقتان تسمحان بالتعديل على البيانات مثل تغيير سعر الوحدة من البضاعة في مثالنا، دون تغيير القيمة الافتراضية كما هو في طريقة ربط جدولين. BringValuesFrom-A-TableToAnother.accdb

وعليكم السلام والرحمة تفضل اخي العزيز هذا المرفق وهو منقول للامانة اعتقد من احد المواقع الاجنبية قد يكون فيه طلبك Animation2k.rar

اساتذتي ومعلمي الاحباء الف الف شكر الحقيقة هذا اكثر من استحقاقي اين انا من هؤلاء الاهرامات والاساتذة الذين اتحفونا وما زالوا يتحفونا باجوبتهم شكرا لاستاذنا jjafferr والشكر موصول لاساتذتي واخوتي Shivan Rekany أحمد الفلاحجى ابو البشر Khalid Jnb ابوخليل wael_rafat أبو إبراهيم الغامدي essam rabea kha9009lid ابو محمد 316 m.r

وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة Dynamic Serial by Letters.xlsm

مجهود ممتاز بارك الله فيك استاذ حاتم

وعليكم السلام أخى الكريم لما لا تقوم بإستخدام خاصية البحث بالمنتدى طالما لم تقم برفع ملف بالمطلوب ؟ تفضل مُجمِع البيانات للاكسيل - Excel Data Collector الإصدار الخامس دمج وتجميع عدة ملفات خارجية فى ملف واحد بالمعادلات وهذا رابط اخر دمج ملفات اكسل في ملف واحد وهذا كود اخر لهذا الموضوع Sub MergeExcelFiles() 'https://www.ablebits.com/office-addins-blog/2017/11/08/merge-multiple-excel-files-into-one/ Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub وهذا كود ثانى للمطلوب Sub ConslidateWorkbooks() 'https://trumpexcel.com/combine-multiple-workbooks-one-excel-workbooks/ Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub

وعليكم السلام -بعد اذنك استاذ سليم ... ولما اصلاً لا تقوم بإستخدام خاصية البحث بالمنتدى -تفضل الوارد اولا صادر اولا (first in first out (FIFO

وعليكم السلام-اهلا بك اخى الكريم فى المنتدى ... على الرغم ان هذه المشاركة مخالفة لتعليمات وقوانين المنتدى ويجب حذفها لعدم احتوائها على ملف موضح فيه كل المطلوب بكل دقة , حيث أنه لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة .... الا ان طلبك يمكن حله بهذه المعادلة فلنفترض اذا كان الرقم موجود بالخلية B2 - فيمكنك وضع هذه المعادلة فى خلية اخرى كما تريد =SUBSTITUTE(b2," ","")

وفقك الله دائما استاذنا الجليل

وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx

بارك الله فيك اخى الكريم

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض

وعليكم السلام-تفضل اخى الكريم ,كان عليك استخدام خاصية البحث بالمنتدى كيفية كتابة معادلة داخل مربع نص او اشكال هندسية

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx

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

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

وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb

أحسنت اخى الكريم عمل ممتاز بارك الله فيك

تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm

وعليكم السلام-تم تعديل وضبط الملف واستخدام هذه المعادلة =SUMIFS('2001'!$D$6:$D$770,'2001'!$C$6:$C$770,$A5,'2001'!$B$6:$B$770,C$3) FIX Formula1.xlsx

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

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