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

أخي الحبيب خالد بارك الله فيك وجزيت خيراً نسيت تثبت النطاق الخاص بالعد =IF(B2>0,MIN(INDIRECT("A"&ROW()+1&":A"&COUNT($A$1:$A$500))),"") جرب الكود التالي عله يفي بالغرض Sub ExtractMinNumbers() Dim Cell As Range For Each Cell In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row) If Not IsEmpty(Cell) Then Cell.Offset(, 1) = Application.WorksheetFunction.Min(Range(Cells(Cell.Row + 1, 1), Cells(Rows.Count, 1))) Next Cell End Sub

اخى الكريم يمكنك استخدام الكود التالى فقط ضعة فى الخلية C2 وقم بالسحب =IF(B2>0;MIN(INDIRECT("A"&ROW()+1&":A"&COUNT(A1:A500)));"") تقبل تحياتى

بارك الله فيك أخي المتميز أحمدعبد الناصر يعجبني فيك البساطة في تقديم الحلول (السهل الممتنع) في حقيقة الأمر فكرت في الاستعانة بجدول في بداية الأمر ولكن أحببت أن تكون الدالة عامة يمكن استخدامها لمن يريد استخدامها دون التقيد بنطاق محدد داخل ورقة العمل عموماً في كلٍ خير إن شاء الله المهم أبو لجين يطرح الموضوع ويختفي !!!!!!!!!! طالما أنك استعنت بجدول يمكن استخدام معادلة الصفيف التالية ضع المعادلة في الخلية H4 واسحب المعادلة وستحقق نفس النتائج =SUM(IFERROR(IF(CODE(MID(F4,TRANSPOSE(ROW(INDIRECT("1:100"))), 1))=CODE($A$1:$A$100),$B$1:$B$100),0)) لا تنسى أن تضغط Ctrl + Shft + Enter

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

وعليكم السلام ورحمة الله وبركاته تم إضافة كود تفقيط العملات بعد التعديل عليه إلى الملف يوجد مشكلة بسيطة فقط وتحتاج وقت لحلها وهي عندما يكون المجموع يتكون من رقم واحد مثل 3+3=6 فإنه يظهر رقما وليس كتابة ارجو ابداء أي ملاحظات أخرى على الملف المرفق حل مشكلة التفقيط للاعداد.rar

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

أخي الكريم إبراهيم السؤال الأول إجابته نعم هو البارامتر الاول (النص أو الشرط الذي يتم اختيار عناصر القائمة على أساسه) السؤال الثاني .. كلامي صحيح والدليل الملف المرفق ..جرب الملف المرفق قمت بحذف الثلاثة سطور واكتفيت بسطر واحد فقط دول الـ 3 سطور If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If يبدو أنه قد حصل لبس في الأمر Add Unique Items In ComboBoxes YasserKhalil.rar

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

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

أخي الحبيب ياسر فتحي إليك الكود التالي عله يفي بالغرض بالنسبة لملفك في المشاركة الأولى قمت بإزالة التنسيقات في الأعمدة والصفوف الزائدة ...لا أرى داعي أبداً لتنسيق كافة الصفوف والأعمدة بهذا الشكل ، هذا يجعل الملف ثقيل وبطيء جداً المهم اتفضل الكود جرب وشوف Sub PullUniques() Dim A, I As Long, J As Long, N As Long, LR As Long With Sheets("Sheet1") LR = .Columns("B:M").Find("*", , , , xlByRows, xlPrevious).Row A = .Range("B3:M" & LR).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For J = 1 To UBound(A, 2) For I = 1 To UBound(A, 1) If Len(A(I, J)) Then If Not .Exists(A(I, J)) Then .Item(A(I, J)) = Empty: N = N + 1 If N <> I Then A(N, J) = A(I, J): A(I, J) = Empty Else A(I, J) = Empty End If End If Next I N = Empty Next J End With .Range("O3").Resize(UBound(A, 1), UBound(A, 2)).Value = A End With End Sub تقبل تحياتي Customers New Only YasserKhalil.rar

إنت كدا بتطلب شيء صعب جداً .. أعتقد إن مفيش مشكلة من الاستخراج لن يستغرق الامر طويلا بعدها يمكنك المعاينة والطباعة كما تريد جرب الملف التالي عله يفي بالغرض Export Workbooks Using Filter Method V2.rar

أخي الكريم تم إضافة الكود التالي في موديول Public Sub PrintPreview(FullName As String) Dim XL As Excel.Application Dim Wrk As Excel.Workbook Dim Sht As Excel.Worksheet If Dir(FullName) = "" Then MsgBox "Can't Find File!", vbCritical Exit Sub End If Set XL = New Excel.Application Set Wrk = XL.Workbooks.Open(FullName) Set Sht = Wrk.ActiveSheet XL.Visible = True XL.WindowState = xlMaximized Sht.PrintPreview Wrk.Saved = True XL.Quit End Sub ثم في حدث الفورم حذفت ما كان موجود وأضفت التالي كما حذفت الفورم الثاني نظراً لعدم الحاجة إليه Private Sub UserForm_Initialize() Dim Cell As Range For Each Cell In Range("X12:X23") ComboBox1.AddItem Cell.Value Next Cell End Sub Private Sub cmdPrint_Click() Dim FullName As String If ComboBox1.Value = "" Then MsgBox "لم يتم اختيار مصنف لمعاينة الطباعة", 64: Exit Sub FullName = ThisWorkbook.Path & "\Results\" & ComboBox1.Value & ".xlsx" Unload Me PrintPreview FullName End Sub وإليك الملف فيه تطبيق ما طلبت إن شاء الله لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي Export Workbooks Using Filter Method V2.rar

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

اخى واستاذى الحبيب ابو البراء كلام حضرتك شرف كبير لى .... جزاك الله خيراً خالص حبى وتقديرى لشخصكم الكريم

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

إليك أخي الفاضل الملف التالي عله يكون المطلوب تم عمل ورقة تقرير ..اختار الاسم ثم انقر زر الأمر لتظهر البيانات المرتبطة بهذا الاسم Sub Report() Dim WS As Worksheet, SH As Worksheet Dim I As Long, lRow As Long, LR As Long Set WS = Sheets("نور البيان "): Set SH = Sheets("Report") lRow = 6 Application.ScreenUpdating = False With SH.Range("D6:K1000") .ClearContents: .Interior.Color = xlNone End With Call UniqueNames For I = 7 To 506 If WS.Cells(I, "C") = SH.Cells(3, "C") Then WS.Cells(I, "C").Offset(, 1).Resize(1, 8).Copy SH.Cells(lRow, "D").PasteSpecial xlPasteValues lRow = lRow + 1 End If Next I SH.Range("D7:H1000").ClearContents LR = SH.Cells(Rows.Count, "I").End(xlUp).Row + 1 With SH.Range("I" & LR) .Formula = "=SUM(I6:I" & LR - 1 & ")": .Value = .Value: .Interior.Color = 10092441 If .Value = SH.Range("H6") Then MsgBox "تم سداد المبلغ بالكامل", 64 Else MsgBox "المبلغ لم يتم سداده بالكامل ما زال هناك أقساط متبقية", vbExclamation End If End With SH.Range("C3").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Sub UniqueNames() Dim Rng As Range Dim Dn As Range Dim Dic As Object With Sheets("نور البيان ") Set Rng = .Range("C7:C506") End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng If Not IsEmpty(Dn) Then Dic(Dn.Value) = Empty Next Dn Sheets("Report").Columns(15).ClearContents Sheets("Report").Range("O1").Resize(Dic.Count, 1).Value = Application.Transpose(Dic.keys) End Sub Report Summary.rar

السلام عليكم ورحمة الله أخي الكريم حافظ، في الملف المرفق تجد تعديلا طفيفا لكود الأخ الكريم c_expert فيها حل لما طلبته (الجمع التلقائي + المجاميع التي تتكون من رقم واحد)... أرجو أن يكون المطلوب.. أخوك بن علية حل مشكلة التفقيط للاعداد_2.rar

السلام عليكم زيادة في الخير هذا كود كنت كتبته , ليس بروعة كود استاذنا ياسر فهو يحتاج لجدول من الاكسيل و لا يعتمد علي نفسه. تحياتي abjad+.rar

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

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

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

أخي الفاضل أبو لجين إليك الدالة التالية وإن شاء الله تفي بالغرض بالنسبة لأي طلب جديد لا يخص هذا الطلب يرجى طرح موضوع مستقل Function CalString(sInp As String) As Long Static bInit As Boolean Dim asMap() As String Dim asLtr() As String Dim I As Long Static aiVal(0 To 255) As Long If Not bInit Then asMap = Split("1 1 1 1 1 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 200 300 400 500 600 700 800 900 1000") asLtr = Split("ء أ إ آ ا ئ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ـة ث خ ذ ض ظ غ") For I = 0 To UBound(asMap) aiVal(Asc(asLtr(I))) = asMap(I) Next I bInit = True End If For I = 1 To Len(sInp) CalString = CalString + aiVal(Asc(Mid(sInp, I, 1))) Next I End Function وإليك أيضاً ملف مرفق فيه تطبيق لاستخدام الدالة تقبل تحياتي ABJAD Calculator UDF Function YasserKhalil.rar

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

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

الأخ الكريم أحمد إثراءً للموضوع إليك الكود التالي ..قم بالضغط على زر الأمر "قل : الحمد لله" في ورقة العمل الثانية لتظهر لك النتائج تقريباً كما أرفقتها في المشاركة الأولى .. Option Explicit Sub ExtractExistingNonExisting() Dim Coll As New Collection, Arr1, Arr2, ArrOut(), Str1 As String Dim pDup As Long, pUniq As Long, I As Long, P As Long With Sheets("Sheet1") Arr1 = .Range("A1").CurrentRegion.Value Arr2 = .Range("D1").CurrentRegion.Value End With ReDim ArrOut(1 To (UBound(Arr1, 1) + UBound(Arr2, 1)), 1 To 8) On Error Resume Next For I = 1 To UBound(Arr2, 1) Coll.Add Key:=CStr(Arr2(I, 1)), Item:=I Next I On Error GoTo 0 For I = 1 To UBound(Arr1, 1) On Error Resume Next Str1 = CStr(Arr1(I, 1)) P = Coll(Str1) If Err Then pUniq = pUniq + 1 ArrOut(pUniq, 7) = Arr1(I, 1) ArrOut(pUniq, 8) = Arr1(I, 2) Else pDup = pDup + 1 ArrOut(pDup, 1) = Arr1(I, 1) ArrOut(pDup, 2) = Arr1(I, 2) ArrOut(pDup, 4) = Arr2(P, 1) ArrOut(pDup, 5) = Arr2(P, 2) Coll.Remove (Str1) End If On Error GoTo 0 Next I For I = 1 To Coll.Count P = Coll(I) pUniq = pUniq + 1 ArrOut(pUniq, 7) = Arr2(P, 1) ArrOut(pUniq, 8) = Arr2(P, 2) Next I Sheets("Sheet2").Range("A1").Resize(UBound(ArrOut, 1), UBound(ArrOut, 2)).Value = ArrOut End Sub Extract Existing Non-Existing From Two Lists YasserKhalil.rar

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

شكرا جزيلا ا/ خالد تم حل المشكلة

P السلام عليكم ورحمة الله وبركاته... كانت ملاحظة الأستاذ الكريم ضاحي الغريب بمحلها حيث تبين أن Clear في الكود قد نظفت جميع الحقول المطلوبة ليحل محلها كل بيانات السند الجديدة ففي وضع اسم مستحق السند توجد إمكانيتان الأولى باختيار اسم من القائمة بواسطة زر الاختيار حيث يلغى تفعيل كتابة اسم تلقائياً ويفعل CombNames Private Sub ChNames_Click() On Error GoTo 1 If ChNames.Value = True Then CombNames.Visible = True 'TxName.Value = CombNames.Value ElseIfChNames.Value = False Then CombNames.Visible = False End If 1 End Sub أما الاختيار الثاني فكتابة الاسم مباشرة يلغى تفعيل CombNames ويفعل TxName فإن حركت الأول ستجد الثاني أسفل منه. Private Sub TxName_Change() End Sub ثم ننتقل إلى سبب صرف هذا السند والذي عبر عنه بكلمة (وذلك عن /) وهنا كما رأينا بحقل الاسم نجده هنا عند تفعيل الكومبوبوكسCmbabout يلغى تفعيل Chabout والعكس صحيح في الحالة الثانية لأنه زود ورقة العمل تحت اسم About بأسباب صرف معينة وترك المجال لك لتكتب السبب الذي تريد عند تفعيل Chabout. Private Sub Cmbabout_Change() TxDescription.Value = Cmbabout.Value Chabout.Value = False End Sub لاحظ كود وصف التكست TxDescription: Private Sub TxDescription_Change() End Sub ثم ننتقل إلى طريقة صرف السند وهنا وضعها ضمن مجالين للصرف: الأول منهما نقداًChCash:فعندما يكون هذا الخيار محققاً يلغى تفعيل الصرف بشيك كما يلغى تفعيل الإطارFrame5 الذي يحتوي على بيانات الشيك.لتظهر عبارة سند صرف نقدي كعنوان لسند الصرف أعلى الصفحة... Private Sub ChCash_Click() On Error GoTo 1 If ChCash.Value = True Then ChChaqe.Value = False Frame5.Visible = False Lpay.Caption = " سند صرف / نقدي" End If 1 End Sub الثاني منهما شيك ChChaqe حيث يتم عكس عملية الصرف الأولى يلغى تفعيل صرف نقدي كما يفعل الإطار5( Frame5) ويظهر التاريخ بصيغة معينة كما أنه لا يفعل الكومبو بانك ويظهر أعلى صفحة السند عنوان (سند صرف / شيك): Private Sub ChChaqe_Click() On Error GoTo 1 If ChChaqe.Value = True Then ChCash.Value = False Frame5.Visible = True TxChDate.Value = Format(Date, "yyyy/mm/dd") Lpay.Caption = "سند صرف / شيك" CmbBank.Visible = False End If 1 End Sub ولكي تتم كتابة وتدوين سند صرف كان لا بد من تذييله بتوقيعات اللجنة المختصة من مستلم ومحاسب ومدير المؤسسة ليتم توثيقه واعتباره سنداً صحيحاً معترف عليه وذكر عنوان المؤسسة ورقم هاتفها وبريدها الإلكتروني والفاكس وما إلى هنالك. أكتفي بهذا القدر...وسأكمل بعونه تعالى..إلى لقاء متجدد ...يحدونا الرجاء بأن نفي هذه الدراسة حقها بمساهماتكم الكريمة والسلام عليكم ورحمة الله وبركاته.

اخى الحبيب مرحبا بك عضوا جديدا فى المنتدى ارجو ان يكون هو ذا طلبك Book1.rar

اخي الفاضل أ/ محمد حسن بارك الله فيك اسلوب سلس للشرح اضافة بسيطة علي زر الاختيار جديد المسمى ChNew

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

مرفق ملف لشرح الخطوات الاولى في تصميم البرنامج الدرس الاول.rar

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

اكتب هذه المعادلة فى خاصية control source للحقل الخاص بالاجابة =IIf([field1]>[field2]; ""& [field1]-[field2];"0") طبعا على اساس انها عملية طرح يمكن اضافة اى شرط تريده او اى عملية اخرى

اسمحو لي هنا ان ابدي رأيي وخصوصا للاخ عبدالله لم نجد التسلسل التدريجي التعليمي لبرنامج مخازن ! فنلاحظ انه برنامج جاهز ويرفع منه اجزاء بالتقسيط ! قد يكون بلغة اخرى والهدف تحويله الى اكسس هناك ملاحظات ومشاركات لم تؤخذ في الحسبان وخصوصا من الاخ الفاضل ابو عمر كان المفروض النقاش حول الجداول والحقول فنرى ملفا بالجداول فقط ! ثم حول النماذج ومرفقا به النماذج والجداول فقط ! ومع الشرح ! ولكن الى ألان البرنامج به اكواد ربط ونسخ وشروط وضع البرنامج بمجلدات خاصة ! وهنا سيصعب على المبتدئين فهم البرنامج ! حيث البرنامج واخر مرفق يحوي اكوادا لا تمت للمخازن بصلة ومع وشك وصول عدد الصفحات الى 4 هذا وهذه نصائح : 1. نظام المخزون لا يخرج عن شيئين لا ثالث لهما : اذونات اضافة - اذونات صرف . والباقي تحسينات وافكار من برنامج لاخر 2.-- تم حذف هذا البند-- 3. اعجبني الرابط التالي في الطريقة والسهولة http://www.3rbco.com/vb/t5655.html 4. انصح واجري على الله ان لا يضيع الوقت مع الاكسس ناسين التركيز في وظيفتي وعملي والتخصص المهني 5. يجب ان نعلم لكي ان يكون البرنامج قابل للتطبيق العملي والتجاري بالتحديد انه ليس سهلا عمله ولا بد من فريق عمل ومن اكثر من تخصص هذا وهذه في الاخير وجهة نظر شخصية ان كان بها فائدة فاجري على الله وان كان غير ذلك فخطأ ومن نفسي والنتائج ستكون الفيصل والميزان تحيات رمهان

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

تفضل تم التوزيع داخل الاستعلام والتطبيق على اربعة ارقام باستخذام الدالة Mid exp1: Mid([Number];1;1) وبذلك يمكنك الاستغناء عن حقول الجدول وهو الافضل توزيع سلسلة رقمية.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

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

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