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 مع خالص تحياتي عبد الكريم

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

up

السلام عليكم ورحمة الله وبركاته اما بعد ... اريد مساعدة في كود ترحيل بيانات الفكرة التي اريدها في عملية الترحيل هو 1- ترحيل كل بيانات التي ادخل في الشيت لنفترض اسمه الشيت رقم 1 ترحيل البيانات في صف لحال والبيانات التي في الشيت رقم 2 في صف لحال وطبعا ترحل البيانات في شيت لنفترض اسمه البيانت " ملاحظة : يمكن اضافة اكثر من شيت رقم 1 رقم 2 رقم 3 حسب عدد المعدات 2 بعد الترحيل البيانات في حال حدث أي تعديل في البيانات التي ادخلت في اي شيت على طول يعدل على نفس الصف الى كان برحل فيه 3 الان عند حذف هذا الشيت رقم 1 او 2 او اي شيت اخر مرحل يحذف معه الصف الي رحل فيه بيانته وشكرا وجزاكم الله خيرا ترحيل بيانات.rar

استاذي الكريم الكود قريب من فكرتي لكن لم ينفع الكود هو قريب لكن يضيف الف خلية معه حاولت البحث بالغةالانجليزية لم ينفع ايضا if create new sheet creat new cells ........ والذي اريده عند اضافة شيت جديد منسق مسبقة اضافة خلية مقترنة مع الخلية الاخرة المحددة مثل انه الشيت المنسق فيه 1- اسم المعدات 2- رقم المعد 3- نوعه 4- الكمية وموجدات بالخلية , c3 , c4 d8 الان يوجد شيء اسمه الرئيسي حيث يبن اخر الاحدثات لجميع المعدات المضافة في حال اضا فة شيت جديد وادخال البيانات في الشيت الجديد اوتو ماتكي ينشىء مجموعة من الخلية في شيت الرئسي مقترنة مع البيانات المدخلة او اذا يوجد طريقة الترحيل البيانات هذا الذي اريده

جزاك الله خيرا أستاذ عبد الله شكرا تحياتي

برنامج ادارة مستودعات معدات20121011112158.rar شكرا جزيلا جزاكم الله خيرا اريد طلب اخير حيث انني اعمل على انشاء برنامج مستودعات والفكرة كتالي انه لكل ادات كرت خاص به وهو الشيت المضاف والمنسق مسبقا ويوجد صفحة رئيسا تبين تفاصيل كل معد مقترن مع الكرت المشكلة الموجهة هنا انه عند اضافة الشيت اريد ايضا اضافة مجموعة خلية في الشيت الرئسي تلقائي والملف المرفق يوضح كلامي وباذن الله بعد الانتهاء من صنع البرنامج سوف ارفق نسخة للمنتدى وشكرا وجزاكم الله خيرا لقد استفدت فعلا تحياتي

السلام عليكم ورحمة الله وبركاته اما بعد اريد ان اشكر كل القائمين على هذا المنتدى حيث اته منتدى علمي 100 % وسوف ابدا بمشاركتي الاولى بسؤال طال البحث عن اجابته وهو اريد اضاف شيت جديد لكن الشيت الجديد يكون منسق مسبقا بمعنى الشيت رقم 1 منسق بجداول معينة اريد زر عند الضغط عليه تاتي رسالة بامر ادخال اسم الشيت وبعد ادخال اسم الشيت ينشاء شيت جديد حسب الاسم المدخل وبنفس التنسيق لشيت رقم 1 الان كود انشاء شيت بادخال الاسم جديد هذا هو Sub NweSheeetCustomeName() On Error GoTo ErrorHandler Dim NewSheet As Worksheet Dim SheetName As String Set NewSheet = Sheets.Add SheetName = InputBox("Please Insert sheet name.") If SheetName = "" Or Len(SheetName) > 31 Then MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther") Exit Sub End If NewSheet.Name = SheetName ErrorHandler: If Err.Number = 1004 Then MsgBox ("This name already exist") Application.DisplayAlerts = False NewSheet.Delete Application.DisplayAlerts = True Exit Sub End If End Sub كود انشاء شيت بتنسيق مسبق Sheets("Sheet2").Select Sheets("Sheet2").Copy After:=Sheets(2) End Sub تحياتي ارجو ان اجد الجواب الوافي عند منتداكم