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

طيب .... شوف الطريقة دي يمكن تناسبك New Microsoft Access قاعدة بيانات (3)(1).accdb

الاصدقاء الاكارم تحية طيبة في التطبيق التالي سنقوم بحماية ملف الاكسل عت طريق رقم الفلاش الميموري الحقيقي ( الرقم الذي لا يتغير ) خطوات التنفيذ : 1 - نقوم باستخراج رقم الفلاش ميموري الحقيقي 2 - نضيف الوحدة النمطية الى المصنف المطلوب حمايته 3- نفعل الحماية نبدأ على بركة الله 1 - في الملف المرفق يوجد زر امر يقوم باستخراج رقم الفلاش ميموري و تسجيله في الخلية a1 2 - نضيف الوحدة النمطية module2 الى الملف الذي نرغب بحمايته مع مراعات استبدال رقم الفلاش ميموري برقم الفلاش الموجودة لدينا حيث نقوم بوضع الرقم هنا If objItem.PNPDeviceID = "USBSTOR\DISK&VEN_TAKEMS&PROD_USB_RETRO&REV_5.00\011114007BC74103&0" Then 3 - نستدعي كود الحماية عند فتح المصنف Private Sub Workbook_Open() Call Pro End Sub حماية برقم الفلاشة الحقيقي.xlsm

الاصدقاء الاكارم تحية طيبة في هذا الموضوع سنتحدث عن حماية اكود vba داخل مصنف الاكسل في البداية اود التنبيه الى ان الموضوع منقول عن الاخ ياسر خليل الحماية تتم عن طريق برنامج evilclipy نقوم باخد نسخة احتياطية عن المصنف المرغوب تطبيق الحماية عليه نستخرج المجلد من الملف المضغوط و ننقل المصنف الى داخل المجلد نضفط زر shift و ننقر بالزر الايمن للفارة و نختار فتح نافذة الاوامر هنا ستظهر شاشة dos نكتب الكود التالي داخل محرر الاوامر dos مع مراعات اسم مصنف الاكسل وفي المثال هنا اسم المصنف هو test evilclippy.exe -u test.xlsm بعد تطبيق الحماية سيظهر ملف جديد بنفس اسم الملف الاصلي مضافا اليه evilclippy الاكواد ضمن هذا الملف محمية ولا يمكن الوصول اليها 😄 EvilClippy-master.zip

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

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

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

اما الطريقة التي تعملون عليها ، فهنا طريقة العمل : جعفر

تفضل pictre.xlsb

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لذلك =IFERROR(INDEX(Sheet1!$A:$A,MATCH($A3,Sheet1!$D:$D,0)),"") test2.xlsx

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

هذه محاولة تفضل لعله ما تريد ملاحظة : لا تضغط الملف مرة اخرى الملف صغير لا يستحق ذلك كما ان التيكست بوكس ارقامه غير منظمة نسقه تجنب لاي خطا بالكود Private Sub listbox1_Click() CheckThis = False If ListBox1.ListIndex = -1 Then MsgBox "Nothing Selected!" Exit Sub End If For i = 1 To 18 Me("TextBox" & i).Text = ListBox1.Column(i - 1) Next CheckThis = True End Sub wdad mtn(tora(v1).xlsm

بعد اذن أستاذ احمد تفضل اخي هذا بالكود بعد كتابة الارقام اضغط على ايقونة العدسة وسيتم جلب البيانات Sub EtaEng() Dim idnum As Variant, b As Object, i As Double Sheet2.Activate idnum = Left(Range("D7").Value, 4) Set b = Sheet1.Columns("b").Find(idnum, lookat:=xlPart, LookIn:=xlValues) If Not b Is Nothing Then 'exists i = b.Row Range("D10").Value = Sheet1.Cells(i, 3) Range("D12").Value = Sheet1.Cells(i, 2) Range("D14").Value = Sheet1.Cells(i, 4) Range("D16").Value = Sheet1.Cells(i, 5) Range("H10").Value = Sheet1.Cells(i, 6) Range("H12").Value = Sheet1.Cells(i, 7) Range("H14").Value = Sheet1.Cells(i, 8) Range("H16").Value = Sheet1.Cells(i, 9) Else MsgBox "هذا الرقم غير موجود", vbExclamation End If End Sub ملاحظة : يمكنك تغيير عدد الارقام كما تشاء من خلال هذا السطر وهو مصمم لاربعة ارقام ويجب ان تكتب الارقام من اليسار الى اليمين كما ترى idnum = Left(Range("D7").Value, 4) كشف_المحتاجين_2.xlsm

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا انظر للاستعلام q ان كان ما تريد ابنى نموذجك عليه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق New Microsoft Access قاعدة بيانات (3)(1).accdb

ما مهمت عليك كيف يبقى حقل التاريخ مستقل أمام الشخص ( هل تقصد كل تاريخ في حقل خاص مثلا ) ؟؟؟؟

هل هذا هو طلبك ؟؟؟؟ New Microsoft Access قاعدة بيانات (3) (1).accdb

السلام عليكم اتفضل اخى @husseinharby مشاركه لاخى العزيز @Khalid Jnb جزاه الله خيرا وجزاه الله خيرا من علمنى هذا الكود وشفاه الله وعافاه شفاء لا يغادر سقما بالتوفيق اخى حسين New Microsoft Access Database.rar

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

وعليكم السلام اخى @ازهر عبد العزيز اتفضل حاجه كده على قد حالى يمكن تلبى طلبك ووافنى بالنتيجه بالتوفيق اخى TEST1 -ازهر.accdb

تفضل اخي العزيز figo82eg Root651.rar

استبدل كود التصدير بهذا الكود .... DoCmd.OutputTo acOutputTable, "data", acFormatXLS, CurrentProject.Path & "\data.xls", True

استاذى ومعلمى الفاضل / @jjafferr الله الله الله عليك يا احد اهرمات الاكسس شرح وافى وممتاز نعم هو المطلوب فى كل شئ حتى انك قرأت تفكيرى وعملت لى التكة الجميلة لتفريغ البيانات والله ياأستاذ جعفر بماذا ادعو لك غير انى اقول لك ربنا يبارك فى علمك ويزيدك ويرحم والديك ويبارك فى اسرتك واولادك ويطيل عمرك كل الاحترام والتقدير لشخصكم الكريم استاذى ومعلمى الفاضل / @أحمد الفلاحجى ماذا تفعل بنا فى الاكسس ماذا انت ياعم انت عبقرى والله يامعلم الاكسس (بضم الميم) ربنا يحفظ ويعطيك على قدر مساعداتك للناس ـ بارك الله فى اولادك ان كان عندك اولاد ويعطيك البركة والصحة بصراحة طريقتين فى الحل احلى من بعض واصبحت محتار ايهما اختار وان اخترت يصعب على ان اترك الآخر ربنا يبارك لكم ويزيدكم من علمه اساتذه بمعنى الكلمة علم وخلق واحترام ومهارة ربنا يحفظكم كل الاحترام والتقدير لكما وكل عام وانتم بخير وجميع الاخوان والامة العربية كلها

يأخي أحمد الفلاحجى والله نورت هذا المنتدى

شكراً لك يا معلمنا لأنك لم تبخل علينا بأي معلومة ولم نشعر يوماً بشعورك بالضيق رغم متاعب .

طريقة ولا اروع من ذلك جعله الله فى ميزان حسناتك تسلم على هذا المجهود هو المطلوب بالفعل وفكره SUB FORM جميله الف الف شكر ياغالى وكل سنه وحضرتك طيب واسرة المنتدى الغالى بالخير ورمضان كريم عليكم جميعا

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

اساتذي الافاضل 🙂 ومن هذا الرابط : تم التوصل الى المرفق 🙂 كود النموذج : Private Sub cmd_Dates_Search_Click() Me.Requery End Sub Private Sub Command24_Click() Me.x = Null Me.STR = Null Me.ind = Null Me.Requery End Sub Private Sub ind_DblClick(Cancel As Integer) Me.ind = Null Me.Requery End Sub Private Sub STR_DblClick(Cancel As Integer) Me.STR = Null Me.Requery End Sub Private Sub x_AfterUpdate() Me.Requery End Sub Private Sub x_DblClick(Cancel As Integer) Me.x = Null Me.Requery End Sub . وهذا الاستعلام الذي اصبح مصدر بيانات النموذج : . SELECT t1.id, t1.nume, t1.vactiondate, t1.manger FROM t1 WHERE (((t1.vactiondate) Between (IIf(Len([Forms]![f1]![STR] & '')=0,#1/1/1900#,[Forms]![f1]![STR])) And (IIf(Len([Forms]![f1]![ind] & '')=0,#1/1/2900#,[Forms]![f1]![ind]))) AND ((t1.manger)=IIf(Len([Forms]![f1]![x] & "")=0,[manger],[Forms]![f1]![x]))); . وفي البرنامج تكة صغيرة اضفتها ، وهي لما تريد تفرغ بيانات اي من حقول البحث ، انقر على الحقل مرتين 🙂 جعفر 1210.فلترة.accdb.zip

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

شكرا استاذ سليم هذا هو المطلوب وعلى هذا الجهد المبذول

ربما كان المطلوب My_Merge.xlsm

وعليكم السلام اتفضل اخى محمد @حلبي لعل هذا ما تريد فلترة.accdb

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

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

فورم اضافة البيانات بعد اختيار الشيت المطلوب احاديث نبوية كل عام وانتم بخير ورمضان كريم الفيديو الملف فورم اضافة البيانات بعد اختيار الشيت المطلوب احاديث شريفة.xlsm

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

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

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

جرب هذا الماكرو Option Explicit Sub No_merge() Dim Rg As Range, My_Cell As Range Dim My_val, n%, m% Set Rg = Range("B4:I9").CurrentRegion For Each My_Cell In Rg If My_Cell.MergeCells Then My_val = My_Cell.Value n = My_Cell.MergeArea.Rows.Count m = My_Cell.MergeArea.Columns.Count My_Cell.UnMerge With My_Cell.Resize(n, m) .Value = My_val .Borders.LineStyle = 1 End With End If Next My_Cell End Sub DEl_Merge.xlsm

الأكواد لا توجد بها أي خطأ يجب عليك إضافة مكتبة Microsoft Word 14.0 Object Library في محرر أكواد فجوال بسيك كما توضح الصورة التالية:

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

لقد قمت بعمل قائمة منسدلة ديناميكية لك بكل الأرقام القومية الموجودة فقط عليك إختيار الرقم من القائمة ... وهذا بالطبع أسهل بكثير لك كشف_المحتاجين_3.xlsm

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

اخي الكريم من قواعد المشاركة فى الموقع لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) تحياتي

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير وبعد : هذا ملف به اكواد جمعتها وهذبتها لتكون مرجعا لمن اراد كودا من اكواد الترحيل او الاستدعاءات *** ففيه كود استدعاء بيانات صفحه لصفحه اخرى بشرط والشرط موجود في الخليه C1 في هذه الصفحه === *** وفيه كود استدعاء اعمده معينه بدون شرط ==== وفيه كود استدعاء اعمده معينه بشرط داخل الكود === وفيه كود استدعاء اعمده معينه بشرطين من خارج الكود === وفيه كود استدعاء بيانات اعمده معينه بشرطين موجودين داخل الكود وكل كود في صفحه واسطره مشروحه حتى يسهل فهمها وتطويعها لملفاتكم جزاكم الله خيرا إدعوا لكل من كانت له بصمه في هذا العمل بالخير المرجع في الاستدعاءات والترحيل.rar

جرب هذا حساب عمولة المندوب.xlsx

اخى الفاضل بنفس المعادلة بامكانك اضافة شرط آخر لتصبح كالتالي .. مرفق الملف للتوضيح =SUM(IF(FREQUENCY(IF($A$2:$A$1000=$E2,IF($B$2:$B$1000=$F2,MATCH($C$2:$C$1000,$C$2:$C$1000,0))),ROW($C$2:$C$1000)-ROW($C$2)+1),1)) تحياتي count2.rar

السلام عليكم ورحمة الله أخي الكريم ابن مصر، معادلة رائعة جدا جازاك الله خيرا وتقول "لربما تفي بالغرض" بل وتفي بالغرض حتما... وأقدم تبسيطا للمعادلة (في الخلية E2 مع تأكيدها معادلة صفيف ثم سحبها إلى الأسفل)... أخوكم بن علية المعادلة المبسطة : =SUM(IF(FREQUENCY(IF($A$1:$A$1000=$D2, MATCH($B$1:$B$1000,$B$1:$B$1000,0)),ROW($1:$1000)),1))

اخى الفاضل جرب هذه المعادلة لربما تفي بالمطلوب .. مع ملاحظة انها معادلة صفيف اى لابد من الضغط CTRL+SHIFT+ENTER =SUM(IF(FREQUENCY(IF($B$2:$B$100<>"",IF($A$2:$A$100=$D2, MATCH("~"&$B$2:$B$100,$B$2:$B$100&"",0))), ROW($B$2:$B$100)-ROW($B$2)+1),1)) مرفق الملف للتوضيح تحياتي count.rar

أخى / عبد الرحمن الرقم 3 فى السطر التالى فعلا يحدد العمود C Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Select وبالتالى السطر A=1 ليس له فائدة وبالتالى يمكنك تغيير الرقم 3 فى السطر السابق الى أى رقم تريده مباشرة لتحديد العمود المطلوب

اخى عبد الرحمن تفضل كود اخر يقف على اول خليه فارغه Sub H() Range("B" & [B10000].End(xlUp).Row + 1).Select End Sub كما يمكن ايضا استخدام هذا الكود Book1.rar