يوسف عطا

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

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

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

لا حرمنا الله من مساعداتك أخونا المراقب العام ربنا يجعل أعمالك فى ميزان حسناتك جارى تجريب المرفق آخر سؤال ولا تزعل من كثرة طلباتى ربنا يجعلك من مجيبى السائلين لو عاوز أغير مكان العمود الذى يتم على اساسه الترحيل أة جزء أغيره فى الكود لكى يرحل مثلاً البيانات التى يوجد بجوارها فى عمود Y ناجحة ومنقولة أو لها دور ثان علماً بأن هذه التصنيفات حالياً فى العمود A وأنا أريد تغيير مكانها للعمود Y أعتذر مرة أخرى لإزعاجك

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

يتم تغيير الباس وورد بعد الدخول على الموديول او الكود وتغيير الباس من داخله وتوجد طرق اخرى مثلاً وضع الباسوورد فى خلية معينة من الملف ويمكن اخفائها وربط الكود بهذه الخلية فيتم تغيير الباس وورد دون الدخول فى الكود والله اعلم

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

مراقبنا العام طارق بك الف شكر على كرمك البالغ إنا لصابرون ونسأل الله أن يوسع فى وقتك ورزقك بالنسبة لتعديل سطر الإحصاء فى الكود لقد عدلته كما يلى ولى سؤال x1 = Sheets("ناجحة ومنقولة").[a3000].End(xlUp).Row - 10 x2 = Sheets("لها دور ثان").[a3000].End(xlUp).Row - 10 x3 = Sheets("لها حق الإعادة").[a3000].End(xlUp).Row - 10 x4 = Sheets("ليس لها حق الإعادة").[a3000].End(xlUp).Row - 10 MsgBox (" تم ترحيل عدد" & x1 & " طالبة ناجحة ومنقولة" & Chr(10) & "وترحيل عدد " & x2 & " طالبة لها دور ثان " & Chr(10) & " و ترحيل عدد" & x3 & " طالبة لها حق الإعادة" & Chr(10) & "وترحيل عدد " & x4 & " طالبة ليس لها حق الإعادة ") Range("a1").Select ما هى دلالة هذه الجزيئية & Chr(10) & وهل ما قمت به تمام ولا يحتاج تنقيح من سيادتكم ؟؟ ومرفق الملف بعد حذف جزء المسح وتعديل جزء التكرار ترحيل معدل بدون مسح.rar ترحيل معدل بدون مسح.rar

عشت يا أبا الحارث

عوداً حميداً أخونا الغالى كم إشتقنا لك عشمنا أن تكون فى أتم وأسعد حال وكل عام وأنتم بخير

هدية مقبولة من أخ كريم

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

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

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

علمى علمك عزيزى الغالى لكن ما أعلمه أن يمكن الدمج بين الفيجوال بيزيك وبين تطبيقات الأوفيس ( الوورد والإيكسيل والأكسيس والباور بوينت) وهذا ما أعرفه بالأكواد البرمجية والله أعلى وأعلم

الله ينور عليكم

الله ينور يحى بك

إثراء الموضوع بمزيد من الوسائل شئ جميل يا استاذ باسم دمت بكل ود

الأخ الغالى هل تأكدت من الشكل الجديد للشيت ؟؟ هل بالفعل توجد خانة منفصلة لرصد درجة نصف الفصل الدراسى من 20 وخانة منفصلة لرصد درجة الشفوى والنشاط والمواظبة والسلوك من 30 ثم درجة إمتحان الفصل الدراسى من 50 أو 10 + 40 للمواد التى بها إمتحان عملى فيكون كل فصل دراسى من 100 ثم المجموع من 200 ثم المتوسط من 100 ثم خانة أخيرة لدرجة المادة كل حسب درجتها ؟؟ على ذلك أصبحت الخانات أكثر ضيقاً عما كانت عليه ولقد كنا نتمنى العكس أى تخفيض عدد الخانات بحذف خانة المتوسط مثلاً صراحة عجيب أمر القائمين على إعداد هذا الشيت لو كانوا يعملون بالكنترول ويستخدمون هذا الشيت بالطبع لم يكونوا صمموه بهذه الطريقة والغريب أن ما يزيد على 20% من الشيت يقع خارج حدود الرصد (مساحات خالية خارج حدود جدول الشيت من الأربعة جهات)

عوداً حميداً أخونا الغالى ابو أسامة

اعذرني أخي يوسف ما دلالة الرقم 8 في معادلتك؟؟ وإلى اي شيء يعود؟ عزيزى الغالى ماس كل قطة كبيرة معها 7 قطط صغيرة يبقى عددهم 8 قطط

تفضل يا أخى هذا الكود من أعمال أحد أعمدة المنتدى الأخ الغالى خبور خير غير كلمة السر الموجودة فى السطر 11 من (جو) إلى أى كلمة أو رقم تريده Private Sub Worksheet_Activate() On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer Me.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets("Main").Select Exit Sub ElseIf XX <> "جو" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets("Main").Select Exit Sub Else Me.Columns.Hidden = False Columns("u:IU").EntireColumn.Hidden = True End If On Error GoTo 0 End Sub

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

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

(8*7*7*7*4)+(2*7)