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

وعليكم السلام ورحمة الله وبركاته هذا الامر يقوم بانشاء المجلد والمجلدات الفرعية مرة واحدة ! Shell ("cmd /c mkdir ""c:\a\b\c""") طبعا يمكنك التاكد من وجوده بالامر dir كما يمكن الاستدلال ب currentproject.path لمعرفة للتصريح بموقع المجلدات الفرعية وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split وبمدلول العلامة \ ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا ! عند اتاحة وقتي ساقوم بتطبيق الفكرة الاخيرة ! بالتوفيق

Previous Page Next Page بسم الله الرحمن الرحيم اعضاء المنتدى الكرام اقدم لحضراتكم اليوم الجزء الاول من سلسلة صمم برنامجك بنفسك اتمنى من الله عزوجل ان يحوز على اعجابكم https://youtu.be/AduE9zMB0io لمشاهدة الدرس من هنا Previous Page Next Page

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

دورة برنامج Excel فيديو وصوت ( عربي )

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الخامس والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان أوراق العمل التفاعلية -أزرار التحكم الجزء الأول أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم لمشاهذة دروس دورة مهارات اكسيل 2013 يمكنكم فتح الرابط التالي دورة مهارات اكسيل 2013 دمتم بخير أخوكم م/نضال الشامي https://youtu.be/PWPdTTyE7bA

ممتاز كيف يمكن استخدامه حاولت ولم أفلح

استاذ رمهان يقصد ب dir التاكد اولا اذا كان الفولدر منشا من قبل ام لا وذلك قبل الانشاء

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

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

خصائص الورقة - تنسيق واكتب في التنسيق yyyy/mm/dd or dd/mm/yyyy علي حسب ما تريده خصائص مربع النص المخصص للتاريخ

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

ايه رأيك ياريس عملتلك الموضوع علي اول نطاق هو موضوع تحويل المعادلات دا كل لما يكون كتيرررر ومحتاج تحول هتلاقي قليل اللي وقته فاضي يقعد يبص وبيحلق في الملف فالافضل تعرض مثال بسيط لطريقة تحويل الدالة لكود وانت تقوم بالتطبيق علي المثال ولكن لو عجبتك فكرتي اكمل معاك عادي حبيبي كود لداله vlookup.rar

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

الشكر لله مقدما ونبقي نشوف الملف بعدين بقي

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

جرب هذا لملف Chidren.zip

عزيزي استخدم الدالة val للمقارنة حيث المصفوفة من نوع فارينت والكمبو رقم ! If Val(Combo2.Value) = Val(num1(i)) Then لكن هل ممكن شرح انت تريد ماذا ؟ قد يكون هناك كود اسهل ! حسب فهمي تريد ان تشيك وجود الارقام التي بالمصفوفة في القائمة ! صحيح ؟ اذا كان صحيح هناك طريقة اسهل وللعلم طريقتك او خوارزميتك ستظل تظهر سالة عدم وجود الرقم الى ان يتم وجوده ! بالتوفيق

اعد تعين مدى الطباعه فقط اخرى الكود كالتالي Sub Clear_Sheet4_Data() Dim LastRow As Integer With Sheet4 LastRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A29:AY" & LastRow).Clear .Range("c8:x27").ClearContents '----------------------------------------------- .PageSetup.PrintArea = .Range("A1:Ay33").Address '----------------------------------------------- End With End Sub

جرب هذا الملف معلومات الاسرةsalim.zip

نعم ضع الكود التالى ملف الورد Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ActiveDocument.Path & "\Test\" Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) For Each FileName In FLDR.Files FileName.Delete True Next End Sub التطبيق على المجلد Test بتاع أستاذنا ياسر

جرب الكود التالى حدد النطاق المراد تصويره ثم الخلية لوضع الصوره بجوارها Option Explicit Sub paste_Picture() Dim UserRange As Range, OutputRange As Range Dim MyPrompt As String, MyTitle As String MyPrompt = "Select the range you would like to capture." MyTitle = "User Input Required" On Error Resume Next Set UserRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If UserRange Is Nothing Then End On Error GoTo 0 UserRange.CopyPicture MyPrompt = "Select the range on which you would like to paste." MyTitle = "User Input Required" On Error Resume Next Set OutputRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If OutputRange Is Nothing Then End On Error GoTo 0 OutputRange.PasteSpecial Selection.Formula = UserRange.Address End Sub

تفضل اخي لعله المطلوب قائيمة منسدلة اخفاء عمود.rar

هل بالامكان تشغيل هذا الكود على ملف وورد بدل من الاكسيل

لاحظ الصورة واختر الذي تريده والسلام عليكم

لو سمحت اخى الكريم احفظ ملفك بتنسيق 2003 وارفعه لاحاول معك وربنا المعين ان شاء الله بالتوفيق

جرب الكود بهذا الشكل .. Sub SortCustomList() Dim I As Long, J As Long, K As Long, LR As Long Dim Arr1, Arr2, ArrOut Arr1 = Array("دكتور", "ماجستير", "بكالوريوس", "دبلوم", "ثانوية عامة") Arr2 = Array("سعودي", "عربي", "غير عربي") ReDim ArrOut(0 To 14) For I = 0 To UBound(Arr1) For J = 0 To UBound(Arr2) ArrOut(K) = Arr1(I) & " " & Arr2(J) K = K + 1 Next J Next I LR = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With Range("J7:J" & LR) .Formula = "=TRIM(H7) & "" "" & TRIM(F7)": .Value = .Value End With Application.AddCustomList ArrOut Range("A6:I" & LR).Sort Key1:=Range("J6:J" & LR), OrderCustom:=Application.CustomListCount + 1, Key2:=Range("I6:I" & LR), Order2:=xlDescending, Key3:=Range("B6:B" & LR), Order3:=xlAscending, Header:=xlYes Columns("J:J").Delete Application.DeleteCustomList Application.CustomListCount Application.ScreenUpdating = True End Sub

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