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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بناءً على طلب أحد الأخوة عن كيفية مسح محتويات خلايا لنطاقات متفرقة أقدم لكم هذا الفيديو لشرح المطلوب في الفيديو أكثر من فائدة ... ليس فقط لمسح محتويات الخلايا .. الفوائد -------------- ** ستتعلم كيف يمكنك تحديد الخلايا الفارغة فقط في نطاق محدد .. ** ستتعلم كيف يمكنك ملء الخلايا الفارغة كلها مرة واحدة بأي بيان سواء رقمي أو نصي أو حتى معادلة .. ** ستتعلم كيف تعلن عن النطاق بالجملة Set .. ** ستتعلم كيف تربط النطاقات المتفرقة بالجملة Union .. ملحوظة : في الرابط التالي يوجد كود للتعرف على كيفية استخدام الجملة Union لربط النطاقات المختلفة http://www.officena.net/ib/index.php?showtopic=60291 والآن :: أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه تقبلوا تحياتي أخوكم أبو البراء Ranges ClearContents.rar

السلام عليكم أخى الفاضل تم تنفيذ ما طلبت مع تعديل بسيط فى الفكرة الأولى وأرجو أن تعجبك جعلت كلمات المرور مرتبطة بأيام الشهر بحيث فى الأيام السبعة الأولى من الشهر تكون كلمة المرور ( الله اكبر ) وفى الأيام السبعة التالية تكون كلمة المرور ( سبحان الله ) وفى الأيام السبعة التالية تكون كلمة المرور ( الحمد لله ) وفى الأيام السبعة الأخيرة تعود كلمة المرور كما كانت وهى ( الله اكبر ) وهكذا فى كل شهر أما غلق محرر الأكواد فيمكنك ذلك عن طريق الدخول الى محرر الأكواد ثم من قائمة Tools تختار VBAProject properties ثم تختار تبويب protection وتضع علامة صح امام الاختيار look project for viewing ثم تضع كلمة المرور فى خانة password وتعيد كتابتها مرة أخرى فى خانة confirm password وفى الملف المرفق كلمة مرور محرر الأكواد 123 كلمة مرور متغيرة كل 7 أيام.rar

بسم الله الرحمان الرحيم السلام عليكم حركة اليوم كالعادة متعلقة بالجانب الفني و الجمالي لليوزر فورم اقتبست هاته الفكرة من تجليد الفورم في VB6 و VBNET بواسطة أداة Active Skin و وجدة ان هاته الأداة متوفر او متوافقة بالفعل مع VBA لذى بحثت وحاولت الى ان توصلت الى الاتي ا36 شكل (ثيم) مميز يمكنكم استعمالها بسهولة فس برامجكم ندخل الى التنفيذ اولا نحتاج الى تثبيت الأداة ActiveSkin Control ان لم تكن مثبت لديكم ولفعل ذالك اتبع الشرح المصور الاتي بهده الطريقة نكون انتهينا من عملية تثبيت الادات الان ناتي الى اضافة الاداة كاي ادات اخرى الى صندوق الادواة نقوم الان باضافة الاداة الى الفورم وايضا نقوم باضافة ليست بوكس ثم قم بنسخ هذا الكود في الفورم Option Explicit Private No As Double Private FSO As Object, Klasir As Object, Dosya As Object Private SeçilenDosya As String Private Const hWnd As Long = &H0 Private Sub UserForm_Initialize() On Error Resume Next Application.Visible = False With Me .Caption = "UserForm Skin" .Height = 226 .Width = 358 End With With ComboBox1 .Left = 6 .Top = 6 .Height = 18 .Width = 114 End With Call SkinDosyaListele End Sub Private Sub UserForm_Terminate() On Error Resume Next Contrôle1.Empty End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next Application.Visible = True End End Sub Private Sub ComboBox1_Change() On Error Resume Next SeçilenDosya = ComboBox1.List(ComboBox1.ListIndex, 1) Me.Caption = ComboBox1 With Contrôle1 .LoadSkin SeçilenDosya .ApplySkin hWnd .ZOrder 1 End With DoEvents End Sub Sub SkinDosyaListele() On Error Resume Next No = 0 Set FSO = VBA.CreateObject("Scripting.FileSystemObject") Dim Pth As String: Pth = ThisWorkbook.Path & "\Skins\" Set Klasir = FSO.GetFolder(Pth) For Each Dosya In Klasir.Files ComboBox1.AddItem Dosya.Name ComboBox1.List(No, 1) = Dosya No = No + 1 Next Dosya End Sub تم ارفاق مثال عملي للموضوع لكي يشتغل عنك المثال قم اولا بتثبيت الادات كما وضحت سابقا ولا تنسى وضع الملف بعد الحفظ مع مجلد Skins في نفس المسار سيضهر لك يوزر فورم به قائمة منسدلة بالشكل العادي قم باختيار أي اسم من القائمة ولاحظ مايحدث المجلد Skins يحوى السناكات بعض الصور المأخوذة للفورم بعد التجليد اهدي هذه الحركة الى اخي وصديقي ضاحي الغريب الذي عمل لي الشرح المصور اعلاه جازاه الله عنا كل الخير ارجو ان يفيدكم الموضوع وينال اعجابكم تحياتي للجميع اخوكم في الله شوقي ربيع الشرح المصور.rar ACTSKIN4 الاداة.rar مثال عملي عن تجليد الفورم.rar

السلام عليكم تفضل أخى ما تريد Suppliers Coder - Copy.rar

بسم الله ما شاء الله عليك متمكن أخي الحبيب محمد الريفي بارك الله فيك وجزاك الله كل خير .. إثراءاً للموضوع ..هذه معادلة تؤدي الغرض أيضاً =SUMPRODUCT((A1:A10<>"")/COUNTIF(A1:A10,A1:A10&""))

السلام عليكم هل تقصد هكذا جلب البيانات_2.rar

تستخدم دالة DLookup للحصول علي قيمة حقل محدد من مجموعة سجلات (مجال) . و يمكن استخدام هذه الدالة في كود الفيجوال بيزيك أو في ماكرو أو في استعلام أو في عنصر تحكم به قيمة محسوبة في نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DLookup(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد إعادتها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل في جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و في هذا التعبير يمكن إدراج اسم حقل ، عنصر تحكم في نموذج ، ثابت ، أو دالة و لكن في حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة في أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخرى Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم إجبارية لابد من إدراجها في الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم إدراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة إدراج حقل في هذا المعيار و هذا الحقل غير مدرج في المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود في المعيار Criteria يجب أن يكون أيضا مدرجا في المجال. ملاحظات تعيد الدالة DLookup قيمة وحيدة بناء علي المعايير التي تحددها في جزء أل criteria في الدالة ، و هذا الجزء كما ذكرنا خياري ، فإذا لم نحدد المعيار فان الدالة تعيد قيمة عشوائية من ضمن المجال. إذا لم يوجد سجل يوفي الشروط المحددة في المعيار ، فان الدالة DLookup تعيد قيمة Null . إذا حقق أكثر من سجل المعيار المطلوب فان الدالة ااا تعيد أول حدوث لتحقيق الشرط ، أي قيمة الحقل في أول سجل يحقق المعيار ، علي الرغم من وجود سجلات أخري تحققه . لذا يفضل تحديد الشرط بدقة بحيث يعيد سجل وحيد Dim varX As Variant varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1") يمكن استخدام هذه الدالة كمعيار في الاستعلام العادي أو كقيمة محسوبة في استعلام تحديث يمكنك استخدام DLookup لإظهار قيمة حقل ليس من ضمن البيانات في مصدر بيانات النموذج أو التقرير لنفرض أن لديك نموذج تفاصيل الطلبيات و هو مبني علي جدول تفاصيل الطلبيات ، و تريد إدراج اسم المنتج من جدول المنتجات في مربع نص علي النموذج، بحيث يكون بالطبع يساوي رقم المنتج الذي يظهر في مربع نص آخر علي النموذج اسمه ProductID. فنضع الكود التالي في مربع النص الذي نريد إظهار الاسم فيه =DLookup("[ProductName]", "Products", "[ProductID] =" _ & Forms![Order Details]!ProductID) بالرغم من أنك تستطيع الحصول علي قيمة حقل في جدول مرتبط باستخدام DLookup ، إلا أنه ينصح في هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد في السجلات لا تدخل في حسابات الدالة ، و لكن لإدخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال إلي السجل التالي ، أو باستخدام طريقة أل Update .

للشرط النصي Text1 = DLookup("[ID]", "Table1", "[SName]='" & [TextName] & "'") للشرط الرقمي Text1 = DLookup("[ID]", "Table1", "[id]=" & me.id ) بدون شروط اذا كان الجدول يحتوي على سجل واحد فقط Text1 = DLookup("[ID]", "Table1")

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب أقدم لكم كود خفيف .. الكود يقوم بمنع المستخدم من طباعة أوراق محددة في المصنف .. في المرفق ثلاثة أوراق عمل Data1 - Data2 - Data3 الكود يوضع في حدث المصنف ThisWorkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Data1", "Data2" Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Select End Sub يعتمد الكود على جملة Select Case الشرطية .. والقيمة التي تعتمد عليها اسم ورقة العمل النشطة فإذا كانت ورقة العمل النشطة Data1 أو Data2 .. يتم إلغاء عملية الطباعة وظهور رسالة تفيد أن ورقة العمل لا يمكن طباعتها ... يمكنك زيادة أوراق العمل من خلال السطر الذي يبدأ بكلمة Case على أن تكون أسماء أوراق العمل بين أقواس تنصيص .. كما يمكن منع الطباعة بالمصنف بالكامل بحذف أول سطرين من الكود وآخر سطر ، ليصبح بهذا الشكل Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Sub بهذا يمكنك التحكم في طباعة أوراق العمل من عدم طباعتها أرجو أن يكون الموضوع مفيد ...رغم أنه ليس بجديد .. تقبلوا تحيات أخوكم أبو البراء Prevent Worksheets From Printing.rar

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم طريقة استدعاء أى برنامج من الاكسل من خلال القاعدة الأساسية الآتية : Call Shell("C:\TEST\TestApplication.exe", vbNormalFocus) لاحظ أخى الكريم مسار وامتداد البرنامج الذى نستدعيه ده يفرق كتير يمكن استدعاء Notepad Control PaneL taskmgr SnippingTool calc WORD POWERPNT iexplore Firefox كل هذا وأكثر ======= vbNormalFocus لجعل نافذة البرنامج الذى نستدعيه عادية vbMaximizedFocus للجعل نافذة البرنامج الذى نستدعيه مكبرة فى المرفقين التاليين أمثلة متعددة ومتنوعة لاستدعاء البرامج (متوافق مع ويندوز 7 ) أتمنى أن تستفيدوا منه لكم منى كل محبة وتقدير واحترام *************** Open any Program from Excel.rar games by mokhtar.rar

السلام عليكم ورحمة الله وبركاته اليكم دالة عد الاسماء بدون تكرار اعداد/ محمد الريفى لاتنسونا بصالح دعاؤكم {=SUM(1/COUNTIF(A1:A10;A1:A10))} عد الاسماء بدون تكرار.rar

مشكور اخوي KHAMB فورم الاستاذ رجب جاويش ضبط معاي فجزاك الله خير الجزاء

اليك الحل عفواً اخي ياسر لم اشاهد مشاركتك الا بعد اضافة خاصتي keep formulas.rar

الأخ الكريم محمد الخازمي تفضل الكود التالي .. Sub ClearAllButFormulas() Dim wks As Worksheet Set wks = Sheet1 On Error Resume Next wks.Range("A9:C850,E9:AJ850").SpecialCells(xlCellTypeConstants, 23).ClearContents On Error GoTo 0 End Sub تفضل الملف المرفق ولا تنسى أن تحدد المشاركة التي تعجبك كأفضل إجابة ! تقبل تحياتي Clear Constants Only.rar

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

السلام عليكم ورحمة الله وبركاته اخ ياسر انت معطاء و دينامو المنتدى وفقك الله لما فيه الخير

السلام عليكم ورحمة الله وبركاته 1- انشاء يوزرفورم وربط الموقع بالانترنات مثال تطبيقي khezzani-Navigate.rar

مشكور اخوي KHAMB على الرد انا بحثت في المنتدى ورايت ملف الاستاذ رجب جاويش الاكثر من رائع في المشاركة على الرابط ادناه http://www.officena.net/ib/index.php?showtopic=51811&hl=%D8%A7%D8%B3%D8%AA%D8%A8%D8%AF%D8%A7%D9%84 الكود ولا اروع ولكنه يبحث فقط في القيم ولا يبحث ضمن المعادلات لكن ما اريده فقط ماذكر بالمشاركة الاولى اتمنى اني وضحت الصورة

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

جزاكم الله خيرا اخى الحبيب s s m ولكن هل يمكن عمل إستعلام يتم إنشاءة تلقائيا عند فتح النموذج وبعد ان يتم إجراء اللازم من قبل المستخدم سواء إدخال بيانات أو تعديل فيها وعند إغلاق النموذج يتم حذف الاستعلام تلقائيا كذلك

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

أخي الفاضل سامح القيمة كانت بالسالب ...بس أنا قلت يمكن تكون محتاجها بالموجب فأضفت ABS للحصول على القيمة المطلقة الموجبة عموما تم تصحيح الخطأ بالنسبة للاسم والقيمة أصبحت بالسالب Grab Data From Closed Workbooks YasserKhalil.rar

الأخ الفاضل سامح طاهر .. إليك الملف المرفق فيه ما طلبت إن شاء الله .. أي ملاحظة يرجى ذكرها بعد الإطلاع على الملف Grab Data From Closed Workbooks YasserKhalil.rar

السلام عليكم عمل رائع - وفقكم الله - سلمكم من كل مكروه - اشكرك على سعة صدرك السلام عليكم

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

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

شكرا تم حل المشكلة والحل لمن يريده لعله يفيد الاخرين المشكلة كانت عندى عشان شغال على Windows Seven 64X 1- الدخول الى قائمة Start 2- عمل اختصار للاكسيل على سطح المكتب 3- كليك يمين واختيار خصائص Properties واختيار compatibility Tab 4- وضع علامة امام run this program in compatibility mode for 5- الضغط على Apply

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

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

السلام عليكم شاهد هذا الحل للسؤال الثاني حسب فهمي له بالتوفيق ssm2_ source.zip

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

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

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

السلام عليكم تفضل اخي شاهد هذا الحل للسرال الاول بالتوفيق ssm_ source.zip

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

أخي الحبيب محمد الوقت قد تأخر غداً إن شاء الله لنا لقاء ..سأحاول العمل على الملف قدر الإمكان

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

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

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء إليكم طريقة سهلة وبسيطة جداً لكيفية إدراج رسم بياني داخل تعليق الشرح في الفيديو .. ويا ريت تقييم للفيديو : هل تم ضبط الصوت أم لا ؟ وإذا أعجبكم الفيديو فلا تنسونا من صالح دعائكم ، ولا تنسونا من لايكاتكم !! مرفق لكم ملف الشرح للتدريب عليه .. تقبلوا تحيات أخوكم أبو البراء Insert Chart In A Comment.rar

استاذنا الغالى كل الشكر والتقدير وبهذا اكتمل المرفق الخاص بالاستاذه زهرة ام عهود نسال الله لها الخير ان شاء الله واليكم عدد 2 مرفق الاول مرفق الاستاذه زهرة وهو يعتمد فى الاساس على ملف فلاشى مرفق داخل مجلد قاعدة البيانات za-DigitalClock.rar المرفق الثانى يحتوى على ساعتين رقمية وعقارب داخل نموذج واحد وتم عملهم باكواد برمجه ساعه رقمية وعقارب بالاكسس.rar

أخى الفاضل بارك الله فيكم على ثقتكم بداية النت عندى الليلة ما شفت أسوأ منه فى حياتى ساعة عشان أعمل مشاركتين ودى احداهما استعن بالله ثم بالموضوع ده http://www.officena.net/ib/index.php?showtopic=60046 استخدم الملف Collect Workbooks فى تجميع البيانات خلى بالك من الاعتبارات الاتية كى تنجح فى تنفيذ مطلبك طبقا للكود : ملفاتك تكون بتنسيق xlsx و فى مجلد اسمه OUTPUT وفى نفس مسار ملف التجميع أتمنى لك التوفيق ولنا عودة حتى يتم اصلاح النت تحياتى أخوك حسن مختار أو مختار حسين كلاهما سيان

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

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

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

شوف هذا الفيديو إذا صعب عليك الأمر ارفق ملف للعمل عليه

السلام عليكم هذا كود يعطي شيتات بعدد المجلدات الفرعية المحتواة مع الملف بأسمائها يعني كل شيت يحمل اسم مجلد مهما كان عدد المجلدات و يقوم بكتابة اسماء الملفات المحتواة في المجلدات الفرعية في رؤس الاعمدة في الشيت الذي يحمل اسم نفس الملف و يرحل العمود الاول لتلك الملفات في العمود الذي يحمل اسم الملف جربه لكي تفهمه اكثر Option Explicit Sub Test() Dim Url As String: Url = ThisWorkbook.Path Dim Scr: Set Scr = CreateObject("Scripting.FileSystemObject") Dim F: Set F = Scr.GetFolder(Url) Dim Fil Dim Cl As Integer: Cl = 2 For Each Fil In F.SubFolders If Cl - 1 <= Sheets.Count Then Sheets(Cl - 1).Activate If Sheets(Cl - 1).Name <> Fil.Name Then Sheets(Cl - 1).Name = Fil.Name Else Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Fil.Name Sheets(Sheets.Count).Activate End If Call LoopFiles(Fil.Name) Cl = Cl + 1 Next Set Scr = Nothing Set F = Nothing End Sub Sub LoopFiles(Folder As String) Dim Url As String: Url = ThisWorkbook.Path & "\" & Folder & "\" Dim StrFile As String: StrFile = Dir(Url & "\*csv*") Dim Clm As Long: Clm = 1 Dim Rw As Long Dim A As String Application.ScreenUpdating = False Do While Len(StrFile) > 0 Rw = 2 Cells(1, Clm) = "Nom Files " & StrFile Columns(Clm).AutoFit Open Url & StrFile For Input As #1 While Not EOF(1) Line Input #1, A Cells(Rw, Clm) = A Rw = Rw + 1 Wend Close #1 Clm = Clm + 1 StrFile = Dir Loop Application.ScreenUpdating = True End Sub تحياتي

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

الاكواد المرتبطه بالكود الاساسي هي ثلاثه هذا الكود يحدد لزر المبيعات Public Sub Ali_Sale() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مبيعات" save_file Path_A, [I5], Nm_Work End Sub وهذا لزر المدفوعات Public Sub Ali_Payment() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مدفوعات" save_file Path_A1, [I5], Nm_Work End Sub وهذا لزر المقبوضات Public Sub Ali_Proceed() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مقبوضات" save_file Path_A2, [I5], Nm_Work End Sub وإن كان لكل واحد ملف فلابد من نسخ الاكود فرضا المبيعات بيكون كالتالي Public Nm_Work As String ' هنا تحددي مسار ملف المبيعات Private Const Path_A As String = "D:\المبيعات\فواتير\" Public Sub Ali_Sale() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مبيعات" save_file Path_A, [I5], Nm_Work End Sub Public Sub save_file(Path_x As String, m_r As Range, ByVal Fom_n As String) Dim full_path As String Dim aah As String Dim Ali_Num$ Dim Num% If ActiveSheet.CheckBox1.Value = True Then '*************************** Ali_Num = InputBox("إدخل عدد نسخ الطباعه", "منتدى أوفسينا") If Ali_Num = "False" Or Ali_Num = Cancel Then Exit Sub On Error Resume Next '*************************** For Num = 1 To Ali_Num Activewindow.SelectedSheets.PrintOut Next '*************************** Exit Sub Else GoTo 1 End If 1: If Range("i5") = "" Then MsgBox ("ادخل رقم الفاتوره") Exit Sub Else m = ActiveWorkbook.Name Workbooks.Add N = ActiveWorkbook.Name Windows(m).Activate ActiveSheet.Range("b1:j23").Copy Windows(N).Activate ActiveSheet.Range("b1:j23").Select ActiveSheet.Paste Range("b1:j23").Select Selection.Copy Range("b1:j23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("b:J").EntireColumn.AutoFit Range("b1").Select Application.CutCopyMode = False Application.DisplayAlerts = False If aah = [I5] & ".xls" Then MsgBox "الملف موجود بالفعل..." ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Else '************************************************* ActiveWorkbook.SaveAs Filename:=Path_x & m_r & Fom_n '************************************************* Application.DisplayAlerts = True ActiveWorkbook.Close Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End If End If End Sub وهكذا للمدفوعات Public Nm_Work As String Private Const Path_A1 As String = "D:\المبيعات\فواتير\مدفوعات الموردين\" Public Sub Ali_Payment() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مدفوعات" save_file Path_A1, [I5], Nm_Work End Sub Public Sub save_file(Path_x As String, m_r As Range, ByVal Fom_n As String) Dim full_path As String Dim aah As String Dim Ali_Num$ Dim Num% If ActiveSheet.CheckBox1.Value = True Then '*************************** Ali_Num = InputBox("إدخل عدد نسخ الطباعه", "منتدى أوفسينا") If Ali_Num = "False" Or Ali_Num = Cancel Then Exit Sub On Error Resume Next '*************************** For Num = 1 To Ali_Num Activewindow.SelectedSheets.PrintOut Next '*************************** Exit Sub Else GoTo 1 End If 1: If Range("i5") = "" Then MsgBox ("ادخل رقم الفاتوره") Exit Sub Else m = ActiveWorkbook.Name Workbooks.Add N = ActiveWorkbook.Name Windows(m).Activate ActiveSheet.Range("b1:j23").Copy Windows(N).Activate ActiveSheet.Range("b1:j23").Select ActiveSheet.Paste Range("b1:j23").Select Selection.Copy Range("b1:j23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("b:J").EntireColumn.AutoFit Range("b1").Select Application.CutCopyMode = False Application.DisplayAlerts = False If aah = [I5] & ".xls" Then MsgBox "الملف موجود بالفعل..." ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Else '************************************************* ActiveWorkbook.SaveAs Filename:=Path_x & m_r & Fom_n '************************************************* Application.DisplayAlerts = True ActiveWorkbook.Close Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End If End If End Sub وهكذا للمقبوضات Public Nm_Work As String Private Const Path_A2 As String = "D:\المبيعات\فواتير\مقبوضات العملاء\" Public Sub Ali_Proceed() ' 1 = مسار الملف المحدد أعلى الكود ' 2 = تحديد خلية التي بها رقم المستند ' 3 = حفظ الملف بأسم Nm_Work = " مقبوضات" save_file Path_A2, [I5], Nm_Work End Sub Public Sub save_file(Path_x As String, m_r As Range, ByVal Fom_n As String) Dim full_path As String Dim aah As String Dim Ali_Num$ Dim Num% If ActiveSheet.CheckBox1.Value = True Then '*************************** Ali_Num = InputBox("إدخل عدد نسخ الطباعه", "منتدى أوفسينا") If Ali_Num = "False" Or Ali_Num = Cancel Then Exit Sub On Error Resume Next '*************************** For Num = 1 To Ali_Num Activewindow.SelectedSheets.PrintOut Next '*************************** Exit Sub Else GoTo 1 End If 1: If Range("i5") = "" Then MsgBox ("ادخل رقم الفاتوره") Exit Sub Else m = ActiveWorkbook.Name Workbooks.Add N = ActiveWorkbook.Name Windows(m).Activate ActiveSheet.Range("b1:j23").Copy Windows(N).Activate ActiveSheet.Range("b1:j23").Select ActiveSheet.Paste Range("b1:j23").Select Selection.Copy Range("b1:j23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("b:J").EntireColumn.AutoFit Range("b1").Select Application.CutCopyMode = False Application.DisplayAlerts = False If aah = [I5] & ".xls" Then MsgBox "الملف موجود بالفعل..." ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Else '************************************************* ActiveWorkbook.SaveAs Filename:=Path_x & m_r & Fom_n '************************************************* Application.DisplayAlerts = True ActiveWorkbook.Close Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End If End If End Sub

تم تعديل الكود بملفك على حسب طلبك مسح بدون المعادلات.rar