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

الإكسيل الناطق 2


الردود الموصى بها

الكود المرفق يقوم بنطق الأرقام التى يتم كتابتها فى الخلايا



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 للإستئناف

هل هذا ممكن يا خبراء يا أفاضل

رابط هذا التعليق
شارك

أخى الغالى خبور خير

كل عام وسيادتكم بخير

إن شاء الله العام القادم تكون على عرفات مع أعز أحبابك

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

ومرفق الملف

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

عضو كنترول يراجع الرصد على الشيت الورقى

وعضو كنترول يراجع الدرجة على كراسات الإجابة

والكمبيوتر يقرأ الدرجات المرصودة

المهم الملف مرفق للتأكد من عمل الكود

الإعلام بالصوت-2.rar

رابط هذا التعليق
شارك

السلام عليكم

معا

ان شاء الله

و كل عام وانتم بخير

في شي ناقص عندي في مكتبة الاكواد

لا يعمل الكود عندي

اريد منك التالي

من نافذة الاكواد

من القائمة ادوات tools

اضغط

references

هذه صورة توضح الخطوات

post-11314-0-22515300-1351112165_thumb.j

سيظهر لك فورم

اضغط زر تصوير الشاشة

من الكيبورت

والصق الصورة في الرسام

وحملها

هي

مثل الصوره هذه

post-11314-0-81496700-1351112625_thumb.j

منتظرك

رابط هذا التعليق
شارك

السلام عليكم

استاذ عبدالله فعلا ناقص امر عندك

يتعدل السطر تعريف المتغير كالتالي

من


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

رابط هذا التعليق
شارك

وعليكم السلام

اخي عباد

شكرا جزيلا

نفذت الخطوات

لكن الملف هذا مش موجود عندي

في المسار الي حددته

والخطا يوجهنا

الى الفورم

الذي صورته اعلاه

اعمل صورة للفورم في جهازك

مثل ما اوضحت

متظرك

رابط هذا التعليق
شارك

استاذ عبدالله

حاول تذهب على هذا المسار

علامة الويندوز + حرف R "ق"

ونسخ هذا المسار


C:\Windows\System32\Speech\Common

انسخ الملف المرفق بعد فك الضغط وسط المسار

وجرب ان شاء الله يمشي الحال

sapi.rar

رابط هذا التعليق
شارك

السلام عليكم

استاذي الحبيب خبور خير

جرب هذه الطريقة


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

رابط هذا التعليق
شارك

استاذ عبدالله

ربما الملفان المعنيه

غير متوفره في اوفيس 2003

انا استخدم اوفيس 2007

واعتقد الكود الاخير يعمل على اوفيس 2003

رابط هذا التعليق
شارك

مدام دخلت في الموضوع استاذ عبدالله

ماعلينا سوى الانصات والإستمتاع بحلولك النيره

ومانحنو سوى تلاميذ في مدرستك

حاولت ولم اتوصل لحل

رابط هذا التعليق
شارك

أخي عباد جرت الكود الذي قدمته و هو يعمل

و قمت بتعديل طفيف كالتالي


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

رابط هذا التعليق
شارك

أخى الغالى الحبيب خبور خير

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

أخى الغالى أبو حنين

كل عام وأنتم بخير

والعام القادم على عرفات إن شاء الله

الكود الذى أرفقته سيادتكم جميل ومختصر الله ينور عليك

أخى الغالى ابو نصار

كل عام وأنتم بخير

وأدعو لك تكون على عرفات بعد عام من اليوم إن شاء الله

أخوتى الأعزاء

أعزكم الله جميعاً

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

ليقوم بقراءة الأرقام الموجودة بالفعل فى الشيت من قبل وليس التى تكتب حالياً

ليصبح 3 ماكرو

الأول للتشغيل

والثانى للوقوف المؤقت

والثالث للمتابعة والإستمرار

وكل عام وأنتم جميعاً بخير

رابط هذا التعليق
شارك

بالنسبة لكود التشغيل من السهل عمله

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

رابط هذا التعليق
شارك

يا ابا حنين

كم من مرة راينا الغيكسيل يقوم باشياء لم نكن أبداً نتوقع أن يستطيع القيام بها

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

وفى هذا فليتافس المتنافسون كما يقال فى المثل العام

أو فليدلى كل من يستطيع بدلوه فى الموضوع لإثرائه

رابط هذا التعليق
شارك

السلام عليكم

هذه تجربة

الكود في حدث ورقة1

غير بداية الكود معطياتك


'	نطاق الكلام

Private Const AdrRng As String = "A2:B6"

'''''''''''''''''''''''''''''''''

'	خلية مكان الايقاف

Private Const Adr As String = "K1"

'''''''''''''''''''''''''''''''''

المرفق 2003

KH_SPEEK2.rar

رابط هذا التعليق
شارك

السلام عليكم

ماشاء الله عليك استاذ عبدالله

حل قمة الروعه

الان الله يعننا على دراسة الكود وفهمه

جزاك الله الف الف خير

رابط هذا التعليق
شارك

وعليكم السلام أونا الغالى واستاذنا الكبير خبور خير

عيدك مبارك

اله ينور عليك

أدامك الله عوناً واستاذاً

نسأل الله لك التوفيق ويجعل أعمالك فى موازين حسناتك

رابط هذا التعليق
شارك

أستاذى الغالى خبور خير

لا أعرف لماذا لم يعمل الكود عندما قمت بنقل الكود لملف آخر بخاصية النسخ واللصق كما أقوم بها عادة لنسخ كود من ملف لأخر

وكذلك عندما أردت عمل نسخة من الكود فى ورقة أخرى فى نفس الملف

تم نسخ الكود ولكن لم يظهر فى ويندو تخصيص الأزرار لتنفيذ الماكروهات

رابط هذا التعليق
شارك

السلام عليكم عمل رائع وجميل

ولكن الارقام لا تنطق عندى فلماذا؟

ارجو توضيح كيفية تشغيل الملف

وكل عام وانتم بخير

عيدكم مبارك

اكيد الكمبيوتر حقك ما فيه لسان

ههههههههههههههه

هذه الاكواد قليلة الاستخدام

خبرتنا فيها بسيطة

مش عارف ايش الخلل عندك

رابط هذا التعليق
شارك

أستاذى الغالى خبور خير

لا أعرف لماذا لم يعمل الكود عندما قمت بنقل الكود لملف آخر بخاصية النسخ واللصق كما أقوم بها عادة لنسخ كود من ملف لأخر

وكذلك عندما أردت عمل نسخة من الكود فى ورقة أخرى فى نفس الملف

تم نسخ الكود ولكن لم يظهر فى ويندو تخصيص الأزرار لتنفيذ الماكروهات

الكود خاص بالورقة مع الازرار

اي في حدث الورقة

اضغط زر وضع التصميم

وانسخ الازرار والصقها في ملفك

وانسخ اكود الورقة وضعها في حدث الورقة في ملفك

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information