طارق محمود

السلام عليكم تفضل أخي الكريم رسم بيانى2.rar

وطبعا بالنسبة للعلمي سيكون زر آخر وكود آخر وسيكون الشيت Sheet5 بدلا من Sheet8

السلام عليكم كود الأدبي بعد التعديل مع شرح Sub Macro2() LR = Sheet8.[C9999].End(xlUp).Row 'في Sheet8 'ستجد أن العمود F ليس به 'بيانات وإنما البيانات بالعمود C ' لذلك استبدلتهما For r = 7 To LR Step 3 ' Step 3 بدلا من Step 4 'لأن الشهادات هنا 3 بالصفحة والأخري 4 [A6] = Sheet8.Cells(r, 1) ' [A6] بدلا من [A7] ' لأن الخلية الخضراء هنا هي 'A6 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub

إخواني وأحبائي وأساتذتي الكرام basem said مجدى يونس خالد القدس حمادة عمر عباس السماوي هانى ابو ادهم ragab65 ابومازن محمود كل من مر وعلق أو لم يعلق لكم مني جزيل الشكر والإحترام

السلام عليكم عفوا أخي الحبيب ولكن لابد أن تعلم أنني لم أسجل الماكرو عن طريق record macro فالطريقة أو التكنيك المستخدم (أقصد به الحلقة) لابد أن تكون علي علم بها أولا ولذلك ، لن يجدي الفيديو أو الصور إن لم تكن ملما ببعض الأوامر والحيل في الفيجوال بيزيك (أقل القليل) أنصحك بقراءة أي دورة في الفيجوال بيزيك (أسبوع علي الأكثر وستجد حالك مختلف كثيرا) إبحث أخي في المنتدي عن تعليم فيجوال بيزيك ستجد عشرات المواضيع مثل http://www.officena....p?showtopic=206 أو http://www.officena....showtopic=32470 أو http://www.officena....showtopic=33308 أو http://www.officena....entry217747 أو http://www.officena....323&hl=دورة تحياتي وأتمني أراك معنا كثيرا إن شاء لله

السلام عليكم أخي العزيز لاتوجد مشكلة - تفضل أخي الملف كـ 2003 لم أفعل شيء غير تغيير الإمتداد ، في وضع حفظ باسم (في اكسل 2010) تسجيل التلاميذ.zip

السلام عليكم ورحمة الله وبركاته اخوانى الأفاضل هذا الموضوع أرسله لي أحد الإخوة (رجب محمد مرسي) وأحببت أن يشارك فيه من أراد ومن له مشكلة مماثلة يسأل أخونا قائلا =================================================== انا جديد في التعامل مع اكسل فلا اسطيع التعامل بشكل مناسب مع اكواد ومعادلات اكسل .. ولله الحمد انا اعرف عمل كود طباعة شهادة ةاحدة وذلك من خلال record macro هل يمكن طباعة جميع الشهادات عن طريق record macro ام لابد من كتابة الماكرو وهذ ما لا اعرفة لانة يحتاج الى vba الرجاء شرح خطوة خطوة في كيفية عمل ذلك عن طريق record macro او اي شئ يكون مفيد بعيدا عن الاكواد ووجع الاكواد ======================================================== وردا عليه أقول نحتاج أخي في هذه الحالة إلي كود بسيط من 5 أسطر فقط وستجد بالمرفق ماتريد مع شيت بآخر الملف به شرح الكود تفضل المرفق شيت كنترول2.zip

جزاك الله خيرا أخي هاني أنا لست محاسبا لكنني أعلم أن هذه ليست طريقة الحساب الصحية المتعارف عليها فقط أنا فهمت ذلك من السائل فلننتظر الأخ السائل / هشام لنري مايريد

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

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

السلام عليكم أخي العزيز مرة أخري الكود مضبوط قم بالتجربة التالية للتأكد بالترتيب التالي 1. غير إسم كود Private Sub Worksheet_Change إلي Private Sub CCCC مثلا ____ فسينتقل تأثير الكود من حدث تغيير الورقة 2. غير محتويات الخلية J6 التي بها تاريخ حديث ، إجعله مثلا 2009 3. إضغط الزر الأزرق ، فلن تجد تغييرا في العمود M 4. أعد إسم كود Private Sub CCCC إلي Private Sub Worksheet_Change 5. إذهب مرة أخري للخلية J6 واضغط F2 وإنتر لتحديث التغيير ثم أخبرني النتيجة

السلام عليكم أخي العزيز الكود مضبوط أذكرك أن الكود ليس في حدث الورقة أي أنه ليس تلقائي التشغيل ، لابد أن تضغط الزر الأزرق مايحدث بالورقة نتيجة كود Private Sub Worksheet_Change غير إسمه مثلا إلي Private Sub Worksheeeet_Change ستجد المشكلة انتهت

السلام عليكم تم استثناء السطر من التحديث في حالة أن العمود 10 يحتوي أرقام وهذا هو الكود Sub WS_Calculate() If Refreshing_M = True Then Exit Sub Refreshing_M = True LR = Sheet1.[B9999].End(xlUp).Row Dim i As Integer For i = 2 To LR ' Just refresh the "M" cell and it will recall what needs to be recalled If Cells(i, 2) = 0 Or IsNumeric(Cells(i, 10)) Then GoTo 10 Cells(i, 13) = Cells(i, 13) 10 Next i Refreshing_M = False End Sub وتم تغيير الكود من حدث الصفحة ليصبح عاديا ومرتبط بالزر الأزرق بالخلية A1 فقط إضغط عليه تفضل المرفق تحديث القيم2.rar

السلام عليكم أخي الكريم إقسم كل رقم من المجموعة علي الإجمالي مع تغيير تنسيق الأرقام في الخلية إلي نسبة مئوية تفضل المرفق لاحظ علامات الدولار قبل مكوني عنوان الإجمالي نسبة مئوية2.rar

السلام عليكم الملف به شيت آخر لشرح التنسيق الشرطي علي مسألتك Cond_Format2.rar

السلام عليكم تم دمج المواضيع الثلاث هنا تفضل المرفق بالتنسيق الشرطي Conditional Format Cond_Format.rar

السلام عليكم أخي العزيز بالمرفق كود سيجعل الختم يتبع الخلية التي بها عبارة "مدير التربية" بشرط ان تكون تلك العبارة في آخر الصف من إحدي الأعمدة الثماني الأولي الكود في حدث الورقة وهو Private Sub Worksheet_Change(ByVal Target As Range) a = Target.Address Shapes("Image 4").Select Selection.Cut For C = 1 To 8 Cells(9999, C).End(xlUp).Select If ActiveCell.Value = "مدير التربية" Then GoTo 10 Next C 10 ActiveSheet.Paste With Selection.ShapeRange .IncrementLeft 8 .IncrementTop -9 End With Range(a).Select End Sub Conv_2013 _Disen_1.rar

السلام عليكم تفضل أخي Private Sub Worksheet_Calculate() If Refreshing_M = True Then Exit Sub Refreshing_M = True LR = Sheet1.[B9999].End(xlUp).Row Dim i As Integer For i = 2 To LR ' Just refresh the "M" cell and it will recall what needs to be recalled If Cells(i, 2) = 0 Then GoTo 10 Cells(i, 13) = Cells(i, 13) 10 Next i Refreshing_M = False End Sub إذا لم يعمل ، أرسل الملف كاملا

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

السلام عليكم تفضل المرفق bem_2013_2.rar

السلام عليكم أخي العزيز أرجو أن يكون المرفق هو ماتريد استخدمت به الأكواد التالية (ليس لها حاجة الآن ، فقط للتعلم) Sub Macro1() ' بعد نسخ جميع البطاقات ' هذا الكود لعمل فاصل صفحات بعد كل بطاقة For i = 1 To 150 Range("A" & i * 28 + 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Next End Sub Sub Macro2() ' وهذا الكود لتغيير عنوان البطاقة لجميع الـ 150 صنف For i = 1 To 150 n = Sheet1.Cells(i, 12) Range("A" & i * 28 - 20).Value = "بطاقة صنف / للمعادن {" & n & "}" Next End Sub Sub Macro3() ' وهذا الكود يتم تشغيله من الورقة الأولي لعمل اللينكات كل خلية مع عنوان البطاقة التي بها الرقم For r = 4 To 162 Cells(r, 1).Select If IsEmpty(Selection) Then GoTo 10 x = "{" & ActiveCell.Value & "}" With Sheet2 a = .Cells.Find(What:=x, After:=[A1], LookIn:=xlFormulas, LookAt:=xlPart).Row End With lnk = "'" & Sheet2.Name & "'!A" & a ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=lnk 10 Next End Sub مبيعات ومخازن2013_2.rar

السلام عليكم أخي وأستاذي ومعلمي / عبدالله باقشير مروركم شرف عظيم جزاكم الله خيرا

السلام عليكم الإسم new_table هو إسم أنا أطلقته علي المجال A6:B586 عامة إذا ضغطت Ctrl-F3 في أي ملف إكسل ستجد قائمة بالنطاقات التي تم تسميتها بالملف

السلام عليكم ورحمة الله وبركاته اخوانى الأفاضل هذا الموضوع أرسله لي أحد الإخوة (هشام العشرى) وأحببت أن يشارك فيه من أراد ومن له مشكلة مماثلة يسأل أخونا =================================================== ارجو مساعدتى فى مشكله توزيع الايراد مشابهه لمشكله تم حلها سابقا اقوم بحسابات نادي للجيم الخاص الجيم بدا العمل فى 7-9-2012 والمشكله لدى تكمن فى الاتى يتمثل الايراد فى الاشتراكات التى تحصل من الاعضاء فكيف اقوم احتساب قيمة الايراد من هذه الاشتركات (الايرادات المقدمه )فى ظل الفروض الاتيه اولا :ـ كل يوم اشتراكات جديده على مدار الشهر ثانيا :ـ بعض الاشتراكات عن يوم او نصف شهر او شهر اوثلاثة اشهر او سنه (كلها محدده البدايه والنهاية لكل اشتراك ) ثالثا :ـ والمشكله هى انى كل نهاية شهر اريد ان اعرف قيمة الايراد المحقق من هذه الايرادات المقدمة رابط المشكلة المشابهه http://www.officena....798 ============================================== أخي الفاضل / هشام العشرى تفضل الملف المرفق به تعديل للملف بالمشكلة المشابهه ليناسب طلباتك وتركت به المثال القديم لأن به شرح المعادلة المستخدمة حسابات الجيم.zip

السلام عليكم أخي العزيز بالمرفق ، اجريت تعديلات طفيفة 1. المجموع أصبح بمعادلة 2. إذا كان عدد أيام الشهر لايساوي 31 فستختفي أوتوماتيكيا الأايام الباقية أسفل الجدول (بالتنسيق الشرطي) 3. إذا تغير أي من الخلايا B2 أو B3 سيتم محو البيانات تفضل المرفق Book14_2.rar