اذهب الي المحتوي
أوفيسنا

عمار الدخخنى السعيد

عضو جديد 01
  • Posts

    10
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

عن العضو عمار الدخخنى السعيد

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    teacher

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم اساتذتى الكرام ممكن المساعدة صممت شيت أكسل به جدول وكنت عايز انسخ الصفحة التى بها الجدول 15 مرة توفيرا للوقت ولكن تواجهنى مشكلة وهى ظهور الرسالة دى عند القيام بنسخ الصفحة ممكن المساعدة فى طريقة استطيع من خلالها نسخ الصفحة الى عدة صفحات This command not aviliable in this workbook ولكم جزيل الشكر ,مرفق الملف برنامج شئون عاملين مدرسة.zip
  2. استاذنا الاستاذ Ali mohamed لك من عظبم الشكر وجعله الله فى ميزان حسناتك
  3. عندى برنامج وكنت طالب من أساتذى خبراء الأكسل مساعدة بسيطة فى تصميمم الوجهة الرئيسية للبرنامج وهو تثبيت ايقونات التنقل بين الصفحات على الوجهة الرئيسية بمعنى عدم قدرة المستخدم بالعبث بالايقونات وتغييرها او حذفها من على الوجهة الرئيسية للبرنامج ويقتصر استخدامه فقط على التنقل بها الى صفحات البرنامج فقط .ارجو المساعدة فى تنفيذ هذا الطلب,مرفق ملف للاطلاع وأسف على الاطالة. شكرا جزيلا اساتذتى خبراء الاكسل Book1.xlsx
  4. شاهدت الفيديو وعملت تغيير الاعدادات ولكن رتب التاريخ يوم وشهر وسنة المشكلة عندى هى اى عام اكتبة فى الخلية بعد الخروج منها بيتكتب كده 1905
  5. كيفية تعديل التاريخ فى شيت الاكسل بمعنى عند كتابة تاريخ معين فى خلية الاكسل مثل 2011/1/2 بيظهر 1905/1/2
  6. عند قاعدة بيانات بها صفحة البيانات الخاصة بكل مدرسة وهناك عدد من اوراق العمل مسماه باسم كل ادارة والادارة مقسمة الى عدة اوراق عمل مثال " صفحة البيانات الاساسية احتوى على كل اسماء المعلمين بالمحافظة وكذلك تخصصاتهم ومؤهلاتهم وتاريخ التعيين واسم الادارة ونوع المدرسة (رسمى عربى -رسمى لغات) ....الخ عملت كود لكل صفحة لترحيل البيانات اليها وفق الاسم الادارة ونوع المدرسة (عربى رسمى - عربى لغات) علما بان التصفية تكون وفق معيارين اسم الادارة ونوع المدرسة وموجودين فى صفحة البيانات الاساسية فى العمودين (u-v) المشكلة الكود بطىء جددددددا فى نقل البيانات وممكن فضلا كود واحد يرحل جميع البيانات الى جميع الادارات وفق اسم الادارة ونوع المدرسة بدل عمل كود ترحيل لكل ادارة حسب نوع المدرسة واسم الادارة وأسف على الاطالة,وشكررا جزيلا مرفق الملف لابداء اراء معلمى وخبراء الاكسل وده الكود اللى بشتغل عليها لترحيل البيانات الى كل ادارة وفق معيار اسم الادارة ونوع المدرسة Sub filter_me11() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim My_Sh As Worksheet, Source_Sh As Worksheet Dim last_row As Long Dim lr As Long Dim My_rg As Range Dim My_First As Long, i As Long My_First = 7 Set My_Sh = Sheets(" الغردقة رسمى لغات"): Set Source_Sh = Sheets("بيانات") last_row = My_Sh.Cells(Rows.Count, "d").End(3).Row If last_row < 2 Then last_row = 2 lr = Source_Sh.Cells(Rows.Count, "b").End(2).Row If lr < 7 Then lr = 7 My_Sh.Range("d7:ab" & last_row).ClearContents For i = 1 To lr If Source_Sh.Range("u" & i) = "الغردقة" _ And Source_Sh.Range("v" & i) = "رسمى لغات" Then With My_Sh .Cells(My_First, "D") = Source_Sh.Range("b" & i) .Cells(My_First, "E") = Source_Sh.Range("c" & i) .Cells(My_First, "F") = Source_Sh.Range("d" & i) .Cells(My_First, "G") = Source_Sh.Range("e" & i) .Cells(My_First, "H") = Source_Sh.Range("f" & i) .Cells(My_First, "I") = Source_Sh.Range("g" & i) .Cells(My_First, "J") = Source_Sh.Range("h" & i) .Cells(My_First, "K") = Source_Sh.Range("i" & i) .Cells(My_First, "L") = Source_Sh.Range("j" & i) .Cells(My_First, "M") = Source_Sh.Range("k" & i) .Cells(My_First, "N") = Source_Sh.Range("l" & i) .Cells(My_First, "O") = Source_Sh.Range("m" & i) .Cells(My_First, "P") = Source_Sh.Range("n" & i) .Cells(My_First, "q") = Source_Sh.Range("o" & i) .Cells(My_First, "r") = Source_Sh.Range("p" & i) .Cells(My_First, "s") = Source_Sh.Range("q" & i) .Cells(My_First, "t") = Source_Sh.Range("r" & i) .Cells(My_First, "u") = Source_Sh.Range("s" & i) My_First = My_First + 1 End With End If Next Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Call MsgBox("تم تسكين معلمات الغردقة رسمى لغات", mBox, " عمار الدخخنى") End Sub بيانات المدارس.xlsx
×
×
  • اضف...

Important Information