مختار حسين محمود

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

الف مبروك للأستاذ يحيى حسين جزاك الله كل خير أخى وأستاذى الغالى أبا البراء

لك جزيل الشكر والعرفان و جعل عملك مباركا فيه و فى ميزان حسناتك بداية أشكرك على المساهمة الفعالة و أنا كنت متأكد أن كود التعبئة ده مش هيخلصه غيرك ثانيا أعرف أن الدمج مشكلة لكن الشكل مش مهم المهم هو النتيجة والنتيجة رائعة أخى الغالى عذرا فيه طلب تانى : تعبئة جداول الفصول اليوم فيه صفين من فوق المادة ومن تحت اسم المعلم مع خالص تحياتى

السلام عليكم بعد اذن أستاذى الغالى ياسر أخى خالد جرب الطريقة دى Sub delActiveRowallSheets() 'delete Active Rows in all Sheets then Un select Row Dim ws As Worksheet, bdel As Boolean On Error Resume Next bdel = True For Each ws In Worksheets With ws .Select bdel .Rows(ActiveCell.Row).EntireRow.Delete End With Application.Goto ActiveSheet.Cells(9, 1) bdel = False Next ws End Sub

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

أولا شكرا على الدعاء الطيب ولكى مثله ان شاء الله ثانيا اجابة السؤال الاول نعم يمكن عمل فورم لكل مادة والرصد من خلالها مثل الرصد على الشيت مباشرة ثالثا الحدث ليس بالاهمية الكبيرة لكن مفيد بعرفك على آخر تعديل قمت به ومكانه التكست بوكس اللى تحته مفيد فى تعديل خلية بسرعة من خلال وضع العنوان والقيمة لتوفير الوقت والجهد على المستخدم فى عمل سكرول يمين وشمال وفوق وتحت خلال الصفحة بطولها وعرضها اتجاه الجدول يتم من خلال تغيير طريقة تعبئة الشبكة بكود اليوزرفورم لست جاهزا الان للتعديل طريقة العمل وضحتها لك فى مشاركتى السابقة باختصار عمل اسم لنطاق من الخلايا ووضع الاسم فى كود الفورم فى أسطر بعينها تحياتى

السلام عليكم ورحمة الله وبركاته المطلوب : اخوتى فى المنتدى حاليا أقوم بعمل جدول حصص لمدرستى صباحى فقط للصفوف الاول والرابع والخامس والسادس فى كل فرقة 5 فصول توزيع الحصص فى الجدول يدوى ( حتى الآن تجنبا لعوامل كثيرة ) يتم تعبئة الجدول بالمواد والمدرسين من خلال : 1- قائمة منسدلة ( مع امكانية الادخال المتعدد ) 2- أو يوزرفورم ( مع امكانية الادخال المتعدد ) اقتبست طريقة الفاضل عبدالله باقشير فى انشاء جدول لكل فصل وجدول لكل معلم تبقى أمامى تعبئة جداول الفصول وجداول المدرسين ( لم أستعن بطريقة الأستاذ عبدالله لاختلاف تصميم الجدول ) الآن جاء دوركم فى المساعدة أنا جدا ومنتظر المساعدة بأى حل معادلات أكواد فول وفلافل أى حاجة وخلاص . النقطة المهمة التى أدور حولها الآن الحصص المشتركة بين 2 او 3 مدرسين المطلوب ترحيل الحصة المنفردة لصاحبها فقط أما الحصة المشتركة ترحل الى جدول كل مدرس المزيد من التوضيح داخل المرفق مع خالص تحياتى Test 9.rar

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

أختى الكريمة حاولت التطبيق على ملفك شيت سجل الرصد لكن يفلح الامر لأنه كما قلت لك كمية البيانات فى الشيت ضخمة 200 صف x اكتر من 237 عمود لذلك قمت بعمل نموذج مصغر اليك طريقة العمل : تحديد نطاق البيانات المراد التعامل معه وتسميته باسم Mydata عدد 2 Class Module باسم Class3 و Class4 كما هما بدون تعديل وبنفس الاسم كود استدعاء الفورم بنعمل فيه تعديلات حسب الحاجة كاسم النطاق و عدد خلايا الشبكة التى تظهر فى صفحة MultiPage فى كود الفورم تعليقات بسيطة على السطور المهمة والتى يمكن تعديلها حسب الرغبة والحاجة عند تشغيل الفورم سوف يظهر النطاق Mydata فى MultiPage داخل الشبكة يمكن عمل سكرول لاستعراض البيانات كما يمكن وضع المؤشر فى اى خلية بالشبكة و تعديلها عند الضغط okay سوف تتغير الخلية فى الشيت كما يمكن وضع المؤشر فى التكست بوكس و تعديل العنوان ( بتغيير رقم الصف أو العمود ) ثم الضغط على get لمعرفة قيمتها أو set للتعديل آى استفسار تحت أمرك مع خالص تحياتى show data from-spreadsheet in MultiPage for updatting.rar

جزاك الله خيرا آخى الغالى على ما تقدمه لاخوانك على طبق من ذهب تحياتى

متأسف على تأخر الرد مشغول جدا فى جدول المدرسة سأحاول تطبيق الفكرة على المرفق خاصتك فى أقرب وقت تحياتى

بارك الله فيك اخى على مشكور على مرورك الكريم على ها الموضوع المتواضع تحياتى

أستاذى الغالى أنا من أشكرك على دعمك و تشجيعك المستمر المتواصل ومتنساش عشان أقدر أواصل لازم آخد كل فترة كده فاصل تحياتى

السلام عليكم ورحمة الله وبركاته أعرض عليكم كودا ( منقولا من أحد المنتديات الأجنبية مع التعديل لملائمة الهدف ) يمكن استخدام الكود فى نسخ صورة من اميج باليوزرفورم الى أى مكان تحدده بالهارديسك الصورة يتم تصديرها الى الهارديسك بامتداد jpg الكود Option Explicit Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&) Private Declare Function CloseClipboard& Lib "user32" () Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&) Private Sub ImageCopy() ' المتغيرات Dim MyPic As StdPicture, MyPicName As String, xCopy Set MyPic = Me.Image1.Picture ' حدد اسم الاميج الذى يحتوى الصورة MyPicName = "H:\YasserKhalil.jpg" ' حدد اسم و مسار التخزين على الهارديسك ' فتح الذاكرة العشوائية OpenClipboard 0 'تفريغ الذاكرة من البيانات EmptyClipboard ' نسخ الصورة الى الذاكرة xCopy = SetClipboardData(2, MyPic.Handle) ' اغلاق الذاكرة CloseClipboard ' شرط : فى حالة وجود الصورة بالذاكرة If xCopy Then ' جواب الشرط : حفظ الصورة المحددة بالمسار المحدد SavePicture MyPic, MyPicName ' انهاء جملة الشرط End If ' تفريغ الذاكرة DestroyIcon MyPic.Handle Set MyPic = Nothing ' رسالة بانتهاء المهمة MsgBox "Mr.YasserKhalil Your's Picture Saved On (" & MyPicName & ")" End Sub استدعاء الكود ImageCopy يتم عن طريق CommandButton فى الفورم Private Sub CommandButton1_Click() ImageCopy End Sub مع خالص نحياتى picture from UserForm to a drive.rar

أخى الكريم أفهم أنه يروقك استعراض البيانات داخل الــ MultiPage لكن مسألة تعديل البيانات بمثل هذه الطريقة أرى أنها طريقة غير مجدية من وجهة نظرى المتواضعة ملفك به عدد كبير من البيانات الخاصة بعدد كبير من الطلاب فى المقابل الفورم ليس به الا عدد 2 TextBox فقط للحصول على قيمة خلية واحدة فقط وتعديلها حتى وان أضفت عدد كبير من الـ TextBoxs لتعديل البيانات لا أرى أن هذه طريقة مجدية فى تعديل بعض الخلايا وسط كم هائل من البيانات مع كامل احترامى لشخصكم الكريم

نظرة سريعة بدون تفحص للملف الملف عبارة عن اظهار نطاق محدد من شيت محدد فى MultiPage (كنترول من كنترولات الفورم ) مع امكانية تعديل خلايا نطاق محدد فى الشيت يتم ذلك من خلال اكواد ودالات معرفة و Class Module بالنسبة لطريقة العمل : سأترك ذلك للمتخصصين فى الفورم فاذا كنت تريد تعديلا على الملف اذكره أو ان كنت تريد التطبيق على ملف جديد أرفقه وستجد المساعدة ان شاء الله مع خالص التحية والتقدير

رائع دائما و دائما رائع ت ح يا ت ى

اخى محمد آخر ما توصلت اليه فى الوقت الراهن وحتى لا ندخل فى متاهات جديدة الاستغناء عن اضافة السطر الفارغ نهائيا و الاستغناء عن كود اعادة الفاتورة الى الحجم الاصلى المرفق التالى يتيح لك اضافة حتى 100 صنف فى النطاق E10 : E110 تم اضافة تعليمة برمجية صغيرة الى كود اضافة البيانات من الفورم الى الفاتورة تتمثل فى اخفاء الصفوف الفارغة التى تلى آخر صنف فى الفاتورة مع اظهار اجمالى الفاتورة فى نهاية الفاتورة الحل في حجم ورقة الفاتورة 7.rar

و عليكم السلام اخى محمد لا ازعاج بالنسبة لى على الاطلاق سأحاول البحث عن طريقة أخرى لتلافى ذلك أو يتقدم أحد الأخوة بحل آخر يناسبك مع خالص تحياتى

و عليكم السلام و رحمة الله وبركاته يبدو أنك نسيت ترفع الملف

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

اخوتى الاحبة أى ادخال بيانات أو أى تعديل فى بيانات الخلية E 69 وما بعدها سيضيف سطر فارغ جديد طبقا للكود بعنى لو ادخلت اسم الصنف فى E69 سيتم اضافة سطر فارغ لو رجعت تعدل اسم الصنف فى E69 سيتم اضافة سطر اخر عندها سيكون عندك 2 سطر فارغ وبالتالى تتكرر معادلة جمع النطاق المتغير فى الخلية وهو ما اشار اليه اخونا سمير

اخى الفاضل أولا جربت ملفك المرفق لم اجد ما تقول ثانيا شرط اضافة السطر الفارغ فى الكود هو : ادخال بيانات فى الخلية E69 او أى خليه بعدها If Target.Column = 5 And Target.Row >= 69 Then If Len(Target.Value) > 0 Then Target.Offset(1).EntireRow.Insert , CopyOrigin:=xlFormula Range("E" & Rows.Count).End(xlUp).Offset(2, 4).Formula = "=SUM(INDIRECT(""i10:""&ADDRESS(ROW()-1,COLUMN(),4)))" Range("E" & Rows.Count).End(xlUp).Offset(5, 4).Formula = "=SUM(INDIRECT(ADDRESS(ROW()-3,COLUMN(),4)&"":""&ADDRESS(ROW()-2,COLUMN(),4)))-(INDIRECT(ADDRESS(ROW()-1,COLUMN(),4)))" End If End If وبصورة اخرى أى ادخال بيانات فى اى خلية من E10 و حتى E68 لن يترتب عليه اضافة سطر فارغ راجع الملف مرة اخرى و على الزملاء تجربة الملف والحكم عليه تحياتى

الله الله عليك يا ابو العربى المصطبة فيها شغل جامد اهوه ربنا يجعلها مصطبة خير دايما

الاخ على حيدر مشكور على اسهاماتك والكود الجميل الاخ ميدو الكود التالى ينتج أوراق عمل بعدد أيام الشهر مع مراعاة عدد أيام فبراير فى السنة البسيطة والكبيسة مع مراعاة عدد أيام باقى الشهور 30 أم 31 يوما كما ان اسم الورقة عبارة عن ولا أقولك حمل المرفق وشوف اوراق عمل بعدد ايام االشهر الذى تحدده.rar