يوسف عطا قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 الكود المرفق يقوم بنطق الأرقام التى يتم كتابتها فى الخلايا 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 للإستئناف هل هذا ممكن يا خبراء يا أفاضل
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم اخي يوسف هل يعمل الكود عندك على اكسل 2003 عندي يطلع رسالة خطأ
يوسف عطا قام بنشر أكتوبر 24, 2012 الكاتب قام بنشر أكتوبر 24, 2012 أخى الغالى خبور خير كل عام وسيادتكم بخير إن شاء الله العام القادم تكون على عرفات مع أعز أحبابك بخصوص الكود الناطق هو يعمل بمجرد الكتابة فى الخلايا رقم أكبر من صفر كما هو موضح بالكود ومرفق الملف وأتمنى لو تساعدنى فى إنجاز المطلوب فهو سيكون عمل مهم جداً بالنسبة لى وسيكون ثورة فى برنامج الكنترول حيث سيقوم الكمبيوتر بمراجعة الرصد إلكترونياً على الشيت وعلى أوراق الإجابة فى نفس الوقت عضو كنترول يراجع الرصد على الشيت الورقى وعضو كنترول يراجع الدرجة على كراسات الإجابة والكمبيوتر يقرأ الدرجات المرصودة المهم الملف مرفق للتأكد من عمل الكود الإعلام بالصوت-2.rar
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم معا ان شاء الله و كل عام وانتم بخير في شي ناقص عندي في مكتبة الاكواد لا يعمل الكود عندي اريد منك التالي من نافذة الاكواد من القائمة ادوات tools اضغط references هذه صورة توضح الخطوات سيظهر لك فورم اضغط زر تصوير الشاشة من الكيبورت والصق الصورة في الرسام وحملها هي مثل الصوره هذه منتظرك
الـعيدروس قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم استاذ عبدالله فعلا ناقص امر عندك يتعدل السطر تعريف المتغير كالتالي من Dim Voice As SpVoice الى Dim Voice As SpeechLib.SpVoice وبرضه في وسط الكود من Set Voice = New SpVoice الى Set Voice = New SpeechLib.SpVoice وفي Reference ثم Browser وتضيف هذا المرجع C:\Windows\System32\Speech\Common\sapi.dll
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 وعليكم السلام اخي عباد شكرا جزيلا نفذت الخطوات لكن الملف هذا مش موجود عندي في المسار الي حددته والخطا يوجهنا الى الفورم الذي صورته اعلاه اعمل صورة للفورم في جهازك مثل ما اوضحت متظرك
الـعيدروس قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 استاذ عبدالله حاول تذهب على هذا المسار علامة الويندوز + حرف R "ق" ونسخ هذا المسار C:\Windows\System32\Speech\Common انسخ الملف المرفق بعد فك الضغط وسط المسار وجرب ان شاء الله يمشي الحال sapi.rar
الـعيدروس قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم استاذي الحبيب خبور خير جرب هذه الطريقة Public Sub ali_Sp() Dim Ali_Spec As Object Dim A A = "1 2 3 4 5 6 7 8 9 10" '******************************************* Set Ali_Spec = CreateObject("SAPI.SpVoice") Ali_Spec.Rate = 0 Ali_Spec.Speak " " & A & " ", 0 Set Ali_Spec = Nothing '******************************************* End Sub
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم والله نشمي اخي عباد جزاك الله خيرا واذا كان المسار هذا غير موجود الملف \Speech\Common الملفان غير موجودان ما الحل
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 الظاهر ارسلت الكود وانا اكتب المشاركة اعلاه لحظة اجرب
عبدالله باقشير قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 الكود اشتغل جزاك الله خيرا هل تعمل على طلب الاخ يوسف ؟
الـعيدروس قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 استاذ عبدالله ربما الملفان المعنيه غير متوفره في اوفيس 2003 انا استخدم اوفيس 2007 واعتقد الكود الاخير يعمل على اوفيس 2003
الـعيدروس قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 مدام دخلت في الموضوع استاذ عبدالله ماعلينا سوى الانصات والإستمتاع بحلولك النيره ومانحنو سوى تلاميذ في مدرستك حاولت ولم اتوصل لحل
أبو حنــــين قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 أخي عباد جرت الكود الذي قدمته و هو يعمل و قمت بتعديل طفيف كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Dim Ali_Spec As Object Set Ali_Spec = CreateObject("SAPI.SpVoice") Ali_Spec.Rate = 0 Ali_Spec.Speak Target.Text Set Ali_Spec = Nothing End Sub
يوسف عطا قام بنشر أكتوبر 25, 2012 الكاتب قام بنشر أكتوبر 25, 2012 أخى الغالى الحبيب خبور خير بالنسبة للبرنت سكرين عندى تظهر مثل صورة أخى عباد تماماً وبالمقارنة مع تلك التى أرفقتها سيادتكم يوجد سطر غير موجود لديكم ولا أعرف كيف يمكن حل هذا الأمر أخى الغالى أبو حنين كل عام وأنتم بخير والعام القادم على عرفات إن شاء الله الكود الذى أرفقته سيادتكم جميل ومختصر الله ينور عليك أخى الغالى ابو نصار كل عام وأنتم بخير وأدعو لك تكون على عرفات بعد عام من اليوم إن شاء الله أخوتى الأعزاء أعزكم الله جميعاً رجاء المحاولة فى تعديل الكود سواء الأصلى أو الكود المعدل من أخى ابو حنين ليقوم بقراءة الأرقام الموجودة بالفعل فى الشيت من قبل وليس التى تكتب حالياً ليصبح 3 ماكرو الأول للتشغيل والثانى للوقوف المؤقت والثالث للمتابعة والإستمرار وكل عام وأنتم جميعاً بخير
أبو حنــــين قام بنشر أكتوبر 26, 2012 قام بنشر أكتوبر 26, 2012 بالنسبة لكود التشغيل من السهل عمله لكن التوقيف المؤقت اعتقد انه من الصعب عمل ذلك لانه اثناء القراءة لا يعطيك الفرصة لعمل اي شيئ حتى تكتمل القراءة
يوسف عطا قام بنشر أكتوبر 27, 2012 الكاتب قام بنشر أكتوبر 27, 2012 يا ابا حنين كم من مرة راينا الغيكسيل يقوم باشياء لم نكن أبداً نتوقع أن يستطيع القيام بها والحمد لله بالمنتدى أخوة أفاضل إستطاعوا أن يطوعوا ويطوروا العديد من خصائص الإيكسيل لدرجة قد تكون أبهرت بيل جيتس بنفسه وفى هذا فليتافس المتنافسون كما يقال فى المثل العام أو فليدلى كل من يستطيع بدلوه فى الموضوع لإثرائه
عبدالله باقشير قام بنشر أكتوبر 27, 2012 قام بنشر أكتوبر 27, 2012 السلام عليكم هذه تجربة الكود في حدث ورقة1 غير بداية الكود معطياتك ' نطاق الكلام Private Const AdrRng As String = "A2:B6" ''''''''''''''''''''''''''''''''' ' خلية مكان الايقاف Private Const Adr As String = "K1" ''''''''''''''''''''''''''''''''' المرفق 2003 KH_SPEEK2.rar
الـعيدروس قام بنشر أكتوبر 27, 2012 قام بنشر أكتوبر 27, 2012 السلام عليكم ماشاء الله عليك استاذ عبدالله حل قمة الروعه الان الله يعننا على دراسة الكود وفهمه جزاك الله الف الف خير
يوسف عطا قام بنشر أكتوبر 28, 2012 الكاتب قام بنشر أكتوبر 28, 2012 وعليكم السلام أونا الغالى واستاذنا الكبير خبور خير عيدك مبارك اله ينور عليك أدامك الله عوناً واستاذاً نسأل الله لك التوفيق ويجعل أعمالك فى موازين حسناتك
على نور قام بنشر أكتوبر 28, 2012 قام بنشر أكتوبر 28, 2012 السلام عليكم عمل رائع وجميل ولكن الارقام لا تنطق عندى فلماذا؟ ارجو توضيح كيفية تشغيل الملف وكل عام وانتم بخير
يوسف عطا قام بنشر أكتوبر 28, 2012 الكاتب قام بنشر أكتوبر 28, 2012 أستاذى الغالى خبور خير لا أعرف لماذا لم يعمل الكود عندما قمت بنقل الكود لملف آخر بخاصية النسخ واللصق كما أقوم بها عادة لنسخ كود من ملف لأخر وكذلك عندما أردت عمل نسخة من الكود فى ورقة أخرى فى نفس الملف تم نسخ الكود ولكن لم يظهر فى ويندو تخصيص الأزرار لتنفيذ الماكروهات
عبدالله باقشير قام بنشر أكتوبر 28, 2012 قام بنشر أكتوبر 28, 2012 السلام عليكم عمل رائع وجميل ولكن الارقام لا تنطق عندى فلماذا؟ ارجو توضيح كيفية تشغيل الملف وكل عام وانتم بخير عيدكم مبارك اكيد الكمبيوتر حقك ما فيه لسان ههههههههههههههه هذه الاكواد قليلة الاستخدام خبرتنا فيها بسيطة مش عارف ايش الخلل عندك
عبدالله باقشير قام بنشر أكتوبر 28, 2012 قام بنشر أكتوبر 28, 2012 أستاذى الغالى خبور خير لا أعرف لماذا لم يعمل الكود عندما قمت بنقل الكود لملف آخر بخاصية النسخ واللصق كما أقوم بها عادة لنسخ كود من ملف لأخر وكذلك عندما أردت عمل نسخة من الكود فى ورقة أخرى فى نفس الملف تم نسخ الكود ولكن لم يظهر فى ويندو تخصيص الأزرار لتنفيذ الماكروهات الكود خاص بالورقة مع الازرار اي في حدث الورقة اضغط زر وضع التصميم وانسخ الازرار والصقها في ملفك وانسخ اكود الورقة وضعها في حدث الورقة في ملفك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.