abdulkreem

اخواني الاعزاء احوال تصميم برنامج لي خاص متعلق في انظمة الحاسب الالي لكن ما اوجه هو هو انني عملت ملف اكسل اسمه الباسوردات الخاصة بي ومنعت خاصية الطباعة لكن ما لاحظته هو انني مكن اعمل لقط صورة عن طريق كبسة PrtsC واخذ البيانات منه سوالي كيف يمكن منع المستخدم الغاء تفعيل هذا الزر عند فتح ملف الاكسل وعند اغلقه يرجع كما كان هل من المككن عمل ذالك مثل يكون في كود vba

شكرا جزيلا وجزاك الله خيرا ليتني تلمميذك لكي اتعلم منك لك ارقى تحية لستاذي ولكل الاساتذه

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

up2

اخي شكرا لك على الرد الجميل الذي افرح قلبي ومساعدتك لي جزاك الله خيرا لاعلم لكن طلع معاي هيك معقول عشان بستخدم اوفيسس 2007 لكن نفس المطلوب مهما كان طول المدخل يمتد ويتقلص مع النص الثابت مثال لتوضيح ارجو تسليم 5555544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا وليس مثل هيك ارجو تسليم 544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا

up 1

تحياتي ايها السادة الكرام اواجه مشكلة بسيطة في عرض التقرير الا وهي اريد ان اعمل رنامج يضم كل الكتب الرسمية عملت سجل بسيط مع تقرير لكن المشكلة في التقرير انه في حال كتابة الاسم وكان الاسم قصير الفورمة كلها بتخرب يعني على سبيل المثال ارجو تسليم عبدالكريم كذا الان بدي ادخل اسم ثاني بعد ما ادخله شوفو كيف بيطلع في التقرير ارجو تسليم 4 كذا لاحظو هذا الفراغ ما بدييييي ايه يعني لما ادخل اي حرف مهاما كان بدي ايه يكون مرن مع النص يبدي يصير التقرير مرن مع النص ارجو تسليم 6666 كذا ارجو تسليم 6 كذا لحظوا المشكلة في الصورة 01.bmp لاحظ هنا كيف عاملها في التقرير حسب التصميم db1.rar

اخ بن علية حاجي شكرا جزيلا على الرد الجميل والمتالق جزاك الله خيرا وانا اعلم ذالك انه قد تكون فكرتي غير مفهومة انظر الى هذا المثال وارجوك اذا كانت العملية غلبة او صعبة لا تتعب حالك به وشكرا مرة اخرى لك ولجميع القراء تحياتي This sheets.rar

34قراءة دون جواب ؟؟

up

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد ....... انني الان اعمل على كود ترحيل واريد مساعدة من ذو الخبرات في هذا المجال والمساعدة هي تكمن في هذا الكود Cells(emptyRow, 4).Value = Sheets("ddd").Cells(2, 3).Value حيث هنا لا اريد تحديد اسم الشيت لانه سوف ينعمل نسخ اكثر من مرة وزر الامر لازم يكون موجود به اريد تعديل هذا الكود بحيث انه Cells(emptyRow, 4).Value تساوي Sheets(this sheet not "ddd").Cells(2, 3).Value الكود الكامل ادناه Sub Button4_Click() Dim emptyRow As Long Make Sheet1 Active Sheets(1).Activate Determine EmptyRow emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1 Export Data to worksheet Cells(emptyRow, 2).Value = Sheets("ddd")Cells(2, 1).Value Cells(emptyRow, 3).Value = Sheets("ddd").Cells(2, 2).Value Cells(emptyRow, 4).Value = Sheets("ddd").Cells(2, 3).Value Cells(emptyRow, 5).Value = Sheets("ddd").Cells(2, 4).Value Cells(emptyRow, 6).Value = Sheets("ddd").Cells(2, 5).Value Cells(emptyRow, 7).Value = Sheets("ddd").Cells(2, 6).Value Cells(emptyRow, 8).Value = Sheets("ddd").Cells(2, 7).Value Cells(emptyRow, 9).Value = Sheets("ddd").Cells(2, 8).Value Cells(emptyRow, 10).Value = Sheets("ddd").Cells(2, 9).Value Cells(emptyRow, 11).Value = Sheets("ddd").Cells(2, 10).Value Cells(emptyRow, 12).Value = Sheets("ddd").Cells(2, 11).Value End Sub طبعا هذا الكود ترحيل البيانات الى شيت اخر متدرج واذا لم يكن هناك غلبة اريد اضافة كود على هذا الكود اوتعديل اخر هذا الكود خاص لبرنامج ادارة مستودعات طبعا عندما تائتي معد او صنف جديدة لزم تعمله كرت وفيه بيناته الان البيانات تعباء في الخلية Cells(emptyRow, 8).Value = Sheets("ddd").Cells(2, 7).Value Cells(emptyRow, 9).Value = Sheets("ddd").Cells(2, 8).Value لما اعمل تحديث او ترحيل يرحل الى الاماكن المطلوبة لكن عندما اعمل اي تعديل واعمل تحديث يضيف سطر جديد بل البيانات المعدلة والقديم يبقى مثال البيانات القديمة : مسطرة م12 2012 البيانات الجديد : مسطرة م15 2013 وهكذا المساعدة المطلوبة انه لا اريد ان يضيف سطر بل يعدل على نفس السطر القديم الذي انشاءه البيانات القديمة : مسطرة م12 2012 مع العلم يمكن اضافة كرت جديد وكرت الجديد بيناته هتكون تحت البينات الصنف الذي قبله تحياتي وشكرا لجميع

up

up2

انظر الى هذا الحل http://support.microsoft.com/kb/272227/en-us How to use Inbox Repair tool to repair pst file in Outlook مع خالص تحياتي عبد الكريم

جميل جدا شكرا جزيلا