اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

البحث في الموقع

Showing results for 'الجدول المدرسى' in content posted in منتدى الاكسيل Excel .

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة
    • إعلانات شخصية بأجر للاعضاء
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • تطبيقات Power Apps
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
    • VB.net
    • C#.net
    • Asp.net
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • الاستراتيجية وإدارة محافظ المشاريع
    • إدارة المشاريع
    • Scaled Agile SAFe
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • مشاركات المدونات
    • نرحب بزوار الموقع
    • قسم الاقتراحات و الملاحظات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

  1. وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Dim tbl As Worksheet: Set tbl = Sheet26 If Me.TextBox1 = Empty Then: Exit Sub With tbl ligne = .Cells(.Rows.Count, "c").End(xlUp).Row + 1 End With 'لمنع التكرار التحقق من الاسم والكود If Application.WorksheetFunction.CountIf(tbl.Range("c6:c" & ligne - 1), Me.TextBox1.Value) > 0 Then MsgBox "هذا الاســــــم مضاف مسبقا", vbCritical Exit Sub End If If Application.WorksheetFunction.CountIf(tbl.Range("B6:B" & ligne - 1), Me.TextBox3.Value) > 0 Then MsgBox "هذا الكــــــود مضاف مسبقا", vbCritical Exit Sub End If Dim msg As VbMsgBoxResult msg = MsgBox("ترحيل البيانات ؟ ", vbYesNo + vbQuestion + vbDefaultButton2, "تعليمات") Application.ScreenUpdating = False If msg = vbNo Then Exit Sub Else ' ترحيل البيانات tbl.Cells(ligne, 2) = Me.TextBox3.Value tbl.Cells(ligne, 4) = Me.TextBox2.Text tbl.Cells(ligne, 3) = Me.TextBox1.Text tbl.Cells(ligne, 7) = Me.ComboBox1.Text tbl.Cells(ligne, 8) = Me.ComboBox2.Text tbl.Cells(ligne, 9) = Me.ComboBox3.Text tbl.Cells(ligne, 10) = Me.TextBox4.Text tbl.Cells(ligne, 11) = Me.ComboBox4.Text tbl.Cells(ligne, 12) = Me.ComboBox5.Text tbl.Cells(ligne, 15) = Me.ComboBox9.Text tbl.Cells(ligne, 16) = Me.TextBox13.Text tbl.Cells(ligne, 19) = Me.ComboBox7.Text tbl.Cells(ligne, 26) = Me.ComboBox6.Text tbl.Cells(ligne, 13) = Format(TextBox5.Value, "yyyy/mm/dd") tbl.Cells(ligne, 14) = Format(TextBox6.Value, "yyyy/mm/dd") tbl.Cells(ligne, 20) = Me.ComboBox8.Text tbl.Cells(ligne, 22) = Me.TextBox10.Text tbl.Cells(ligne, 23) = Me.TextBox11.Text tbl.Cells(ligne, 24) = Me.TextBox12.Text tbl.Cells(ligne, 21) = Me.TextBox14.Text tbl.Cells(ligne, 25) = Me.TextBox7.Text tbl.Cells(ligne, 17) = Me.TextBox8.Value tbl.Cells(ligne, 18) = Me.TextBox9.Text If Range("C7") <> "" Then ' ترتيب tbl.Range("b6:Z" & ligne - 1).Sort Key1:=tbl.Range("C6"), Order1:=xlAscending, Header:=xlYes, DataOption1:=xlSortTextAsNumbers End If tbl.Range("a6") = 1 ' ترقيم الجدول tbl.Range("a6:a" & tbl.Range("c" & Rows.Count).End(xlUp).Row).DataSeries , xlDataSeriesLinear ' اظافة المعادلات With tbl.Range("E6:E" & tbl.Range("A" & Rows.Count).End(3).Row) .Formula = "=IFERROR(DATE(LEFT(D6,1)+17&MID(D6,2,2),MID(D6,4,2),MID(D6,6,2)),"""")" ' .Value = .Value End With With tbl.Range("F6:F" & tbl.Range("A" & Rows.Count).End(3).Row) .Formula = "=IFERROR(VLOOKUP(MID(D6,8,2)*1,$AW$10:$AX$43,2,FALSE),"""")" ' .Value = .Value End With ' حدف الصفوف الفارغة من الجدول Call delete_les_lignes_vides ' افراغ B_sup_Click End If Dim msg As VbMsgBoxResult ' حدف msg = MsgBox("حدف البيانات ؟ ", vbYesNo + vbQuestion + vbDefaultButton2, "تعليمات") Application.ScreenUpdating = False If msg = vbNo Then Exit Sub Else findValue = f.Cells(N_Row, 3) With f.ListObjects("Tableau1").DataBodyRange lr = .Cells(.Rows.Count, 1).Row For I = lr To 1 Step -1 If .Cells(I, 3) = findValue Then .Rows(I).Delete f.Range("a6") = 1 f.Range("a6:a" & f.Range("c" & Rows.Count).End(xlUp).Row).DataSeries , xlDataSeriesLinear UserForm_Initialize End If Next I End With End If Book V2.xlsb
  2. السلام عليكم احتاج ماكرو لخفاء اعمدة الجدول بعد اختيار عمود وافاء الصفوف التى بها صفر فقط الشرح بالملف مع الشكر hide rows.xlsm
  3. السلام عليكم ورحمة الله وبركاته لدي جدول وارغب في عمل الترتيب حسب الاعلى لحقول الجدول بناء على اعلى مرتب مثلا ولكن الترتيب يكون اوتوماتيك بحيث يتم اضافة البيانات في الجدول وبعد الضغط على Enter يتم الترتيب لبقية الجدول حسب الاكبر تــم اعادة وتعديل رفع الملف ... طالما انك تريد الحل بالأكواد , فكان لزاماً عليك رفع الملف بإمتداد يقبل الأكواد والماكرو مثل XLSM فرز حسب الاكبر.xlsm
  4. أساتذة المنتدى الكرام لدى جدول بيانات منسق يدويا نطاقه من الصفوف كبير ومرتبط بيوزرفورم ادخال بيانات إليه واريد معرفة التنسيق الذى يسمح لى بإدخال البيانات يدويا عند الرغبة وفى نفس الوقت عند استخدام الفورم يتم الإضافة بعد آخر صف قمت بتسجيله يدويا لأنى عندما اقوم بالتسجيل بالفورم فإنه يتم ترحيل البيانات بعد انتهاء آخر صف فى الجدول متخطيا صفوف فارغة مشاركة مكررة ..... تــم بالفعل حذف المشاركة الأخرى بيانات طلاب.xlsm
  5. السلام عليكم ورحمة الله وبركاته الملف المرفق فيه جدول ومقسم لخلايا اريد تغيير فقط لون الخلية في الجدول فقط اما خارج الجدول يبقى أبيض بدون تغير لو اخترت اي مكان في الشيت الكود موجود لكن هناك مشكلة أنه كل ما اضغط على أي خلية خارج الجدول يتغير الون abd.xlsm
  6. السلام عليكم...اريد مساعدة في هذا الجدول..الشرح في الملف و شكرا الملف ينشئ جدول اوتوماتيكي بمجرد ادخال الاسماء.....اريد كود حذف اوتوماتيكي للاسم او الصف الفارغ داخل الجدول لكن شرط ان لا يختل الجدول ...و شكرا عنوان مخالف ... تم تعديل عنوان المشاركة ليعبر عن طلبك 0.xlsm
  7. السلام عليكم ورحمة الله وبركاته أتمنى للجميع الخير والسلامة الملف دا عامل عليه شغل كويس جدا بفضل معرفتى بحضراتكم عاوز اضيف عليه حاجة جديدة بس مش عارف اعملها ازى انا مسحت حاجات كتير من الشيت علشان مشتتش الناس المطلوب فى خانة سعر الوحدة وسعر النقل للوحدة الملونة بالأخضر العمود ( L & N ) يتم استدعاء البيانات من الجدول الملون بالأزرق من العمود v إلى العمود AI حسب الآتى :- 1- كود المنتج ( العمود C ) 2- رقم امر التوريد ( العمود B ) 3 - ادراج سعر المنتج بخانة سعر المنتج وسعر النقل بخانة سعر النقل ملحوظة سأقوم يدويا بتدوين قائمة الأسعار لكل منتج حسب رقم امر التوريد فى الجدول الملون بالأزرق من العمود v إلى العمود AI كما هو موضح بالمرفقات حاليا يتم إستدعاء الأسعار من امر توريد رقم 1 بسبب عدم القدرة على اضافة شرط رقم أمر التوريد لدالة vlookup أتمنى أكون قدرت أوصل المطلوب بشكل صحيح وجزاكم الله خيرا واعتذر عن الإطالة acc.xlsx
  8. بسم الله الرحمن الرحيم من خلال الواقع عملية وضع الجدول المدرسي عملية مرهقة وتحتاج لكثير من التركيز من حيث عدد الحصص لكل مدرس أو سقوط فصل من الجدول ( ليس موكلا إلى أحد الأساتذة) أو تضارب الحصص ( وجود الفصل الواحد عند أكثر من مدرس) وبعد الانتهاء من الجدول نأتي لعمليات الاستخلاص استخلاص جدول مدرس أو استخلاص جدول فصل أو استخلاص جدول مشرف في يوم معين أو مشرف لدور معين وبفضل الله تم الانتهاء من تصميم برنامج بسيط يوفر كل ماسبق ملاحظة: البرنامج لا يقوم بوضع جدول من الألف إلى الياء وإنما يساعد مسئول الجدول في إنجاز مهمته البرنامج يعمل على أوفيس 2007 وبانتظار اقتراحات المهتمين بالمجال لتطويره ولا تنسوني من صالح دعائكم mas-school-timetable.rar
  9. السلام عليكم اخواني واخواتي انا اعرف كيف انشاء عنوان اساسي بجانب كلمة Total لكنني اريد ان اجمع بيانات الدرجات أ + ب + ج في عموج وعمود اخر اي + اف لا اريد انشاؤها بالطريقة العادية لكنني اريدها متضمنة مع الجدول المحوري شكرا لكم سلفا .... وهذا هو رابط الملف http://www.mediafire.com/file/fs00rezjpqvvz1m/تجريب.xlsx/file
  10. السادة الافاضل المحترمين تحية طيبة وبعد برجاء المساعدة فى الصورة المرفقة استخراج قيمة العقد للبند اللى فى الجدول المدرج من الجدول اللى موجود فيه اسعار الخرسانة بناءا على التاريخ وشكرا
  11. السلام عليكم في المرفق شيت به جدولين A - B وكل جدول به نفس البيانات تقريبا وأحيانا تكون البيانات غير مرتبة المطلوب : مقارنة البيانات بين الجدولين بشرط أن تظهر المقارنة هل نفس الاسم في العمود الاسم في الجدول A يساوي الاسم في العمود الاسم في الجدول B مع الشرط وهو هل نفس القيمة في الجدول A تساوي القيمة في الجدول B نأمل أن يكون المطلوب واضحا AzizUP.rar
  12. يوجد لدي جدولين للبيانات تم عمل اكثر من pivot table لكل جدول - الجدولين مرتبطين بجدول ثالث تم عمل slicer ولكن توجد مشكلة ال slicer يعمل مع كل pivot table من جدول واحد فقط وباقي ال pivot table من الجدول الثاني لا يعمل معه ال slicer بالرغم من عمل report connections لكل pivot table ولكل ال slicer اعمل مع جدول واحد فقط ولا تعمل مع الجدول الثاني ارجو الافادة بسبب وحل المشكلة
  13. تمام لقد فهمت حضرتك أريد كود لعمل الاتي 1. ترقيم تلقائي في الجدول يبدأ من رقم واحد وعند حذف أي صف يقوم بإعادة الترقيم تلقائي 2. عند الضغط على زر حفظ يقوم بترحيل البيانات إلى الجدول ومسح الخانات المدخلة للإدخال الجديد 3. عند الضغط على أي صف في الجدول بالماوس يقوم بترحيل البيانات للشيت الاول للتعديل عليها 4. أحتاج زر لإستعراض وفتح ملفات عرض السعر وإذا وقف أمامي شء تاني أنا برفع لحضرتك وممنون جدا لإهتمام حضرتك وموفق ان شاء الله
  14. السلام عليكم ورحمة الله الرجاء المساعدة في التصحيح والتعديل على نموذج ادخال البيانات حسب ما هو مطلوب وحسب النموذج المرفق بارك الله فيكم هو تعديل على معادلات vba نموذج ادخال البيانات كي تتوافق مع خانات الجدول ( هناك خلط في خانات ادخال المعلومات في نموذج الادخال) يعني عندما افتح نموذج ادخال البيانات واكتب فيه المعلومات المراد تعبئتها في الجدول واضغط حفظ فان المعلومات التي دونتها تكتب في الخانة الخاصة بها ادخال بيانات اطفال الروضة حضانة.xlsm
  15. السلام عليكم ورحمة الله وبركاته اخواني.. لقد قمت بعمل فورم او نموذج فرز متقدم اعلى الجدول في شيت اكسل كما هو موضح بالصورة ادناه و اود ان اظهر احصائيات بعد البجث أي بعد عملية فرز الجدول، وهي كالاتي: إظهار عدد الشركات المصنعة الظاهرة في العمود F بعد التصفية ، أي عدد الخلايا ذات القيم الفريدة الظاهرة فقط في العمود F بعد الفرز. إظهار عدد الوكلاء من العمود H بعد التصفية ، أي عدد الخلايا ذات القيم الفريدة الظاهرة فقط في العمود H بعد الفرز. للاسف حاولت ايجاد المعادلة المناسبة لذلك ولكني لم استطع.. لذا، ارجوا منكم التكرم بمساعدتي في ايجاد الدالة المناسبة والتي يمكنها تحديث واظهار القيم اعلاه بشكل تلقائي بعد كل عملية بحث او فلترة للجدول مرفق لكم الملف للاطلاع والمساعدة في ذلك نموذج بحث - مثال.xlsm ولكم جزيل الشكر مقدما..🌹
  16. اليوم كتب لي التاريخ كل الجدول 17 / 8 / 2023 وانا كاتب الجدول يوم 15 / 8 / 2023
  17. السلام عليكم ورحمة الله نعالى وبركاته بعد ادن الاستاد أ / محمد صالح بالنسبة لاظهار بيانات اليوم فقط تفضل جرب اخي Private Sub UserForm_Initialize() Dim f As Worksheet: Set f = Sheets("ورقة1") Set d = CreateObject("scripting.dictionary") Col = f.Range("B4:E" & f.[B65000].End(xlUp).Row).Value Rng = UBound(Col, 2) With Me.ListView1 .Gridlines = True .FullRowSelect = True .View = lvwReport .ColumnHeaders.Add , , "code", 0 .ColumnHeaders.Add , , "م", 30, lvwColumnCenter .ColumnHeaders.Add , , "التاريخ", 80, lvwColumnCenter .ColumnHeaders.Add , , "اسم العميل", 120, lvwColumnCenter .ColumnHeaders.Add , , "الرقم ", 60, lvwColumnCenter Cpt = 1 ' من بداية الجدول ' For i = 1 To UBound(Col) For i = UBound(Col) - 19 To UBound(Col) ' تحديد اخر 20 صف If Col(i, 2) = Date Then ' شرط تاريخ اليوم .ListItems.Add , , Col(i, 1) For k = 1 To Rng .ListItems(Cpt).ListSubItems.Add , , Col(i, k) Next k Cpt = Cpt + 1 End If Next i End With End Sub listview 2.xlsm
  18. وجدت هذا الكود الموجود بداخل الملف المرفق لتجميع ودمج محتوى كل خلية بعد اختيارها يدويا ..... ارجوا منك تعديل هذا الكود لدمج الخلايا مباشرا دون تحديدها يدويا عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsm
  19. تفضل الملف بعد التعديل بدون كود وهذا الكود إذا كنت تحتاج الكود لملف آخر مع تعديل أرقام الصفوف والأعمدة حسب حاجتك Sub t() For i = 1 To 8 Range(Cells(1, 9), Cells(30, 9)).Select Selection.Cut Range(Cells(1, i), Cells(30, i)).Select Selection.Insert shift:=xlToRight Next End Sub عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsx
  20. وعليكم السلام كحل مبدئي احذف الأسطر الزائدة في الجدول ومن خصائص الجدول في الأكسل أنه إذا كتبن في الخلية أسفله يضيف سطر جديد ويضمن الصيغ للرفع2.xlsx
  21. السلام عليكم على استحياء شديد أضع هذا العمل المتواضع جدا مقارنة بما هو موجود بالمنتدى آملا أن أحصل على توجيهات أساتذتنا وقد استفدت كثيرا من شروح و أعمال الأساتذة الكبار وما كنت حلم يوما بإنجاز ربع هذا العمل لكن الفضل لله ثم لهذا المنتدى === جدول مدرسى ببرنامج إكسل جدول مدرسى ببرنامج إكسل الجدول السلام عليكم أقدم لكم هذا البرنامج لتنظيم و طباعة الجدول المدرسى و هو يقوم بالمهام التالية 1- المساعدة على إدخال حصص الجدول بسهولة و يسر عن طريق قائمة بها فصول المدرس التى يقوم بتدريسها . 2- استخراج جدول كل مدرس و طباعته 3- استخراج جدول الإشراف حسب الفصول 4- استخراج جدول الفصل بأسماء المدرسين و المواد بكل حصة يحتاج البرنامج من المستخدم إلى 1- إدخال أسماء المدرسين بصفحة البيانات " لا يشترط ترتيبها " 2- إدخال فصول المدرسة " يتسع البرنامج ل 19 فصلا " 3- إدخال مادة كل مدرس أمامه 4- إدخال الفصول التى يدرسها المدرس " خطة المدرس و تستخدم فى الإدخال بعد ذلك " 5- إدخال أسماء المدرسين مرة ثانية لكن حسب الترتيب الذى تريده فى الجدول المطبوع يعنى يضاف المدرس الجديد فى آخر القائمة بصفحة البيانات و يكتب حسب الترتيب المراد فى مادته فى صفحة الجدول نأمل أن تنتفعوا به الفائدة الأعظم هى أن معادلات البرنامج كلها مفتوحة لمن يريد أخذها أو تعلمها فى انتظار اقتراحاتكم و أشكر كل من ساعدنى بفكره و علمه فى إنجاز هذا العمل ضع أسماء المدرسين مكان كلمة اسم1 و غيره و أسماء المشرفين فى صفحة " إشراف " جدول kemas.zip
  22. الاخوة الزملاء في هذا المنتدى اريد مساعدتكم في اكواد وذلك كما يلي في صفحة الرئيسية هناك خيارين اريد كود في حال اختيار ادخال معلومات جديده بحيث ان النتيجة المتوقعة ان" جميع الاعمده في ورقة الداتا بيس تكون في الجدول في الصفحة الرئيسية ومن ثم يتم ادخال المعلومات الجديده وترحل الى الداتا بيس بنفس تنسيق ورقةCM-50-1070 في نفس الوقت يتم انشاء ورقة تحمل نفس رقم الكود المدخل لهذه البيانات الجديده اريد كود في حيال خيار بحث وتعديل حيث ان البحث يكون اما في الداتا بيس وذلك بادخال رقم الكود فقط وتاتي البيانات بنفس المثال اللي فوق في الجدول في الصفحة الرئيسية ويتم التعديل ومن ثم الحفظ في كل من الداتا بيس والورقة التي تحمل رقم الكود في حال البحث عن جميع الاوراق يم البحث عن طريق رقم الكود بادخال اخر ثلاث او اربع ارقام او عن طريق اسم ممثل المصنع بادخال احرف من اسمه وتكون النتيجة بجلب الكود ورقمه لجميع الاوراق تحت اسمه في الجدول في الصفحة الرئيسة وفي حال دبل كليك يتم التحويل لنفس الورقة Help.xlsx
  23. السلام عليكم ورحمة الله وبركاته اخواني زملائي اعضاء منتدانا الغالي ارجوا منكم مساعدتي في كود يقوم بازاحة نطاق الصفوف الفارغة في الجدول كما هو موضح في الشرح والملف المرفق ولكم منا أسمى عبارات الاحترام والتقدير وعيدكم مبارك كل عام والامة الاسلامية بخير تواتي 15.xlsm
  24. السلام عليكم ورحمة الله فى البداية احب أتوجه بالشكر لكل من فكر او حاول يساعدني لاستكمال هذا العمل. لو مش حابب تعرف تفاصيل انا عايز اشرح المطلوب بصورة سريعة وابسط من كل الكلام اللى تحت. فيه 10 جداول فى 10 صفحات كل دول فيه رابط لصورة موجوده على الكمبيوتر، خارج كل جدول فى أرقام من 0 إلى 9 وأرقام الصفحات من 0 إلى 9. اليوزرفورم فيه 3 تيكست بوكس، مربع رقم واحد اللى هو تيكست بوكس1 ده بيعبر عن رقم الصفحة، مربع رقم 2 اللى هو تيكست بوكس2 بيعبر عن اسم الصف وده الرقم اللى هو موجود أعلى الجدول والمربع رقم 3 اللى هو تيكست بوكس3 بيعبر عن رقم العمود اللى هو موجود شمال الجدول بردو. نفهم من كده انى معتمد فى إيجاد قيمة تقاطع رقم العمود مع الصف مت الأرقام اللى خارج الجداول وليست أرقام اعمدة ورموز الصفوف فى اكسل اللى هى (A, B, D إلخ) المفروض انا عايز اول حاجه يفعل الصفحة اللى هو مكتوب فى مربع1 (TEXTBOX1) وبعد كده يبحث فى الصفحة عن البيانات او رابط الصورة الموجود فى الخلية اللى بتتقطع مع الرقم اللى بيرمز ليه الصف اللى هو فى (TEXTBOX2) و الرقم اللى هو فى مربع3 (TEXTBOX3) ولما يلاقى الرابط ده فى حل من 2: 1- يظهر الصورة دى فى الصورة اللى هى فى اليوزرفورم (IMAGE1) 2- يضع بيانات الخلية دى فى وصف (LABEL1) بحيث اقول ان بيانات الخلية اللى انت لاقتها حطها =label1.Caption وبعدها انا هبقى ازود كود بحيث ياخد الرابط ده من الليبل ويعرضها فى (image1) وده انا عملته بالفعل فى الملف المرفق لذا يجب وضع الصورة المرفقة فى بارتشن E وكتابة فى تيكست بوكس1 فى اليوزرفورم رقم الصفحة اللى هو رقم 1. أرجو العلم بأن أرقام الصفحات وأرقام الصفوف والاعمدة اللى مكتوبه خارج الجدول اللى عملية البحث هتستند إليهم (غير ثابتين) يعنى ممكن اغير أرقام الصفحات والأرقام أغلى ويسار الجدول فى اى وقت، لكن روابط الصور الموجوده داخل الجدل لن تتغير. للعلم انا عملت جزء من الكود اللى هو لما اكتب رقم الصفحة وادوس على زر التنفيذ يبدأ ينشط الصفحة لكى يكمل الكود عمله والجزء ده بقى اللى انا مش عارف ممكن يتنفذ ازاى. شكراً لحضراتكم. شرح المطلوب عمله وما تم عمله حتى الأن : تعريف الخلايا فى اكسل مرتبط بجزئين ثابتين تقاطع الصف مع العمود وهنا نجد اسم الخلية (A1, B10, Z8... etc) وده طبعاً شئ ثابت مش بيتغير. وبالنسبة لأسماء الصفحات ده قابل للتغير عادى. المشكلة فى حالتى هنا عايز حاجه مش عارف الصراحة ازاى هعملها علشان كده طلبت من المتخصين ومن عندهم المعلومات الكافية فى الاكسل تقديم المساعدة لحل هذه المشكلة. المشكلة: فى الملف المرفق انا عملت جدول وكتبت فوق الجدول ارقام وعلى الشمال أرقام وداخل الجدول فى الصفحات العشر المرقمين من صفر إلى تسعة هبدأ احط روابط لصور موجوده على الجهاز. وعملت فورم مقسم إلى عدد 3 تيكست بوكس وصورة وزر خاص لتنفيذ الكود وخليت كل مربع من تيكست بوكس يقبل رقم واحد فقط وينقل بشكل تلقائى بعد إدخال القيمة للمربع اللى بعده واول تيكست بوكس ده خاص برقم الصفحة والمربع الثانى خاص برقم الصف الموجود فوق الجدول اللى عملته والمربع الثالث اللى تيكست بوكس3 ده خاص بالرقم اللى على شمال الجدول اللى عملته. وعملت فى زر تنفيذ الكود انه يفعل الشيت اللى رقمه موجود فى تيكست بوكس1، الجزء الأصعب هنا بقى بالنسبة لى، عايز الكود بعد ما فعل الشيت اللى رقمه موجود فى تيكست بوكس1 يبحث عن الرقم الموجود فى تيكست بوكس2 فى الأرقام اللى فوق الجدول اللى انا اعتبرتها رقم الصف، ويبحث عن الرقم الموجود فى تيكست بوكس3 اللى هو المفروض مسمى العمود بالنسبة لى، ويجيب الخلية بقى اللى بينهم اللى هى المفروض فيها رابط الصورة، وياخد القيمة اللى لقاها فى الخلية دى ويحطها فى label1.caption بحيث يبقى وصف الليبل ده هو رابط الصورة بحيث استخدم انا كود بعد كده يفتح الصور اللى لقاها واسمها موجود فى ليبل1، أو يضع الكود مباشرة فى الصورة وتظهر قدامى (أيهما أفضل يعنى وسهل تنفيذه). مع العلم إن أرقام الصفحات مش هتكون ثابته ولا الأرقام اللى فوق الجداول، بمعنى ان الصور الموجوده فى الجداول داخل ال10 صفحات ثابته مش هتتغير ولكن أرقام الصفحات والأرقام اللى فوق الجداول ممكن اغيرترتيبها فى اى وقت علشان كده مش هينفع اعمل تعريفات ثابتة للبيانات بحيث اقول ان رابط الصورة الموجوده فى الخلية وليكن ( A2) فى الصفحة رقم (1) عرفه على أنه متغير مثلا او المكان دا ثابت لأن ممكن اغير الأرقام اللى خارج الجدول وبكده رابط الخلية (A2) كان مثلا هيقع فى تقاطع رقم 1 مع رقم 8 فى الصفحة رقم 1 ولو انا غيرت الأرقام دى بعدها مش هتكون النتيجة اللى الكود جابها صحيحة. أرجو اكون قدرت أوضح الموضوع بشكل صح. Encoding.rar
  25. الاخوة الكرام برجاء الافادة كيف احصل علي النسبة (؟) بناء علي اسم العميل و المنتج من الجدول بالاعلي
×
×
  • اضف...

Important Information