هادى محمد المامون سالم قام بنشر فبراير 27, 2006 مشاركة قام بنشر فبراير 27, 2006 السلام عليكم ارفقت لكم ملف بطريقه سريعه لادخال البيانات برجاء ابداء الراى Ph.rar رابط هذا التعليق شارك More sharing options...
Almohajeer_2004 قام بنشر مارس 1, 2006 مشاركة قام بنشر مارس 1, 2006 اخانا العزيز hs889 انا من المبتدئين "في الاكسل" وعند اطلاعي على برنامجك اعجبت به جدا.ارجو منك ان توضح لي وللاخوه المبتدئين كيف عملت ال form وربطته بالصفحه.وكيف عملت الزر الموجود بالفورم. وبارك الله بك وجزاك كل خير. رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 1, 2006 الكاتب مشاركة قام بنشر مارس 1, 2006 اخى الكريم ارفقت لك فيلم سريع للشرح اتمنى ان تستفيد منه اما الربط سوف ارسله لاحقا لانى مستعجل الان برجاء ابلاغى بالنتيجه Ex.rar رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 1, 2006 الكاتب مشاركة قام بنشر مارس 1, 2006 نسيت اقول لك ان الملف عباره عن فيلم يشرح الطريقه رابط هذا التعليق شارك More sharing options...
Almohajeer_2004 قام بنشر مارس 1, 2006 مشاركة قام بنشر مارس 1, 2006 جزاك الله كل خير على ردك السريع. شاهدت الشرح .وانها طريقه جميله جدا فهمت الشرح ولكن عندما نسخت من Enter_data الكود وهو في الفورمز.فهي لغة vba وهذا ما اجهله. وقبل عمل الفورم كان هناك فورم اخر باسمEnter_data ؟؟؟؟؟؟؟وفيه الكود؟ وهل الكود بلغة vba ام عن طريق ماكرو تسجيل؟ واين نضع الكود في زر بالفورم؟ ام في sheet.view code؟؟؟؟ او بالاحرى ان توضح ما افتقد من التوضيح السابق ارجو المعزره . رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 2, 2006 الكاتب مشاركة قام بنشر مارس 2, 2006 مش فاهم قصدك برجاء التوضيح رابط هذا التعليق شارك More sharing options...
Almohajeer_2004 قام بنشر مارس 2, 2006 مشاركة قام بنشر مارس 2, 2006 Private Sub Comd_Add_Click() Sheets("list").Select Dim EndRow As Long If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox Prompt:="íÌÈ ÅßãÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = TextBox1.Value Sheets("List").Cells(EndRow + 1, 3).Value = TextBox2.Value Sheets("List").Cells(EndRow + 1, 4).Value = TextBox3.Value TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" MsgBox Prompt:="ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub هذا الكود هو الذي يدخل البيانات من الفورم الى ورقة الاكسيل. وارجو لو تتكرم علينا وتشرح بالمختصر اسطر الكود حتى نستوعب بالفهم وليس لالنقل والشكر سلفا ... رابط هذا التعليق شارك More sharing options...
Almohajeer_2004 قام بنشر مارس 2, 2006 مشاركة قام بنشر مارس 2, 2006 Private Sub Comd_Add_Click() Sheets("list").Select Dim EndRow As Long If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox Prompt:="íÌÈ ÅßãÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = TextBox1.Value Sheets("List").Cells(EndRow + 1, 3).Value = TextBox2.Value Sheets("List").Cells(EndRow + 1, 4).Value = TextBox3.Value TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" MsgBox Prompt:="ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If end Sub] رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 2, 2006 الكاتب مشاركة قام بنشر مارس 2, 2006 (معدل) اخى الكريم : هذا هو شرح الكود Sheets("list").Select Dim EndRow As Long If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox Prompt:="يجب اتمام كافه البيانات", Title:="ÎØÃ" يتم اختيار الشيت الذى سوف يتم التعامل معه "List" اذا لم يتم ادخال بيانات تظهر رساله "يجب اتمام كافه البيانات" EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = TextBox1.Value Sheets("List").Cells(EndRow + 1, 3).Value = TextBox2.Value Sheets("List").Cells(EndRow + 1, 4).Value = TextBox3.Value اذا تم ادخال البيانات يتم الذهاب الى اول سطر فارغ الخليه المختاره = قيمه TextBox1 وهكذا فى TextBox2 و TextBox3 TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" محو بيانات TextBox MsgBox Prompt:="تمت عمليه الترحيل ينجاح", Title:="رساله تاكيد" بعد اتمام العمليه اظهر رساله " تمت عمليه ترحيل البيانات بنجاح " تم تعديل أغسطس 22, 2006 بواسطه hs889 رابط هذا التعليق شارك More sharing options...
Almohajeer_2004 قام بنشر مارس 2, 2006 مشاركة قام بنشر مارس 2, 2006 جزاك الله كل خير.واشكرك على ما قدمته من خدمه. وبقي سؤال .كيف الطريقه بان اتعلم لغة vba لاستعمالها في الاكسيل ؟؟؟ ولك مني كل شكر وتقدير. رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 3, 2006 الكاتب مشاركة قام بنشر مارس 3, 2006 اخى الكريم : طبعا الطريقه العلميه هى الاهم و فى الحاله الاخرى تستطيع ان تنزل الملفات و تعرف الطريقه ماشيه ازاى ثم تحاول تعمل زيها طبعا الموضوع عاوز صبر السلام عليكم رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مارس 9, 2006 مشاركة قام بنشر مارس 9, 2006 كيف يتم تغيير الكود لكي نظيف في جدول التاريخ كلما ادخلنا بيانات ؟ الجدول له عمودان : العدد + تاريخ الادخال رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 9, 2006 الكاتب مشاركة قام بنشر مارس 9, 2006 كيف يتم تغيير الكود لكي نظيف في جدول التاريخ كلما ادخلنا بيانات ؟ الجدول له عمودان : العدد + تاريخ الادخال <{POST_SNAPBACK}> برجاء التوضيح اكثر ما الذى تريد اضافته فى عمود تاريخ ادخال عند عند ادخال عدد ؟ رابط هذا التعليق شارك More sharing options...
ابو الريان قام بنشر مارس 9, 2006 مشاركة قام بنشر مارس 9, 2006 اخي انت رائع رائع رائع رائع وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 10, 2006 الكاتب مشاركة قام بنشر مارس 10, 2006 اخي انت رائع رائع رائع رائع وجزاك الله كل خير <{POST_SNAPBACK}> مشكور يا اخى ابو الريان رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر مارس 12, 2006 مشاركة قام بنشر مارس 12, 2006 شاهد المرفق أخي الكريم، ربما تعجبك بعض الإضافات التي قمت بعملها .. والإختصار للأكواد، __________________________________.rar رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 12, 2006 الكاتب مشاركة قام بنشر مارس 12, 2006 شاهد المرفق أخي الكريم، ربما تعجبك بعض الإضافات التي قمت بعملها .. والإختصار للأكواد، <{POST_SNAPBACK}> هذا التعديل يعتبر شرف لى رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مارس 12, 2006 مشاركة قام بنشر مارس 12, 2006 لقد وجدتها : Sheets("List").Cells(EndRow + 1, 5).Value = Date بارك الله فيك. ---- اخي علي السحيب : شكرا للاضافات ولكن الكود معقد بالنسبة للمبتذئين. نامل ان نتعلم سريعا للاستفادة من خبرتكم. دمتم. رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 19, 2006 مشاركة قام بنشر مارس 19, 2006 استاذنا الفاضل : hs889 دائما انت مبدع ورائع وفعلا كان فيلم الشرح اكثر من رائع . وحقيقة اتمنى ان اعرف الطريقة التي عملتها لعمل هذا الفيلم : برجاء التكرم ان تخدمني في هذا الموضوع : 1- ماهو البرنامج المستخدم 2- طريقة استخدامه بالشرح ولك مني كل الشكر والتقدير وربي يحفظك رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 19, 2006 الكاتب مشاركة قام بنشر مارس 19, 2006 استاذنا الفاضل : hs889 دائما انت مبدع ورائع وفعلا كان فيلم الشرح اكثر من رائع . وحقيقة اتمنى ان اعرف الطريقة التي عملتها لعمل هذا الفيلم : برجاء التكرم ان تخدمني في هذا الموضوع : 1- ماهو البرنامج المستخدم 2- طريقة استخدامه بالشرح ولك مني كل الشكر والتقدير وربي يحفظك <{POST_SNAPBACK}> اخى الكريم اسم البرنامج Snagit 7 الحقيقه انا مش فاكر انا حملته منين ابحث عنه و ان لم تجده اخبرنى وسوف اقوم برفعه لك اما بانسبه لطريقه الاستخدام ما تقلقش اوصل اليه الاول و سوف اشرحه لك السلام عليكم رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 19, 2006 الكاتب مشاركة قام بنشر مارس 19, 2006 اخى الكريم skyblue: لاجل رد الجميل لمنتديات اوفسنا قمت برفع برنامج Snagit 7 على الرابط التالى : http://www.sendspace.com/file/4bf7pb ملحوظات : 1 - ارفقت فيلم يشرح طريقه التحميل 0 2- حجم الملف 10 ميجا تقريبا 0 3 - لم ارفق السيريال حتى لم اضيع تعب غيرى لكن البرنامج شغال 0 قال رسولنا صلى الله عليه وسلم " من صنع إليكم معروفا فكافئوه، فإن لم تجدوا ما تكافئوه به،فادعوا له حتى تروا أنكم قد كافأتموه " السلام عليكم Movie.rar رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 20, 2006 الكاتب مشاركة قام بنشر مارس 20, 2006 الاخوه الكرام : و هذه طريقه اخرى لاستخدام البرنامج تشرح طريقه التحميل بالصوره التاليه قال رسولنا صلى الله عليه وسلم " من صنع إليكم معروفا فكافئوه، فإن لم تجدوا ما تكافئوه به،فادعوا له حتى تروا أنكم قد كافأتموه " السلام عليكم رابط هذا التعليق شارك More sharing options...
حمـدالحمد قام بنشر أبريل 7, 2006 مشاركة قام بنشر أبريل 7, 2006 الاخ / hs889 اولا لك الشكر على هذا المجهود وهو فعلا يهمني واريد استخدامه في عملي ولكن اريد ان اغير الاسم الخاص بصاحب الهاتف واضع فيع اسم العميل مثلا فكيف اغير الاسم ولك الشكر ولجميع المشاركين رابط هذا التعليق شارك More sharing options...
ابوعمر5 قام بنشر أبريل 10, 2006 مشاركة قام بنشر أبريل 10, 2006 مشكور بس وين الملف رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر أبريل 11, 2006 الكاتب مشاركة قام بنشر أبريل 11, 2006 الاخ / hs889اولا لك الشكر على هذا المجهود وهو فعلا يهمني واريد استخدامه في عملي ولكن اريد ان اغير الاسم الخاص بصاحب الهاتف واضع فيع اسم العميل مثلا فكيف اغير الاسم ولك الشكر ولجميع المشاركين <{POST_SNAPBACK}> اخى الكريم : تستطيع تعديل اسماء صاحب الهاتف يالتعديل فى Label بالطريقه التاليه بعد فتح الملف اضغط Alt + F11 تظهر لك الشاشه التاليه دبل كليك على Enter_Data كما هو موضح بالصوره السابقه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.