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

اخوتى الكرام السلام عليكم مرفق ملف يحتوي على طريقة لحماية جميع اوراق العمل عن طريق ماكرو كلمة فك حماية الصفحات yara عن طرق الذهاب الي review protect sheet أتمني أن ينال اعجابكم المرفقات: ======== Protect Sheets.rar ========

السادة الزملاء الافاضل احب ان اعرض هذا الموضوع للاستفادة منه حيث تم اقتباسة من موقع ميكروسوفت واليكم الرابط http://support.microsoft.com/en-us/kb/291308/ar ارجو ان ينال اعجابكم ولا تنسوا اللايكات على راى استاذى ياسر خليل تحديد خلايا ونطاقات واعمدة متجاورة او منقصلة او متقاطعة.rar

عزيزي ياسر الفكرة كلها عبارة عن القيام بتسجيل عدد 2 ماكرو اول ماكرو تقوم بتسجيلة عن طريق Developer Record Macro review Protect Sheet ضع علامة صح امام ما تريد حمايتة لاتقم بوضع كلمة سر للحماية اتركها فارغة ثم OK اوقف تسجيل الماكرة سجل ماكرو جديد نفس الخطوات لكن عند الوصول الي review ازال الحماية بالضغط Protect Sheet قثط اوقف التسجيل Alt F11 ستجد فيهم عدد 2 ماكرو للحماية و ازالة الحماية المطلوب بعد ذلك أن تضع كلمة سر للحماية ActiveSheet.Protect Password:= “yara”, DrawingObjects:=True (etc) لتشغيل الحماية ضع حماية الكل في ThisWorkbook بعد ذلك لابد أن نعمل لوب لحماية كافة الاوراق Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets (protect code ) هنا ستجدة ضمن الماكرو الذذي قمت بتسجيلة Next ws لكن لا تنسي ايقاف ومض الشاشة في الاول و في اللنعاية تعيد تشغيلة (Application.ScreenUpdating = False) بنعمل ماكرو لفك الحماية بالاستعانة بالماكرو الثاني الذي قمنا بتسجيلة في الاول ونتيجة لقيام البعض بتغيير اسم الورقم فأنة من الافضل الحماية باسم الورقة و حماية بكود الاسم (علي سبيل المثال) Sheet1(Sheet1) ...... Sheet1(Data) الاسم الاول عبارة عن كود الاسم و الجزء الثاني عبارة عن أسم الورقة بالتالي الحماية عن طريق الاثنين حتي اذا تغير اسم الورقة يكون كود الورقة شغال الان يتم استبعاد ورقة بدون حماية Sub Protect_Name_Exclude_If() هذه فكرة العمل بشكل سريع و يمكن لك تتبع الخطوات و أرجو منك القيام بتسجيل اكثر من ماكرو و تغيير الاختيارات في كل مرة و شاهد الاختلاف أرجو أن اكون قد وضحت لك ما تريد الف شكر لك

اضغط اعجبني في حال كان فعلاً كذلك sum by name salim.rar

Private Sub comb1_AfterUpdate() Me.Filter = Nz(comb1, "id") & " Like ""*" & textfind & "*""": Me.FilterOn = True End Sub

السلام عليكم موضوع فى منتهى البساطة والأهمية يمكنك انشاء مخطط تكراري بالمعادلات. بدون انشاء رسم بياني. تقبلوا تحياتي انشاء مدرج تكرارى REPT.rar

استاذى الحبيب الصقر (حسام عيسى) الهدايا بتاعتك شايلهالك لوحدها . علشان انا بحبك فى الله خد :fff: :fff: وكمان :gift2: :gift2:

السلام عليكم الاخوة الكرام الاعزاء هذا الموضوع مخالف اخواني الكرام لقواعد المشاركات احتراما لحقوق صاحب الملف المغلق وموضوع فتح ملف اكسيل مغلق برقم سري اعرف انه ليس بالصعب عليكم اعضاء المنتدي الكرام ولكن هذه بينكم وبين ربكم والاخ / alaaelyan بارك الله فيك من الافضل ان تقوم بتصميم برنامجك بنفسك او البحث هنا في المنتدي عما يناسبك حيث ان الملف مادام مغلق برقم سري فان صاحبه لا يريد ان يستخدمه احد الا من خلاله واحتراما لحقوق الملكية والفكرية سيتم غلق هذا الموضوع عند هذا الحد ========== الادارة ==========

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (اسم قاعدة الجداول لديك) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .TITLE = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.Name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق الكود التالي في حدث التحميل لنموذج البداية On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' وفي المثال تطبيق للمقال ملحوظة : اذا لم يعمل المثال على الوجه الأكمل انظر في المكتبات link_be.rar

السلام عليكم و رحمة الله مرفق لكم ملف بسيط يحتوي على طريقة نقل بيانات من أي خلية الى أي خلية بمعلومية رقم الخلية و ترتيب الصفحات يمكن أن يسهل عملية القص و اللصق لكثير من الاعمال أرجو أن ينال اعجابكم ===== Copy & Past.rar ===== للجميع

أخي الحبيب مصطفى أبو ملك الإكسيل يتعامل مع الأرقام والتواريخ على أنهم شيء واحد ..حيث أن التواريخ عبارة عن أرقام تسلسلية في الأصل فقط قم بتنسيق الخلية بالشكل المناسب ..كليك يمين ثم Format Cells واختر Date واختار تنسيق التاريخ كما تحب

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

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

السلام عليكم .... لا يمكن فتح ملفات mdf دون تثبيت سيكوال سيرفر ... اكثر من ذلك , لا يمكن فتح قواعد بيانات سيكوال سيرفر حديثة على سيكوال سيرفر بإصدار أقدم ... يمكن تثبيت سيكوال سيرفر , الاصدار المجاني express ...(في حالة حجم قاعدة البيانات أقل من 10 جيغا على ما أذكر) ..

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

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

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

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

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

جرب مسابقة.rar

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

انظر الى هذا الملف و لا حاجة الى عدة صفحات sum by name salim 1.rar

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

السلام عليكم تم اصلاح الكود بعد النظر فى ود قد قدمه الاخ احمد حمور فى الموضوع التالى http://www.officena.net/ib/index.php?showtopic=33810&hl=%2Bكود+%2Bلعمل+%2Bنسخه+%2Bاحتياطيه فاصبح الكود وانت المشكله تكمن فى الجزء الملون باللون الاحمر Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Save Application.DisplayAlerts = False If Date >= #1/26/2014# And Time >= #6:45:00 AM# Then If Application.UserName = "ahmed.moh" Or Application.UserName = "MOHAMED.AHMED" Then ActiveWorkbook.SaveAs "D:\" & ThisWorkbook.Name ActiveWorkbook.SaveAs "D:\today.xls", FileFormat:=xlExcel8 End If End If End Sub

جزاك الله خيرا يا حبيب المنتدى

الله يجزاك الخير كله أخ ياسر ويزيدك من علمه

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

وعليكم السلام هل عامل فهرسة للحقول الاساسية في الجداول المستعملة (الحقول التي يكون لها معايير في الاستعلام)؟ اعملها وجرب جعفر

اخى الحبيب abdalla farouk اشكرك على كلامك الطيب وعلى مروركم الكريم بارك الله فيك

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

أستاذنا الفاضل ياسر جزاك الله خيراً تعودنا منكم دائماً على كل ماهو جديد

أخي ابو حبيبة هل الملف ادى المطلوب ام لا اذا كان لا برجاء التوضيح واذا كان نعم حدد انها مجابة

الله علييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييك يااااااااااااااااااااااااااااااااااااااااااارب ياااااااااااااااااارب يجعلو فى ميزان حسناتك يا استاذ ياسر والله والله والله حضرتك متعرفش انت ساعدتنى اد ايه ربنا يوسع عليك ويزيدك من علمه شكرااااااااااااااااااااا جدااااااااااااااااااااا جدااااااااااااااا

تفضل عملية البحث وفي النموذج cust . لاحظ ان الفكرة : 1. مربع تحريروسرد يعرض الحقول : فقط انظر لخصائص البيانات واهم خاصية مصدر الصف=قائمة الحقول . 2. سناخذ اسم الحقل من مربع التحرير والسرد واذا كان فارغا سيعتمد ال id لاحظ كذلك الاختصار في الكود وهي نفس الفكرة السابقة للمثال الاجنبي ولكن بفكر عربي ! Private Sub textfind_Change() xvar = textfind.Text Me.Filter = Nz(comb1, "id") & " Like ""*" & xvar & "*""": Me.FilterOn = True textfind.SetFocus textfind = xvar textfind.SelStart = Len(xvar) End Sub ومسالة التضليل فلاحقا وبطريقة سهلة ان شاء الله ! تنبيه : ان من قام بالمرفق السابق لاشك انه محترف ولكنه يجهل كثيرا في خفايا الاكسس وميزاته والتي تجعلنا نختصر الكثير من الاكواد ! لقد احتوى المثال الاجنبي على اكواد زائدة جدا جدا يمكن تحسينها بنسبة كبيرة جدا ! تحياتي SearchHighlight.rar

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

يمكن إدراجها من مجموعة الرموز

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

جرب التالي ..... Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("A8").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.Copy .Cells.PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A1").Select End Sub

اخي الفاضل في صفحات بتحمل فيها الملف وهو بيفك الباسوورد وفيه برامج بتعمل بتحملها وبتفكلك الباسوور

الاخ الفاضل / خالد بالرغم انى خطى " بعيد عنك حياتى عذاب " ألا انه نطمع بالمزيد كما ذكر لك أخى حماده عمر معلومات قيمة ذو قيمه بقدرقيمتكم التى نعتز بها وافر تقديرى

كل الشكر والاحترام لك اخي الكريم بارك الله فيك وزادك من علمه.

بارك الله فيك أخي الغالي سليم .. ويجدر الإشارة أن هناك موضوع تم طرحه بنفس الخصوص من فترة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=59721&hl= تقبل تحياتي

أخي الفاضل سامح القيمة كانت بالسالب ...بس أنا قلت يمكن تكون محتاجها بالموجب فأضفت ABS للحصول على القيمة المطلقة الموجبة عموما تم تصحيح الخطأ بالنسبة للاسم والقيمة أصبحت بالسالب Grab Data From Closed Workbooks YasserKhalil.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 قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

بعد اذن فاكهة المنتدى (بس مش فاكهة بتتاكل ) هههههههههههههه استاذى الكبير / ياسر خليل شعلة نشاط المنتدى ( اللون الاحمر اللى بتحبه) مش حرمك من شئ بعد اذنك هقدم شرح بسيط فى سلسة افتح الباب واهرب من الشباك هههههههههههههههههه طبعا عمرى ما هعرف اشرح بنفس اسلوبك الرائع والجذاب اللى بيتسم بخفة ظلك ولكن هحاول اقلدك نبدء بسم الله وللامانه العلمية هذه الصورالمرفقه من مواقع اجنبية لان تصميمها اصعب وياخد وقت فقمت بنسخها والشرح عليها فقط اولا كيفية التعامل مع الخلايا من خلال Rang لو عايزين نعمل كود ونقول b3 = 2 يكون الكود كالتالى ()sub yasser Range("b3").Value = 2 end sub طبعا زر commandButton1 كما هو موضح بالصورة يتم ادراجه من شريط القوائم DeveloPer ثم insert ثم الضغط على اول زر فوق بالقائمة على اليسار ورسمة على ورقة العمل ستظهر لك قائمة وبها كل الاكواد اللى عملتها بالملف وطبعا منها yasser وهو الكود السابق اللى تم عمله فمجرد الضغط على هذا الزر سيتم تنفيذ الكود كما هو موضح بالصورة طيب لو واحد قال انا عايز اعمل عدة خلايا تساوى 2 مش خلية واحده بمعنى عايز A1=5 & A2=5 & A3 = 5 &A4=5 اوك نرجع للكود السابق ونعدله كالتالى ()sub yasser Range("A1:A4").Value = 5 end sub لو رجعنا الى ورقة العمل وقمنا بالضغط على زر commandButton1 سنجد التالى كما هو موضح بالصورة واحد شاطر يقولى انا مش عايز الخلايا ورا بعض هو انتى هتضحك عليا هقوله طيب انتى عايز ايه هيقولى الخلايا اللى انا عايزها هى A1:A2 & B3:C4 = 10 هقول طيب أهدى عليا تعالى نرجع بقى نعدل بالكود بتاعنا ()sub yasser Range("A1:A2,B3:C4").Value = 10 end sub لو رجعنا الى ورقة العمل وقمنا بالضغط على زر commandButton1 سنجد التالى كما هو موضح بالصورة ثانيا/ كيفية التعامل مع الخلايا من خلال cells فى الكود الاول فوق ()sub yasser Range("b3").Value = 2 end sub لو حبينا نستخدم cells بدلا من Range يكون الكود كالتالى ()sub yasser Cells(3, 2).Value = 2 end sub طبعا واحد هيقولى انا تايهة ايه اللى بتعمله ده هقول براحه شوية ومتستعجلش على رزقك الخلية B3 فى اى صف واحد هيقولى فى الصف 3 طيب وفى اى عمود واحد هيقولى فى العمود 2 اذن(رقم العمود , رقم الصف)Cells ثالثا/ كيفية التعامل مع الخلايا من خلال Range& cells فى الكود الثانى فوق ()sub yasser Range("A1:A4").Value = 5 end sub واحد هيقولى ينهار اسووووووووووووووووح ايه ده ودى هتتعمل ازاى بقى هقوله براحه شوى الكود اهوو يا عم و لا تزعل ()sub yasser Range(Cells(1, 1), Cells(4, 1)).Value = 5 end sub الخلية A1 تقع فى اى صف واى عمود تقع فى العمود 1 والصف 1 أذن ( Cells(1, 1 الخلية A4 تقع فى اى صف واى عمود تقع فى العمود 1 والصف 4 أذن ( Cells(4, 1 طيب لما نستخدم Range يكون الكود كالتالى Range(Cells(1, 1), Cells(4, 1)).Value = 5 ارجوا ان اكون وفقت فى الشرح طبعا الشرح بالكتابة صعبه جدا الله يكون بالعون يا استاذ ياسر ويجعله فى ميزان حسناتكم انا كنت مفكر الموضوع سهل لكن لا يا عم توبه هههههههههههه مش مستغنى عن صوابعى الى اللقاء بحلقه اخرى من حلقات افتح الباب واهرب من الشباك اخرج فاكهة المنتدى / ياسر خليل

السلام عليكم اخى المواطن المصرى الفاضل اليك برنامج المتابع على جزئين حمل الجزئين ثم فك الضغط سويا ينتج عن فقك الضغط البرنامج الرجاء المتابعه على الخاص الرابط الاول المتابع الاصدار الاول.part1.rar 950كيلو الرابط الثانى المتابع الاصدار الاول.part2.rar 909.65كيلو

السلام عليكم على افتراض ان النطاق المطلوب B4:B100 جرب الكود التالي: Sub kh_Replace() Dim ch With Range("B4:B100") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With End Sub المرفق 2003 حذف الهمزة والتاء المربوطه.rar

السلام عليكم ورحمة الله طبعا انا اتكلم في اكسس 2007 ضع في نموذج واجهة البرنامج عند الفتح الكود التالي docmd.ShowToolbar "ribbon",acToolbarNo حيث سيقوم بإخفاء اطال اكسس