يوسف عطا

أخى الغالى خبور خير كل عام وسيادتكم بخير إن شاء الله العام القادم تكون على عرفات مع أعز أحبابك بخصوص الكود الناطق هو يعمل بمجرد الكتابة فى الخلايا رقم أكبر من صفر كما هو موضح بالكود ومرفق الملف وأتمنى لو تساعدنى فى إنجاز المطلوب فهو سيكون عمل مهم جداً بالنسبة لى وسيكون ثورة فى برنامج الكنترول حيث سيقوم الكمبيوتر بمراجعة الرصد إلكترونياً على الشيت وعلى أوراق الإجابة فى نفس الوقت عضو كنترول يراجع الرصد على الشيت الورقى وعضو كنترول يراجع الدرجة على كراسات الإجابة والكمبيوتر يقرأ الدرجات المرصودة المهم الملف مرفق للتأكد من عمل الكود الإعلام بالصوت-2.rar

أخويا الغالى الخالدى بك كل عام وأنتم بخير السنة الجاية تكون واقف على عرفات حبيت أطبق الكود على الملف بتاعى فظهر إرور وتم تلوين السطر الثالث من الكود باللون الأصفر الكود كما وضعته بالملف هو Private Sub Worksheet_Change(ByVal Target As Range) Dim Rn As Range, cl As Range Set Rn = Intersect(Target, Range("K11:K2000,L11:L2000,O11:O2000,P11:P2000,Q11:Q2000,R11:R2000,V11:V2000,W11:W2000,Z11:Z2000,AA11:AA2000,AB11:AB2000,AC11:AC2000,AG11:AG2000,AH11:AH2000,AK11:AK2000,AL11:AL2000,AM11:AM2000,AN11:AN2000,AS11:AS2000,AT11:AT2000,AY11:AY2000,AZ11:AZ2000,BA11:BA2000,BB11:BB2000,BG11:BG2000,BH11:BH2000,BM11:BM2000,BN11:BN2000,BO11:BO2000,BP11:BP2000,BT11:BT2000,BU11:BU2000,BX11:BX2000,BY11:BY2000,BZ11:BZ2000,CA11:CA2000,CF11:CF2000,CG11:CG2000,CL11:CL2000,CM11:CM2000,CN11:CN2000,CO11:CO2000,CQ11:CQ2000,CR11:CR2000,CS11:CS2000,CT11:CT2000,CU11:CU2000,CV11:CV2000,CW11:CW2000,CX11:CX2000,CY11:CY2000,CZ11:CZ2000,DA11:DA2000,DC11:DC2000,DG11:DG2000,DH11:DH2000,DK11:DK2000,DL11:DL2000,DM11:DM2000,DN11:DN2000,DR11:DRY2000,DS11:DS2000,DV11:DV2000,DW11:DWY2000,DX11:DX2000,DY11:DY2000")) If Not Rn Is Nothing Then Rn.Interior.ColorIndex = xlNone For Each cl In Rn If cl = "غ" Then cl.Interior.ColorIndex = 42 Else If cl < Cells(10, cl.Column) Then cl.Interior.ColorIndex = 44 End If Next End If Set Rn = Nothing End Sub هل السبب زيادة عدد الأعمدة المطلوب التنسيق فيها ؟؟ ولو كان هذا هو السبب فما العمل ؟؟ علماً بأننى جربت الكود على ملف ليس به معادلات أم هناك سبب آخر ؟؟ وما العمل لحل هذه المشكلة ؟

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

الكود المرفق يقوم بنطق الأرقام التى يتم كتابتها فى الخلايا Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long Dim Voice As SpVoice Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim CheckRange As Range Dim PlaySound As Boolean Set CheckRange = Range("A1:A2000") For Each Cell In CheckRange If Cell.Value > 0 And Cell.Address = Target.Address Then PlaySound = True End If Next If PlaySound Then Call sndPlaySound32("C:\windows\media\ding.wav", 1) Set Voice = New SpVoice Voice.Rate = 1 'speak peed Voice.Speak " " & Target.Value & " ", 0 Set Voice = Nothing End If End Sub الآن أريد تعديل هذا الكود لكى يقرأ المكتوب فعلاً بالشيت مسبقاً وليس الذى يكتب حالياً ثم تحويله إلى 3 ماكرو كالتالى ماكرو1 للقراءة المستمرة لما هو مكتوب بالشيت ماكرو2 للإيقاف المؤقت ماكرو3 للإستئناف هل هذا ممكن يا خبراء يا أفاضل

نرجو من الإشراف تعديل العنوان ليتناسب مع الموضوع ليحصل أخونا على طلبه بأسرع وقت مع التنويه لأخونا الغالى بعدم تحديد أخوة أفاضل بعينهم للمشاركة فى الموضوع طبقاً لسياسة المنتدى

أخوتى الأعزاء ذادكم الله من العلم عندما طبقت الكود على الملف خاصتى ظهر لى إرور وتم تلوين سطر فى الكود بلون اصفر هو السطر الثالث من اسفل التالى N = Application.CommandBars.ActionControl.Tag

مشكور أبو نصار جازاك الله خيرا وكل عام وسيادتكم بخير والشكر موصول لأستاذنا الكبير خبور خير جازاه الله خيراً

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

الله ينور عباد باشا بس لو ممكن ولو مافيهاش تعب لمعاليكم ولكل من يريد إثراء الموضوع اسماء كل الشيتات التى أريد إظهارها بالكود موجودة فى أحد شيتات الملف ( الشيت رقم 31 والمسمى MyDate والذى أريده أن يظهر بالكود بإسم الصلاحيات ) بالصف الثانى من العمود الخامس E2 إلى العمود 35 AI2 هل يمكن أن يأخذ الكود اسماء الشيتات من هذا الشيت ؟؟ علماً بأنه الشيت الوحيد بين الشيتات الذى مسماه ليس رقم والصورة المرفقة توضح أسماء الشيتات بالأرقام ومدلول الأرقام بالأسماء Uploaded with ImageShack.us

عزيزى الخالدى بك كل عام وسيادتكم بخير ما العمل لو كنت سأستخدم الكود مع نتائج معادلات ؟؟ هل يمكن التغلب على هذه المشكلة ؟؟

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

البقاء لله

وتحياتى القلبية لك أخى الغالى جمال بك دغيدى وكل عام وسيادتكم بخير

أخونا المتألق والمبدع دائماً خبور خير الغالى تحية وتقدير لسيادتكم لى طلب فى الكود الخاص بالتنقل بين شيتات الملف لدى ملف به 31 شيت و جميع الشيتات مسماه بأرقام فقط من 1 إلى 31 أريد أن يتم كتابة إسم لكل شيت بالكود لكى يظهر باللستة إسم الشيت وليس رقمه المسمى به مثلاً شيت رقم 22 يظل إسمه كما هو ( 22 ) ولكن إسمه يظهر بليست التنقل بين الشيتات بالإسم الذى أريده مثلاً ( ناجح دور ثان) هل هذا يمكن ؟؟

مشكور يا الغالى الخالدى بك جازاك الله خير وكل عام وأنتم بخير

لا بأس لو بدأ العمل وأرفقته بالموضوع وتخبرنا بما لا تستطيع إنجازه بالعمل وستجد أكثر من مساعدة

راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=31511

مشكور أخونا الشهابى جعله الله فى موازين حسناتك وكل عام وأنتم بخير

بعد عمل كل الخطوات عندما بدأ تسطيب البرنامج ظهرت رسالة إرور ولم يتم التسطيب

مشكور أبو تميم جارى فتح الإيميل وتوقيف الأنتى فايرس

الغالى أبو تميم الكراك لا يتم تحميله تم تحميل الأربع ملفات للأوفيس برجاء إرسال الكراك على الإيميل youssef_ata@yahoo.com

بالفعل أخى محمود ماتم إذاعته أول أمس تم إعلان عكسه أمس وقد حسمت المحكمة السعودية الخلاف طبقاً للرابط التالى المحكمة العليا السعودية تعلن عيد الأضحى في 26 أكتوبر أ. ف. ب. مواضيع ذات صلة السعودية: الوقوف بعرفة الخميس وعيد الأضحى الجمعة الرياض: أعلنت المحكمة العليا السعودية ومقرها الرياض، ان عيد الاضحى سيوافق يوم الجمعة 26 تشرين الاول (اكتوبر) الحالي، بحسب مصدر رسمي. وذكرت وكالة الانباء السعودية نقلا عن بيان للمحكمة ان غدا الاربعاء هو الاول من شهر ذي الحجة، والوقوف بعرفة يوم الخميس التاسع من ذي الحجة الموافق للخامس والعشرين من تشرين الاول (اكتوبر). واضافت ان عيد الاضحى سيكون الجمعة العاشر من ذي الحجة الموافق للسادس والعشرين من تشرين الاول (اكتوبر) الحالي.

أخى الخالدى أشكرك كلا الكودين الذين تفضلت بكتابتهما يعملان جيداً ولى عندك طلبين لو لا أضايقك بهما 1. شرح الفرق بينهما 2. ما الذى يجب تغييره فيهما لكى يكون لحرف غ لون آخر ؟؟ وشكراً لكرمك

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

كل عام وأنتم بخير عيدكم مبارك أخوتى الأعزاء تم إعلان اليوم أول ايام شهر ذو الحجة لعام 1433 وبالتالى يصبح الخميس 25 أكتوبر هو وقفة عرفات والجمعة 26 أكتوبر هو أول أيام العيد المبارك فكل عام وأنتم بخير رجاء من أحد المشرفين تعديل عنوان الموضوع ليكون الجمعة بدل الخميس