بن علية حاجي

السلام عليكم ورحمة الله لقد تنبهت للملف بعد أن أرسلته لك... وبعد البحث في النت اتضح أن طباعة Userforms و Frames يتعدى كل الطابعات التي يتم اختيارها ويقوم بالطباعة على الطابعة الافتراضية للنظام ولم أجد بدا من ذلك ذلك بحثي الطويل في النت... معذرة لذلك... بن علية حاجي

السلام عليكم ورحمة الله باستعمال دوال البحث ببساطة، وفي الملف استعملت الدالتين INDEX و MATCH.... أرجو أن تفي الغرض المطلوب... بن علية حاجي بيع وشراء العملات.rar

السلام عليكم ورحمة الله أخي الكريم، معذرة على التأخير في الرد لظروف خاصة، لقد ألقيت نظرة على الملف والمشكل في أن المعادلات كانت تجلب مبلغا واحدا للعهدة في حالات تكرارات البيانات، وتم تعديل هذه المعادلات باستعمال الدالة SUMPRODUCT بما يوافق المطلوب... بن علية حاجي مستخلص تعديل.rar

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

السلام عليكم ورحمة الله أن تكتبه بالشكل التالي: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Columns.Count = Columns.Count Then Application.EnableEvents = False MsgBox "Non, non, suppression de ligne annulée" Application.Undo Application.EnableEvents = True End If End Sub وتضعه في كود حدث ThisWorkbook بن علية حاجي

السلام عليكم بإذن الله أرى ذلك غدا... بن علية حاجي

السلام عليكم تم التصحيح في الملف المرفق... بن علية حاجي الرفع 111 Salim.rar

السلام عليكم البيانات عندك تبدأ من السطر 2 (حسب ما أرى في الصورة) بينما البيانات التي قدمها أخي سليم تبدأ من السطر 7 ولتصحيح هذا الخطأ قم بتغيير الأمرين التاليين في الكود: Set Mon_range = Sheets("ورقة2").Range("A7:A500") x = Application.Match(my_Num, Mon_range, 0) + 6 بالأمرين التاليين على الترتيب: Set Mon_range = Sheets("ورقة2").Range("A:A") x = Application.Match(my_Num, Mon_range, 0) إن شاء الله سيزول المشكل... بن علية حاجي

السلام عليكم ماذا تريد بكل TextBoxes الموجودة في UserForm2؟؟ لم أفهم ماذا تريد بالضبط... بن علية حاجي

السلام عليكم تعديل طفيف على الكود في ملف أخي الكريم سليم أرجو أن يفي الغرض المطلوب... بن علية حاجي الرفع 111 Salim.rar

السلام عليكم حسب فهمي للمسألة يمكنك تغيير ذلك في الإكسيل عن طريق تحديد نطاق الكتابة في هذا العمود وفتح تنسيق الخلايا ثم تغيير "اتجاه النص" Text Orientation وتختار "من اليمين إلى اليسار" وإذا أردت زيادة مسافة في البداية تقوم بالتغيير في خاصية "محاذاة النص" Text Alignment ثم "أفقيا" Horizontal تختار منها "محاذاة إلى اليمين" (Right (Indent ثم "مسافة" Indent تختار الرقم 1 مثلا.... والله أعلم بن علية حاجي

السلام عليكم تستطيع قول ذلك... وكما قلت الأهمية أنك قدرت تحويل التقدير إلى رقم... بن علية حاجي

السلام عليكم ورحمة الله تفضل الملف المرفق وبه المطلوب... بن علية حاجي 1.rar

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

السلام عليكم ورحمة الله تم إضافة كود خاص بالزر "لصق الأسماء" لاستدعاء البيانات مباشرة من شيت StudNames... أرجو أن تفي الغرض المطلوب... بن علية حاجي Book12.rar

السلام عليكم لم أفهم مقصدك؟ ربما تريد أن يكون استدعاء قائمة طلبة الفصل المحدد عن طريق زر "لصق الاسماء"؟ بطبيعة الحال هذا ممكن يكفي فقط إنشاء الكود المناسب لذلك... غير أن عملية استدعاء الاسماء عن طريق الكود أو عن طريق كتابتها يدويا يلغي كل المعادلات الموضوعة في الجدول... بن علية حاجي

السلام عليكم ورحمة الله إذا أردت أن يتم إغلاق MsgBox أوتوماتيكيا بعد فترة زمنية تحددها (في الكود الموالي جعلت MsgBox يغلق بعد 1 ثانية) يمكن تعويض كودك السابق بالكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim SH As Object Set SH = CreateObject("WScript.Shell") If Not Intersect(Target, Range("tarek")) Is Nothing Then mnth = "" For i = 16 To 5 Step -1 'هذا السطر لاختبار وجود قيم غير فارغة في السطر الحالي من العمود 5 إلى العمود 16 If Cells(Target.Row, i) <> "" Then mnth = Cells(2, i).Value & " - " & mnth 'هذا السطر لاختبار تساوي قيم السطر الحالي من العمود 5 إلى العمود 16 مع قيمة الخلية في العمود 4 أي قيمة الاشتراك ' If Cells(Target.Row, i) = Cells(Target.Row, 4) Then mnth = Cells(2, i).Value & " - " & mnth Next End If On Error Resume Next mnth = Mid(mnth, 1, Len(mnth) - 3) SH.Popup " " & " " & Cells(Target.Row, 2) & Chr(13) & vbCrLf & " .... اسماء الشهور المسددة " & " " & Chr(13) & mnth, 1, "تم سداد الاشتراك", 48 Set SH = Nothing End Sub توقيت الإغلاق يمكن التحكم فيه في الجزئية التالية من الكود: Chr(13) & mnth, 1 بتغيير الرقم 1 (1 ثانية) بأي رقم آخر... ملاحظة : يمكن أيضا غلق MsgBox قبل انقضاء الفترة المحددة للغلق بواسطة الزر OK الموجود في العلبة أخوك بن علية حاجي

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

السلام عليكم لست أدري إن كان هناك حل آخر، سأحاول بإذن الله البحث أكثر في النت وأطلعك بالجديد قبل تغييرك للأوفيس... بن علية حاجي

السلام عليكم لقد قلت لك إن النسخة التي أرسلتها لك لا تصلح للأوفيس 64 بت... حتى أن شركة مايكروسوفت لا تنصح بتنصيب أوفيس 64 بت... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله أضفت للشروط السابقة شرطا آخر وهو شرط "اسم السائق".... ولست أدري إن كانت هي التعديلات وافية وكافية لحل المشكل وأنتظر ردك لتأكيد (أو عدمه) ذلك... بن علية حاجي مستخلص.rar

السلام عليكم ورحمة الله أولا : القيمة 1 ليست محذوفة من B8 كما كتبت بل من ناتج الدالة SMALL بمعنى أن نهاية المعادلة هي من الشكل: ROW($1:$2000));B8)-1;0)) وليس ROW($1:$2000));B8-1);0)) ثانيا : يمكن حذف 1- من المعادلة باعتبار أن التسمية MySection عندك هي للنطاق StudNames!$B$2:$B$2001 وقد وضعتُ 1- في المعادلة لأن هذه التسمية كانت للنطاق StudNames!$B$1:$B$2000 وبهذا التغيير الذي قمتَ به لا يؤثر على النتائج فيما بعد... ثالثا : بالنسبة لتغيير الجزئية (ROW($1:$1000 بالجزئية A1:D1000 بهذا الشكل لا يمكن، أما بالشكل (ROW(A$1:D$1000 مع تثبيت أرقام الصفوف بالعلامة $ أما الحروف في هذه الحالة فلا أهمية لها... بن علية حاجي

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... وفي الكود زيادة أمر (غير مقعل) وضعته لاختبار تساوي قيم الاشتراكات الشهرية لكل عضو مع قيمة الخلية في العمود D (قيمة الاشتراك الشهرية) وفي حالة عدم التساوي يلغى الشهر من قائمة الشهور المسددة (إن كان هذا الأمر في الكود مفعلا).... بن علية حاجي ‏‏‏‏‏‏‏‏صندوق رسالة.rar

السلام عليكم ورحمة الله لا أرى المشكل أين يكمن لأنه عند تصفحي لشيت "التربة" لم أصادف ولا في أي حالة تكون فيها العهدة تساوي 2000... رجاء ارفق ملفا فيه هذه المشكلة... بن علية حاجي

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، تفضل الملف المرفق وبه ما تريد... فقط أريد أن أعرف ما فائدة عمود "عدد الأيام الإضافية" (العمود E في الجدول)؟ المهم إذا أردت إضافة قيمه مرة واحدة في المعادلات يكفي إضافتها آخر المعادلة مباشرة قبل القوس الأخيرة بالشكل التالي : (E3 +(((... (هذا بالنسبة للصف الثالث ثم سحب المعادلة إلى الأسفل) مثلما فعلت في العمود G الملون بالأزرق... بن علية حاجي رصيد إجازات 8ب.rar