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

السلام عليكم ورحمة الله وبركاته.. اليوم سأشرح لكم الدالة StrConv ولأي الامور تستخدم. الدالة حصرا تتعامل مع النصوص ( String ) ووضيفتها التحويل بين الاحرف الانجليزية ( كبير , صغير ) الدالة تأخذ 3 براميترات: البراميتر القيمة الوصف vbUpperCase 1 تحويل جميع الحروف الى حروف كبيرة vbLowerCase 2 تحويل جميع الحروف الى حروف صغيرة vbProperCase 3 تحويل الحرف الاول من كل كلمة الى كبير وباقي حروف الكلمة الى حروف صغيرة vbUnicode 64 تحويل النص الى سلسلة الـ UNICODE vbFromUnicode 128 تحويل النص من سلسلة UNICODE الى تنسيقات اخرى مثال: StrConv ("officena semo pa3x", 1) Result: "OFFICENA SEMO PA3X" StrConv ("OFFICENA SEMO PA3X", 2) Result: "officena semo pa3x" StrConv ("OFFICENA SEMO PA3X", 3) Result: "Officena Semo Pa3x" الاستخدام في الاستعلام يكون: الاستخدام في داخل محرر الـ VBA يكون: StrConv([CategoryName],3) تحياتي للجميع.. SEMO.Pa3x

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس 🙂 ولازال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

السلام عليكم تفضل اخي الكريم ارجو ان يكون طلبك Dim appExcel As Object On Error Resume Next Set appExcel = GetObject(, "Excel.Application") appExcel.Application.DisplayAlerts = False appExcel.Application.Save appExcel.Application.DisplayAlerts = True appExcel.Application.Quit Set appExcel = Nothing

السلام عليكم مؤخراً قمت بعمل مشروعٍ لمعالجة بيانات جهاز البصمة الإلكترونية Fingerprint Scanner ، ومن ضمن مراحل العمل احتساب الإجازات الساعية شهرياً وذلك بتحويلها إلى يوم إجازة، ونظراً لكون المشروع يتعلق بخصوصية المكان المنفذ لأجله مع التعقيدات القانونية المتعلقة بذلك، فقد اختصرت العمل لما يبين هذه الجزئية فقط، بعد أن وجدت من يسأل عنها؛ عسى أن يكون في هذا العمل ما ينفع، مع بعض الأكواد البسيطة التي قد يُحتاج إليها. أللهم صلِ على سيدنا محمد وعلى آله وصحبه وسلم. ميديا فاير- رابط المثال

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

الأخ علي لا لزوم لهذه المعادلة الطويلة (لادراج من A الى Z ) تكفي هذه =IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1))) ربما تنفع هذه الثلاث كودات Option Explicit Sub insert_arab() Dim i%, k% Dim arr() k = 0 Range("A1").CurrentRegion.ClearContents arr = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _ 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 39) For i = LBound(arr) To UBound(arr) Range("A" & i + 1) = Chr(198 + arr(k)) k = k + 1 Next End Sub '++++++++++++++++++++++++++++++++++++ Sub insert_Cap() Range("C1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("C" & i) = Chr(64 + i) Next End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub insert_Small() Range("F1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("F" & i) = Chr(96 + i) Next End Sub الملف مرفق ALPHABET.xlsm

برنامج شئون الموظفين مع ارشفةصور المستندات وملفات pdf الباسوورد : 2545 https://youtu.be/A0u_-nowx1s وهذا هو البرنامج برنامج_الموظفين.accdb

السلام عليكم ورحمة الله بفرض جعل القائمة المنسدلة قى الخلية "E3" ضع الكود التالى فى حدث الورقة و تغيير الاكواد Code1 , Cod2 .... الخ باسماء الاكواد التى لديك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$3" Then Exit Sub If Target.Value = "اجمالى" Then Call Code1 ElseIf Target.Value = "دراسة" Then Call Code2 ElseIf Target.Value = "بحث" Then Call Code3 ElseIf Target.Value = "صح" Then Call Code4 Else Exit Sub End If End Sub

وعليكم السلام اخى @حسين العربى حاجه كده ع قدى ان شاء الله تظبط معك شوف الجدول هناك سجلان بتوقيات مختلفه اللى هيظهر فالاستعلام السجل الاول المنتهد المده جرب ووافنى بالنتيجه بالتوفيق ان شاء الله ادخال بيانات البطاقه المدنية.rar

في الطريقة التي اشار اليها الاستاذ @أحمد الفلاحجى اعتمدت الاستاذة زهرة على وضع حقل غير منظم بالنموذج الفرعي وقيمته تساوي =Nz(Sum([total]);0) وفي حقل الاجمالي للنموذج =Forms![إجمالى فاتورة البيع(مبيعات الأسمنت]![تفصيل فاتورة البيع]!TOT ومكن اختصار الطريقة بدون الحاجة للحقل غير المنظم في الفرعي باستخدام دالة dsum =Nz(DSum("[total]";"تفصيل فاتورة البيع";"[im_id]='" & [im_ID] & "'");0) المثال في المرفق TOTAL.accdb

اساتذتي ومعلمي الاحباء الف الف شكر الحقيقة هذا اكثر من استحقاقي اين انا من هؤلاء الاهرامات والاساتذة الذين اتحفونا وما زالوا يتحفونا باجوبتهم شكرا لاستاذنا jjafferr والشكر موصول لاساتذتي واخوتي Shivan Rekany أحمد الفلاحجى ابو البشر Khalid Jnb ابوخليل wael_rafat أبو إبراهيم الغامدي essam rabea kha9009lid ابو محمد 316 m.r

وعليكم السلام اخي حمدي 🙂 وشكرا جزيلا لك 🙂 جعفر

مشاركة مع اصدقائي لكي يظهر كل السجلات فقط قم بتغير نوع العلاقة بين استعلامين كما مبينة في الصورة شوف النتيجة واليك مرفقك بعد تعديل علاقة TEST.accdb

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

هلا اخي تم التعديل الفكرة هى ضم كل الاسطر في الجدولين...اضفت سطر 8 لجدول IN للتوضيح بالتوفيق TEST-UPDATED.accdb

السلام عليكم هذه مشاركة مع استاذ ابو تراب TEST10.rar

تفضل أخي ListBox to One Row.xlsm

هلا اخي... هل هذا طلبك نفذ الاستعلام Q_IN_OUT_ALL TEST.accdb

وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة Dynamic Serial by Letters.xlsm

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

اخي واستاذنا الفاضل @Khalf لا مشكله اخي جميعنا نعمل لهدف واحد بارك الله فيك ولك وسوف اقوم بعون الله بتحميل المثال وتجربته عندما يتوفر لدي جهاز يدعم تطبيقات ميكروسوفت فائق التقدير والاحترام 🌹 تحية اجلال واحترام لاخينا واستاذنا ابو بسمله الجميل في اخلاقة والجميل في تفانيه في خدمة الجميع 🌹

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

اتفضل اليك هذا الكود Public Sub Terminate(Process As String, Optional PID As Long = 0) StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "") Set Obj = GetObject("winmgmts:\\.\root\CIMV2") Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48) For Each Obj In ColItems Obj.Terminate Next End Sub تقدر ان تغلق كل انواع البرامج بهذه الطريقة فقط عليك ان تكتب اسم البرامج عند تدعيه مثلا هنا نريد ان نغلق ملفات اكسل المفتوحة هكذا سنستدعيه عند الضغط على الزر Private Sub Command28_Click() Call Terminate("Excel.exe") End Sub

Application.Sum(Sh.Cells(i, 1). _ Offset(, 4).Resize(, 5) في هذا السطر الرقم 5 في ((Resize(, 5) هو عدد الأعمدة التي تريد جمعها ابتداء من العامود الذي مسجل في (Offset(, 4 وتضيف عليه 1 (4+1)=5 (العامود E رقمه 5) مثلا اذا كنت تريد جمع عامود واحد تكتب (Resize(, 1 العامود فقط E اذا كنت تريد جمع عامودين تكتب (Resize(, 2 العامودين E و F

السلام عليكم ورحمة الله الملف و به القائمة المنسدلة جاهزة قائمة منسدلة.xls

أستاذ منتصر احمد الدعيس أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

تم ربط الازرار بالاكواد البرنامج يعمل ولكن هناك ملاحظة يوجد كود وهو اخر كود اسمه copy من المفترض ان يكون هناك زر خاص به ولديك خطا فيه محدد صفحة اسمها result وهي غير موجودة في ورقة العمل بصراحة لا اعلم الية عمل البرنامج جربه واعطيني ملاحظاتك النقاط.xlsm

الف الف شكر استاذي الفاضل أحمد الفلاحجى فوق الممتاز هذا هو المطلوب بالظبط وزياده كمان

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

تفضل ملف_تطبيق_الجمع_بشروط.xlsm

اتفضل اخى الفاضل ده مثال كان موجود عندى لعله يفى بالغرض ان شاء الله وجزاها الله خيرا ام عهود بالتوفيق اخى جمع فى نموزج فرعى-TOTAL.rar

أنا أفصد ارفام الأعمدة المطلوبة في شيت المصدر لا في شيت النتيجة

الف مبروك اخي @husamwahab

مبارك عليك أستاذ حسام شارة الخبراء.. تمنياتي لك بمزيد من النجاح..

الف الف مبروك استاذنا @husamwahab تسناهل كل خير والى الامام دائما ان شاء الله 🌷

تم التعديل Sub Salim_Total_new() If ActiveSheet.Name <> "Taksim" Then Exit Sub k = [S2]: My_Sum = "SUM OF :" & k Application.ScreenUpdating = False lr1 = [A9999].End(xlUp).Row Cells(lr1 + 2, 1).EntireRow.Delete Start_Row = 2 Last_Sum = lr1 - 2 'start row for the sum sm_n = Int(Last_Sum / k) + 1 'Number of the sum_lines On Error Resume Next '============================= Range("L3:L" & lr1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete '============================ On Error GoTo 0 lr = [A9999].End(xlUp).Row For i = 1 To sm_n X = k + Start_Row ' X is end row for the sum If X > (lr + 1) Then X = lr + 1: k = X - Start_Row lr = lr + 1 Rows(X).Rows.Insert Shift:=xlDown Cells(X, "L") = My_Sum Cells(X, "M").Resize(, 4).FormulaR1C1 = "=SUM(R[-" & k & "]C:R[-1]C)" Cells(X, "O") = vbNullString With Range(Cells(X, 1), Cells(X, "P")) .Interior.ColorIndex = 6 .Font.Bold = True .Font.Size = 14 End With Start_Row = Start_Row + k + 1 If Start_Row > lr Then GoTo 10 Next i 10 Application.ScreenUpdating = True totalsum_new With Range("A2:Q" & lr1 + 2) .Value = .Value .Borders.LineStyle = 1 End With End Sub Sub totalsum_new() LAST = [A9999].End(xlUp).Row + 2 Cells(LAST, "L") = "òALL SUM " Cells(LAST, "M").Resize(, 4).Formula = "=SUM(M3:M" & LAST - 1 & ")/ 2" Cells(LAST, "O") = vbNullString With Cells(LAST, "L").Resize(, 5) .Font.Bold = True .Font.Size = 14 .Interior.Color = 10092492 End With End Sub الملف مرفق صفحة" Taksim" Sum_Of-10.xlsm

مبارك استاذ حسام زادك الله علما ونفع بك

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

مبارك ... تستاهل ... الى الامام

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

مبروك اخي @husamwahab اتمنى لك النجاح في كل امورك كن مستمر في طريقك طريق النجاح تحياتي

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

كما وضحت لك اذا بحث بالاسم سيظهر الاسم لكن يمكن وضع مربع نص يظهر به رقم الموضف Database110.rar تحياتي

شاهد المرفق New Microsoft Access قاعدة بيانات.accdb

تم معالجة الامر MY_search (2).xlsx

طريقة اخرى بالكود ... ستجد جميع ماطلبته في شيت التمويل بالاعتماد على البيانات في شيت يومية الخزينة المعادلة :- النقد الفعلي في الخزينة = ( صافي النقد في الخزينة ( اجمالي التمويل + اجمالي الايرادات - اجمالي المصروفات )) + ( اجمالي العهد ) يومية خزينة2020.xlsm

الكثير منّا يحاول ادخال التاريخ في الكومبوبوكس لكن المشكلة انه يظهر بالتنسيق الأميركي (شهر /يوم /سنة) بحلية بسيطة يمكننا ان نخدع الاكسل لأدخال التاريخ في الكومبوبوكس كما نريد نحن (يوم/شهر/ سنه) اذ ليس الامر باختياره انظر الى الملف المرفق لتعرف ماذا اعني Reel_date_to Combo.xlsm

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

بارك الله فيك الشرح موجود داخل الملف الماكرو اسمه الدرجة 1اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsm

أخي العزيز / herni يمكنك استخدام دالة COUNTIF عن طريق المعادلة التالية : =COUNTIF($A$1:$A$25;E5) ثم تقوم بسحبها للأسفل جرب المرفق أخي العزيز جدول الموظفين.rar