طارق محمود

أنا رديت بسرعة يمكن حوالي 5 دقائق بعد سؤالك بس أنا ملاحظ أن كل مواضيعك تتطلب فيها أخي الكريم هل تعتقد أن أحد السائلين لايريد الرد بسرعة بس سؤال للتفكر

السلام عليكم من تنسيق الخلايا قبل الكتابة فيها ظلل الخلايا المراد التابة بها ثم Format Cells أو Ctrl+1 ثم Number Fraction ثم إختار الذي تريده

إرسل الملف

السلام عليكم تفضل الفيديو المرفق لتوضيح كيفية عمل مجال حسابي أي ادخال المعادلات في الجداول المحورية Add_Calculated_Field_to_Pivot.rar

السلام عليكم أخي العزيز تفضل الملف المرفق ضع المبلغ في الخلية A4 ولمعرفة المعادلات إظهر الصفوف من 5:9 تقسيم الدولار الى فئاته.rar

السلام عليكم أخي الكريم أولا: لابد من فك الدمج قبل الترتيب ثانيا: لايجوز الترتيب إلا للأعمدة المتجاورة مالم تتدخل بالأكواد

السلام عليكم أختنا الفاضلة رددت علي الموضوع الأصلي هنا http://www.officena.net/ib/index.php?showtopic=33717 وسأغير عنوان هذا الموضوع وارجوكي وجميع الأعضاء أن نعيد جميعا قراءة قواعد المشاركة الموجودة بالأعلي 1- يمنع منعا باتا .. 2-يجب استخدام .. 3-ضرورة .. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع ... وذلك للحفاظ علي الشكل العام للمنتدي وأخيرا لاتترددي في طرح ماتشائين من أسئلة بدون تخصيص عضو بعينه لكي لاتحرمي نفسك من مجهود وإبداعات باقي الأعضاء وجزاكم الله خيرا وكل عام وأنتم بخير

السلام عليكم أختنا الفاضلة لديك عدة نقاط تحتاج تضبيط أولا : حيث أن الدالة غير موجودة أصلا بالإكسل كما سبق واتفقنا، فلابد إذن من نقلها للملف الجديد والنقل عن طريق محرر الفيجوال بيزيك أو نقل الملف المرفق بما فيه من ماكرو أو دالة ثانيا: لكي ترصد الدالة جميع أحوال الطالب فيجب أن تكون الدالة من أول يوم أي كالتالي =absent(D8:IK8) وليست =absent(ID8:IK8) ثالثا: بعد تعديل طفيف ، أصبحت الدالة كالتالي إذا لاحظتي أول سطر بعد التعريف هو: a = [a2].Value نضع قيمة الخلية A2 في المتغير a وهذا الأمر لأن لدي بالجهاز مشكلة في التعرف علي أشكال الحروف العربية فوضعت في الملف السابق حرف غ في الخلية A2 لكي يقرأ منها الكود حرف غ ليستخدمه في المقارنة بعد ذلك لذلك لابد من وضع هذا الحرف غ في الخلية A2 ولو نغير لون الفونط مثلا للأبيض كما في الملف السابق الكود بعد التعديل Function absent(x As Range) As Double a = [a2].Value absent = 0 For Each cl In x If cl.Value = a Then i = 1 For k = 1 To 40 If cl.Offset(0, k).Value = a Then i = i + 1 Else If cl.Offset(0, k).Interior.ColorIndex <> xlNone Then GoTo 100 Else: GoTo 200 End If End If 100 Next k 200 If absent < i Then absent = i: i = 0 End If Next End Function تفضلي المرفق بعد التعديلات السابقة A1_Tareq2.rar

السلام عليكم يوجد بالتأكيد أكثر من طريقة أخري بالأكواد أو المعادلات ولكن الأنسب هنا هي الجداول المحورية

السلام عليكم أخي العزيز نقلت لك البيانات كلها في صفحة واحدة وعملت تضبيط طفيف للمعادلة في العمود E واضفت عمود يمثل نقطة البيع وعن طريق الجداول المحورية كما أشرت تم تحليل البيانات تفضل المرفق نسبة التصريف لكل مركز2.rar

السلام عليكم أختي الفاضلة هذه الدالة غير موجودة أصلا بالإكسل لقد تم تصنيعها (إن جاز القول) خصيصا لتناسب طلبك إن فتحتي محرر الفيجوال بيزيك ستجدين الماكرو الخاص بها كالتالي Function absent(x As Range) As Double a = [a2].Value absent = 0 For Each cl In x If cl.Value = a Then i = 1 For k = 1 To 40 If cl.Offset(0, k).Value = a Then i = i + 1 Else If cl.Offset(0, k).Interior.ColorIndex <> xlNone Then GoTo 100 Else: GoTo 200 End If End If 100 Next k 200 If absent < i Then absent = i: cl.Offset(0, k).Interior.ColorIndex = 4: i = 0 Else End If Next End Function

السلام عليكم إرفق مثال ياأستاذ أنا لم أفهم شيء

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

تم الرد علي نفس السؤال هنا http://www.officena.net/ib/index.php?showtopic=33717

السلام عليكم أختنا الفاضلة أرجو أن يكون المرفق هو ماتريدين A1_TAREQ.rar

السلام عليكم المرفق به العمود E لونه أخصر وبه الشرط المطلوب 2رسالة تنبيه.rar

السلام عليكم أختنا الفاضلة تطلبين أنا لاأفهم :لأن بالفعل هذا هو المعمول في الملف الذي ارسلته سابقا في المشاركة #2 المساحات الصفراء بها شرط إدخال عن طريق معادلة التحقق من الصحة المساحة الخضراء بها شرط الإدخال ن يكون فقط ولد او بنت أرجو ان توضحي قليلا

لاأستطيع رفع الملف عالموقع تجده علي هذا الرابط http://www.4shared.com/file/RAFTsNBV/2-1.html

السلام عليكم أخي العزيز في الملف الثاني الكبير ، يوجد اكثر من مليون سطر في شييت الشحن محجوزة بلا داعي وهي من نهاية الجدول إلي آخر سطر للحصول علي آخر سطر إضغط زرين Ctrl+End معا ألغيت لك هذه الأسطر وهذا هو المرفق بدونها مازال كبيرا ولكن محتمل أقل من 2 ميجا سبب آخر: أيضا كثرة العلاقات والبيانات سبب في تضخم حجم الملف

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

السلام عليكم أخي الحبيب ليس مهما أن تتعب نفسك لمعرفة ذلك فقط يمكنك طلب تكرار عملية الإستبدال في الكود 10 مرات مثلا فلن يكون هناك أكثر من ذلك لو دائما الملف الصيغة التي أرسلتها لاحظ أن 10 تعني أنها ستغطي حتي إحتمال أن يكون هناك 512 مسافة فاضية في مكان واحد 1 1 2 2 3 4 4 8 5 16 6 32 7 64 8 128 9 256 10 512 ولن يعطي الماكرو رسائل خطا إذا لم يجد مايستبدله فقط سيقوم بالبحث عنها ولن يجد فلن يغير الكود Sub Macro1() Selection.Replace What:=" ", Replacement:="#", LookAt:=xlPart For i = 1 To 10 Selection.Replace What:="##", Replacement:="#", LookAt:=xlPart Next i End Sub

السلام عليكم أختنا الفاضلة شاهدي المرفق - فيديو Data_Validation.rar

السلام عليكم بالمعادلات يعطى فقط آخر jop no في حالة أن يكون الموظف عمل بأكثر من واحد تم إستدعاء عدد ساعات العمل الرسمية كما هى بورقات الأيام (تستطيع طرح 8 منها لو أردت) تم عمل تحديد بيانات في الخلية الخاصة بالرقم الوظيفي لتسهيل الإختيار تفضل المرفق THE LIST WORK2.rar

السلام عليكم أخي الكريم إرفق ملف كنموذج من عملك ليعطي فكرة عن الأصناف والبيانات التي تريدها مثلا : الكميات - الأسعار - وصف الصنف ؟؟ عموما يوجد بالمنتدي مواضيع في هذا الخصوص وبها أكثر مما تتمني مثل: http://www.officena.net/ib/index.php?showtopic=32220&st=0&p=165230&hl=store&fromsearch=1&#entry165230 أو http://www.officena.net/ib/index.php?showtopic=33628&st=0&p=174955&hl=%E3%CE%C7%D2%E4&fromsearch=1&#entry174955 أو http://www.officena.net/ib/index.php?showtopic=31642&st=0&p=160985&hl=%E3%CE%D2%E6%E4&fromsearch=1&#entry160985 أو http://www.officena.net/ib/index.php?showtopic=28095&st=0&p=135417&hl=%E3%CE%D2%E6%E4&fromsearch=1&#entry135417

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