رسالة ترحيبية ناطقة باكسل

[amir501]

اهداء الى اخواني جميييييييييييييييييييييعا هذا الكود الرائع الذي يقوم بالترحيب بك عند تشغيل ملف اكسل

اليك يااخي حسن جعل الله ايامك كلها حسن بحسن

لاتنسونا من دعائكم

اخوكم عامر

اكسل ناطق.rar

[ابو القبطان]

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

ألف شكر ، وربنا يكرمك ويجازيك ويبارك لك

اخوك حسن

مردود لك الملف بعد التعديل وقولي رأيك؟

اكسل ناطق عامر.rar

[amir501]

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

ألف شكر ، وربنا يكرمك ويجازيك ويبارك لك

اخوك حسن

مردود لك الملف بعد التعديل وقولي رأيك؟

استاااااااااااااااااااااااااااز ايه دا ياباشا والله فنان؟؟؟؟؟

انا اخوك عامر من سورية

[عصام2008]

الاخ / عامر

بعدالسلام عليكم

من الواضح ان هذا مجهود رائع تستحق عليه الثناء والتشجيع ولكن لا أعلم ماسبب عمل الملف على جهازي بعد تحميله من المنتدي هل هناك سبب ما يجب أن اتداركه؟ ام ماذا؟

شاكر لك حسن تعاونك معي

أخوك / محمد

[خالد القدس]

<div align="center"><font color="#0000ff" size="4">السلام عليكم </font><br><br><font color="#0000ff" size="4">ألف شكر على هذا الملف الرائع </font><br><br><font color="#0000ff" size="4">الذى تتجلى فيه إمكانيات البرنامج وخبرات مصمم الملف </font><br><br><font color="#0000ff" size="4">جزاك الله خيرا </font><br></div>

[amir501]

الاخ / عامر

بعدالسلام عليكم

من الواضح ان هذا مجهود رائع تستحق عليه الثناء والتشجيع ولكن لا أعلم ماسبب عمل الملف على جهازي بعد تحميله من المنتدي هل هناك سبب ما يجب أن اتداركه؟ ام ماذا؟

شاكر لك حسن تعاونك معي

أخوك / محمد

اخي محمد السلام عليكم ارجوك قم بتغيير مستوى الامان الى منخفض كي يعمل معك الملف ؟؟؟

لتغيير مستوى الامان ادوات......ماكرو .....الامان.... هناك اربعة مستويات اختر منها منخفض ؟؟؟؟!!!! اضغط على الصور المرفقة

تقبل تحياتي وشكري

اخوك عامر

تم تعديل ديسمبر 1, 2009 بواسطه amir501

[A L M A I S T R O]

لكنة يعطى الخطأ رقم 400

ولا يعمل عندى

بالتوفيق

[أ / محمد صالح]

جزاك الله خيرا أخي عامر

هذا رابط لمحاولة مني مع الوورد

http://www.officena.net/ib/index.php?showtopic=29962

كل عام والجميع بخير

يمكن استخدام ذلك الكود في إملاء الجهاز للمدرسين الدرجات في الكنترول

ولكن طبعا باللغة الإنجليزية

[سالم شباني]

السلام عليكم

بورك فيك أخي عامر لقد جعلت الإكسل يتحدث

متى نسمعه بالعربي يا ترى ؟

الشكر موصول لأخي حسين وأخي محمد صالح

[زياد علي]

السلام عليكم

اخي امير شكراً على هدية الرائعة

ولكن ايضاً انا لم يعمل لدي الملف ،،، ربما لاستخدامي اوفيس 2003

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

حمل المرفق

zezo_speak.rar

[amir501]

السلام عليكم

اخي امير شكراً على هدية الرائعة

ولكن ايضاً انا لم يعمل لدي الملف ،،، ربما لاستخدامي اوفيس 2003

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

حمل المرفق

مشكووووووور على هذه الهدية الرائعةة مثل صاحبهاوانا انتظر المزيد

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

[أ / محمد صالح]

إخواني

بالنسبة لمن لم يعمل معهم الملف

برجاء تحميل ملف sapi.dll من هذا الرابط

http://www.dlldump.com/download-dll-files_new.php/dllfiles/S/sapi.dll/5.1.4111.00/download.html

ثم بعد ذلك ضعه في المسار التالي

C:\Program Files\Common Files\Microsoft Shared\Speech

وستجد كل شيء تمام بإذن الله

[ابرار و ابراهيم]

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

[amir501]

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

اختي الكريمة من ادوات .....ماكرو...... الامان .اجعلي مستوى الامان منخفض وان شاء الله ستعمل

تم تعديل يناير 26, 2010 بواسطه amir501

[يوسف عطا]

هل يمكن أن يوضع الكود بحيث يقرأ من الشيت مباشرة ؟؟

وهل يمكن أن نجعله 3 ماكرو ؟؟

الأول لبدء القراءة

الثانى للتوقف المؤقت عن القراءة

الثالث لإستكمال القراءة

مع الشكر

[دغيدى]

تم تعديل عنوان الموضوع ليسهل عملية البحث

[أبــو حبيبـــة]

شكر لكل من الاخوة عامر و الاخ نيو و الاخ زياد و الاستاذ محمد صالح على هذا المجهود الرائع

انا مبتدىء بالاكسيل و اريد معرفه الخطوات لكى انفذ هذا لامر

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

[يوسف عطا]

شكر لكل من الاخوة عامر و الاخ نيو و الاخ زياد و الاستاذ محمد صالح على هذا المجهود الرائع

انا مبتدىء بالاكسيل و اريد معرفه الخطوات لكى انفذ هذا لامر

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

بالفعل يمكن أن تتم عملية القراءة بمجرد فتح الملف

وجارى عمل مثال لسيادتكم

[يوسف عطا]

تفضل أخى الكريم

تم وضع الكود فى حدث فتح الوورك بوك

لا تنسى تخفيض الأمان ليتم تشغيل الماكرو تلقائياً

والشكر موصول للأخ عامر وكل الأخوة المشاركين

ناطق.rar

[أبــو حبيبـــة]

مجهود رائع للأخ / يوسف و لكل الاخوة المشاركين

لى طلب هل من الممكن التحكم فى نوع الصوت وكيف ذلك مع الشرح

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

[يوسف عطا]

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

وقد يمكن تغيير الأصوات إذا كان على جهازك برامج معينة خاصة بتغيير الأصوات التى تصدر من الجهاز

كأن تجعله صوت ذكر أو أنثى أو طفل أو روبوت أو غير ذلك من الأصوات

[يوسف عطا]

السؤال مرة أخرى

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

[خالد الشاعر]

استاذ يوسف

هذا عمل مرفع من هذا المنتدى

يتحدث بقيمة الارقام المكتوبة

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

[يوسف عطا]

الف شكر عزيزى الغالى

khhanna

هذا هو الكود

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

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

مطلوب للرفع

[A_ALOMANI]

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