skyblue قام بنشر مارس 9, 2005 قام بنشر مارس 9, 2005 السلام عليكم ورحمة الله وبركاته،، اخواني الاعزاء انا عندي ملف في الاكسل واريد تحديث بعض البنود عليه . فهل يمكن ذلك بوجود زر لتحديث تلك البيانات , حيث انني الان عند التعديل اذهب الى الخلية المراد تحديثها ثم اقوم نتضليلها ثم اكتب عليها . وهذه الطريقة ارى انها عقيمة في ظل اكواد البرمجة .... برجاء المساعدة الله يعطيكم العافية وشكرا
محمد حجازي قام بنشر مارس 10, 2005 قام بنشر مارس 10, 2005 السلام عليكم ... الرجاء توضيح السؤال : ماهي نوعية التحديث التي تريدها؟؟؟
skyblue قام بنشر مارس 10, 2005 الكاتب قام بنشر مارس 10, 2005 السلام عليكم ورحمة الله وبركاته،، يااستاذ محمد اولا المعذرة على عدم توضيحي للسؤال , ثانيا انا أقصد ان يكون في الشاشة الرئيسية للبرنامج زر خاص بالتعديل ( اي بأعدل رقم تلفون خاص بعميل أو تعديل رقم حساب او تغيير عنوان عميل .....) لان عملية التعديل او حسب تسميتي التحديث تاخذ مني وقت كثير في ظل بيانات ضخمة حيث انني افتح ملف العملاء ثم اذهب على المعلومة التي اريد تعديلها ثم اكتب عليها وهكذا ..
محمد حجازي قام بنشر مارس 10, 2005 قام بنشر مارس 10, 2005 السلام عليكم ... بالطبع يمكنك ذلك ، سأشرح الطريقة باختصار: أولاً أنت بحاجة للتعليمة InputBox لإخال البيانات (معايير البحث) التي ستكون كما يلي: - الفئة التي تريد تغيير بياناتها. - القيم الجديدة ويمكنك الاستعاضة عن التعليمة InputBox بفورم جاهز تقوم بتصميمه. ومن ثم فإنك ستبحث عن البيانات حسب الفئة وذلك عن طريق الحلقة التكرارية For Each واختبار الخلية (في كل دورة) إذا كانت تحقق شروط البحث ، فإذا كان كذلك فسيتم التعديل (حسب شروط معينة) وإلا فلا. ويمكنك استخدام التعليمة MsgBox لإظهار رسالة تخبرك بانتهاء العمل (اختياري). هذه هي الخطوات الأساسية ، وطبعاً لكل حالة خصوصيتها ومتطلباتها من الأكواد. بالتوفيق
skyblue قام بنشر مارس 11, 2005 الكاتب قام بنشر مارس 11, 2005 استاذ محمد /انا اقصد اعطائي كود للبحث مثل (بحث واستبدال) الموجودة في برنامج اكسل . وشكرا لكم .
محمد حجازي قام بنشر مارس 12, 2005 قام بنشر مارس 12, 2005 السلام عليكم ... يمكنك ذلك عن طريق الكود التالي: Sub MyReplace() Worksheets("Sheet1").Range("A1:E100").Replace What:="Muhammad", Replacement:="Ahmad", SearchOrder:=xlByColumns End Sub الكود السابق يستبدال الكلمة Muhammad بالكلمة Ahmad وذلك ضمن المجال A1:E100 الموجود في الورقة Sheet1. ويمكنك تغيير إعدادات البحث (قبل الاستبدال) عن طريق المعامل SearchOrder وذلك كما يلي: البحث في الأعمدة xlByColumns البحث في الصفوف xlByRows بالتوفيق
الردود الموصى بها