بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب أبو أحمد، يمكنك استعمال المعادلة التالية في الخلية B1 : =SUMPRODUCT((A3:A11=A1)*(B3:B11)) كما في الملف المرفق... أخوك بن علية SUMPRODUCT بدل VLOOKUP.rar

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

السلام عليكم ورحمة الله أخي الكريم، إن العمل المقدم رائع في أساسه جازى الله إخواننا الكرام خير الجزاء، وفقهم الله لكل خير وجعل الجنة مثواهم... أقدم لك العمل التالي في الملف المرفق بعد بعض التغييرات على الكود وعلى أوراق المستند وإن شاء الله يفي بالغرض ويكون هو المطلوب... أخوك بن علية ملاحظة: بالنسبة لأمر الطباعة وضعته في السطر ما قبل الأخير في الكود ولكنه غير مفعل، ولتفعيله يجب حذف العلامة ' الموجودة في بداية السطر... ترحيل3 مع طباعةA5.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى حل أخي الحبيب يحيى، إليك الحل التالي باستعمال الدالتين INDEX و MATCH في الملف المرفق التالي... أخوك بن علية ادراج عمود غن طريق البحث حسب الرقم الجامعي لجدول واظهار نتائج في الورقة 3.rar

السلام عليكم ورحمة الله أخي الكريم، حل آخر إضافة إلى حل أخي العزيز طارق جزاه الله عنا الف خير... أخوك بن علية Book2_1.rar

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للسؤال الأول (تعيين القيمة الأكثر تكرارا) يمكنك استعمال دالة الصفيف التالية: =INDEX(C3:N3,MATCH(MAX(COUNTIF(C3:N3,C3:N3)),COUNTIF(C3:N3,C3:N3),0)) في الخلية O3 وتاكيدها(CTRL+SHIFT+ENTER) ثم سحبها إلى الأسفل... وقد وضعتها في الملف المرفق... أخوك بن علية اكبر قيمة مكررة1.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا وضع القيم 200; 165; 14; 131; 126; 95; 82; 81; 11; 58 في عمود معين، مثلا العمود L بداية من السطر الأول، ونستعمل الدالة INDEX بالمعادلة : =INDEX(L1:L10;F11) والنطاق L1:L10 يمكن تمديده إلى أكثر من 10 قيم... في الحقيقة الحلول التي وضعتها يوجد غيرها باستعمال دوال أخرى... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا استعمال الدالة CHOOSE حسب المثال الذي وضعته باعتبار أن قيمة F11 هي أعداد طبيعية متسلسلة من 1 ، والمعادلة تكون: =CHOOSE(F11;"200";"165";"14";"131";"126";"95";"82";"81";"11";"58") وتلاحظ هنا أن عدد القيم هو 10 ويمكن تمديده إلى أكثر من ذلك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لم أضف شيئا على الأكواد ولكن عملت على خصائص TextBox، قمت بتغيير خاصية AutoTab لكل TextBox إلى القيمة TRUE وخاصية MaxLength إلى القيمة 3 مع مراعاة خاصية TabIndex حسب ترتيب TextBox، القيمة 1 لـ TextBox1 والقيمة 2 لـ TextBox2 والقيمة 3 لـ TextBox3، ونتيجة هذه التغييرات تجدها في الملف المرفق... أخوك بن علية TextBox.rar

السلام عليكم ورحمة الله أخي الكريم: أحاول أن أجيبك على سؤالك 1 ما الفرق بين الوسائط ومراجع الخلايا : الوسائط هي المتغيرات التي نجدها في تعريف الدوال (ويمكن أن تكون مراجع خلايا أو غيرها) ومراجع الخلايا هي عناوين الخلايا... 2 ما الفرق بين الدالتين : AVERAGE , MOYENNE : لا فرق بينهما (هي الدالة نفسها) الأولى (Moyenne) بالفرنسية والثانية (Average) بالإنجليزية... ووسائطها يمكن تكون مراجع خلايا أو نطاقات من خلايا متصلة أو متفرقة... هذا حسب معرفتي ومن لديه إضافات أخرى فلا يبخل علينا... والله أعلم

السلام عليكم ورحمة الله أخي الكريم ، أعتقدأن المشكل يكمن في تفعيل نسخة الأوفيس (ربما نسختك انتهت صلاحيتها) أو يمكن المؤشر موجود في خلية بها معادلة ولم تتم الموافقة عليها... وليس لي تفسير آخر... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أن المشكل في تنسيق الوقت hh:mm أو h:mm، وحسب رأيي المشكل في عملية إدخال (حجز) بينات التوقيت ربما استعملت علامة "/" أو علامة "-" لهذه البينات، وعلامة التوقيت هي ":" مع أحد التنسيقين hh:mm أو h:mm، وإن شاء الله تجد حلا لمسألتك... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، يمكنك تغيير المعادلة التي وضعها أخي العزيز "دغيدي" =IF(C5="","",VLOOKUP(C5,$M$5:$N$20,2)) بالمعادلة =IF(C5="","",VLOOKUP(C5,$M$5:$N$20,2,0)) أو بالمعادلة =IF(C5="","",INDEX($N:$N,MATCH(C5,$M:$M,0))) ملاحظة : المعادلة الأخيرة قد تم وضعها في الخلية H5 وسحبها إلى الأسفل... أخوك بن علية المصنف2.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك تغيير المعادلة التي وضعها أخي العزيز "دغيدي" =IF(C5="";"";VLOOKUP(C5;$M$5:$N$20;2)) بالمعادلة =IF(C5="";"";VLOOKUP(C5;$M$5:$N$20;2;0)) أو بالمعادلة =IF(C5="";"";INDEX($N:$N;MATCH(C5;$M:$M;0))) (المعادلات تكتب في الخلية E5 ويتم سحبها إلى الأسفل)... ملاحظة: قد وضعت لك الرد نفسه في الموضوع الأصلي مع ملف مرفق فيه تطبيق لهذه المعادلات... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان الملف في المرفقات يفي بالغرض... المشكل فيه هو أنه يجب التوزيع اليدوي للحراس على القاعات وهو يقوم بإنشاء قوائم الحراس حسب اليوم والفترة المختارين... أخوك بن علية 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