سماح الهياتمى

لماذا تم اهمال موضوعى ولا يتم الرد عليه

الاخوة الاجلاء اين ردودكم على الموضوع

برجاء الرد على موضوعى وشكرا لكم

انا عملت ايضا مع المغفتاح كنترول وظهرت رسالة الخطا بالرغم ةمن تسغيل الكود على اكثر من جهاز وكذا اوفيس 2007 واوفيس 2010 برجاء متابعة موضوعى من قبل الاساتذة ابو حنين شوقى ربيع

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

بالنسبة للمطلب الاول تم الرد عليه من قبل الاستاذ ابو حنين وكان المطلوب فعلا اما المطلب الثانى لكود السابق يعمل على استدعاء بيانات من عمود واحد فقط ارجو ان يشمل الاستدعاء اكثر من عمود متفرق ينى مثلا جلب بيانات من عمود a c d g i m تم فعلا استخدام مفتاح كنترول لكى نقوم بنسخ اعمدة متفرقة ولكن الكون يعكى رسالة استخدام خاطئ

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

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

اساتذتى الاجلاء الكود السابق يعمل على استدعاء بيانات من عمود واحد فقط ارجو ان يشمل الاستدعاء اكثر من عمود متفرق ينى مثلا جلب بيانات من عمود a c d g i m شكرا لكم جميعا

للتذكير بالكود الخاص بى

اين ردود الاخوة الاساتذة ارجو ان يشمل الكود استدعاء بيانات اكثر من عمود متفرق

برجاء العمل على الكود المرفق من الاساتذة الاجلاء

اساتذتى الاجلاء الكود السابق يعمل على استدعاء بيانات من عمود واحد فقط ارجو ان يشمل الاستدعاء اكثر من عمود متفرق ينى مثلا جلب بيانات من عمود a c d g i m شكرا لكم جميعا

شكرا استاذى العزيز .. على هذا التعديل الرائع ... تحياتى

اين ردود الاساتذة الاجلاء

اريد التعديل على الكود المرفق الكود يقوم بنقل بيانات من اى ملف الى الملف الواجهة ولكن سطر الكود الذى يوجد به امتداد ملف الاكسيل يسمح بامتداد واحد فقط اريد ان يشمل كل امتدادات الاكسيل الامتداد الموجود xlsb نريد ان نضيف باقى امتدادت الاكسيل على هذا السطر لتكون xls / xlsx / xlsm / xlsb الكود المراد التعديل عليه Option Explicit Dim Mybook As Workbook Dim Mypath As String Dim MyPasteSpecial Dim MyCell As Range Private Sub CommandButton2_Click() Mybook.Activate Unload kh_focopy End Sub Private Sub KHOpenFilename_Click() On Error Resume Next Mypath = Application.GetOpenFilename("ملف اكسل (*.xlsb), ", , " اختار الملف ") If Mypath = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open Mypath Application.DisplayAlerts = True kh_focopy.Height = 300 RefEdit1.SetFocus Application.ScreenUpdating = True End If KH_TEXT.Caption = Mypath On Error GoTo 0 1 End Sub Private Sub KHCOPYMYRANGE_Click() On Error Resume Next If RefEdit1.Text = "" Then GoTo 1 On Error GoTo 1 kh_focopy.Hide Application.ScreenUpdating = False With Range([RefEdit1]) .Copy MyCell.PasteSpecial MyPasteSpecial Application.CutCopyMode = False MsgBox "تم استيراد عدد " & Chr(32) & .Rows.Count & Chr(32) & " من السجلات بنجاح", 524288 + vbMsgBoxRtlReading, "الحمدلله" End With Application.ScreenUpdating = True Mybook.Activate Unload kh_focopy GoTo 2 1: MsgBox "استخدام خاطىء", 524288, "تنبيه" On Error GoTo 0 2 End Sub Private Sub OptionPaste_1_Change() If OptionPaste_1.Value = True Then MyPasteSpecial = xlPasteAll Else MyPasteSpecial = xlPasteValues End Sub Private Sub UserForm_Activate() kh_focopy.Height = 150 OptionPaste_1.Value = True End Sub Private Sub UserForm_Initialize() Set Mybook = ActiveWorkbook Set MyCell = ActiveCell End Sub السطر المراد التعديل عليه Mypath = Application.GetOpenFilename("ملف اكسل (*.xlsb), ", , " اختار الملف ")

استاذى العزيز صفحة الاوائل لا تعمل جيدا يمكن انى غيرت بعض الاعمدة ولكن عندما قمت بتغيير الارقا للاعمدة لم يعمل بشكل سليم http://up.top4top.net/downloadf-425z0o361-rar.html استاذى العزيز صفحة الاوائل لا تعمل جيدا يمكن انى غيرت بعض الاعمدة ولكن عندما قمت بتغيير الارقا للاعمدة لم يعمل بشكل سليم http://up.top4top.net/downloadf-425z0o361-rar.html شكرا استاذى لقد قمت بتغيير ارقام الاعمدة وتم عمل الكود صحيحا شكرا لكم

شكرا لك استاذى العزيز على تعبك معى ومرفق البرنامج مرة اخرى لانه يوجد خطا فى كشف منادلة الصف الخامس لا يظهر بعض ارقام الجلوس مرفق رابط للبرنامج http://up.top4top.net/downloadf-4254zm5x1-rar.html

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

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

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

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

شكرا استاذى العزيز عند الضغط على زر طباعة تظهر صفحة بها عدد الص ولكن لا تتم الطباعة ولابد من اغلاق هذه الصفحة للرجوع الى صفحة الناجحين وبالنسبة للصفوف الخامس مثلا يوجد 26 طالب لا يظهر منهم بعد الضغط على زر طباعة غبر 19 فقط برجاء التعديل لو امكن تحياتى لحضرتك برجاء الرد على طلبى استاذ / محمود الشريف وشكرا لحضرتك

شكرا استاذى العزيز عند الضغط على زر طباعة تظهر صفحة بها عدد الص ولكن لا تتم الطباعة ولابد من اغلاق هذه الصفحة للرجوع الى صفحة الناجحين وبالنسبة للصفوف الخامس مثلا يوجد 26 طالب لا يظهر منهم بعد الضغط على زر طباعة غبر 19 فقط برجاء التعديل لو امكن تحياتى لحضرتك نعم استاذى تم حل مشكلة الطباعة اريد زرين احدهما الذكور اولا ثم الاناث واحدهما الاناث اولا ثم الذكور ولكن عبى حسب الصف الاول /الثانى/الثالث/الرابع/الخامس