بن علية حاجي

السلام عليكم حسب فهمي للمسألة يمكنك تغيير ذلك في الإكسيل عن طريق تحديد نطاق الكتابة في هذا العمود وفتح تنسيق الخلايا ثم تغيير "اتجاه النص" 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

السلام عليكم تم تعديل المعادلات حسب هذه الحالة... ولا حرج أخي في كثرة الطلب... بن علية حاجي Ali_31.rar

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

السلام عليكم لم تردّ على مشاركتي السابقة لذا أرسل لك الملف الذي وعدتك به لإدراج أداة Calendar في الإكسيل، مع الملف تجد ملف بصيغة PDF (بالإنجليزية) عليك مراجعته وقراءته قبل البدء في العملية لمعرفة الخطوات التي تسهل عليك تنصيب هذه الأداة... وتبقى عملية تفعيلها في VBA، إن شاء الله أشرح لك خطوات التفعيل بعد انتهائك من تنصيب الأداة... ملاحظة: الأداة لا تصلح على إكسيل 64 بت (قلت إكسيل وليس ويندوز)... بن علية حاجي MSCAL.ZIP

السلام عليكم جرب الملف المرفق لعل فيه ما تريد.... بن علية حاجي Ali_31.rar

السلام عليكم بمعادلات بسيطة لكن بعمود مساعد... بن علية حاجي مثال_2.rar

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

السلام عليكم جرب تحديث "ناحية الطباعة" (Print Area أو Zone d'impression) وإلغاء "كل فواصل الصفحات" (Page Break أو Sauts de page)... والله أعلم بن علية حاجي

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

السلام عليكم تم تعويض الجزئية التالية من المعادلة في الخلية H2 (مثلا) : +IF(F2=30;-Daily!E33;IF(F2=31;-Daily!E33)) بالجزئية التالية: -IF(OR(F2=30;F2=31);SUM(Daily!E33);0) واختصرتها بهذا الشكل باعتبار أن العملية نفسها في معادلتك سواء كانت قيمة F2 تساوي 30 أو 31... وتم التعديل على كل معادلات النطاق H2:H17 حسب كل صف... ملاحظة: الخلل كان في أن الخلايا من الشكل Daily!E33 وغيرها المكتوبة في المعادلات هي فراغات (نصية) ولما نسبقها بالإشارة تعطي "خطأ" وبالتالي تكون النتيجة دائما 00:00 حسب صيغة المعادلات... Attendance Sheet_2.rar

السلام عليكم هل الويندوز الذي عندك 32 بت أو 64 بت؟ بن علية حاجي