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

السلام عليكم تفضل اخي لعل هذا الملف يفي بالغرض لوحة المئه.xlsm

في المرة المقبلة ارفع ملف للمعالجة جرب هذا الملف super rand.xlsx

اشكرك استاذي على تعاونك ولاكن طلب هو ان تفتح اكثر من شاشة للنموذج searchalamel بنفس الوقت وذلك بالنقر على الزر والذي فيه الكود والموجود في نموذج startsasha وبالتالي احصل على اكثر من شاشة لنفس النموذج searchalamel

يعجز اللسان عن شكرك أستاذي الفاضل

ربما كان المطلوب Takssim.xlsx

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

الاستاذ المبدع / @Barna تمام التمام استاذنا الله يبارك فيك ويجعله في ميزان حسناتك انت دائما مبدع ـ حياك الله

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

للمرة الالف اكررر لا يمكن ادراج خلايا مدمجة في اي جدول من جداول الاكسل تم حذف الادماج و وضع ماكرو في الملف المرفق كما تم تغيير اسم الاوراق الى اللغة الاجنبية لحسن نسخ الكود بدون ظهور احرف غريبة و غير مفهومة الكود Option Explicit Private Sub Worksheet_Activate() GetUnique End Sub '++++++++++++++++++++++++++++++++++++++++++++ Sub GetUnique() 'VBA to extract unique items (with the dictionary) Dim L As Worksheet Dim T As Worksheet Dim TLr%, i% Dim LRG As Range Dim obj As Object Set L = Sheets("list"): Set T = Sheets("total") TLr = T.Cells(Rows.Count, 5).End(3).Row Set LRG = T.Range("e2:e" & TLr) Set obj = CreateObject("scripting.dictionary") With obj For i = 2 To TLr - 1 .Item(T.Cells(i, 5).Value) = "" Next With Sheets("list").Range("D2").Validation .Delete .Add 3, Formula1:=Join(obj.keys, ",") End With End With Set obj = Nothing End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub filter_me() Dim L As Worksheet Dim T As Worksheet Dim TLr%, i%, Max_row% Dim LRG As Range Set L = Sheets("list"): Set T = Sheets("total") L.Range("B4").Resize(1000, 4).ClearContents TLr = T.Cells(Rows.Count, 5).End(3).Row Set LRG = T.Range("A1:J" & TLr) On Error Resume Next If T.FilterMode Then T.ShowAllData: LRG.AutoFilter End If On Error GoTo 0 LRG.AutoFilter 5, L.Range("D2") Max_row = LRG.Rows.Count With LRG.Offset(1).Resize(Max_row - 1).SpecialCells(2, 23) .Columns(1).Copy: L.Range("B4").PasteSpecial xlPasteValues .Columns(9).Copy: L.Range("C4").PasteSpecial xlPasteValues End With On Error Resume Next If T.FilterMode Then T.ShowAllData: LRG.AutoFilter End If On Error GoTo 0 End Sub الملف first_20.xlsm

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

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

اخي الكريم استخدم هذا الامر Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1 ,G;L HGA;V

AL-Mohanad وهذا هو ملف الخط للتحميل al-mohanad.rar

تفضل أخي ترقيات.rar

اعرض الملف استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info فتابعونا. شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info نبدأ أولا بمعرفة دلالات أرقام بطاقة الرقم القومي المصري. لكن هل يمكن استخراج تاريخ الميلاد والمحافظة والنوع ذكر أو أنثى من الرقم القومي بصورة آلية؟؟!! تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: أبسط معادلات للحصول على تاريخ الميلاد والمحافظة والنوع من الرقم القومي أكواد المحافظات في الرقم القومي اقتصاص عدد معين من حروف الكلمة كيف سيكون الرقم القومي في المستقبل سنة 2100 ؟ تحويل النص إلى تاريخ معادلات if المتداخلة معادلة البحث lookup معرفة الرقم الزوجي والفردي عن طريق الدالة mod التعامل مع فهارس المصفوفات array في vba إنشاء دالة معرفة user defined function في إكسل والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 10 فبر, 2018 الاقسام قسم الإكسيل

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الموضوع ليس بجديد ولكن عند إطلاعي على الموضوع القديم ووجدت بعض القصور في أكواد المحافظات وإضافة التحقق من صحة المدخلات ..فقمت بالتعديل على الدالة المعرفة ، والأصل في الدالة أنها للعلامة الكبير عبد الله باقشير ولكن تم التعديل عليها لتتلافى الأخطاء التي كانت في الإصدار السابق إليكم الدالة المعرفة .... والدالة المعرفة User Defined Function توضع في موديول ويمكن بعدها استخدامها كدوال الإكسيل العادية Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim R As Long Dim YY As String Dim TY As String * 1 Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2 MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) Select Case TY Case "2": YY = "19" & Y Case "3": YY = "20" & Y Case Else End Select Kh_Date_Gender_Province = "" On Error GoTo 1 If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _ Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then Kh_Date_Gender_Province = "" GoTo 1 End If If MyTest = 1 Then If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى" Kh_Date_Gender_Province = YY ElseIf MyTest = 3 Then X = Mid(MyNumber, 8, 2) For R = LBound(MyProvinces) To UBound(MyProvinces) XX = MyProvinces(R) If X = XX Then Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3) Exit For End If Next End If 1: End Function أرجو أن ينال الموضوع إعجابكم إن شاء الله تقبلوا تحياتي حمل الملف من هنا

لا تبخل بالمعلومات عند تحديد كل حقل يكون لك الخيار بإلحاقه بإسم الجدول وبينهما نقطة SELECT Firstname, Lastname Employees.LastName, Employees.FirstName FROM Employees وحين يكون إستعلامك متضمناً لأكثر من جدول ستكون ( ملزماً لا مختاراً ) بإلحاق إسم الحقل بإسم جدوله. هي نفسها مضافاً لكل حقل تبيعيته لمصدر البيانات المحدد في جملة

RDBMS RDBMS يرمز لنظام إدارة قواعد البيانات العلائقية. RDBMS هو الأساس لSQL، وبالنسبة لجميع أنظمة قواعد البيانات الحديثة مثل MS SQL Server و DB2 IBM، Oracle ، MySQL، و Microsoft Access. يتم تخزين البيانات في RDBMS في كائنات قاعدة البيانات وتسمى الجداول. والجدول هي عبارة عن مجموعة من إدخالات البيانات ذات الصلة، وتتكون من أعمدة وصفوف. نعرف أن قاعدة البيانات في أغلب الأحيان تحتوي على واحد أو أكثر من الجداول. يتم تعريف كل جدول بواسطة اسم (على سبيل المثال "العملاء"، أو "الطلبيات"). الجداول تحتوي على سجلات (صفوف) مع البيانات. فيما يلي مثال من جدول يسمى "Persons":يحتوي الجدول أعلاه ثلاثة سجلات (واحد لكل شخص)، وخمسة أعمدة (P_Id، اسم العائلة، الاسم الأول، العنوان، والمدينة). عبارات SQL معظم الإجراءات التي تحتاج إلى تنفيذ على قاعدة بيانات مع عبارات SQL. سيكون عبارة SQL التالية تحديد كافة السجلات في الجدول "Persons": SELECT * FROM Persons فائدة : نضع في اعتبارنا أن ... SQL ليست حساسة ل case فاصلة منقوطة بعد بيانات SQL؟ أنظمة قواعد البيانات تتطلب فاصلة منقوطة في نهاية كل عبارة SQL. الفاصلة المنقوطة هي الطريقة القياسية للفصل بين كل بيان SQL في أنظمة قواعد البيانات التي تسمح بتنفيذ أكثر من عبارة SQL في نفس الجملة إلى الملقم. ملاحظة : جميع المعالجات و النسخ الحديثة تستخدم الفاصلة المنقوطة في نهاية عبارة SQL ................................

تصفية وفرز النماذج والتقارير توفر نماذج Access للمستخدم الفرصة لتصفية وفرز السجلات التي يتم عرضها. يتم ذلك عن طريق اختيار أحد الخيارات من القائمة ... سجلات ، أو من داخل النموذج نفسه عن طريق لائحة المحتويات التي تظهر حال النقر على الزر الأيمن من الفأرة فلديك العديد من الاختيارات عندما يتم اختيار الفرز يطبق Access جملة WHERE في ال SQL على خيار تصفية النموذج, في الرسم التوضيحي أدناه يجري تصفية نموذج والتي يتم و عرض قيم الخيار على صفحة خصائص النموذج: وبالمثل، فإن Access عندما يتم اختيار ترتيب الفرز يطبق جملة ORDER BY لترتيب النموذج حسب الأولوية يمكن تعيين كل من هذه الخصائص باستخدام VBA في كل من النماذج والتقارير. في الحقيقة، لا يمكن تصفية و ترتيب تقرير حسب خصائصه الا من داخل عرض التصميم للتقرير. وهذه سلسلة من الدروس تبين لكم كيفية كتابة كودات , VBA, SQLلتصفية وفرز النماذج والتقارير في وقت التشغيل، وإنشاء أدوات قوية للمستخدم وللحديث بقية