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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND($C2=DATE(2022,6,1),$A2="حلة",$B2="ثانية"),10000,5000) جلب العمولة بشروط1.xlsx

بسم الله الرحمن الرحيم من لايشكر الناس لايشكر الله شكر واجب للاستاذ دينمو المنتدى بصراحة المهندس قاسم @Eng.Qassim ربنا يرضيك يارب اخى الكريم بقدر مجهودك مع الجميع والله اخى انا احبك فى الله تقبل شكرى واحترامى وتقديرى لك اخى الكريم

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

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

أحسنت استاذ مجدى جزاك الله خير الثواب

أقترح عليك عمل شيتين للبيانات وشيت للتقرير الأول للدائنين وبه: الرقم والاسم المبلغ وتاريخ الاقتراض وأي ملاحظات والثاني للتسديدات وبه: رقم الدائن المبلغ المسدد تاريخ التسديد المستلم وأي ملاحظات أخرى والثالث لعرض التقرير الخاص بأحد الدائنين بدلالة رقم الدائن وتستعمل به معادلات البحث بالتوفيق

بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 2 عند الإنتقال لعمود أخر وبالتوفيق ان شاء الله =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,2,0)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) واذا كنت لا تريد تغيير الرقم كلما سحبت المعادلة لعمود جديد فيمكنك استخدام هذه المعادلة مباشرة دون تعديل رقم العمود =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,MATCH(C$2,ورقة1!$B$2:$G$2,0),FALSE)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء 3 .xlsx

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

جرب استعمال هذا الكود كمحاولة لضبط المدخلات في الخلايا عن طريق الاستبدال ثم بعدها يتم تقسيم النص إلى أعمدة عن طريق الشرطة يدويا ويمكنك إضافة أي عدد من العناصر التي يمكن استبدالها في المصفوفتين Sub mrmas() OldArr = Array("مهندس", "معاون", "درجة", "سادسة", "خامسة", "رابعة", "ثالثة", "ثانية", "اولى", "كبير", "استثنائى", "كبير-ثان", "كبير -ثان", " ", "--") newarr = Array("-مهندس", "-معاون", "-درجة", "سادسة-", "خامسة-", "رابعة-", "ثالثة-", "ثانية-", "اولى-", "كبير-", "-استثنائى-", "كبير ثان", "كبير ثان", " ", "-") For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To UBound(OldArr) Range("a" & r).Value = Trim(Replace(Range("a" & r).Value, OldArr(i), newarr(i))) Next i Next r MsgBox "Done by mr-mas.com" End Sub وهذا الملف وبه الكود لأنه في بعض الحالات لا يعرف صاحب الاستفسار طريقة إضافة الكود ..بالتوفيق تقسيم النص إلى معلومات.xlsb

اشكرك

فورم ادراج وتعديل وحذف سطور وأعادة ترتيب التسلسل وادراج صورة الفيديو

هل تقصد هكذا الملف كود بل المعادلات.xlsm

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

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

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

كما قال ولدي @Moosak IF checkbox =true then do somthing like append query End if

تفضل هذا الكود يقوم باللازم ... يقوم بانشاء مجلد برقم ID السجل اذا كان المجلد غير موجود .... ثم يحفظ ملف الووورد الخاص بالسجل داخله ... جرب واخبرنا Dim MWordDocCopyOf As String Dim NWordDocCopyOf As String Dim LWordDocOriginal As String Dim LWordDocCopyOf As String Dim Warning As String If Dir(CurrentProject.Path & "\" & Me.المعرف & "\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\" & Me.المعرف & "\" End If LWordDocOriginal = CurrentProject.Path & "\asd.docx" LWordDocCopyOf = CurrentProject.Path & "\" & Me.المعرف & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" If IsFileLocked(LWordDocCopyOf) = True Then MsgBox "يرجى غلق ملف الوورد!" Application.FollowHyperlink LWordDocCopyOf Exit Sub Else FileCopy LWordDocOriginal, LWordDocCopyOf MWordDocCopyOf = LWordDocCopyOf NWordDocCopyOf = Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open MWordDocCopyOf LWordDoc.Visible = True LWordDoc.ActiveDocument.Bookmarks("A1").Select LWordDoc.Selection.InsertAfter Nz(b1.Value, "") LWordDoc.ActiveDocument.Bookmarks("A2").Select LWordDoc.Selection.InsertAfter Nz(b2.Value, "") LWordDoc.ActiveDocument.Bookmarks("A3").Select LWordDoc.Selection.InsertAfter Nz(b3.Value, "") LWordDoc.ActiveDocument.Bookmarks("A4").Select LWordDoc.Selection.InsertAfter Nz(b4.Value, "") LWordDoc.ActiveDocument.Bookmarks("A5").Select LWordDoc.Selection.InsertAfter Nz(b5.Value, "") LWordDoc.Application.Documents(NWordDocCopyOf).Save End If LWordDoc.Quit Set LWordDoc = Nothing Warning = MsgBox("تم تصدير البيانات للملف ....... هل تريد فتح الملف المصدر", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then Application.FollowHyperlink MWordDocCopyOf Else DoCmd.CancelEvent End If

تفضل nabilali2021.rar اسف جدا استاذي ..لم ارى مشاركتك

جرب المرفق nabilali2021.accdb

https://drive.google.com/file/d/1SGcBrfP4xkaciCbS5Pc74Epvl8-5kDuC/view?usp=drivesdk طبعا لان حجم الملف كبير اضفت لكم رابط تحميل من درايف في التعليق

استخدم الكود التالي بعد تحديث رمز المشروع وامسح البيانات القديمة...سيعيد اليك ترقيم المستخلص مع كل رمز مشروع جديد Me.رقم_المستخلص = Nz(DMax("[رقم المستخلص]", "المستخلص", "[رمز_المشروع]='" & [رمز_المشروع] & "'"), 0) + 1 انظر لو كانت اسماء الحقول بالانكليزي رجاء اجعلوها بالانكليزي ..لانها تلخبط الوضع Me.ContractorNub = Nz(DMax("[ContractorNub]", "Contractors", "projectNub='" & [projectNub] & "'"), 0) + 1

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

وعليكم السلام-تفضل على الرغم انك لم تقم برفع الملف .. قيمكنك اضافة هذا السطر بحدث Open Sheets("الرئيسية").Select

وعليكم السلام 🙂 في لوحة الخصائص ومن Other الخيار Cycle تختار السجل الحالي

اسف اخي الكريم نسيت الفانك الصق هذا الفانك في النموذج ..... Public Function IsFileLocked(PathName As String) As Boolean On Error GoTo ErrHandler Dim i As Integer If Len(Dir$(PathName)) Then i = FreeFile() Open PathName For Random Access Read Write Lock Read Write As #i Lock i Unlock i Close i Else Err.Raise 53 End If ExitProc: On Error GoTo 0 Exit Function ErrHandler: Select Case Err.Number Case 70 IsFileLocked = True Case Else End Select Resume ExitProc Resume End Function

استاذ محمد شكرا لمرورك الكريم وعلى المعلومة المفيدة جدا جزاك الله خيرا تحياتي لك

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

لنترك الجدول الوسيط وجرب المرفق التالي تكرار موظف.rar

عليكم السلام جرب تعدبل كود تغيير مربغ النص الى Private Sub TextBox1_Change() If TextBox1.Text <> "" Then ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr Else ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4 End If End Sub بالتوفيق

عليكم السلام ورحمة الله وبركاته الأمر hide يستعمل في إخفاء النموذج فقط وليس إغلاقه كاملا وهذا يعني إمكاية استعمال جميع المتغيرات والكائنات المستعملة في النموذج الأمر unload يستعمل في إعلاف النموذج كاملا فلا يمكن استعمال أي من متغيراته أو كائناته ويمكن استعمال الأمرين من داخل النموذج me.hide unload me أو من خارجه userform1.hide unload userform1 أما end فلا علاقة لها بالنموذج وإغلاقه فهي تستعمل للتعبير عن نهاية بعض الأوامر مثل End [Function | Sub | With | Select | Type | Enum | If ] أما exit فتستعمل للخروج من بعض الأوامر مثل Exit [ Do | For | Function | Select | Sub ] بالتوفيق

يمكنك التحديث من خلال قائمة (معلومات التحديث والشراء) من بند (معلومات عن الإضافة) كما هو مشروح هنا: https://www.youtube.com/watch?v=3rr-Um94IFs وهذا رابط مباشر لتحميل آخر تحديث من الإضافة: https://www.shhada.net/contents/downloadsm/4MAEgubYzqynkm6y.zip أسأل الله تعالى أن يستجيب دعواتك الطيبة ولك مثل ذلك

Sub Test() Const iNum As Double = 50 Dim a, t As Double, i As Long, k As Long Application.ScreenUpdating = False With ActiveSheet a = .Range("A4:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim b(1 To UBound(a, 1) * 10, 1 To 1) For i = LBound(a) To UBound(a) k = k + 1 If a(i, 1) <= iNum Then b(k, 1) = a(i, 1) ElseIf a(i, 1) > iNum Then t = a(i, 1) Do b(k, 1) = IIf(t >= iNum, iNum, t) t = t - iNum k = k + 1 If t <= iNum Then b(k, 1) = t: Exit Do Loop Until t < iNum End If Next i .Range("E10").Resize(k, UBound(b, 2)).Value = b End With Application.ScreenUpdating = True End Sub

تفضل لك ما طلبت الاول.xlsm

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

لا يمكن بطريقتك هذه بل يمكن بهذه الطريقة 2التفقيط.xls

تفضل المصنف1.xlsm

وعليكم السلام -تفضل التفقيط بالمعادلات2018 .xlsx

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

ممتاز استاذ ابراهيم عمل رائع جعله الله فى ميزان حسناتك

يمكنك رؤية هذا الفيديو https://www.youtube.com/watch?v=tAcC_GTZ38o

احسنت استاذنا الكبير بارك الله فيك

عمل رائع استاذ سليم بارك الله فيك

احسنت استاذ سليم بارك الله فيك

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

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

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

بسم الله الرحمن الرحيم وبه نستعين أخى الكريم / أبو ألاء سلمت يداكم وبارك الله فيكم وجزاكم الله خيرا أرجو أن تسمح لى بهذه الملحوظة البسيطة بالنسبة للحالة الإجتماعية حسابيا ليس هناك مايسمى " متزوج +3 " هذا بالنسبة للزوج (( فهو يا إما متزوج أو متزوج+1 أو متزوج+2 مهما كان عدد الاولاد)) وحسابيا ليس هناك مايسمى " متزوجة + 1 أو 2 أو 3 " هذا بالنسبة للزوجة (( فهى متزوج فقط مهما كان عدد الاولاد )) وللزوجة الحق فى ضم العلاوة الاضافية الخاصة بالزوج فى حالة وفاته على اعتبار انها العائلة الوحيده لابنائها وخاصة إذا كانوا قصروتصبح الحالة الاجتماعية لها تحت مسمى " أرملة وتعول " تقبل تحياتى وأكرر إمتنانى وشكرى لسيادتكم لهذا البرنامج القيم وهذا من ألاء الله علينا وفقنا الله واياكم

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

الاخ العزيز ابو الاء عمل ممتاز وجهد ملحوظ ان شاء الله الى الامام ابواحمد

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