هادى محمد المامون سالم قام بنشر فبراير 27, 2006 قام بنشر فبراير 27, 2006 السلام عليكم ارفقت لكم ملف بطريقه سريعه لادخال البيانات برجاء ابداء الراى Ph.rar
Almohajeer_2004 قام بنشر مارس 1, 2006 قام بنشر مارس 1, 2006 اخانا العزيز hs889 انا من المبتدئين "في الاكسل" وعند اطلاعي على برنامجك اعجبت به جدا.ارجو منك ان توضح لي وللاخوه المبتدئين كيف عملت ال form وربطته بالصفحه.وكيف عملت الزر الموجود بالفورم. وبارك الله بك وجزاك كل خير.
هادى محمد المامون سالم قام بنشر مارس 1, 2006 الكاتب قام بنشر مارس 1, 2006 اخى الكريم ارفقت لك فيلم سريع للشرح اتمنى ان تستفيد منه اما الربط سوف ارسله لاحقا لانى مستعجل الان برجاء ابلاغى بالنتيجه Ex.rar
هادى محمد المامون سالم قام بنشر مارس 1, 2006 الكاتب قام بنشر مارس 1, 2006 نسيت اقول لك ان الملف عباره عن فيلم يشرح الطريقه
Almohajeer_2004 قام بنشر مارس 1, 2006 قام بنشر مارس 1, 2006 جزاك الله كل خير على ردك السريع. شاهدت الشرح .وانها طريقه جميله جدا فهمت الشرح ولكن عندما نسخت من Enter_data الكود وهو في الفورمز.فهي لغة vba وهذا ما اجهله. وقبل عمل الفورم كان هناك فورم اخر باسمEnter_data ؟؟؟؟؟؟؟وفيه الكود؟ وهل الكود بلغة vba ام عن طريق ماكرو تسجيل؟ واين نضع الكود في زر بالفورم؟ ام في sheet.view code؟؟؟؟ او بالاحرى ان توضح ما افتقد من التوضيح السابق ارجو المعزره .
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 هذا الكود هو الذي يدخل البيانات من الفورم الى ورقة الاكسيل. وارجو لو تتكرم علينا وتشرح بالمختصر اسطر الكود حتى نستوعب بالفهم وليس لالنقل والشكر سلفا ...
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]
هادى محمد المامون سالم قام بنشر مارس 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
Almohajeer_2004 قام بنشر مارس 2, 2006 قام بنشر مارس 2, 2006 جزاك الله كل خير.واشكرك على ما قدمته من خدمه. وبقي سؤال .كيف الطريقه بان اتعلم لغة vba لاستعمالها في الاكسيل ؟؟؟ ولك مني كل شكر وتقدير.
هادى محمد المامون سالم قام بنشر مارس 3, 2006 الكاتب قام بنشر مارس 3, 2006 اخى الكريم : طبعا الطريقه العلميه هى الاهم و فى الحاله الاخرى تستطيع ان تنزل الملفات و تعرف الطريقه ماشيه ازاى ثم تحاول تعمل زيها طبعا الموضوع عاوز صبر السلام عليكم
أبو عبد النور قام بنشر مارس 9, 2006 قام بنشر مارس 9, 2006 كيف يتم تغيير الكود لكي نظيف في جدول التاريخ كلما ادخلنا بيانات ؟ الجدول له عمودان : العدد + تاريخ الادخال
هادى محمد المامون سالم قام بنشر مارس 9, 2006 الكاتب قام بنشر مارس 9, 2006 كيف يتم تغيير الكود لكي نظيف في جدول التاريخ كلما ادخلنا بيانات ؟ الجدول له عمودان : العدد + تاريخ الادخال <{POST_SNAPBACK}> برجاء التوضيح اكثر ما الذى تريد اضافته فى عمود تاريخ ادخال عند عند ادخال عدد ؟
هادى محمد المامون سالم قام بنشر مارس 10, 2006 الكاتب قام بنشر مارس 10, 2006 اخي انت رائع رائع رائع رائع وجزاك الله كل خير <{POST_SNAPBACK}> مشكور يا اخى ابو الريان
علي السحيب قام بنشر مارس 12, 2006 قام بنشر مارس 12, 2006 شاهد المرفق أخي الكريم، ربما تعجبك بعض الإضافات التي قمت بعملها .. والإختصار للأكواد، __________________________________.rar
هادى محمد المامون سالم قام بنشر مارس 12, 2006 الكاتب قام بنشر مارس 12, 2006 شاهد المرفق أخي الكريم، ربما تعجبك بعض الإضافات التي قمت بعملها .. والإختصار للأكواد، <{POST_SNAPBACK}> هذا التعديل يعتبر شرف لى
أبو عبد النور قام بنشر مارس 12, 2006 قام بنشر مارس 12, 2006 لقد وجدتها : Sheets("List").Cells(EndRow + 1, 5).Value = Date بارك الله فيك. ---- اخي علي السحيب : شكرا للاضافات ولكن الكود معقد بالنسبة للمبتذئين. نامل ان نتعلم سريعا للاستفادة من خبرتكم. دمتم.
skyblue قام بنشر مارس 19, 2006 قام بنشر مارس 19, 2006 استاذنا الفاضل : hs889 دائما انت مبدع ورائع وفعلا كان فيلم الشرح اكثر من رائع . وحقيقة اتمنى ان اعرف الطريقة التي عملتها لعمل هذا الفيلم : برجاء التكرم ان تخدمني في هذا الموضوع : 1- ماهو البرنامج المستخدم 2- طريقة استخدامه بالشرح ولك مني كل الشكر والتقدير وربي يحفظك
هادى محمد المامون سالم قام بنشر مارس 19, 2006 الكاتب قام بنشر مارس 19, 2006 استاذنا الفاضل : hs889 دائما انت مبدع ورائع وفعلا كان فيلم الشرح اكثر من رائع . وحقيقة اتمنى ان اعرف الطريقة التي عملتها لعمل هذا الفيلم : برجاء التكرم ان تخدمني في هذا الموضوع : 1- ماهو البرنامج المستخدم 2- طريقة استخدامه بالشرح ولك مني كل الشكر والتقدير وربي يحفظك <{POST_SNAPBACK}> اخى الكريم اسم البرنامج Snagit 7 الحقيقه انا مش فاكر انا حملته منين ابحث عنه و ان لم تجده اخبرنى وسوف اقوم برفعه لك اما بانسبه لطريقه الاستخدام ما تقلقش اوصل اليه الاول و سوف اشرحه لك السلام عليكم
هادى محمد المامون سالم قام بنشر مارس 19, 2006 الكاتب قام بنشر مارس 19, 2006 اخى الكريم skyblue: لاجل رد الجميل لمنتديات اوفسنا قمت برفع برنامج Snagit 7 على الرابط التالى : http://www.sendspace.com/file/4bf7pb ملحوظات : 1 - ارفقت فيلم يشرح طريقه التحميل 0 2- حجم الملف 10 ميجا تقريبا 0 3 - لم ارفق السيريال حتى لم اضيع تعب غيرى لكن البرنامج شغال 0 قال رسولنا صلى الله عليه وسلم " من صنع إليكم معروفا فكافئوه، فإن لم تجدوا ما تكافئوه به،فادعوا له حتى تروا أنكم قد كافأتموه " السلام عليكم Movie.rar
هادى محمد المامون سالم قام بنشر مارس 20, 2006 الكاتب قام بنشر مارس 20, 2006 الاخوه الكرام : و هذه طريقه اخرى لاستخدام البرنامج تشرح طريقه التحميل بالصوره التاليه قال رسولنا صلى الله عليه وسلم " من صنع إليكم معروفا فكافئوه، فإن لم تجدوا ما تكافئوه به،فادعوا له حتى تروا أنكم قد كافأتموه " السلام عليكم
حمـدالحمد قام بنشر أبريل 7, 2006 قام بنشر أبريل 7, 2006 الاخ / hs889 اولا لك الشكر على هذا المجهود وهو فعلا يهمني واريد استخدامه في عملي ولكن اريد ان اغير الاسم الخاص بصاحب الهاتف واضع فيع اسم العميل مثلا فكيف اغير الاسم ولك الشكر ولجميع المشاركين
هادى محمد المامون سالم قام بنشر أبريل 11, 2006 الكاتب قام بنشر أبريل 11, 2006 الاخ / hs889اولا لك الشكر على هذا المجهود وهو فعلا يهمني واريد استخدامه في عملي ولكن اريد ان اغير الاسم الخاص بصاحب الهاتف واضع فيع اسم العميل مثلا فكيف اغير الاسم ولك الشكر ولجميع المشاركين <{POST_SNAPBACK}> اخى الكريم : تستطيع تعديل اسماء صاحب الهاتف يالتعديل فى Label بالطريقه التاليه بعد فتح الملف اضغط Alt + F11 تظهر لك الشاشه التاليه دبل كليك على Enter_Data كما هو موضح بالصوره السابقه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.