طريقه تخلى كل رقم مبلغ اسجله ينطق

[hamada rizk]

السلام عليكم ورحمة الله وبركاته

انا عامل شيت احسب فيه فواتير

الفواتير بتكون كتيره يعنى ممكن تعدى ال 100 او ال 400 فاتوره

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

المطلوب بقي من حضراتكم طريقه تخلى كل رقم مبلغ اسجله ينطق

 

يعنى بمجرد انى اسجل رقم 1 ينطق الرقم ويقول واحد

 

و2 ينطق ويقول اثنان

وهكذا

 

بجد لو فيه حاجه زى دى اكون شاكر جدا لحضراتكم

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

 

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

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

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

 

[Ali Mohamed Ali]

'طبعاً كما أخبرك استاذ محمد ... وهذا فيديو للشرح , طبعاً بع اذن استاذنا الكبير محمد صالح

 

 

 

 

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

هذه الميزة جميلة

لكنها تنطق عند حدوث تغيير في كل مكان

وهذا مذعج جدا

الكود يحدد الخلايا التي ينطقها البرنامج

مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Dim v As Object
Set v = CreateObject("SAPI.SpVoice")
v.Speak Target.Text
Set v = Nothing
End If
End Sub

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

إن شاء الله أعرضه فيما بعد

بالتوفيق

[hamada rizk]

اشكرك استاذ محمد على الرد والاهتمام

بس مش عارف الكود ده استخدمه ازاى

وياريت الكود الى بينطق باللغه العربيه

*******

شكرا استاذ  على    على الرد والاهتمام

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

لاضافة الكود

كلك يمين على اسم الشيت ثم view code

ثم لصق هذا الكود

بالتوفيق

[hamada rizk]

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

بجد تسلم جدا على اهتمامك   ومنتظر الطريقه العربيه

 

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

إن شاء الله قريب جدا

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

تحياتي 

[hamada rizk]

أكيد يأستاذنا 
حق حضرتك  ومنتظرين الخاصيه