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

السلام عليكم ورحمة الله وبركاته.. اليوم سأشرح لكم الدالة 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

بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://officena.net/team/mas/tafkeet وتم برمجة هذه الصفحة بلغة php وهذا الإصدار الجديد يعتمد فقط علي جافاسكريبت https://www.mr-mas.com/p/tafqeet.html وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع

السلام عليكم إخواني الكرام .. كل عام وأنتم بخير .. كل عام وأنتم إلى الله أقرب أحب أن أقدم سلسلة دروس بسيطة للمبتدئين فيما يخص القوائم المنسدلة ..راجيا من الله عزوجل أن ينتفع بها كل مسلم إليكم إخواني الجزء الأول .. إنشاء القوائم المنسدلة 1.rar إليكم إخواني الجزء الثاني وهو لا يختلف كثيرا عن الجزء الأول .. إنما هو مثال آخر تأكيدي بشكل مختلف قليلا إنشاء القوائم المنسدلة 2.rar الأخوة الكرام أقدم لكم الجزء الثالث متمنياً لكم دوام الصحة والعافية وكل عام وأنتم بخير إنشاء القوائم المنسدلة 3.rar كل عام وأنتم بخير إخواني الكرام إليكم الجزء الرابع من القوائم المنسدلة في هذا الجزء سنتناول كيفية عمل قوائم منسدلة لقوائم غير ثابتة إنشاء القوائم المنسدلة 4.rar

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

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

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

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

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

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

الاخ احمد الفلاحجي ... الله يوفقك ...تحياتي لكم ...

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

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

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

يبدو ان اللغة العربية غير مثبتة عندك في برمجة الــVBA شاهد هذه الفيديو لحل المشكلة https://www.youtube.com/watch?v=hElkHVLg7a4

كل شيء ممكن في الاكسيل 1-تغيير اسماء الصفحات ليتعرف عليها الاكسل بشكل جيد من جهة ومن جهة ثانية اسهل في كتابة الكود ونسخه ولصقه 2-التاريخ في الخلية B15 يجب ان يكتب كتاريخ وليس تاريخ ومعه الحرف م 3- الخلايا المدمجة في الصف الأول لا أنصح بها (لانها تسبب مشاكل في تحديد اخر صف فيه بيانات) 4- اذا كان التاريخ خطأ B15 تحصل على رسالة يذلك و يتوقف الكود عن العمل الكود Option Explicit Sub tansform_data() Dim B As Worksheet, Var_sh As Worksheet Dim Jour%, Mois%, Last_row% Dim Spec_rg As Range Set B = Sheets("By_jour") Set Spec_rg = B.Range("A15") If Not IsDate(Spec_rg) Then MsgBox "You Enter a wrong Date Please Justify" Exit Sub End If Jour = Day(Spec_rg): Mois = Month(Spec_rg) Select Case Mois Case 4 Select Case Jour Case Is <= 15 Set Var_sh = Sheets("Ap1") Case Else Set Var_sh = Sheets("Ap2") End Select '+++++++++++++++++++++++++++++ Case 5 Select Case Jour Case Is <= 15 Set Var_sh = Sheets("May1") Case Else Set Var_sh = Sheets("May2") End Select '+++++++++++++++++++++++++++++ Case 6 Select Case Jour Case Is <= 15 Set Var_sh = Sheets("Jun1") Case Else Set Var_sh = Sheets("Jun2") End Select '+++++++++++++++++++++++++++++ Case 7 Select Case Jour Case Is <= 15 Set Var_sh = Sheets("Jul1") Case Else Set Var_sh = Sheets("Jul2") End Select Case Else Exit Sub End Select ' Var_sh.Select Last_row = Var_sh.Range("a:a").Find("", after:=Var_sh.Range("a3")).Row Var_sh.Cells(Last_row, 2).Resize(, 8).Value = _ B.Cells(12, 2).Resize(, 8).Value Var_sh.Cells(Last_row, 1) = Spec_rg End Sub الملف مرفق Tarhil_Youmi.xlsm

السلام عليكم تفضل اخي العزيز ارجو ان يكون طلبك Root255.rar

وعليكم السلام ورحمة الله وبركاته لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة FF.rar تحياتي

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

الله االله الله تم تم ربنا يحفظك يارب الله يكرمك استاذى يارب ويحفظك يارب كل عتم وانت واسرتك بكل خير الدنيا يارب حبيبى والله احترامى اخى الغالى واستاذى الله يكرمك يارب دائما

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

،عم استخدم هذا الكود Private Sub AGE_AfterUpdate() If Not IsNull(Me.Age.Value) Then Me.DOB.Value = DateSerial(Year(Me.dDate) - Me.Age.Value, 1, 1) End If End Sub 2020 (1).rar

معظم الاعضاء يلجؤون للمنتديات لما تواجههم مشكلة في مكان ما ، والبعض الآخر يساعد الباقين ، فلا هذا عنده وقت ، ولا ذاك ، إلا اللي محتاج وعنده مشكلة في المثال اللي تقدمه ، فعلى اساسه تلقاه مستعد يجرب 🙂 جعفر

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

ممكن نجربة هذا الكود اذا لم يكن هناك صفحة بأي اسم يقوم الماكرو باضافة صفحة جديدة بهذا الاسم و ينقل البيانات اليها Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub الملف مرفق tarhil_by_names.xlsm

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

السلام عليكم ورحمة الله وبركاته لقد طرح أخي معلمي الأستاذ // عبدالله باقشير (( حفظه الله)) نموذج فورم فاتورة بكود سهل بعد أذنه قمت بالتعديل الطفيف لتتناسب مع الاعمال التجارية جميع البيانات في الفورم من بيانات الشركة والبيانات التي تظهر اسفل الفورم يمكن تغيرها بسهولة من (( شيت 1)) وكذلك جميع البيانات الخاصة بالعميل - رقم الفاتورة التاريخ - الكمية - كود الصنف - اسم الصنف - سعر الوحدة - الاجمالي ) يمكن التغير عليها من الشيت الاول وذلك لسهولة تغيير البيانات واستخدمها بما يتناسب اغلبية الطلبات بالمنتدي الحبيب والشكر كل الشكر لاخي ومعلمنا الاستاذ // عبدالله باقشير علي طروحاته القيمة التي نتعلم منها جعل جميع اعماله في ميزان حسناته والله ولي التوفيق نموذج الفورم نموذج فاتورة مع الطباعة (E) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=46761#entry280633 ولا تنسونا بدعوة بظهر الغيب بصلاح الحال فاااااااتورة خبورية 2.rar