عادل حنفي

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

السلام عليكم اخي ليس لدينا رد علي هذا اكيد هنا مشكله اكتب سؤالك مرة اخري و الله المستعان تحياتي

السلام عليكم اخي تم عمل ربط بين اسم النغمة التي تريدها و الخلية A1 لتغييرها بما تريد فقط اذهب الي الرابط السابق و ستجد التعديل هناك او اضغــــــط هنــــــــــا تحياتي

السلام عليكم اضافة جديدة بناء علي طلب احد الاخوة فقط انسخ نغمة الصوت التي تريد ان يفتح عليها الملف و الصقها في المجلد الذي به ملف الاكسل و اكتب اسم النغمة في الخلية A1 و احفظ الملف و اغلقه و افتحه مرة اخري اخبرني النتيجة تحياتي form with sound.rar

السلام عليكم اخي انا ايضا لا اعرف اين المشكله و ان استمرت معك المشكلة اطرحها في موضوع مستقل بعنوان المشكلة ليقوم المسؤلون بحلها ان شاء الله و لسهولة حصولك علي المرفق المطلوب ارفق لك هنا الملف مرة اخري تحياتي form with sound.rar

السلام عليكم طبعا اخي فهل تسطيع التحدث مع شخص يتكلم بلغة غير لغتك الا اذا تعلمت لغته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم اخواني الاعزاء اضافة لموضوع اضافة صوت للاكسل تم اضافة جزء جديد الا و هو فتح فورم عند فتح الملف يصدر معه صوت و ينقطع عند عمل كليك علي الفورم موجود علي الرابط التالي اضغــــــــــط هنــــــــــــــــا تحياتي

السلام عليكم الشكر موصول للجميع علي المجهود المبذول اخي يوسف ارفق لك ملف اعجبتني فكرة اخي hben فاحببت ان انفذها و لكن بطريقة اشمل جرب المرفق و اخبرني النتيجة تحياتي العلامة العشرية1111.rar

حاول ضغط الملف اولا باحد برنامج ضغط الملفات و حاول مرة اخري

السلام عليكم اخي wael700 سؤالك هام جدا اولا لابد وان تعرف لغة ال visual basic او القليل عنها لتعرف اولا كيفية ان تعرف محتوي او معني الكود المكتوب ليضاف لمعرفتك و مره مع مره ستكتسب خبره في فهم الكود و بالتالي استطاعة كتابته و ما الكود الا طريقة للمحادثه بين ما تريد ان تفعله و كتابته بالغة التي يفهما البرنامج لينفذ ما دار براسك فمثلا لو اردت نسخ محتوي الخلية H20 و اللصق في الخلية G20 فتخيل نفسك و انك تقوم بذلك علي الطبيعة فانك ستحدد بالماوس الخليه H20 و الذي يفهمه الكود لعمل ذلك هو range("H20").select و بعد ذلك ستقوم بعمل كليك يمين و تختار copy و ما يفهمه البرنامج لعمل ذلك هو selection.copy اواو range("H20").copy و ستذهب و تحدد الخلية G20 و تعمل كليك يمين و تختار Paste وسيفهم البرنامج هذا بالشكل التالي range("G20").select Activesheet.paste انا قصدت هنا ان تتخيل معي نا يحدث لتقريب الصورة اليك ارجو ان تكون المعلومة قد وصلت اليك تحياتي

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

السلام عليكم اخي الفاضل ارجو منك الذهاب الي الرابط التالي ووضع رايك فيما تم اضافته تحت موضوع خاص بالصوت مع الاكسل و هذا هو الرابط اضغــــط هنــــــــــــــــــــــــــا خالص تحياتي

السلام عليكم اخواني اضافة جديدة لادراج الصوت مع الاكسل و لكن هذه المره يعمل الصوت عند فتحك للملف فيختفي ملف الكسل و تظهر فورم يعمل بعده الصوت لملف محفوظ مسبقا باسم 1.wav في نفس مسار ملف الاكسل و عند الضغط علي الفورم يقفل الصوت و كذلك الفورم و يظهر الاكسل ارجو ان تكون الاضافة مفيدة ملاحظه يجب عليك فك ضغط الملف كاملا اولا قبل فتح الملف خالص تحياتي form with sound.rar

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

السلام غلسكم اخي مرفق ملفان احدهما لحماية الخلايا التي يكتب بها معادلات داخل نطاق محدد و الاخر لمسح محتويات مجموعة متباعدة من الخلايا جرب المرفق و اخبرني النتيجة تحياتي Desktop.rar

عذرا اخي ايسم لم ار مشاركتك الا بعد رفع ملفي فاعذرني علي ذلك

السلام عليكم اخي تم عمل ما تطلبه عن طريق فورم عادي جرب الملف و اخبرني النتيجه تحياتي print0.rar

السلام عليكم اخي يوسف عطا ساجاوبك علي حد علمي بالنسبة للطباعة اختر وضع معاينه للصفحة المراد طباعتها ثم اضغط غلي setup و من تبويب Page وتحت المنتصف من القائمة التي ستظهر لك ستجد paper size و امامها قائمة منسدلة اختر منها A4 ثم Ok تحياتي

السلام عليكم اخي الكريم Mostafa Riyad لك كل شكري اخي العزيز علي كلماتك التي سعدت بهاكثيرا و اكثر ما تسعدني به هو اتمام افادتك بها لتسهيل عملك فلك كل شكري و تقديري اما بالنسبه للطريقة في محرر الاكواد قم باضاقة قورم جديد و ضع بداخله عدد 2 تكست بوكس و زران احدهما سمه باسم Print و الاخر باسك cancel في محرر اكواد الزر Print الصق الكود التالي Private Sub CommandButton1_Click() If TextBox1 = "" Or TextBox2 = "" Then MsgBox ("اكمل البيانات") Exit Sub End If If TextBox1 > TextBox2 Then MsgBox ("يجب ان يكون هنا الرقم الاصغر") TextBox1.SetFocus Exit Sub End If m = TextBox1.Value n = TextBox2.Value For i = m To n If i = m Then GoTo 1 Range("m9") = i ActiveSheet.PrintOut Next Exit Sub 1: ActiveSheet.PrintOut Exit Sub ثم اذهب الي الشيت و اضف زر سمه وفي محرر اكواده الصق الكود التالي Private Sub CommandButton1_Click() UserForm1.Show End Sub و بالنسبه لعدم ظهور الزر في الطباعة ضع الزر خارج مجال الطباعة ارجو اخباري ان لم تكن اي نقطة واضحة خالص تحياتي و تقديري

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

السلام عليكم اخي جرب الملف المرفق تم اضافة زر للمسح و كود عند فتح الصفحة لاخفاء الخلايا الفارغة جرب الملف و اخبرني النتيجة معادله بكود.rar

السلام عليكم اخي الفاضل تم وضع كود لغمل المعادلة المطلوبه و في المدي المطلوب بشرط وجود قيمة في العمود f او العمود G جرب الملف و اخبرني النتيجة تحياتي Book124.rar

السلام عليكم اخي Mostafa Riyad تم عمل زر عند الضغط عليه سيظهر لك فورم به 2 تكست بوكس الايمن تضع الرقم الاصغر و في طلبك هو 170 و الاخر تضع به الرقم الاكبر و في طلبك هو 210 و طبعا متاح لك تضع اي ارقام تريدها بس لابد ان يكون الاصغر يمينا و الاكبر يسارا جرب الملف و اخبرني النتيجة مرفق لك الملف علي 2003 و 2007 فاختار ما تراه لعملك تحياتي Sales.rar

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

السلام عليكم اخواني الكرام بحثت كثيرا عن كود لحفظ خلايا محددهلتكون كصوره و خاصة عن طريق برنامج ال Paint الموجود علي الجهاز فوجدت جميع الكواد كبيرة و معقدة و قد يكون بها بعض الاخطاء و بعد تجارب كثيرة تم عمل الكود التالي ارجو ان تكون هناك استفادة منه خالص تحياتي و تقديري save selection.rar