يوسف عطا

للرفع رفع الله قدركم

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

للرفع رفع الله قدركم

أخونا الغالى ياسر بك تحية طيبة تفضل مرفق به الشكل المطلوب بالطريقة اليدوية فى عمود و ناتج المعادلة فى عمود مجاور و عمود ثالث يوضح تطابق أو إختلاف الناتجين و الف شكر مقدماً يوسف فبراير2016.rar

كفيت ووفيت يا أستاذنا الكبير ياسر بك المعادلة الأخيرة حلت أغلبية الأمور ولكن الخطأ عندى لعدم توضيح أمر صغير هو أن بالعمود المذكور يكون الرقم أحياناً بالكيلوبايت هكذا 560 KBs وهنا المعادلة تستخرج الرقم 56 و المفترض أنه يكون 1 لأنه أقل من 1 صحيح حيث أن القيمة هذه تعتبر حوالى نصف ميجابايت فهل يمكن التعامل مع الخلية التى تحتوى على حروف KBs كأنها رقم 1 تحت أى ظروف ؟ أم ماذا أفعل فى هذه الحالة ؟؟ ولا ضرر أن يكون ناتج المعادلة يحتوى على كسر عشرى حيث يمكن بالتنسيق بالخلية أن يتم تجاهل العلامة العشرية و كسرها

جارى التجربة الف شكر مقدماً

بالفعل بعد تغيير الفاصلة بالفاصلة المنقوطة اصبحت المعادلة تعمل جيدا لكن ليس هذا ما اريده حيث تظل النتيجة بهذه الصيغة 1:00 و المطلوب ان تكون النتيجة رقم صحيح بدون ( 00:) حيث سيتم بعد ذلك ضرب الرقم فى رقم اخر ثم سيتم الجمع بعد ذلك ومرفق ملف اوضح مع خالص شكرى Vodafone1.rar

الف شكر أخونا الغالى ياسر بك على الترحيب ولم يمنعنى عن المنتدى و كذلك منتديات أخرى سوى مشغوليات العمل ربنا يعيننا جميعاً عليها و أتمنى أن تكون أنت وجميع الأخوة الأفاضل بكل خير بخصوص المعادلات المذكورة جارى التجربة و أشكر لك إهتمامك وفقك الله بخصوص المعادلة الأولى يا أستاذنا ياسر بك تطلعلى رسالة تقول إن يوجد خطأ فى المعادلة علماً بأنى أعمل على أوفيس 2003 وربما تكون المعادلة صالحة للإصدارات الأعلى لكنى لا أعمل إلا على 2003 فهل يوجد حل ؟ أشكر لك إهتمامك

للرفع رفع الله قدركم

المنازل و الخدمات يمتحنون فى الحاسب الآلى تحريرياً وليس لهم إمتحان عملى

للأسف ليس لى خبرة ببرامج شروحات بالفيديو

يوجد عمود يحتوى على أرقام و نص بهذا الشكل 01:00 MIN 08:00 MIN 1 SMS وهو يعبر عن عدد الدقائق و الرسائل و لن يكون به كسور دقائق هذا العمود لا أستطيع جمع إجمالى خلاياه المطلوب معادلة تجعل هذه الأرقام قابلة للجمع حتى لو حذفنا النص المجاور للرقم فتكون ال ثلاث خلايا السابقة تصبح 1.0 8.0 1 ولا يشترط وضع الكسور ويكفى الرقم الصحيح و الملف مرفق فودافون أحمد الرفاعى.rar

راجع الرابط التالى وإن شاء الله تجد ما تريد http://www.officena.net/ib/index.php?showtopic=43776&st=20

لإثراء الموضوع إذا كنت تريد أخذ نسخة من ورقة أو بعض الأوراق من ملف لملف آخر 1. كليك يمين على علامة تبويب الورقة 2. نقل أو نسخ 3. علم على إنشاء نسخة 4. إختار مصنف جديد من القائمة المنسدلة 5. إذا لم تضع علامة فى التشيك بوكس سوف يتم نقل الورقة 6. إذا كنت تريد وضع الورقة فى مصنف آخر سابق حفظه إفتحه قبل الخطوة الأولى وستجده ضمن القائمة المنسدلة إذا كنت تريد أخذ نسخة من الملف بالكامل بالإضافة لما قاله أخونا الغالى عباد يمكنك أخذ نسخة من الملف عن طريق كليك يمين ثم نسخ ثم لصق والملف مغلق إذا كان الملف محمى من النسخ إفتح ملف إيكسيل وإرفع مستوى الأمان إفتح الملف المطلوب نسخه إستخدم طريقة أخى عباد حفظ بإسم بعد الحفظ أعد مستوى الأمان لما كان عليه حتى تعمل الأكواد أتعشم تكون إجابتى وافية

هل الاوفيس انجليزى أم فرنسى ؟؟

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

محمود باشا العمل رائع جداً جعله المولى فى موازين حسناتك وإسمح لى بطرح أفكار للتطوير 1. إضافة أعمدة لمادة الأنشطة الإختيارية والمفروض أن الطالب يختار مادتين فقط منها وهى 8 مواد على حد علمى والمفروض أن يتم توزيع الطلبة على الفصول بناء على مواد الأنشطة الإختيارية حتى يكون طلاب كل مجموعة فصول مشتركين فى نفس الأنشطة وقد يتبقى فى الآخر فصل أو فصلين تكون فيهما الأنشطة متعددة حسب الإحصائيات لكل الفصول 2. عند الأبجدة يقوم الماكرو بفتح ملف وورد ونقل جدول البيانات إليه لأن الابجدة بالإيكسيل لا تعطى نتائج سليمة خاصة فى الأسماء التى تبدأ بحرف الألف سواء بهمزة فوق أو همزة تحت أو بدون همزة بينما الوورد يقوم بالأبجدة سليمة تماماً وبالطبع أنت تعرف أن الوورد برنامج لمعالجة النصوص أما الغيكسيل فبرنامج للحسابات فى المقام الأول ولهذا فبالإيكسيل بعض القصور فى عملية الأبجدة يتلافاها الوورد 3. إضافة خانة لإسم رائد الفصل فى القوائم تأخذ البيانات من جدول رواد الفصول الذى يمكن إضافة شيت خاص به يتم ملئ بياناته أثناء التمهيد للقوائم والله الموفق والمستعان

الف شكر

الأخ الحديثة الدالة بالطريقة التى كتبتها سيادتكم تعطى خطأ لوجود علامة + يفضل إستخدام دالة sum مع تحديد الخلايا بالماوس أثناء الضغط على زر كنترول أى لتجنب ظهور علامة الإرور فى ناتج الجمع يفضل أن تكون الدالة بهذا الشكل =CEILING(SUM(S12;Y12;AE12;AM12;AU12;BA12;BI12);0.5) وسوف يكون ناتج جمع غ + غ + غ إلخ غ هو صفر أما إذا أردت أن يكون ناتج جمع غ + غ + غ + غ إلخ غ هو غ فيمكن إستخدام المعادلة دى =IF(AND(S12="غ";Y12="غ";AE12="غ";AM12="غ";AU12="غ";BA12="غ";BI12="غ");"غ";CEILING(SUM(S12;Y12;AE12;AM12;AU12;BA12;BI12);0.5)) أرجو أكون أفدتك ويمكن أن تكون الدالة هكذا

الشكر لك استاذنا عباد على إعادة رفع الملف والشكر موصول لصاحب الدار أخونا الغالى الحسامى

صباح الخيرات أخوتى الغاليين دمتم بود لازلت فى إنتظار الحل

أخى كوماندوز تفضل هذا الملف وأعتقد أنه يلبى إحتياجك كما أنه مرن سهل التعديل عليه ويحقق عدد من المميزات كود الترحيل للفصول من شيت السجل يرحل لعدد 22 فصل وكل فصل 60 طالب كما يخرج إحصاء بعدد الطلبة فى كل فصل ويستخرج إحصاء بطلاب الفصل الواحد حسب الديانة وحالة القيد أتمنى يحقق مرادك Sub ترحيل_فصول() Dim Z As Integer, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer, G As Integer, H As Integer, I As Integer, J As Integer, K As Integer, L As Integer, M As Integer, N As Integer, O As Integer, P As Integer, Q As Integer, R As Integer, S As Integer, T As Integer, U As Integer, V As Integer Sheets("1").Range("A7:DZ5000").ClearContents Sheets("2").Range("A7:DZ5000").ClearContents Sheets("3").Range("A7:DZ5000").ClearContents Sheets("4").Range("A7:DZ5000").ClearContents Sheets("5").Range("A7:DZ5000").ClearContents Sheets("6").Range("A7:DZ5000").ClearContents Sheets("7").Range("A7:DZ5000").ClearContents Sheets("8").Range("A7:DZ5000").ClearContents Sheets("9").Range("A7:DZ5000").ClearContents Sheets("10").Range("A7:DZ5000").ClearContents Sheets("11").Range("A7:DZ5000").ClearContents Sheets("12").Range("A7:DZ5000").ClearContents Sheets("13").Range("A7:DZ5000").ClearContents Sheets("14").Range("A7:DZ5000").ClearContents Sheets("15").Range("A7:DZ5000").ClearContents Sheets("16").Range("A7:DZ5000").ClearContents Sheets("17").Range("A7:DZ5000").ClearContents Sheets("18").Range("A7:DZ5000").ClearContents Sheets("19").Range("A7:DZ5000").ClearContents Sheets("20").Range("A7:DZ5000").ClearContents Sheets("21").Range("A7:DZ5000").ClearContents Sheets("22").Range("A7:DZ5000").ClearContents A = 7: B = 7: C = 7: D = 7: E = 7: F = 7: G = 7: H = 7: I = 7: J = 7: K = 7: L = 7: M = 7: N = 7: O = 7: P = 7: Q = 7: R = 7: S = 7: T = 7: U = 7: V = 7 Application.ScreenUpdating = False For Z = 2 To 5000 If Cells(Z, 5) = "1" Then Range("A" & Z).Resize(1, 22).Copy Sheets("1").Range("A" & A).PasteSpecial xlPasteValues Application.CutCopyMode = False A = A + 1 End If If Cells(Z, 5) = "2" Then Range("A" & Z).Resize(1, 22).Copy Sheets("2").Range("A" & B).PasteSpecial xlPasteValues Application.CutCopyMode = False B = B + 1 End If If Cells(Z, 5) = "3" Then Range("A" & Z).Resize(1, 22).Copy Sheets("3").Range("A" & C).PasteSpecial xlPasteValues Application.CutCopyMode = False C = C + 1 End If If Cells(Z, 5) = "4" Then Range("A" & Z).Resize(1, 22).Copy Sheets("4").Range("A" & D).PasteSpecial xlPasteValues Application.CutCopyMode = False D = D + 1 End If If Cells(Z, 5) = "5" Then Range("A" & Z).Resize(1, 22).Copy Sheets("5").Range("A" & E).PasteSpecial xlPasteValues Application.CutCopyMode = False E = E + 1 End If If Cells(Z, 5) = "6" Then Range("A" & Z).Resize(1, 22).Copy Sheets("6").Range("A" & F).PasteSpecial xlPasteValues Application.CutCopyMode = False F = F + 1 End If If Cells(Z, 5) = "7" Then Range("A" & Z).Resize(1, 22).Copy Sheets("7").Range("A" & G).PasteSpecial xlPasteValues Application.CutCopyMode = False G = G + 1 End If If Cells(Z, 5) = "8" Then Range("A" & Z).Resize(1, 22).Copy Sheets("8").Range("A" & H).PasteSpecial xlPasteValues Application.CutCopyMode = False H = H + 1 End If If Cells(Z, 5) = "9" Then Range("A" & Z).Resize(1, 22).Copy Sheets("9").Range("A" & I).PasteSpecial xlPasteValues Application.CutCopyMode = False I = I + 1 End If If Cells(Z, 5) = "10" Then Range("A" & Z).Resize(1, 22).Copy Sheets("10").Range("A" & J).PasteSpecial xlPasteValues Application.CutCopyMode = False J = J + 1 End If If Cells(Z, 5) = "11" Then Range("A" & Z).Resize(1, 22).Copy Sheets("11").Range("A" & K).PasteSpecial xlPasteValues Application.CutCopyMode = False K = K + 1 End If If Cells(Z, 5) = "12" Then Range("A" & Z).Resize(1, 22).Copy Sheets("12").Range("A" & L).PasteSpecial xlPasteValues Application.CutCopyMode = False L = L + 1 End If If Cells(Z, 5) = "13" Then Range("A" & Z).Resize(1, 22).Copy Sheets("13").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 End If If Cells(Z, 5) = "14" Then Range("A" & Z).Resize(1, 22).Copy Sheets("14").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 End If If Cells(Z, 5) = "15" Then Range("A" & Z).Resize(1, 22).Copy Sheets("15").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False O = O + 1 End If If Cells(Z, 5) = "16" Then Range("A" & Z).Resize(1, 22).Copy Sheets("16").Range("A" & P).PasteSpecial xlPasteValues Application.CutCopyMode = False P = P + 1 End If If Cells(Z, 5) = "17" Then Range("A" & Z).Resize(1, 22).Copy Sheets("17").Range("A" & Q).PasteSpecial xlPasteValues Application.CutCopyMode = False Q = Q + 1 End If If Cells(Z, 5) = "18" Then Range("A" & Z).Resize(1, 22).Copy Sheets("18").Range("A" & R).PasteSpecial xlPasteValues Application.CutCopyMode = False R = R + 1 End If If Cells(Z, 5) = "19" Then Range("A" & Z).Resize(1, 22).Copy Sheets("19").Range("A" & S).PasteSpecial xlPasteValues Application.CutCopyMode = False S = S + 1 End If If Cells(Z, 5) = "20" Then Range("A" & Z).Resize(1, 22).Copy Sheets("20").Range("A" & T).PasteSpecial xlPasteValues Application.CutCopyMode = False T = T + 1 End If If Cells(Z, 5) = "21" Then Range("A" & Z).Resize(1, 22).Copy Sheets("21").Range("A" & U).PasteSpecial xlPasteValues Application.CutCopyMode = False U = U + 1 End If If Cells(Z, 5) = "22" Then Range("A" & Z).Resize(1, 22).Copy Sheets("22").Range("A" & V).PasteSpecial xlPasteValues Application.CutCopyMode = False V = V + 1 End If Next For Y = 1 To 22 Sheets(Y).[a7] = 1 rrw = Sheets(Y).[A3000].End(xlUp).Row For Each cc In Sheets(Y).Range("a8:A" & rrw) cc.Value = cc.Offset(-1, 0) + 1 Next cc Next Y MsgBox ("الحمد لله تـــم ترحيل الطالبات كل إلى فصلها طبقاً للإحصاء التالى ") For X = 1 To 22 Y = Sheets(X).[A3000].End(xlUp).Row - 6 mssg = mssg & Chr(10) & Format(Y, "00") & " طالبة بفصل رقم : " & X Sheets(X).Select Range("A37:S100").Copy Range("G7").Select ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats Range("A37:F100").ClearContents Range("M1:S3").Select Selection.Copy Range("C38").Select ActiveSheet.Paste Range("A1").Select Application.CutCopyMode = False Next X MsgBox (" تم ترحيل عدد" & mssg) Range("A1").Select Application.ScreenUpdating = True End Sub قوائم فصول22 فصل.rar

صباح الخيرات أخونا الغالى جمال بك تقبل تحياتى

لا يمكن ذلك إلا لو تم توثيق الأكواد فى أحد مواقع توثيق الأكواد ولا أعرف إن كان ذلك يتم مجاناً أو بمقابل

للرفع