إبراهيم ابوليله قام بنشر فبراير 24, 2014 قام بنشر فبراير 24, 2014 اخى الجموعى انت تقول المرفق التالي الطباعة به سليمة 100% فطالما ذلك فماذا تريد ممكن التوضيح اكثر
الجموعي قام بنشر فبراير 24, 2014 الكاتب قام بنشر فبراير 24, 2014 اخى الجموعى انت تقول المرفق التالي الطباعة به سليمة 100% فطالما ذلك فماذا تريد ممكن التوضيح اكثر هذا المرفق للتوضيح ليس إلا أنا أريد في ملف نموذج شهادة مدرسية الطباعة تعمل مثل هذا الملف
الجموعي قام بنشر فبراير 24, 2014 الكاتب قام بنشر فبراير 24, 2014 اخى الجموعى شاهد المرفق لقد شاهدت المرفق وطبقت الطريقة فلم تفلح انت قمت بتجريبها وهي فارغة جرب مايلي قم بالطباعة من الفورم ستجد البيانات تم ترحيلها للشيت طباعه هنا قم بالطباعة ستلاحط ان نصف البيانات لم تظهر
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى جرب هذا نموذج لشهادة مدرسية+طباعة.rar
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 اخى الجموعى جرب هذا ماشاء الله عليك هل لي ان اعرف كيف سويت ذلك؟
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى الطريقه بسيطه جدا كل الفكره انى انا كتبت البيانات فى الكود الاول وبعدين من خلال الكود حددت عرض الاعمده وبعدين دخلت على الورقه الى هنقوم بطباعتها وحددت الاسطر الى انا هطبعها عن طري استخدم PAGE BREAK PREVIEW كما تم التوضيح فى المشاركه رقم18أولا 1
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 اخى الجموعى الطريقه بسيطه جدا كل الفكره انى انا كتبت البيانات فى الكود الاول وبعدين من خلال الكود حددت عرض الاعمده وبعدين دخلت على الورقه الى هنقوم بطباعتها وحددت الاسطر الى انا هطبعها عن طري استخدم PAGE BREAK PREVIEW كما تم التوضيح فى المشاركه رقم18أولا شكرا جزيلا وبارك الله فيك ربي يحفظك هل تكرمت لي بشرح هذا الكود Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 هنا يتم استخراج اكبر قيمه فى النطاق من A3الى اخر سطر ثم يتم اضافة 1 على الناتج ثم يتم ترحيل بعد ذلك الى التيكست وذلك من اجل الحصول على رقم التسجيل الذى عليه الدور يعنى لو احنا عندنا اخر تسجيل كان برقم 10 فمن خلال عمل الكود الكود سيجد ان اكبر رقم هو 10 ثم يضيف عليه1 ليصبح11 وبالتالى يكون رقم التسجيل الجديد الذى عليه الدور هو 11 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name هنا ايضا نجد انه من خلال عمل الكود يتم استخراج اسم الشيت النشط الذى يتم التعامل معه هو2003 مثلا ثم يتم اضافة الرقم 1 الى الاسم(2003)ليصبح2004 ثم يتم اضافة / ثم يتم استخراج اسم الشيت النشط 2003 مثلا لتصبح التيكست بوكس الخاصه بالسنه 2003/2004 اخى ارجو ان تلتمس لى العزر فانا لست خبيرا بموضوع الشرح ولكن على قدر فهمى شرح
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 اخى الجموعى Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 هنا يتم استخراج اكبر قيمه فى النطاق من A3الى اخر سطر ثم يتم اضافة 1 على الناتج ثم يتم ترحيل بعد ذلك الى التيكست وذلك من اجل الحصول على رقم التسجيل الذى عليه الدور يعنى لو احنا عندنا اخر تسجيل كان برقم 10 فمن خلال عمل الكود الكود سيجد ان اكبر رقم هو 10 ثم يضيف عليه1 ليصبح11 وبالتالى يكون رقم التسجيل الجديد الذى عليه الدور هو 11 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name هنا ايضا نجد انه من خلال عمل الكود يتم استخراج اسم الشيت النشط الذى يتم التعامل معه هو2003 مثلا ثم يتم اضافة الرقم 1 الى الاسم(2003)ليصبح2004 ثم يتم اضافة / ثم يتم استخراج اسم الشيت النشط 2003 مثلا لتصبح التيكست بوكس الخاصه بالسنه 2003/2004 اخى ارجو ان تلتمس لى العزر فانا لست خبيرا بموضوع الشرح ولكن على قدر فهمى شرح شرح ممتاز أخي إبراهيم بعد فهم الكود قمت بتطبيقه على التكست بوكس 8 Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) تاريخ الخروج: في التكست بوكس ظهرت أرقام أخرى
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى الكود الذى كتبته صحيح ولكن يبقى ان تقوم بعمل فورمات للتيكست بوكس لتأخذ قيمة التاريخ ويتحول محتواها من ارقام الى تاريخ وبالتالى يصبح الكود بالشكل الاتى Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) Me.TextBox8.Value = Format(Me.TextBox8.Value, "dd-mm-yyyy")
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 اخى الجموعى الكود الذى كتبته صحيح ولكن يبقى ان تقوم بعمل فورمات للتيكست بوكس لتأخذ قيمة التاريخ ويتحول محتواها من ارقام الى تاريخ وبالتالى يصبح الكود بالشكل الاتى Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) Me.TextBox8.Value = Format(Me.TextBox8.Value, "dd-mm-yyyy") بارك الله فيك أريد تغيير القيمة التي تظهر في التكست بوكس 2 هي تظهر هكذا 10/10/1985 وأنا اريدها 10-10-1985
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى اليك المعلومه Me.TextBox8.Value = Format(Me.TextBox8.Value, "dd-mm-yyyy") dd-----تشير الى اليوم mm----تشير الى الشهر yyyy-----تشير الى السنه وبذلك اذا قمنا بعمل الفورمات "dd-mm-yyyy" يتم ظهور التاريخ 10-10-1985 اما اذا قمنا بتغير الفورمات الى "yyyy-mm-dd" بذلك يظهر التاريخ 1985-10-10
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 شكرا للتوضيح مزال عندي إستفسار واحد أنا اريد عمل كمبوبوكس جديد مكان التكست بوكس 6 به البيانات التالية ثالثة أداب وعلوم إنسانية ثالثة أداب وعلوم شرعية ثالثة علوم طبيعه وحياه ثالثة تسيير وإقتصاد ثالثة محاسبة بحيث عند إضافة رقم تسجيل جديد البيانات ترحل إلى الشيت وهذا لمساعدتي في عدم كتابة هذه الشعب وعند البحث تظهر البيانات من الشيت فقط
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar 1
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 نعم هذا ما قصدته لكن بشرط الصور في المرفقات توضح ما أقصده
إبراهيم ابوليله قام بنشر فبراير 25, 2014 قام بنشر فبراير 25, 2014 اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar
الجموعي قام بنشر فبراير 25, 2014 الكاتب قام بنشر فبراير 25, 2014 أجل هذا ما قصدته لكن عند البحث القائمة المنسدلة تعمل اريدها لا تعمل مثلا تجد القيمة وعند الضغط عليها تجد الفراغ هل من طريقة لتجريب هذا الكود Me.ComboBox3.Locked = True أو Me.ComboBox3.Enabled = True
إبراهيم ابوليله قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar
الجموعي قام بنشر فبراير 26, 2014 الكاتب قام بنشر فبراير 26, 2014 نعم أخي الكريم بارك الله فيك ربي يحفظك
الجموعي قام بنشر فبراير 26, 2014 الكاتب قام بنشر فبراير 26, 2014 اخى الجموعى هل تقصد هكذا اخي الكريم قمت بإضافة أكواد خاصه بتنسيق ظهور التاريخ فوجهتني هذه المشكله الملف في المرفق نموذج لشهادة مدرسية+طباعة.rar
إبراهيم ابوليله قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 اخى الكريم هل تقصد الخطا الذى كان يحدث عند فتح الفورم شاهد المرفق نموذج لشهادة مدرسية+طباعة.rar
الجموعي قام بنشر فبراير 27, 2014 الكاتب قام بنشر فبراير 27, 2014 اخى الكريم هل تقصد الخطا الذى كان يحدث عند فتح الفورم شاهد المرفق نعم أخي إبراهيم
إبراهيم ابوليله قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 اخى الجموعى هل تم عمل المطلوب ام ماذا تريد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.