بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان الملف في المرفقات يفي بالغرض... المشكل فيه هو أنه يجب التوزيع اليدوي للحراس على القاعات وهو يقوم بإنشاء قوائم الحراس حسب اليوم والفترة المختارين... أخوك بن علية Surveiller_BEM.rar

السلام عليكم ورحمة الله أخي الكريم إن ما قدمه أخي الحبيب kemas كافي وشافي لما تريد، ومع تغيير طفيف على الكود (وأستسمح أخي كيماس) تصل لمطلوبك حسب ما يلي: فى الورقة الأولى Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer On Error Resume Next For I = 1 To 800 If Not Intersect(Target, Cells(I, 1)) Is Nothing Then Sheets(2).Cells(I, 1) = Sheets(1).Cells(I, 1) End If Next I End Sub وفى الورقة الثانية Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer On Error Resume Next For I = 1 To 800 If Not Intersect(Target, Cells(I, 1)) Is Nothing Then Sheets(1).Cells(I, 1) = Sheets(2).Cells(I, 1) End If Next I End Sub وفي المرفقات تجد الكود مطبق في ملف أخي كيماس (وتركته باسمه) connect-kemas_2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، السبب لعدم ظهور صفحات في المعاينة راجع حسب رأيي إلى "ناحية الطباعة"، جرب مسح ناحية الطباعة ثم إعادة تعيينها حسب الصفحات المراد طباعتها... والله أعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم لجعل أولوية فتح الملفات إلى برامج Office 2003 نقوم بالخطوات التالية: 1- فتح أي برنامج من برامج أوفيس 2003 مثلا "إكسيل Excel" 2- إختيار من قائمة الأوامر الأمر : "تعليمات" أو "؟" أو Help 3- نختار من هذا الأمر خاصية "كشف وإصلاح..." أو "Detect and repare" أو "Détecter et réparer" 4- ونضع علامة "صح" أمام "استعادة الاختصارات أثناء الإصلاح" أو "Restore my shortcuts while repairing" أو "Restaurer les raccourcis pendant la réparation" وقد يطلب منك إدخال قرص برنامج أوفيس 2003 أثناء هذه العملية... وبعد الانتهاء من هذه العمليات، إن شاء الله تكون أولوية العمل للأوفيس 2003 على أوفيس 2007... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم جرب الكود التالي (الذي يقوم بإلغاء دمج الخلايا الموجودة في النطاق A1:M30 في ورقة Sheet1) : Sub Unmerge() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:M30") For Each cel In myRange cel.Unmerge Next Range("A1").Select End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أبو أحمد، لقد تم المطلوب حيث قمت ببعض التغييرات على الكود وعلى الورقات إذ أن الصورة تدرج أولا في الخلية A1 من ورقة Sheet3 بالكود السابق (الذي كان في Sheet1) مع تحجيمها (إضافة في الكود) حسب قياسات هذه الخلية ثم تدرج الصورة في ورقة البيانات Sheet1 في مربع صورة (بواسطة التسمية Image) وقد تم اقتصاصهاCrop حسب حجم المربع ثم تم تحجيم هذا المربع وفق الخلية I1 في الجدول... ويمكنك وضع هذا المربع (مربع الصورة) في أي وضعية أخرى (خلية أخرى) وتحجيمه حسب قياسات هذه الخلية... هذا ما استطعت القيام به وأرجو أن يفي هذا العمل بالمطلوب... أخوك بن علية البيانات مع الصورة.rar

السلام عليكم ورحمة الله أخي الكريم يمكنك استعمال الدالة TRUNC برقمين بعد الفاصلة (الجزء العشري) مع الدالة SUM بالمعادلة التالية: =TRUNC(SUM(A1:A614);2) وفي بعض الأجهزة =TRUNC(SUM(A1:A614),2) وستحصل بإذن الله على النتيجة التي تريدها... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، استعملت الجدول (بكل البيانات) الذي وضعه أخي الحبيب طارق (أستسمحه على ذلك، وجزاه الله عنا ألف خير)، قمت فيه بتغيير بعض المعادلات لإعطاء الفترة المتبقية (بالثانية والدقيقة والساعة وعدد الأيام وعدد الأشهر)... (وإذا لم تشتغل الساعة عند الفتح نضغط على مفتاح F9 لبدء عملية Calculate)... (وغلق الملف يكون بالضغط على حرف X في أعلى الإطار أو بالخروج من برنامج إكسيل كليا لأن الكود يقوم بالتحديث كل ثانية)... والله أعلم أخوك بن علية عداد التذاكر_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، أقدم لك الطلب (متمنيا أن يفي بالغرض) وأضفت عليه تنسيقا شرطيا لتلوين (بالرمادي المنقط) لأيام نهاية الأسبوع (الجمعة والسبت)... ما عليك إلا اختيار الشهر في الخلية B1 وكتابة السنة في الخلية B2 وسيتم إنشاء الجدول بطريقة آلية... أخوك بن علية متابعة شهرية.rar

السلام عليكم ورحمة الله أخي الكريم وهذا حل آخر من الحلول... أخوك بن علية بحث متشابه في دالة recherhev.rar

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

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

السلام عليكم ورحمة الله أخي الكريم يمكن استعمال "المساعدة" Help المرفقة بالإكسيل على هذه الدوال... وباختصار هذه الدوال هي من دوال البحث... واستخداماتها كثيرة... الفرق الجوهري هو أن الدالة VLOOKUP تعتمد أساسا على عمود واحد للبحث (الأول) في جدول البيانات بينما الدالة INDEX (بصيغتيها) يمكن أن تبحث في أي عمود من الجدول وخاصة لما نستعمل معها الدالة MATCH... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم يمكن تسطير الكلمة (أو عدة كلمات) قبل بداية كتابتها وذلك بالضغط على Ctrl + U (وفي بعض الأجهزة Ctrl + S) فكل حرف يكتب في الكلمة (أو الكلمات) يتم تسطيره وعند الانتهاء من كتابة ما نريد تسطيره نضغط على Ctrl + U مرة أخرى ونواصل الكتابة... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، إليك ما طلبته عسى أن يفي بالغرض.... أخوك بن علية Book2.rar

السلام عليكم ورحمة الله أخي الكريم، إليك بالكود التالي الذي يجب وضعه في زر "إطبع" من اليوزر فورم... Private Sub CommandButton1_Click() Dim I As Integer, J As Integer x = TextBox1.Value y = TextBox2.Value For I = x To y If I <= y Then Sheets("ورقة" & I).PrintOut Copies:=1, Collate:=True End If Next End Sub أنظر الملف المرفق.... Book1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم يمكن ذلك جدا إما باستعمال خاصية الجداول المحورية أو يمكنك استبدال المعادلة =SUM(B2:B8) بالمعادلة =SUBTOTAL(9;B2:B8) في الخلية B9 وسحبها إلى الخلية E9 وإن شاء الله سيتم المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أختي الكريمة، في الملف المرفق تجدين إن شاء الله المطلوب... أخوك بن علية شيتى 2011.rar

السلام عليكم ورحمة الله أخي الكريم، من شروط الدالة SUMPRODUCT أن تكون النطاقات فيه محددة ويكون لها الارتفاع نفسه... وما لاحظته في ملفك أنك استعملت النطاقات E6:E1000 و D6:D1000 و date ولكن النطاق date يبدأ من السطر 6 إلى السطر 113 أي أنه مختلف في الارتفاع عن النطاقين الآخرين... ولتصحيح الخطأ نقوم بتغيير 1000 إلى 113 في النطاقين الآخرين أو أن نغير ارتفاع النطاق date في التسمية من المعادلة: =ورقة1!$G$6:$G$113 إلى المعادلة: =ورقة1!$G$6:$G$1000 وبإذن الله ستعمل المعادلة... ملاحظة: قد وضعت لك هذه الحالة (حساب مبلغ المستحقات لوكيل بين ناريخين معينين) في الورقة 2 من الملف المرفق (نسخة 2)... أرجو أني قد وفقت في الشرح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم هذه مسألة بسيطة وإليك الشرح والملف المرفق: الحالة الأولى: إذا كنت تريد أن يبدأ الترقيم من الصفحة الثانية برقم 1 نتبع الخطوات التالية: 1- ندرج الترقيم من خلال إدراج / ترقيم الصفحة 2- إلغاء خاصية "ترقيم من الصفحة الأولى" (حتى لا يظهر الرقم في الصقحة الأولى) 3- من خاصية "تنسيق" نختار بداية الترقيم من 0 qura1.rar الحالة الثانية : إذا كنت تريد الترقيم من الصفحة الثالثة (أو غيرها) برقم 1 ، فهذه يلزمها استعمال خاصية "المقاطع Sections" بعد تحديد وإدراج مقطع جديد بداية من الصفحة الثالثة ثم ندرج ترقيم الصفحات بداية من 1 مع ترك خاصية "ترقيم من الصفحة الأولى" وإلغاء خاصية "تتابع من المقاطع السابقة" من خاصية "تنسيق" ... ثم ننقر على رقم صفحة في المقطع الثاني (أي بداية من الصفحة الثالثة) ونلغي "كالسابق" وبعدها ننقر على رقم صفحة من المقطع الأول (أي الصفحة الأولى أو الثانية من الملف) ونحذف هذا الرقم... qura2.rar أتمنى أني وفقت في الشرح.... أخوك بن علية

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