نجوم المشاركات
Popular Content
Showing content with the highest reputation on 25 أكت, 2021 in all areas
-
اذا كانت صلة القرابة تعرف بآخر الإسم فتفضل هذا الكود انشئ Module جديد و الصق فيه الشفرة التالية Public Function StrLast_name(FullName As String) On Error Resume Next Dim name As String Dim first_name As String Dim mid_name As String Dim last_name As String name = FullName first_name = Left(name, InStr(name, " ") - 1) mid_name = Mid(name, InStr(name, " ") + 1, InStrRev(name, " ") - InStr(name, " ") - 1) last_name = Right(name, Len(name) - InStrRev(name, " ")) StrLast_name = last_name End Function في الإستعلام اضف الحقل التالي Strlast_name([ename2]) و ضع له المعيار التالي Strlast_name([Forms]![eform1]![ename]) و يكون بهذا الشكل و ستكون النتجية بهذا الشكل الإستعلام بناء على الإسم الأخير و كل من له علاقة بالإسم الأخير Database2.accdb2 points
-
قصدق يكون ملف الاكسل متواجد على سطح المكتب والبرنامج في مكان اخر ؟؟؟؟ لان البرنامج الذي لديك هو نقل البيانات الى الملف وليس تكوين ملف جديد ّ!!!!! على كل حال جرب وضع ملف الاكسل على سطح المكتب والبرنامج في مكان اخر ..... تفضل التعديل ... aaa.rar2 points
-
1 point
-
1 point
-
1 point
-
1 point
-
استاذنا ومعملنا / @د.كاف يار هو المطلوب تماما يادكتور الله يريح قلبك زى ماريحت قلبى ويبارك فيك وفى علمك ، فعلا انت احد اعمدة هذا الصرح العظيم اشكرك جدا جدا جدا جدا جدا جدا ربنا يرزقك بغير حساب يعطيك الصحة والعافية كل الاحترام والتقدير لكم1 point
-
1 point
-
عن طريق حلقة تكرارية تستطيع ارسال قائمة الأسماء لديك الى جهة اتصال محددة سؤالك غير واضح يرجى شرح المطلوب بصورة مفصلة حتى تأخذ اجابة منطقية فعلى الأغلب لا توجد مصلحة لإرسال البيانات الى رقم محدد لكن فهم السؤال دائما نصف الإجابة فأتوقع انك تريد ان ترسل رسالة واتس اب الى عدة جهات اتصال فهل هذا صحيح ؟1 point
-
1 point
-
1 point
-
واتفضل هذا مثال فقط ينقصه اعادة ربط الجداول المرتبطة من قاعدة الخلفية فقط حتى يعمل النسخ الاحتياطى على اكمل وجه frontend.mdb db.mdb1 point
-
اخى نزل الملف مره اخرى تم تعديله او انسخ الكود مره اخرى Sub Test() Dim SH As Worksheet, WS As Worksheet, SHLR As Long, WSLR As Long, CEL As Range Application.DisplayAlerts = False Application.EnableEvents = False Set WS = ThisWorkbook.Worksheets("Total") For Each SH In Worksheets If SH.Name <> "Total" Then With SH SHLR = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 For Each CEL In SH.Range("D14:D" & SHLR) If CEL.Value <> Empty Then WSLR = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row + 1 WS.Range("A" & WSLR) = SH.Range("I14") WS.Range("B" & WSLR) = SH.Range("L14") WS.Range("C" & WSLR) = CEL.Value End If Next CEL End With End If Next SH Application.DisplayAlerts = True Application.EnableEvents = True End Sub1 point
-
وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم ان شاء الله يكون طلبك ضع هذا الكود في ملفك في userform1 بدل الأكواد الموجوده Private Sub CommandButton1_Click() For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(x, 1) = TextBox1.Text Then Cells(x, 4) = TextBox4.Text Cells(x, 5) = TextBox5.Text Cells(x, 6) = TextBox6.Text Cells(x, 7) = TextBox7.Text Cells(x, 8) = TextBox8.Text Cells(x, 9) = TextBox9.Text Cells(x, 10) = TextBox10.Text Cells(x, 11) = TextBox11.Text Cells(x, 12) = TextBox12.Text Cells(x, 13) = TextBox13.Text Cells(x, 14) = TextBox14.Text Cells(x, 15) = TextBox15.Text Cells(x, 16) = TextBox16.Text Cells(x, 17) = TextBox17.Text Cells(x, 18) = TextBox18.Text Exit For End If Next x End Sub Private Sub CommandButton2_Click() UserForm1.Hide UserForm2.Show End Sub Private Sub CommandButton3_Click() sheet1.Activate UserForm1.Hide End Sub Private Sub CommandButton4_Click() UserForm1.Hide sheet3.Activate UserForm4.Show End Sub Private Sub TextBox1_Change() Dim x For x = 3 To Cells(Rows.Count, "A").End(xlUp).Row If TextBox1.Text = Cells(x, 1) And TextBox1.Value <> "" Then TextBox2.Value = Cells(x, "b").Value TextBox4.Value = Cells(x, "d").Value TextBox5.Value = Cells(x, "e").Value TextBox6.Value = Cells(x, "f").Value TextBox7.Value = Cells(x, "g").Value TextBox8.Value = Cells(x, "h").Value TextBox9.Value = Cells(x, "i").Value TextBox10.Value = Cells(x, "j").Value TextBox11.Value = Cells(x, "k").Value TextBox12.Value = Cells(x, "l").Value TextBox13.Value = Cells(x, "m").Value TextBox14.Value = Cells(x, "n").Value TextBox15.Value = Cells(x, "o").Value TextBox16.Value = Cells(x, "p").Value TextBox17.Value = Cells(x, "q").Value TextBox18.Value = Cells(x, "r").Value TextBox24.Value = Cells(x + 1, "d").Value TextBox25.Value = Cells(x + 1, "e").Value TextBox26.Value = Cells(x + 1, "f").Value TextBox27.Value = Cells(x + 1, "g").Value TextBox28.Value = Cells(x + 1, "h").Value TextBox29.Value = Cells(x + 1, "i").Value TextBox30.Value = Cells(x + 1, "j").Value TextBox31.Value = Cells(x + 1, "k").Value TextBox32.Value = Cells(x + 1, "l").Value TextBox33.Value = Cells(x + 1, "m").Value TextBox34.Value = Cells(x + 1, "n").Value TextBox35.Value = Cells(x + 1, "o").Value TextBox36.Value = Cells(x + 1, "p").Value TextBox37.Value = Cells(x + 1, "q").Value TextBox38.Value = Cells(x + 1, "r").Value TextBox19.Value = Cells(x, "ai").Value TextBox20.Value = Cells(x, "aj").Value TextBox21.Value = Cells(x, "ak").Value Exit For Else Dim cl As Control For Each cl In Me.Controls For i = 2 To 38 If cl.Name = "TextBox" & i Then cl = "" i = i + 1 End If Next i Next cl End If Next x End Sub1 point
-
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخر نسخة من البرنامج بعد عمل عدة تعديلات 1185844841_.rar1 point
-
السلام عليكم ورحمة الله وبركاته جرب هذا التعديل اخى الكريم Sub Delete_Old_Date() Dim m As Long, r As Long, WS As Worksheet Set WS = ThisWorkbook.Worksheets("آخر حركة انقطاع ") Application.ScreenUpdating = False m = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For r = 2 To m If Application.CountIf(WS.Range("A" & r & ":A" & m), WS.Cells(r, 1).Value) > 1 Then WS.Rows(r).Delete r = r - 1 End If Next r Application.ScreenUpdating = True End Sub1 point
-
1 point
-
يمكنك استعمال دالتك وبعدها زائد واحد =DATEDIF(Start_date,End_date,"D")+1 بالتوفيق1 point
-
حسب فهمي للمطلوب تم جعل صفحة الطباعة صفحة واحدة ويتم استدعاء باقي الصفحات بكتابة رقم الصفحة في الخلية E1 تم تلوين الخلايا التي وضع معادلات فيها ويمكنك زيادة عدد سجلات (صفوف) الصفحة وذلك باستبدال رقم 11 في المعادلات بالعدد المطلوب ونسخ المعادلات إلى الصف المطلوب لأسفل بالتوفيق ترحيل المجاميع.xlsx1 point
-
1 point
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عمل نموذج ملىء خلايا عمود بنموذج بحث بالكود أو الاسم تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ______________.rar ________3.rar ________.rar و لا تنسونا من صالح الدعاء تحياتى1 point
-
تحياتى و ايام مباركه استكمالا للموضوع اعلاه لاهمية الاستفاده من الكود اعلاه تم اضافة فورم بحث و اضافه من اعمال استاذنا / عبدالله باقشير للملف اعلاه و عليه اذا كنت تقوم بعمل برنامج او ملف به عدد كبير من ادخال البيانات او عدد لا نهائى من تكويد الحسابات فقم باضافة الكود و الفورم للملف و قل الحمد لله و لا تنسونا من صالح الدعاء G_Double click_2020.rar1 point
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طرق البحث تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء تحياتى asam3 (بحث).rar بياااااااان شامل عن قطع الغيارlsm.rar1 point
-
في نفس السياف ، سالني صديق نفس السؤال تقريبا علي إميلي الخاص وأرسل لي أيضا ملف تيكست به أكثر من 90,000 رقم تليفون كلها بالسعودية مثل 966503011273 966505584504 966503932916 966500477498 وكان طلبه: 1. ترتيب الارقام في جهات اتصال vCard ، بحيث ترتب الارقام تصاعديا من الاصغر إلى الاكبر 2. ثم تأخذ كل جهة اتصال اسما تسلسليا يبدأ من J00001 الحقيقة أن كثرة الأسماء ، جعلتني أفكر في وسيلة أخري والحمد لله باستخدام كود صغير يمكن إنشاء عدد كبييير من ملفات الـ vcf التي يمكن قرائتها من الأوتلوك أو من المحمول وبعد إذن صديقي ، سأستعير بعض أرقام التليفونات في الملف المرفق وبه الشرح فقط تضع في ملف الإكسل الإسم بالعمود الأول ثم الرقم بالعمود الثاني وتشغل الكود فينشيء لك عدد الكروت الـ vcf المطلوب في المجلد xxx علي القرص D الكود هو Sub write_VCF() LR = [A999999].End(xlUp).Row For i = 1 To LR a = Cells(i, 1): b = "TEL;CELL" & Cells(i, 2) Filename = "D:\xxx\" & a & ".vcf" Open Filename For Output As 1 Print #1, "BEGIN: VCARD" Print #1, "FN: " & a Print #1, b Print #1, "End: VCARD" Close #1 Next i End Sub والآن أترككم مع المرفق تحويل الأسماء.rar1 point
-
السلام عليكم ضع هذا الكود بين اكواد الفورم Private Sub ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer For i = 1 To 3 If Len(Trim(Me.Controls("TextBox" & i))) = 0 Then Me.Controls("TextBox" & i) = Me.ListFind.Value Exit For End If Next End Sub ودمتم في حفظ الله1 point
-
أردت فقط تهنئتكم أحبابي زوار مدونتي بالعيد الأضحى أعاده الله علينا وعليكم بكل خير وفقنا الله وإياكم لزيارة بيته الكريم تحياتي أخوكم أبو عبد الله محمد صالح1 point
-
الشكر لله اخي الفاضل استاذ ماس ونرجو ان تضه لنا كنترول الاداره لكي يستفيد الاخوان من العمل وتستفيد انت من الدعوات اقول ذلك لانني متأكد من انك من ابطال المنتدى تعرف أخي قصي أن العمل في كنترول الإدارة التعليمية حساس للغاية ويحاط بالكثير من السرية ولكن سوف أحاول أن أرفق لكم الملف مفرغا بدون بيانات وكل عام أنتم بخير1 point
-
طبعا الإجابة لا يمكن ولكن الممكن هو استبدال دالة المتوسط average بدالة أخرى لا تظهر خطأ القسمة على صفر وهي بنفس معنى المتوسط =SUM(A8:B8)/2 لأنك في هذه الحالة ستقسم على رقم ثابت وهو عدد الأعمدة وفي حالتك هذه هو الرقم 2 أتمنى أن يكون اتضح الأمر1 point
-
أخي قصي الأمر لايحتاج إلى إرفاق ملف ولا مثال يمكنك عملها أنت في ملف عندك 1- قم بعمل معاينة قبل الطباعة ستجد أن عدد الصفحات مثلا 4 صفحات و5 سطور وتريد ضغط ال 5 سطور في الأربع صفحات بحيث يتم طباعة الجميع في 4 صفحات فقط - لعمل ذلك افتح page setup من قائمة file وفي الجزء الخاص ب fit fit to 1 page wide by 4 pages tall ok - قم بمعاينة الصفحات مرة أخرى ستجد أنها اصبحت 4 صفحات فقط والسلام عليكم ورحمة الله وبركاته1 point
-
باختصار أخي فوزي gutter تعني هامش التوثيق أو بالعامية التدبيس فعندما نريد تدبيس مجموعة من الأوراق لتجميعهم كملف واحد يمكنك التدبيس في الناحية اليمنى أو اليسرى أو من الأعلى ويسألك برنامج الوورد عن مساحة هامش التدبيس بحيث يزيد الهامش في هذه الناحية عما هو عليه بمقدار هامش التوثيق هذا حتى يظهر باقي المستند بدون مشاكل بعد عملية التدبيس أعتقد أن الموضوع اتضح لمن يعرف اللهجة المصرية واعذروني إن كنت لا أعرف معنى الدبَاسة باللهجات العربية الأخرى أخوكم أبو عبد الله محمد صالح1 point
-
أخي الكريم فوزي كل عام أنتم بخير موضوع ال scaling هذا يعني التحجيم وهو خاص بنسبة الملف إلى الحجم الصلي عند الطباعة وهذا هو معنى الجزء العلوي من التحجيم فإذا أردت طباعة الملف بنسبة 75% من حجمه الأصلي أو بنسبة 115% يمكنك عمل ذلك من الخاصية الأولى والخاصية الثانية مرتبطة بالأولى بحيث يمكنك التحكم في عدد الصفحات التي يطبع فيها الشيت وذلك يكون طبعا بتغيير نسبة الملف إلى حجمه الصلي فلو مثلا أردت طباعة شيت وفي المعاينة ظهر الشيت كصفحة وسطرين في الصفحة الثانية يمكنك باستعمال الخاصية الثانية في التحجيم بمناسبة الملف إلى صفحة واحدة عرض في صفحة واحدة طول وبذلك ستتم طباعة الشيت في صفحة واحدة فقط وبالطبع ستتغير نسبة التحجيم في الخاصية الأولى إلى اقل من 100% أتمنى أن يكون اتضح الأمر1 point
-
شكرا للأخ قصي على النقل والشكر موصول للأخ كيماس وأؤكد أنني أعمل في كنترول الإدارة التعليمية ولا أستعمل الأكواد أيضا ولكن يرجى مراجعة المعادلات حيث يكون الطالب ناجحا ويظهر في تقديره دون وخاصة مع مادتي النشاط التربوي1 point
-
يبدو أنه يوجد حلقة مفقودة قلت أنه 4 أرقام من أصل 19 وفي الأمثلة الأرقام من 6 خانات فهل تريد/ي عمل قائمة من 4 خانات للأرقام من 1 إلى 9 بدون تكرار رقم معين مثلا؟ يا ريت بالتفصيل الممل الرؤية لم تتضح بعد1 point
-
1 point
-
وهذا حل آخر أخي صفوت وشكرا لأخي طارق وأخي يحيى mas-تسلسل الايام.rar1 point
-
السلام عليكم الاخ الحبيب/ محمدي ----حفظه الله اكرمك الله واثابك بمثل ما دعوت لي اضعاف مضاعفة تقبل تحياتي وشكري ======================= الاخ الحبيب/ ابو اسامة العينبوسي----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================= الاخ الفاضل/ yahia----حفظه الله في المرفق ستجد ما تريد تقبل تحياتي وشكري ======================= الاخ الفاضل/ عادل----حفظه الله وانت بالف خير تقبل تحياتي وشكري ======================= الاخ الفاضل/ safwat----حفظه الله في المرفق ستجد ما تريد ======================= الاخ الفاضل/ قصي----حفظه الله الله يكرمك اخي الصفحة الرئيسية هي موجودة في فايل معين وبرفقتها ملفات اكسل معينة( هما دول الملفات التي يتم فيها البحث) ======================================== الاخ الفاضل/ engineer.salah----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================================== في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث تفضلوا المرفق بحث بفورم في عدة ملفات.rar1 point