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

لا يوجد حدث استدعاء للكود سواء زر امر او تنشيط الورقة او .... لهذا تم اضافة زر امر llllllllllllllll - Copy.rar

بالنسبة للطلب الأول جربي الكود التالي Sub SequenceAllSheets() Dim SH As Worksheet, LR As Long For Each SH In Worksheets With SH LR = .Cells(Rows.Count, "C").End(xlUp).Row If .Cells(LR, "C") = "جمـــلة " Then LR = LR - 1 With .Range("A4:A" & LR) .NumberFormat = "General" .Formula = "=ROW()-3": .Value = .Value End With End With Next SH End Sub الطلب الثاني يخصص له موضوع مستقل

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

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

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

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

السلام عليكم هذا الكود يمكن ان أسميه فخ أو لغم من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ) إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها ولكن انتبه : فيمكن أن يكون المبرمج نفسه هو ضحية لهذا الكود (كما حصل لي شخصيا أثناء العمل على هذا المرفق) إذا عاود المبرمج فك حماية الصفحة لتعديل أي معادلة مثلا وتحديد أي خلية سينفجر اللغم وتحذف الأوراق تلقائيا ويقفل البرنامج لذا بعد الانتهاء من عمل أي برنامج وبعد حماية الصفحات يتم وضع هذا الكود فإذا اراد المبرمج في وقت لاحق فك الحماية على الصفحة للتعديل عليها فيجب قبل ذلك الذهاب لمحرر الفيجوال والدخول على الماكرو booom وتعليق السطر الآتي ' Sheets(Array(1, 3, 4)).Delete لأنه المسؤول عن حذف الأوراق (الأولى والثالثة والرابعة) تفضلوا المرفق والشرح داخل الكود abo eed file.rar

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

بفضل الله وبمســــاعدة الســـادة الزمــلاء خــبراء المنتـــدى تم الانتهاء من برنامج شيت كنترول المرحلة الثانوية الصف الأول الـــبرنامج يخــص المدارس الثــــانوية بما فيهــا المــدارس الام في كل ادارة تعليميــة بمعــنى تخصص في كل ادارة تعليمية مدرسة يتم فيها تجميع طلاب منازل من خارج المدرسة وهؤلاء الطلاب يعاملون معاملة خاصة في المواد التي يجرى فيها متحان علمي مثل مواد الأحياء والفيزياء والكيمياء حيث يتم امتحان هؤلاء الطلاب في الامتحان النظري للمادة دون الامتحان العملي وتضرب درجة الامتحان النظري في 1.67 لتكون الدرجة من 20 درجة لهؤلاء الطلاب كما توجد فئة اخرى وهى طلاب فصلوا لتجاوز نسبة الغياب 30 يوم منفصلة او 15 يوم متصلة وتم اعادة قيدهم مرة اخرى وهؤلاء يعاملون معاملة الطلاب المنازل منذ تاريخ الفصل البرنامج يقــوم بإخـــراج نتيجــة نصـف العــام وآخــر العـــام وتبييض نتيجة اخر العام واخــراج نتيجـــة الـــدور الثـــــاني البرنامج تم اختصاره الى 105 طالب لتصغير حجمه وتم وضع بيانات فيه لإبداء الرأي والملاحظات والتعديل علية اذا لزم الامر اســـم المستخـــدم وكلمــــة المـــرور 321 والحمــــاية الداخليـــة لأى ورقــــة هي صـــــفر ayman_1_2020.rar

أخي ياسر , شكرا على الإضافة الجميلة التي أضفتها على الكود رائع جدا ويخدم المطلوب والمجال مفتوح للأخوة الأعضاء لإضافة ما يرونه مناسبا أربع أيام أفكر كيف سأخبر السيد إكسل إن الحماية تم فكها إلى أن وجدت الطريقة هذا السطر Range("XFD1") = "x" مع أنه بسيط ولكنه القشة التي قصمت ظهر البعير بارك الله فيك كن ذا همة تصل للقمة تم التعديل على الملف abo eed file1.rar

اضغط ترحيل ولاحظ النتيجة جرب المرفق أستخلاص بيانات1.rar

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

وعليكم السلام ورحمة الله وبركاته قمت بالبحث عن عنون موضوعك فى المنتدى فوجدت لك هذه الموضوعات أرجو أن تجد فيها ما تريد - انصحك اخى بالقيم بالبحث عن ما يدور ببالك أولا قبل طرح موضوعا جديدا ويكون لهذا الموضوع مواضيع متشابهة قبل ذلك- نرجع لما بدأنا: 1-http://www.officena.net/ib/topic/31714-التحكم-بظهور-مقاطع-التقرير-عندما-يكون-اكثر-من-صفحة-في-التقريريرجى-لمساعدة؟؟؟/#comment-159963

بسم الله ما شاء الله تبارك الله روعة أخي الحبيب أبو عيد .. والله وحشتني هداياك .. ممكن إضافة بسيطة جداً .. بدل أن تضع كود في حدث كل ورقة عمل يمكن وضع كود واحد فقط بجانب كود الموديول بالطبع الكود يوضع في حدث المصنف ويتم حذف الأكواد الأخرى في أوراق العمل جميعها Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error GoTo 1 'إذا كانت الصفحة محمية سيظهر خطأ في هذا الإجراء وعند ظهور الخطأ اذهب للرقم 1 بمعنى أنهاء العملية Range("XFD1") = "x" ' وضع إكس في الخلية لإحداث تغيير يتناسب مع حدث الصفحة If Intersect(Target, Range("XFD1")) Is Nothing Then ' إذا حصل التغيير في الخلية المحددة (وبدون أن أحددها) نفذ ما يأتي Call booom 'شغل هذا الماكرو من الموديول End If 1: End Sub تقبل وافر تقديري واحترامي

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

سيتم حذف اوراق العمل وإغلاق الملف إذا تم فك الحماية تفضل حذف أوراق عمل1.rar راجع أيضا موضوعي هنا http://www.officena.net/ib/topic/63306-منع-المستخدم-من-فك-حماية-الشيت/?do=findComment&comment=411097

اخى الكريم لكل الطلاب ولكل المواد يمكنك استخدام المعادلة التالية لجلب اعمال السنة اى F7..... =VLOOKUP(INDIRECT(ADDRESS(ROW();3));INDIRECT("'"&INDIRECT(ADDRESS(2;COLUMN()))&"'!B2:D200");2;0) ولجلب م. امتحان الفصلين اى G7.... =VLOOKUP(INDIRECT(ADDRESS(ROW();3));INDIRECT("'" & INDIRECT(ADDRESS(2;COLUMN()-1)) & "'!B2:D200");3;0) تقبل تحياتى

تفضل الكود التالي قمت ببعض التعديلات على الكود الاول ليناسب الإضافة التي أضفتها Sub TransferClientData() Dim WS As Worksheet, SH As Worksheet Dim LastRow As Long, LR As Long, I As Long Dim Arr Set WS = Sheets("تصفية حساب العميل"): Set SH = Sheets("ترحيل بيانات العميل") LastRow = WS.Cells(Rows.Count, "A").End(xlUp).Row - 3 LR = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 Arr = Array("B3", "E7", "B4", "A" & LastRow, "B" & LastRow, "C" & LastRow, "D3") With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With If IsEmpty(Range("B3")) Or IsEmpty(Range("D3")) Or IsEmpty(Range("B4")) Or IsEmpty(Range("A6")) Then MsgBox "البيانات غير مكتملة", vbCritical: Exit Sub For I = 0 To UBound(Arr) SH.Cells(LR, I + 2) = WS.Range(Arr(I)) Next SH.Cells(LR, 1) = SH.Cells(LR, 1).Row - 1 With Application .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With MsgBox "تم ترحيل بيانات العميل بنجاح", 64 End Sub Client Account Report YasserKhalil.rar

عسى ان يكون المطلوب أستخلاص بيانات salim.zip

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

الأخ الكريم أبو نبأ إليك الملف التالي ..قمت ببعض التعديلات لتحصل على النتائج منسقة بالكامل كل ما عليك كتابة رقم العميل ثم النقر على زر الأمر .. وجرب كتابة أرقام ليست موجودة .. Sub Treat() Dim WS As Worksheet, SH As Worksheet Dim FindName, LastRow As Long Set WS = Sheets("البيانات"): Set SH = Sheets("تصفية حساب العميل") With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With With SH .Range("D3:E3,B4:D4").ClearContents .Range("A6:E1000").Clear FindName = Application.Match(.Range("B3").Value, WS.Columns(2), 0) If IsNumeric(FindName) Then .Range("B4").Value = WS.Cells(FindName, "E") Else MsgBox "No Mathing Data", 64: Exit Sub End If .Range("D3").Value = Date WS.AutoFilterMode = False WS.Rows(1).AutoFilter Field:=2, Criteria1:=.Range("B3").Value WS.Range("H1:I" & WS.Cells(Rows.Count, "E").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy .Range("A6").PasteSpecial xlPasteValues WS.AutoFilterMode = False LastRow = Selection.Rows.Count + 5 With .Range("A" & LastRow + 1 & ":" & "B" & LastRow + 1) .Formula = "=SUM(A7:A" & LastRow & ")" End With .Range("C" & LastRow) = "المبلغ المتبقي" .Range("C" & LastRow + 1) = .Range("A" & LastRow + 1) - .Range("B" & LastRow + 1) .Rows(1).Copy .Range("A" & LastRow + 4) .Rows(LastRow + 4).Hidden = False With .Range("A6:B" & LastRow + 1 & ",C" & LastRow & ":C" & LastRow + 1) .Range("A1:B1").Interior.Color = vbYellow .Font.Name = "Arial": .Font.Size = 13: .Font.Bold = True .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter .Borders.LineStyle = xlDot: .BorderAround LineStyle:=xlDot End With .Range("C" & LastRow).Interior.Color = vbYellow .Range("B3").Select End With With Application .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With End Sub Client Account Report YasserKhalil.rar

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

أخي الكريم يرجى مراعاة الدقة عند إرفاق ملف والإطلاع على الكود المرفق (تم نسخ الكود بشكل غير لائق ..عموماً التعليقات غير مهمة بالنسبة لي ...ولكن لربما يقدم الحل شخص آخر فيجد التعليقات فيسهل عليه مساعدتك) عموم الأمر جرب الكود التالي Sub GetDataNew() Dim SummarySheet As Worksheet Dim FolderPath As String Dim NRow As Long Dim FileName As String Dim WorkBk As Workbook Dim LR As Long, X, I, Y, T As Long Set SummarySheet = ThisWorkbook.Worksheets("ورقة1") NRow = 2 Range("B2:C1000").ClearContents Application.ScreenUpdating = False For T = 1 To 13 FolderPath = ThisWorkbook.Path & "\" & T & "\" FileName = Dir(FolderPath & "*.xl*") Do While FileName <> "" And FileName <> ThisWorkbook.Name For I = 2 To 21 X = ExecuteExcel4Macro("len('" & FolderPath & "[" & FileName & "]ورقة1'!R" & I & "C2)") If Not IsError(X) Then If X > 0 Then SummarySheet.Range("B" & NRow).Value = ExecuteExcel4Macro("'" & FolderPath & "[" & FileName & "]ورقة1'!R" & I & "C2") SummarySheet.Range("C" & NRow).Value = ExecuteExcel4Macro("'" & FolderPath & "[" & FileName & "]ورقة1'!R" & I & "C4") NRow = NRow + 1 End If End If Next FileName = Dir() Loop Next T Range("A1").Select Application.ScreenUpdating = True End Sub

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

بوركتم يا اخواني على المساعدة وجزاكم الله كل خير وزادكم من علمه

جزاكم الله حيرا نرجو نسحه 2003

جرب ها الشي اذا كان المطلوب انقل الكود الى ملفك extract_number.zip

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

لا يوجد مرفق ومع ذلك يمكنك استخدام الكود التالى حيث يبدأ الترقيم من A4 (يمكنك تغييرها ) الى الخلية التى بها 0.00 Dim k, i As Long, n As Long بالخلية المطلوبة A4 اذا اردت تغيير خلية بداية التسلسل فقط استبدلى With Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row) k = .Value For i = 1 To UBound(k, 1) If Len(k(i, 1)) = 0 Then n = n + 1 k(i, 1) = n End If Next .Value = k End With

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

عفواً أخي العزيز / طائع هناك خطأ في معادادلة (INDEX)حيث تم جعل الأعمدة صفوف والصفوف أعمدة تم تصحيح الخطأ إن شاء الله والعفو قفل خلايا بشروط.rar

اخى الكريم اليك المرفق وهو كود لااستاذ حمادة عمر غير العنوان الى السعودية او اى دولة ولاحظ النتائج طريقة تصميم فورم بحث عن طريق لست بوكس4_5.rar

فكرة استخدامها بشكل أساسي هو الاحتفاظ بالقيم الفريدة أي الغير مكررة فقط ... كيفية استخدامها : هناخد الكود الخاص بحدث بدء الفورم كمثال Private Sub UserForm_Initialize() Dim Rng As Range Dim Dn As Range Dim Dic As Object With WS Set Rng = .Range(.Range("A4"), .Range("A" & Rows.Count).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng: Dic(Dn.Value) = Empty: Next Me.ComboBox1.List = Application.Transpose(Dic.keys) End Sub مع بداية تشغيل الفورم يتم تعبئة الكومبو الأول بالقيم الفريدة من العمود الاول الأسطر الأولى مفيش مشكلة فيها الإعلان عن المتغيرات ، تعيين النطاق ..بعدها يتم تعيين متغير من النوع كائن (اللي هو زي القاموس) وفايدته زي ما قلت إنه بيتم تخزين القيم الفريدة أي الغير مكررة فيه .. السطر الذي يليه للتعامل مع الأحرف الحساسة (السطر يتغاضى عن حالة الأحرف ... فلو كتبنا في الخلية A32 كلمة Yasser وكتبنا في الخلية A33 كلمة yasser .... وشغلنا الفورم وشوفنا القايمة المنسدلة هتلاقي أول كلمة بس هي اللي موجودة ، وتم التغاضي عن الكلمة الأخرى أي أن حالة الأحرف غير هامة ..) السطر التالي عبارة عن 3 أسطر وهو عبارة عن حلقة تكرارية For Each Dn In Rng Dic(Dn.Value) = Empty Next Dn الكائن دا شبيه بالمصفوفة بيتم تخزين عناصر فيه ولكن ميزته إنه بيخزن العنصر أو القيمة مرة واحدة فقط مع كل حلقة تكرارية .. لو اتبعت أسلوب التنقيح Debug بالضغط على F8 ستجد أنه مع كل حلقة تكرارية يتم تخزين عنصر جديد ..اسم العنصر هنا مفتاح يعني المصفوفة ليها عناصر أما الكائن القاموس ده فله مفاتيح المهم كل مفتاح مميز .. يعني يحمل قيمة واحدة فقط في السطر الأخير بيتم وضع المفاتيح في الكومبو أي تعبئة الكومبو بمفاتيح القاموس .. وطبعاً لأنها شبيهة بالمصفوفة فاستخدمنا كلمة Transpose لأن المفاتيح زي عناصر المصفوفة بتكون على شكل أفقي وعشان نخليها على شكل رأسي بنستخدم الكلمة دي .... يمكن إضافة السطر التالي لوضع مفاتيح القاموس في عمود واحد Range("G1").Resize(Dic.Count, 1).Value = Application.Transpose(Dic.keys) لاحظ هنا تم استخدام كلمة Count لعد مفاتيح القاموس .. أرجو أن أكون قد وفقت في توصيل المعلومة

جزاك الله خيرًا على السؤال ، وجزى الله أ / محمد صالح خيرًُا على الإجابة الرائعة

عمل مـــــــــميز أ.عبد العزيز البسكرى ولفت فيه انتباهى عن افراغ خلية الادخال فى الكومبوبوكس ترجع كافة النتائج لتظهر مرة اخرى وهذا ما لم افعلة فى المرفق الاول لى ولهذا المرفق مرة اخرى ولكن هذه المرة حال افراغ صندوق الادخال تظهر كافة النتائج بالليست بوكس خالص تحياتى وتقديرى العطارتمسنا_2015_07_21.zip

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

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

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة 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 قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

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

لدي جدول به اسماء الموظفين وقاريرهم السنوية ( ممتاز - جيد جدا - جديد - متوسط ) لمدة 10 سنوات اريد طباعة تقرير اخر 5 سنوات فقط حتي عند اضافة عام جديد شكرا

لحساب رصيد اخر المدة تلقائيا بدل تسجيله يدويا

السلام عليكم : أخي الفاضل حسين : 1- قم بإنشاء جدول يتضمن كل ماذكرته انت سابقاً ولكن إجعل إسم الزبون من مصدر جدول آخر اسمه : شجرة الزبائن 2- قم بإنشاء استعلام ....الخ والكلام كثير في هذا الموضوع يوجد مثال عملي عن سؤالك بالنسبة للرصيد من السابق في برنامج تم تنزيله من فترة اسم المشاركة :<< برنامج مصمم وجاهز للمحاسبة لشركة لها أفرع>> قم بفتحه ثم تبين كيف تم تصميم كشف حساب زبون واشياء أخرى والسلام عليكم .

هذا الكود هو لدمج عدة حقول في حقل واحد =[field1] & " " & [field2]& " " &[field3] & " " & [field4]

هذا البرنامج مفتوح ويمكن الدخول إلى محتواه البرمجي البسيط وغير المعقد أنا مبتدئ في الأكسس لذا ارجوا منكم مساعدتي في استكمال النقص فيه : - التفقيط - الوحدات النمطية لا أعرف كيف استخدمها - كذلك اريد أن يطلع مدير المؤسسة على البيانات وهو في دولة اخرى لا أعرف كيف انشئ واجهة له ضمن اكسس محملة على النت ارجوكم ماالعمل ؟ Mybox1981@gmail.com رابط التحميل : databasekhalil.rar

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة (((( تابع / الدرس الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها1اكسيل .rar

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

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

السلام عليكم تم التعديل على التفقيط الإنجليزي ويبقى عملية إضافة s الجمع فهل هي مطلوبة هنا وخصوصا أنه كثير من الأحيان يستخدم اختصارات للعملة مثل S.R أو علامة الدولار $ . تم معالجة القيم Null بعد عمل دالة شبيهة للـ Nz حيث هي غير متوفرة في الأكسل ومطلوبة بشدة في الأكسس وهي بإسم myNz . شكرا لكل من أبدى برأيه وملاحظاته ولازلت بانتظار المزيد . تحياتي . الملفات المرفقة Num2Text_97.zip ( 56.12ك ) عدد مرات التنزيل: 267