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

السلام عليكم و رحمة الله غير لرقام بالمعادلة التى هى 1033 الى 1127 و تحل المشكلة ان شاء الله

أصدقائي واساتذتي الرائعون .. رسالة شكر وعرفان وتقدير أهديها لكم لوقوفكم بجانبي دوماً، فأنتم في القلب، و تتسابق الكلمات وتتزاحم العبارات لتنظم كلمات الشكر الذي لا يستحقه إلّا أنتم، إليكم يا من كان له قدم السبق في ركب العلم والتعليم، إليكم يا من بذلتم ولم تنتظرون العطاء. بارك الله فيكم وجعلها في ميزان حسناتكم

السلام عليكم تم عمل المطلوب في الملف المرفق، وفي هذه الحالة نحتاج إلى عمود مساعد آخر لإدراج عناصر القائمة المنسدلة دون فراغات (الأرقام التي تم إلغاؤها -مسحها- حسب شروطك)... قائمة منسدلة متغيرة_2.xlsx

شكرا على هذه المعلومة اخوي موسى 🙂 انا لازلت على ابو كلتش ، من التنسيق اخلص شغلي ، متعود على طريقة العمل مال الاصدارات القديمة مال اكسس 🙂 جعفر

جرب هذا : 🙂

السلام عليكم و رحمة الله استخدم الكود التالى Sub TrAbsent() Dim ws As Worksheet, Sh As Worksheet Dim Shahr As String, x As Long, Rng As Range Set ws = Sheets("خلاصة نهائية"): Set Sh = Sheets("كشف") Shahr = Sh.Range("AD3").Text x = WorksheetFunction.Match(Shahr, ws.Range("D5:CY5"), 0) + 3 Sh.Range("AJ8:AR73").Copy ws.Cells(8, x).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

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

عقدنى انا كمان ونسانى وضع المرفق 😀

جرب المرفق بصراحة وضع النموذج بدون اطار و تكبيره عقدني وخصوصا ان جهازي بدون لوحة مفاتيح APE_2023_Stock.accdb

الف سلامه عليك اخى ومعلمى العزيز جعفر شفاك الله وعافاك ربنا ينعم عليك بالصحه والعافيه 💐 كان لديك خطا فى اسم الاستعلام لجرجس الصحيح G_RASED بدل من GRASED وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه If Forms!password!un = "مريم" Then Me.Code_snf.RowSource = "RASED" Else 'If Forms!password!un = "" Then Me.Code_snf.RowSource = "G_RASED" End If بالتوفيق

وعليكم السلام تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... عناصر القائمة المنسدلة (التسمية Rng) تجدها في العمود AA... بالنسبة للنطاق بالتسمية List يمكن تمديد عناصرها إلى الأسفل... قائمة منسدلة متغيرة.xlsx

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

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

تفضل أخي date to-1.accdb

بعد إذن أخونا محمد يوسف قم بتجربة الكود في الملف التالي والذي سوف يقوم بالحفظ كملف PDF بشكل تلقائي لكل الأسماء الموجودة في القائمة المنسدلة الموجودة في الخلية D3 بيات توزيع المواد الغذائية 002.xlsm

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

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

أو عدله - بعد اذن استاذنا ابو خليل - بنفس اسلوب استاذنا ابو خليل هكذا Me.DoctorID = Format(Str(i), "00") & "/" & Format(Str(x), "000")

أرجو ملاحظة أن أصلحت خطأ كتابي في كلمة أنثى.

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

في الوقت اللي الشباب اشتغلوا على الاجابة ، انا كنت مشغول في حذف الكود اللي ما له داعي !! انت عملت حقول وازرار في النماذج ، وبعدين حذفت حقول وازرار من النماذج ، وابقيت الكود !! اعدادت الاكسس عندي تمنعني من تشغيل البرنامج اذا فيه خطأ في مكان في الكود ، لذلك ، عينك ما تشوف الا النور ، طلع فيه بلاوي 😁 في كل صفحة كود ، جمعت لك جميع الاكواد اللي لا تنحذف في اسفل الصفحة ، وعملتها كملاحظة حتى لا تشتغل ، ويمكنك حذفها اذا اردث 🙂 جعفر 1554.APE_2023.accdb.zip ما لقيتها في جوجل ، فقلت اسالك عنها 🙂 وهاي اريد لها تفسير لوسمحت 🙂 جعفر

أنا أتيت بنصف الجواب .. أما موضوع المدة التجريبية فما اشتغلت فيه سابقا 😅🖐🏼️

وعليكم السلام ورحمة الله وبركاته 🙂 من مكتبتي .. هذه دالتان الأولى لتشفير البيانات والثانية لفك التشفير .. أخذتهما من أحد البرامج الخاصة بأستاذنا العزيز @ابو جودي أزال الله أتراحه وأدام الله أفراحه .. Option Compare Database Option Explicit 'ExxE=Encrypt 'DxxD=Decrypt ' دالة التشفير Function ExxE(ByVal JudyDecrypt As String) As String Dim iIndex As Integer Dim iEncoder As Integer Dim iEncodedVal As Integer Randomize ExxE = "" For iIndex = 1 To Len(JudyDecrypt) Do iEncoder = Int(98 * Rnd + 89) iEncodedVal = Asc(Mid(JudyDecrypt, iIndex, 1)) Xor iEncoder Loop While iEncodedVal = 1000 Or iEncodedVal < 99 ExxE = ExxE & Chr(iEncodedVal) & Chr(iEncoder) Next iIndex End Function ' دالة فك التشفير Function DxxD(ByVal JudyEncrypt As String) As String Dim iIndex As Integer Dim iDecodedVal As Integer DxxD = "" For iIndex = 1 To Len(JudyEncrypt) Step 2 iDecodedVal = Asc(Mid(JudyEncrypt, iIndex, 1)) Xor Asc(Mid(JudyEncrypt, iIndex + 1, 1)) DxxD = DxxD & Chr(iDecodedVal) Next iIndex End Function

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

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

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

السلام عليكم الحل فى Pivot Table لما تقف على الجدول هتلاقى حقل PF قى القائمة اسحبه فوق الاسم مع الصفوف هتلاقيه ظهر لكن ف سطر لوحده فوق الاسم وعلشان يظهر بجواره اختار إعدادات Pivot table ثم اختار المظهر Classic ها يظهرو ف نفس السطر ولكن فى سطر إجمالى تحته قم بأخفاءه بالضغط على الزر الايمن Hide الاجمالى والغاء علامة الصح بجواره

مبارك عليك الترقية أخي @Ahmed_J .. 🙂🌹 إضافة ثمينة للمنتدى وجوهرة تضاف لهذا العقد الجميل 🙂

وعليكم السلام 🙂 النموذج الجدولي DataSheet يأخذ خط واحد فقط لكل النموذج ، واذا اذكر تمام ، بواسطة التنسيق الشرطي تقدر تغير نوع الخط 🙂 جعفر

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

وعليكم السلام 🙂 نعم ، اعمل كلمة مرور لبرنامج الواجهة 🙂 جعفر

Welcome, and I hope you benefit from the topic, the password is 1234

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

نبارك لكم الترقية ونتمنى لكم التقدم والنجاح المستمرين .. وعساكم ع القوة.

شكرا جزيلا أخي @Hamtoooo .. هدية مقبولة 🙂 تصميم رائع وراقي ماشاء الله تبارك الرحمن 😎

طيب .. اعانك الله ووفقك ارى انه افضل لو انك وضعت في المثال بعض البيانات وطلبت من اخوانك اجراء عملية محددة ...................................................................... لاحظ انك تريد ضبط في ما لو تم ارجاع الصنف اكثر من مرة والبحث سوف يتم على رقم الفاتورة الاصلية والفاتورة الاصلية تحتوي على اكثر من صنف وطبعا لكل ارجاع رقم فاتورة يخصه في الارجاع الاول سوف يتم الارجاع بسهولة لانه لم يتم بعد اصدار فاتورة في الارجاع الثاني : كيف تتوصل الى العدد الذي تم ارجاعه في المرة الاولى يجب ان نفكر جيدا فنحن بحاجة الى معيار يتكون من : رقم الفاتورة الأصل ( لمعرفة العدد الاصلي ) + كود الصنف ( بسبب تعدد الاصناف في الفاتورة ) + معيار ( ؟؟ ) ( لاظهار عدد المسترجع في المرة الأولى ) البرمجة عبارة عن تطبيق فكرة منطقية

أهلا @محمد احمد لطفى الشفرة التالية تفي بالغرض إن شاء الله.. Private Sub أمر0_Click() On Error GoTo ERR_CODES Dim HTML_FILE_NAME As String Dim HTML_TITLE As String Dim TABLE_NAME As String Dim SQL As String '-- ASSIGNING VALUES TO SQL STATMENT VARIABLES Const HTML_SPECIFICATION As String = " [HTML IMPORT;HDR=YES;] " HTML_FILE_NAME = CurrentProject.Path & "\" & "0125.HTML" '.. THE HTML FILE IS THE DATABASE HTML_TITLE = "0125" '.. THE HTML TABLE NAME IS THE HTML TITLE CREATE_TABLE_SQL: '-- ASSIGNING TABLE NAME USING INPUTBOX TABLE_NAME = InputBox(Err.Description & " Plase Enter New Table Name.", _ "New Table Name", , Me.WindowWidth / 2, Me.WindowHeight / 2) If Len(TABLE_NAME) = 0 Then GoTo EXIT_SUB End If '-- CREATE SQL STATMENT SQL = "" SQL = SQL & " SELECT * INTO " & TABLE_NAME SQL = SQL & " FROM " & HTML_TITLE SQL = SQL & " IN'" & HTML_FILE_NAME & "'" SQL = SQL & HTML_SPECIFICATION '-- EXECUTE SQL STATEMENT TO CREATE TABLE CurrentDb.Execute SQL Application.RefreshDatabaseWindow EXIT_SUB: Exit Sub ERR_CODES: If Err.Number = 3010 Then GoTo CREATE_TABLE_SQL Else MsgBox Err.Number & vbNewLine & Err.Description End If End Sub IMPORT_HTML_TABLE.zip

فكرة رائعة وممتازة.. هل يوجد مثال تطبيقي مع جزيل الشكر وعظيم الامتنا،،

احسنت استاذ /وجيه جزاك الله خيراً وجعلة الله فى ميزان حسناتك

السلام عليم اخي جرب المرفق Test.xlsm

عليكم السلام ورحمة الله وبركاته تفضل أخي الكريم Sub test() With Sheets("يومية الحضور والإنصراف").Range("B4:C" & Sheets("يومية الحضور والإنصراف").Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")" .Value = .Value End With With Sheets("رصيد الأجازات").Range("B3:D" & Sheets("رصيد الأجازات").Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")" .Offset(, 3).Resize(, 1).Formula = "=IFERROR(IF(DATEDIF([@[تاريخ التعيين]],$D$1,""D"")/30>3.1,""يستحق"",""""),"""")" .Offset(, 5).Resize(, 1).Formula = "=IF([@[معادلة الرصيد]]=""يستحق"",$O$1+[@[معالجة الرصيد]],0)" .Offset(, 6).Resize(, 1).Formula = "=[@[الرصيد المرحل]]+[@[رصيد 2023]]" .Offset(, 7).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة"")+(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة مجمعة"")))" .Offset(, 8).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A4,'يومية الحضور والإنصراف'!$H:$H,""أجازة عارضة""))" .Offset(, 9).Resize(, 1).Formula = "=IF(E3=""يستحق"",$N$1-[@[ عارضة]],0)" .Offset(, 10).Resize(, 1).Formula = "=(([@[إجمالي الرصيد المستحق]]-([@[ سنوي]]+[@[ عارضة]]+[@[تسوية نقدي]])))-[@[باقي رصيد العارضة]]" .Offset(, 11).Resize(, 1).Formula = "=([@[باقي رصيد السنوي ]]+[@[باقي رصيد العارضة]])" With .Resize(, 12) .Value = .Value End With End With End Sub

احسنت استاذ /وجيه جزاك الله خيراً

جعله الله فى ميزان حسناتك

رووووووعة بارك الله فيكم اخي الكريم

بارك الله بيك

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

السلام عليكم ما شاء الله جميل جدا وشكرا لك

رائع جدا استاذ وجيه شرف الدين جزاك الله كل خير

اخى وجيه اكرمكم الله ونفع بكم

اتفضل استاذ اليك هذا Public Sub OpenDocument(DocPath As String) Dim A As Long A = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & DocPath, vbMaximizedFocus) End Sub Private Sub Command1_Click() Call OpenDocument("C:\Users\Shivan\Desktop\TEST.pdf") End Sub