بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
21 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه abdulkreem
-
-
شكرا جزيلا وجزاك الله خيرا
ليتني تلمميذك لكي اتعلم منك
لك ارقى تحية لستاذي ولكل الاساتذه -
استاذي علي المصري
شكرا لك وجزاك الله خيرا
استاذي ابو خليل
شكرا لك وجزاك الله خيرا
استاذ علي نعم هو المطلوب
وحبذه انني اريد ان اتعلم منكم
سؤالي هو كيف عملتها ارجو بشرح التطبيق ولك جزيل الشكر
وشكرا لك مرة اخرى استاذي علي المصري
-
-
تفضل اخي الكريم اتمنى ان يكون هو المطلوب
اخي
شكرا لك على الرد الجميل الذي افرح قلبي ومساعدتك لي
جزاك الله خيرا
لاعلم لكن طلع معاي هيك معقول عشان بستخدم اوفيسس 2007
لكن نفس المطلوب
مهما كان طول المدخل يمتد ويتقلص مع النص الثابت
مثال لتوضيح
ارجو تسليم 5555544444444444444444444444 كذا
ارجو تسليم 444444444444444444444444 كذا
ارجوا تسليم 4444444 كذا
وليس مثل هيك
ارجو تسليم 544444444444444444444444 كذا
ارجو تسليم 444444444444444444444444 كذا
ارجوا تسليم 4444444 كذا
-
-
تحياتي ايها السادة الكرام
اواجه مشكلة بسيطة في عرض التقرير
الا وهي
اريد ان اعمل رنامج يضم كل الكتب الرسمية
عملت سجل بسيط مع تقرير لكن المشكلة في التقرير
انه في حال كتابة الاسم وكان الاسم قصير الفورمة كلها بتخرب
يعني على سبيل المثال
ارجو تسليم عبدالكريم كذا
الان بدي ادخل اسم ثاني بعد ما ادخله شوفو كيف بيطلع في التقرير
ارجو تسليم 4 كذا
لاحظو هذا الفراغ ما بدييييي ايه
يعني لما ادخل اي حرف مهاما كان بدي ايه يكون مرن مع النص
يبدي يصير التقرير مرن مع النص
ارجو تسليم 6666 كذا
ارجو تسليم 6 كذا
لحظوا المشكلة في الصورة
لاحظ هنا كيف عاملها في التقرير حسب التصميم
-
اخ بن علية حاجي شكرا جزيلا على الرد الجميل والمتالق
جزاك الله خيرا
وانا اعلم ذالك
انه قد تكون فكرتي غير مفهومة
انظر الى هذا المثال
وارجوك اذا كانت العملية غلبة او صعبة لا تتعب حالك به وشكرا مرة اخرى لك
ولجميع القراء
تحياتي
-
34قراءة دون جواب ؟؟
-
-
السلام عليكم ورحمة الله وبركاته
تحية طيبة وبعد .......
انني الان اعمل على كود ترحيل
واريد مساعدة من ذو الخبرات في هذا المجال
والمساعدة هي
تكمن في هذا الكود
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
مع العلم يمكن اضافة كرت جديد وكرت الجديد بيناته هتكون تحت البينات الصنف الذي قبله
تحياتي
وشكرا لجميع
-
-
-
انظر الى هذا الحل
How to use Inbox Repair tool to repair pst file in Outlook
مع خالص تحياتي
عبد الكريم
-
جميل جدا شكرا جزيلا
-
-
السلام عليكم ورحمة الله وبركاته
اما بعد ...
اريد مساعدة في كود ترحيل بيانات
الفكرة التي اريدها في عملية الترحيل هو
1- ترحيل كل بيانات التي ادخل في الشيت لنفترض اسمه الشيت رقم 1 ترحيل البيانات في صف لحال
والبيانات التي في الشيت رقم 2 في صف لحال
وطبعا ترحل البيانات في شيت لنفترض اسمه البيانت
" ملاحظة : يمكن اضافة اكثر من شيت رقم 1 رقم 2 رقم 3 حسب عدد المعدات
2
بعد الترحيل البيانات في حال حدث أي تعديل في البيانات التي ادخلت في اي شيت على طول يعدل على نفس الصف الى كان برحل فيه
3
الان عند حذف هذا الشيت رقم 1 او 2 او اي شيت اخر مرحل يحذف معه الصف الي رحل فيه بيانته
وشكرا وجزاكم الله خيرا
-
استاذي الكريم الكود قريب من فكرتي لكن لم ينفع الكود
هو قريب لكن يضيف الف خلية معه
حاولت البحث بالغةالانجليزية لم ينفع ايضا
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
تحياتي
ارجو ان اجد الجواب الوافي عند منتداكم
كيف يمكنني ايقاف خاصية Prtsc عند فتح ملف اكسل بحيث منع المستخدم من تصوير البيانات
في منتدى الاكسيل Excel
قام بنشر
اخواني الاعزاء
احوال تصميم برنامج لي خاص متعلق في انظمة الحاسب الالي
لكن ما اوجه هو هو انني عملت ملف اكسل اسمه الباسوردات الخاصة بي
ومنعت خاصية الطباعة
لكن ما لاحظته هو انني مكن اعمل لقط صورة عن طريق كبسة PrtsC
واخذ البيانات منه
سوالي كيف يمكن منع المستخدم الغاء تفعيل هذا الزر عند فتح ملف الاكسل وعند اغلقه يرجع كما كان
هل من المككن عمل ذالك
مثل يكون في كود vba