عبدالله بشير عبدالله

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

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

السلام عليكم ورحمة الله وبركاته يمكن الاستغناء عن العمود المساعد واستبدال المعادلات في العمود v باخرى ولكنها ستكون طويلة الملف ارقام النتائج عربي2.xlsm

الشئ البسيط يرجعنا الى نقطة الصفر واظهار 99.6 الى 99.60 يمكن وذلك باضافة 0.00 للنتسيق وستصبخ 99.6 الى 99.60 لكن ستظهر الاصفار الارقام الصحيحة 100.00 يعنى تحل اشكال يظهر اخر واعتقد خسب علمى طلبك الاخير لا يتحقق بالتنسيق للخلايا (حسب ما اعلم) بعمود مساعد في Z نضع المعادلات الاصلية به مع النتسيق السابق وفي العمود V نضع المعادلات الجديدة ويمكنك اخفاء العمود Z جرب واتمنى ان تجد طلبك في الملف المرفق او ان يقدم الزملاء بالمنتدى افكار احرى وابسط تحياتي ارقام النتائج عربي1.xlsm

وعليكم السلام ورخمة الله وبركاته هذا التنسيق فيه طلبك مع وجود نقطة للارقام الصحيحة وحقيقة حاولت معالجتها ولم افلح لان النقطة مرتبطة للارقام التي بها كسور ربما احد الزملاء لديه حل اقضل [$-2010401]0.##"٪";-0.##"٪";; ارقام النتائج عربي.xlsm

نعم استاذى الفاضل Foksh صدفت وشكرا لتنبيهك كما اشكر صاخب السؤال الفاضل soik225998 على تنبيهنا للامر تم معالجة الامر ان شاء الله المرشحين2.xlsb

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

اليك التعديل كلمة المرور 1234 اظافة زر تعديل وخذف للفورم.xlsm

وعليكم السلام ورحمة الله وبركاته قم باظافة الكودين الى الفورم3 Private Sub CommandButton4_Click() Dim sh1 As Worksheet, F As Range Set sh1 = Sheet1 If Me.cl.Value = "" Then MsgBox "يرجى البحث عن إذن أولاً قبل التعديل", vbExclamation Exit Sub End If Set F = sh1.Range("d:d").Find(Me.cl.Value, , xlValues, xlWhole, , , False) If Not F Is Nothing Then sh1.Range("A" & F.Row).Value = Me.cust.Value sh1.Range("b" & F.Row).Value = Me.qu.Value sh1.Range("c" & F.Row).Value = Me.fq.Value sh1.Range("e" & F.Row).Value = Me.mq.Value sh1.Range("f" & F.Row).Value = Me.t1.Value sh1.Range("g" & F.Row).Value = Me.fk.Value sh1.Range("h" & F.Row).Value = Me.fm.Value MsgBox "تم تعديل بيانات الإذن رقم " & Me.cl.Value & " بنجاح", vbInformation Else MsgBox "لم يتم العثور على الإذن رقم " & Me.cl.Value, vbExclamation End If End Sub Private Sub CommandButton5_Click() Dim sh1 As Worksheet, F As Range Set sh1 = Sheet1 If Me.cl.Value = "" Then MsgBox "يرجى البحث عن إذن أولاً قبل الحذف", vbExclamation Exit Sub End If If MsgBox("هل أنت متأكد من حذف الإذن رقم " & Me.cl.Value & "؟", vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then Set F = sh1.Range("d:d").Find(Me.cl.Value, , xlValues, xlWhole, , , False) If Not F Is Nothing Then sh1.Rows(F.Row).Delete CommandButton3_Click MsgBox "تم حذف الإذن رقم " & Me.cl.Value & " بنجاح", vbInformation Else MsgBox "لم يتم العثور على الإذن رقم " & Me.cl.Value, vbExclamation End If End If End Sub اظافة زر تعديل وخذف للفورم.xlsm ارجو ان تكون في هذه الاجابة فيها طلبك تحياتي

السلام عليكم ورحمة الله وبركاته اهلا وسهلا بك في منتدى اوفيسنا اطلعتُ على الموضوع أكثر من ثلاث مرات، ثم تركته بسبب غموض الطلب وعدم وجود شرح مفصّل. وفي المرة الرابعة، جلستُ في جلسة فجرية على قهوة العميد (Foksh)، فتمت معرفة طلب أخينا الفاضل بإذن الله. في ورقة CLASS2، وأثناء وضع المعاينة، وجدتُ تقسيمًا للصفوف، حيث تظهر أسماء الصفوف في رأس الصفحة، وفي التذييل التوقيعات. كل صف يحتوي على 50 طالبًا، باستثناء الصف الأخير الذي يضم 51 طالبًا. ويُفترض أن يكون كل 50 طالبًا في ورقة واحدة، موزّعين على عمودين. وإن كان ما فهمته صحيحًا من طلبك، فإليك الملف وفيه محاولة للحل. أما إذا لم يكن هذا هو المطلوب، فإن الشرح الوافي يُسهّل على أعضاء المنتدى الإقبال على المساعدة أكثر. second2026 - Copy.xlsb نخياتي

اعتقد تعنى الفورم1 اظهار العناوين في LISTBOX.xlsm

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

وعليكم السلام ورحمة الله وبركاته اعتقد المشكلة ان الاكسل يحاول تفسير التواريخ وفقاً لإعدادات النظام الإقليمية واعتقد ان المشكلة في الشهور من1 الى 9 فقط امالشهور 10-11-12 لا مشكلة الحل هو معاملة القيم كنص بدلاً من تاريخ جرب الكود التالي في زر اظافة مع اعادة تنظيم واختصارالكود جرب واعلمنى بالنتائج وفقك الله Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim ws As Worksheet, rng As Range Set ws = Sheet1 If Me.TextBox4 = "" Then: Exit Sub Set rng = ws.Range("a10000").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox1.Value rng.Offset(0, 1).Value = Me.TextBox2.Value rng.Offset(0, 2).Value = Me.TextBox3.Value rng.Offset(0, 3).Value = Me.TextBox4.Value rng.Offset(0, 4).Value = "'" & Me.TextBox5.Text rng.Offset(0, 5).Value = "'" & Me.TextBox6.Text rng.Offset(0, 6).Value = Me.TextBox7.Value rng.Offset(0, 7).Value = Me.TextBox8.Value Dim i As Long For i = 1 To 8 Controls("TextBox" & i).Value = "" Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

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

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