Ahmed Mohamed Eg

السلام عليكم 

لو سمحت ازاى أكتب أمر لصق paste فى ماكرو الباور بوينت لصورة مأخوذة كوبى 

وهل يوجد تسجيل ماكرو فى الباور بوينت مثل الوورد والاكسل 

شكرا جزيلا 

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

ارجو من الأساتذة الأفاضل لو في الإمكان عمل ملف يقوم بعمل المقاطع الصوتية للكلمات العربية المشكلة اوتوماتيك

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

لتدريب الأطفال على النطق بها 

مرفق نموذج للشكل المطلوب المقاطع الصوتية.xlsx

والله الموفق 

شكرا جزيلا - أ / محمد صلاح - جزاك الله خيرا على اكتمال الموضوع 

أهدي لحضرتك لينك أول فيديو من الفيديوهات التي سوف يكون لك دائما الفضل فيها

https://youtu.be/tmQ8Mkn6K7E

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

الأستاذ الفاضل / محمد صلاح 

تسلم ايد حضرتك على ابداع هذا الكود - جزاك الله خيرا 

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

وهي باختصار ان الكود بيعتمد أن تكون أسماء الملفات في تسلسل منتظم 

أتمنى أن يكون هناك حل بحيث لو وضعت مجموعة ملفات مسماه بأرقام معينة في القائمة

مثلا آيات معينة فى موضوعات معينة -  يقوم اليوزر فورم بتشغيلها 

ممكن تجربة عرض آيات (1 - 5 - 7) من سورة الفاتحة فقط 

أتمنى أن يكتمل الموضوع - وأن يكون مفيدا للجميع - وان لا أكون أثقلت على حضرتك 

شكرا جزيلا 

الأستاذ الفاضل / محمد صلاح 

تحية طيبة وبعد 

ارفقت لحضرتك الملف مرة أخرى به الكود البرمجي الذي أرسلته لي (جزاك الله خيرا) مضاف إليه ما اريد أن اصل إليه بصورة مصغرة ومختصرة 

وهي تشغيل قائمة الملفات الصوتية وألبوم صور معا في اليوزر فورم

هل ممكن أن اجعل الكود يعمل سيليكت متتالي اوتوماتيك فى الليست بوكس بعد انتهاء سماع الملف الصوتي

وفقكم الله تعالى بكل ما يفيد أعضاء المنتدى 

تشغيل قائمة ملفات صوتية وألبوم صور في اليوزر فورم.rar

طلب تعديل في كود تشغيل قائمة ملفات صوتية في الاكسل

الزملاء والأساتذة الكرام ... السلام عليكم ورحمة الله وبركاته , أرجو المساعدة في تعديل هذا الكود

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

طلب تعديل في كود تشغيل قائمة ملفات صوتية في الاكسل.rar

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

مرفق ملف به عدد 2 شيت 

الشيت الاول به كود ينطق الكلمات الانجليزية من ناطق الويندوز بالتوالي - كمثال للمطلوب

الشيت الثاني به كود ينطق النص المكتوب من ملفات wav المسجلة بالكمبيوتر - حسب تطابق اسم الملف الصوتي مع الخلية a1

احتاج مساعدة في تحديث كود الشيت الثاني لينطق النصوص العربية الموجودة بالخلايا بالتوالي بشكل اوتوماتيك

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

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

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

الأمر متروك للخبراء 

مع جزيل الشكر لكل الأساتذة العباقرة فى المنتدى 

سماع ملفات صوتية فى الاكسل.rar

أستاذي الفاضل للأسف الملف لا يعمل عندي ارجو التأكيد على عمل الملف لتكون المشكلة عندي فقط أو تحديث الكود 

عاجز عن الشكر 

الاساتذة الكرام 

تحية طيبة وبعد 

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

من اللغة الانجليزية إلى العربية

مع جزيل الشكر 

Public Function TERCUME(Kelime As Range, SL As String, TL As String)
Dim ie As New InterntExplorer
Dim doc As HTMLDocument
sltl = "sl" & SL & "&" & "tl" & TL
ie.navigate "https://translate.google.com/?hl=ar#view=home&op=translate&" & sltl
ie.Visible = False
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set kelimex = doc.getElementsByClassName("orig tlid=source=text-input goog-textarea")(0)
kelimex.Value = Kelime
Beklet (2)
Set cevap = doc.getElementsByClassName("tlid-translation translation")(0)
TERCUME = cevap.innerText
ie.Quit
Set ie = Nothing
End Function
Public Function Beklet(beklemezamanl As Double)
Start = Timer
Do
DoEvents
Loop Until (Timer = Start) >= beklemezamanl
End Function

ملف لحساب العمر بالسنين والشهور والأسابيع والأيام والساعات والدقائق والثواني
 

0003 حاسبة العمر.xlsx

0001 حاسبة النقود المصرية.xlsm

بمناسية اقتراب شهر رمضان كل عام وجميع الاساتذة والاصدقاء بخير 

ملف اصنع امساكية شهر رمضان بنفسك كل عام 

ويوجد فيديو يشرح فكرة الملف وخطوات التعامل معه

0003 مواقيت الصلاة وامساكية شهر رمضان.xlsm

الاساتذة الافاضل 
تحية طيبة وبعد 
أرجو المساعدة في كود بسيط بالملف 
يكتب لى فى  b1 هل ( الملف موجود ام غير موجود)
بمجرد كتابة اسم الملف فى a1 بدون عمل أى أزرار  
علما بأن جميع الملفات فى المجلد ستكون wav
مع جزيل الشكر 
 

الملف موجود أم غير موجود.rar

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

تسلم ايدك وجزاك الله كل خير 

ملحوظة

الكود وجدته يعمل جيدا طالما المجلد فى الـ C أما إذا نقلت المجلد إلى D  لا يعمل 

اللسان يعجز عن شكر الاستاذ الفاضل / بن علية حاجي

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

لكن قبل الكود المطلوب أحب أن اوضح بعض الامور 

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

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

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

قمت بايقاف الكود الخاص بالهايبر لينك وعمل معادلة هايبر لينك بدلا منه 
وذلك بوضع مسار الملفات فى الخلية الصفراء مع مراعاة تغيير هذا المسار حسب اسماء المجلدات ومواضعها فى جهازك
ولا تنسى وضع (\) فى اخر المسار لان المعادلة سوف تقرا المسار ثم اسم الملف
وهذا سوف يكون مناسب لشخص سوف يكتفى بمعادلة الهايبر لينك بدون أكواد بالملف

يمكنك وضع أى تصنيفات أخرى لعمل ترتيب للملفات أو فلترة بعد ذلك 

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

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

أتمنى ان يكون الموضوع مفيد لأعضاء المنتدى وان لا اكون أثقلت على الاستاذ الفاضل

مشروع عمل أرشيف للملفات.rar

شكرا جزيلا للأساتذة الكرام 

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

السلام عليكم

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

أرجو المساعدة فى عمل هذا الكود

وهو اضافة هايبر لينك لجميع اسماء الملفات على نفس اسماءها

بشرط

1 - ان الملفات موجودة فى مجلد واحد مجاور لهذا الشيت وليس مع شيت الفهرس فى مجلد واحد

2 - ان اسماء الملفات سوف يتم وضعها مانيوال والكود لا يقوم بسحبها اوتوماتك

مع جزيل الشكر

hyperlink.rar

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

ارجو المساعدة في تعديل هذا الكود وجدته فى ملف مسبق بالمنتدى 

بحيث عندما أنقر على الخلايا فى الشيت الاول يتم ترحيل ما انقر عليه في الشيت الثاني بالتوالي في آخر العامود 

وليس كما هو فى الشيت المرفق - فهو  يرحل آخر خلية يتم النقر عليها أعلى البيانات المرحلة وليس أسفلها

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

مع جزيل الشكر 

نسخ خلية بالنقر عليها الى ورقة بترتيب تنازلي.xls

الاخ الكريم سليم 

السلام عليكم

كود حساب عدد تكرار الكلمة رائع جدا

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

مع جزيل الشكر 

شكرا جزيلا الاخ الكريم والاستاذ الفاضل وكل عام وأنت بخير 

كلما اضفت كلمة محمد فى اي خليه يقوم بعد واحدة ويترك واحده ثم يقوم بعده واحده ويترك واحده وهكذا 

tekrar_salim.xlsx

السلام عليكم 

وكل عام وجميع الاساتذة والمشرفين والاعضاء بخير 

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

بدون أن أقوم بتكرار الدالة أمام كل خلية

لأن الكلمات المطلوب البحث عنها عددها كبير وأمام كل كلمة سيتم البحث عنها فى نفس النطاق 

المرفق موضح كل شئ 

مع جزيل الشكر 

طلب تطوير دالة حساب عدد تكرار كلمة معينة.xlsx

شكرا جزيلا استاذى الفاضل / علي 

لقد استخدمت نفس الكود الذى ارسلته لى فى الشكل المطلوب جزاك الله خيرا

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

لدي سؤال هل اليوزر فورم له مساحة محدوده فى التصميم والاستخدام أم ممكن أن يكون به أيضا سكلور بار إذا حمل أكثر من مائة زرار مثلا 

مرحلة إدخال البيانات.xlsm

مرحلة إدخال البيانات.xlsm

أستاذي الفاضل / الاخ سليم 

شكرا جزيلا على اهتمامك الدائم 

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

بحيث اقوم بعمل كود لكل زرار عند الضغط عليه يقوم بادخال هذا الصنف فى آخر خلية بالعامود فارغة 

مع جزيل الشكر 

السادة الأعضاء / تحية طيبة وبعد

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

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

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

مع جزيل الشكر 

مرحلة إدخال البيانات.xlsm