مختار حسين محمود

اعمل repair من ملف الـــــ setup اللى سطبت منه الاوفيس اضغط مرتين هيديك خيارات اختر repair ثم اعادة تشغيل الجهاز أو اتصل بعبد البارى :biggrin:

المفقود هنا http://www.officena.net/ib/index.php?showtopic=57755 وشكرا على لفت الانتباه .

الأستاذ ياسر خليل (ولكل الزملاء ) المرفق به الملفات الثلاثة التى أرفقتها فى مشاركتى فى موضوعك وزيادة الزيادة هى الثلاث خطوط المرفقه . ملفات الورد الثلاث زى ما قلنا فى المسار اياه programfiles ثم microsoftoffice ثم Office14 ثم STARTUP أما الخطوط الثلاثة توضع فى المسار التالى windows ثم fonts ونقص الثلاث خطوط دى أدى الى حدوث الخطأ اللى قلت عليه فأنا حملت الخطوط ديه وجربت لقيت الموضوع ظبط معايا فشكرا لحضرتك أولا لأنك لفت نظرى لنقطة الخط . جرب حضرتك وشوف تحياتى للجميع xxxxxxxxxxxxx.rar

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

أستاذى الفاضل عامل ايه النهرده أرجو أن يكون الدينامو اشتغل فك الضغط عن المرفق ضع الملفات الناتجه بعد فك الضغط عنها فى المسار التالى C:\Program Files\Microsoft Office\Office12\STARTUP عند فتح الوورد ستجد قائمة في اعلى الصفحة في الجهة اليسرى من الشاشة فيها الوظائف الاضافية اضغط عليها تقبل تحياتى Math_Templates.rar

السلام عليكم لو تقصد اعطاء ترتيب لكل طالب ( وليس ترقيم ) تفضل عملت ترتيب للطلاب فى العمود G بناء على القيمه المسجله فى العمود C أرجو أن أكون وفقت معك تقبل تحياتى تاريخ الطالب.rar

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

ايه العلاقه بين A B C ؟ جمع طرح قسمه ..........الخ وضح ذلك فى ملف أفضل وتشرح طلبك يمكن ربنا ياخد بيدنا ونقدر نساعدك والبركة الكبيرة فى استاذنا ياسر فاكهة وشربات منتدانا بسم الله ما شاء الله دينامو الموقع الذى لا يهدأأأأأأأأأأأأأأأأأ

أخى الفاضل لم تذكر بالتحديد أنك تريد زر فى طلبك بارك الله فيك وفى الأخ عبد الله

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

تفضل Book2.rar

أهلا بك أستاذ عبدالله فى المنتدى على ما فهمت من طلبك استخدم المعادلة الاتيه ((IF(A1=B1;C1;SUM(A1;B1 = المعادلة معناها لو A1 = B1 الناتج يكون قيمةC1 وان كان غير كده الناتج يكون ( كذا ) وهو هنا فى المعادله ( مجموع A1 و B1 ) أرجو أن أكون فهمتك صح

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

الأستاذ ياسر لما ضغطت الزر فتح ال vbe على السطر Open MyFile For Output As #1 ورسالة الخطأ كانت بالرقم 75 ولم يخرج الملف الى الـــ c نهائيا إلا بعد ما عملت فولدر جديد وبالشكل االلى عرضته فى مشاركتى السابقه .

أستاذ ياسر السلام عليكم أقدم حلا بدون تغيير ملحوظة قبل الحل : فى الكود الأصلى حصل خطأ فى السطر Open MyFile For Output As #1 "تم تصحيحه بتغيير بسيط فى مسار الملف . تفضل الكود والنتيجة : Option Explicit Sub WriteDataToTextFile() Dim MyFile As String, Rng As Range, CellValue As Variant, I As Integer, J As Integer ' أضف هذا السطر Dim stEncoding As String, stSeparator As String Set Rng = Selection ' أستاذ ياسر فيه خطأ عندك فى كودك فى السطر التالى ' MyFile = "C:\Test.txt" ' والتعديل يصبح كالتالى MyFile = "C:\MyDocuments\Test.txt" 'لإزالة الفواصل والرموز أضف السطرين التاليين stSeparator = vbTab stEncoding = "UTF-8" Open MyFile For Output As #1 For I = 1 To Rng.Rows.Count For J = 1 To Rng.Columns.Count CellValue = Rng.Cells(I, J).Value If J = Rng.Columns.Count Then Write #1, CellValue Else Write #1, CellValue, End If Next J Next I Close #1 End Sub لاحظ أنه تم إنشاء فولدر باسم MyDocuments فى الـــــــــ c يتم استخراج الملف Test.txt فيه والنتيجة كانت كالتالى "Col-A","Col-B","Col-C","Col-D" "Yasser","Ahmed","Reda","Hany" "Gamal","Rabab","Shahd","Fahd" "Baraa","Mariam","Nour","Salah" "Yasin","Hussein","Laila","Salim" والسلام عليكم وانتظر منى لغز جميل وبلاش :wink2:

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

الأخ صلاح السلام عليكم lib المذكور فى الجزئية Private Declare Function Beep Lib "kernel32 " _ (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long أ ول كلمة هي private وهي تحدد مدى وظيفة او اجراء ثاني كلمة هي Declare و هي كلمة للإعلان عن دوال (الـ API ) يمكنك البحث عنها فى النت ثالث كلمة هي Function وهي تدل على أننا سنعلن عن وظيفة او داله( كذا ). رابع كلمة هي Beep وهو اسم هذه الوظيفه وهى تستخدم للتنبيه أو إصدار صوت. بعد ذلك "Lib "kernel32 وهي تحدد اسم المكتبة التي سنأخذ منها هذه الوظيفة، و الكلمة Lib هي اختصار لكلمة مكتبة Library .. فى جهازك وكل الاجهزة بوجد العديد من المكتبات المكتبات دى توجد فى نسخة الويندوز فى ال c على سبيل المثال المكتبة gdi32 ، kernel32 ، user32 ،....ألخ هذه المكتبات بها ملفات مشهوره تسمى dll تستخدم فى تشغيل واستدعاء البرامج . ( اوعى تحذف الملفات دى ...... النسخة تسقط منك ) أما ما بداخل القوسين معناه أنه يتم تمرير المتغيرات المطلوبة من قبل الوظيفة . و يتم الإشارة إليها بالكلمة ByVal وليس ByRef لأننا نود تمرير القيمة فقط وكفايه كده عليك . كمل أنت وابحث عن داله التنبيه .

السلام عليكم اخوانى فى المنتدى حد من زملائى بيقول ايه الاكسل ده اللى واكل دماغك قلت الاكسل بحر عميق وكريم تديه معلومه يديك مليون وجاتنى الفكره دى تخيلت ان الاكسل طالب دخل امتحان فى كل المواد عربى وانجليزى وحساب وكتابه وقراءة وخط عربى وموسيقى ادخل على الرابط التالى وشوف الاكسل عمل ايه فى الامتحان . http://www.mediafire.com/download/bcg2es19ovi9b54/excell_in_exam_by_mokhtar_1.rar الاكواد المستخدمة مع بعض الشرح : 'الكود التالى يوضع فى حدث الورقة 'هذا الكود لاظهار شريط عنوان متحرك فى الخلية ( f2) Private Sub Worksheet_SelectionChange(ByVal Target As Range) t = " اعمل لدنياك كأنك تعيش أبدا واعمل لآخرتك كأنك ستوت غدا " n = 0 Do While n < 5000 t = Right(t, Len(t) - 1) & Left(t, 1) [f2] = t w = 0.1 temp = Timer Do While Timer < temp + w DoEvents Loop n = n + 1 Loop End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'الكود التالى يوضع فى مديول 'هذا الكود لنطق الخلية النشطة Sub mokh_speak() ' record by mokhtar 11/12/2014 3:48 'الاستماع للصوت عن طريق speechcommands ' هذا البرنامج يتوفر فى ويندوز 8 و 7 ' اختيار القطاع ( الخلية ) النشطة ونطقها ActiveCell.speak ' يمكن اضافة هذه الرسالة على الكود OutPut = MsgBox("صح ولا غلط يامخ؟", vbOKOnly, "مع تحياتى/ مختار حسين") End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'هذا الكود لاحضار الداتا المكتوبه فى خليه أو خلايا من نفس الشيت 'يمكنك تعديله لاحضار الداتا من شيت آخر باضافة اسم الشيت الى المدى Sub mokh_what() MsgBox Range("m27") & vbNewLine & Range("m28") & vbNewLine & Range("m29") & vbNewLine & Range("m30") & vbNewLine & Range("m31") & vbNewLine & Range("m32") End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'الكود التالى لوضع او نسخ محتوى خليه فى اخرى Sub mokh_Write() Cells(18, 8) = Cells(15, 8) End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'الكود التالى يضم عدة أكواد لتشغيل اصوات ذات امتداد يسمى ويف 'هذه الاصوات لكى تعمل لازم تكون فى نفس مسار ملف الاكسل 'ولازم يكون اسم الصوت موضح فى الكود لتشغيله Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_LOOP = &H8 Const SND_NOSTOP = &H10 Dim RunPause As Boolean Sub Sound_1() ' لتشغيل سورة الاخلاص Call PlaySound(ThisWorkbook.Path & "\ekhlas.wav", 0&, SND_SYNC) End Sub Sub Sound_123_sync() Call PlaySound(ThisWorkbook.Path & "\one.wav", 0&, SND_SYNC) Call PlaySound(ThisWorkbook.Path & "\two.wav", 0&, SND_SYNC) Call PlaySound(ThisWorkbook.Path & "\three.wav", 0&, SND_SYNC) End Sub Sub song() ' لتشغيل اغنيه باسم song Call PlaySound(ThisWorkbook.Path & "\song.wav", 0&, SND_SYNC) End Sub Sub song2() ' لتشغيل صوت رنة الموبايل Call PlaySound(ThisWorkbook.Path & "\ranna.wav", 0&, SND_SYNC) End Sub Sub song3() ' لتشغيل دعاء البراك Call PlaySound(ThisWorkbook.Path & "\doaa.wav", 0&, SND_SYNC) End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'الكود التالى لتشغيل اصوات تشبه السلم الموسيقى Private Declare Function Beep Lib "kernel32" _ (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Sub Beep_1() DoEvents 'first value is the frequency in Hz Beep [B21], 1000 'second value is the sound duration in ms End Sub Sub Beep_steps() For i = 1 To 30 DoEvents [h49] = 200 * i ' فى هذه الخليه يظهر الرقم المساوى للصوت Beep 200 * i, 400 'Beep "frequency" "duration" DoEvents Next i End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx والسلام عليكم أرجوا أن ينال الملف اعجابكم وأن تعتبروه فى المقام الأول درس تعليمى وليس لمجرد التسليه أو الفكاهة

أستاذ مجدى والله من صورتك على البروفيل حبيتك فى الله فالصورة تظهرلى ما أنت عليه من تواضع وبشاشة و خلق كريم . أما أنت يا عم ياسر يبدو من كلامك وشروحاتك أنك شديد الذكاء تتحدى الصعاب وايديك تتلف فى كود أقصدى حرير بس ما قلتليش على كلمة السر ايه هى ؟؟ ولا قلتليش فتحت الهديه ازاى ؟؟ بطفاشه ولا مرزبه ولا MasNoPass. :wallbash: على العموم أنا كنت عارف أن حتة السلوفان مش هتمنع أى حد من الدخول الى الملف . لييييييييييييييييييييييييييييييييييييييييييه ؟ لأن حماية ملفات الإكسيل في وجهة نظري القاصرة صفر .. إلا إذا تحول الملف لملف تنفيذي .. :wavetowel: :clapping: أيضا يلا دلوقتى مخلص على الملف من ظهر اليوم وأنا على الكمبيوتر ضفت فيه امتدادات الفيديو و الصوت والصورة الشهيرة . والآن أترك لك وللمنتدى النسخة المعدلة من البرنامج والتى تشغل معظم امتدادات الفيديو و الصوت والصورة الشهيرة . ملحوظه فى غاية الأهميه : أوجه النداء الى فنان منتدانا العريق الأستاذ الفنان ضاحى غريب الى تحويل الملف الى عمل فنى من أعماله الرائعة . والسلام عليكم والى اللقاء فى موضوع آخر غريب وجديد :Rules: moktarplayer 2015 © version 1.1.rar

تفضل الملف مع تعديلات جمالية ورقة عمل Microsoft Excel جديد ‫(5)‬.rar

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

عمل رائع فعلا أنا أفضل الموضوعات المميزة والغريبة جزاك الله كل خير

أستاذى ياسر الأستاذ عبدالموجود بدر السلام عليكم ورحمة الله وبركاته وبعد,,, أولا - شرفنى مروركم الكريم . ثانيا - والله ما قصدت بغلق محرر الأكواد إلا الخير . كل ما هو هنالك أنى قصدت الآتى : أ – اضافة عنصر التشويق والاثارة للموضوع . ب – اختبار مدى قوة حماية البرنامج ومدى صموده أمام طرق كسر الحماية فى الاكسل ( أدعوكم الى كسر حماية البرنامج وإخبارى ). ج – وهو الأهم أن البرنامج لازال فى مرحلة التطوير . د – جارى العمل على تشغيل معظم امتدادات الفيديو ( يمكنكم الآن تشغيل : mpeg - avi - wmv - mpg - asf ) وبعد كده يا أحباب معقوله اللى يقدم هديه لحبايبه يقدمها مفتوحة ولا يقدمها مغلفة بالسلوفان ؟!!!! ( الكلام موجه لأخى ياسر ) *** ومع كلٍ بمجرد الانتهاء من اضافة الامتدادات الشهيرة سأرفعه مفتوحاً أيضا بإذن الله تعالى سأضع معظم امتدادات الصوت وكذلك امتدادات الصورة أيضاً. كلمة أخيرة عايز أقولها للزملاء وهى أن أكواد البرنامج الأصلية صراحةً ليست لى طبعأ وانما هى حصيلة بحث طويل فى المنتديات هنا وهناك. لا تنسونا من صالح الدعاء لى وللمرحوم أبى . رحم الله موتانا وموتاكم وجميع موتى المسلمـــــــــــين .... اللهم آمين

أساتذتى وأصدقائى وأحبابى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته وبعد ,,,, فكرت أن أقدم هدية الى منتدانا العريق فى العام الجديد 2015 إن شاء الله ففكرت أن أقدم موضوعا لم يسبقنى اليه أحد أو موضوع قلّ الحديث عنه (على ما أعتقد والله أعلم ) وهو موضوع تشغيل الفديو على الاكسل وهو موضوع حاولت العمل فيه من العام الماضى ولم أفلح فبحثت وصولت وجولت شرقاّ وغرباَ الفترة الماضية حتى جمعت أشلاء الموضوع المتناثرة هنا وهناك وتمكنت بفضل الله من بغيتى وها أنا أقدمه لكم هدية فى العام الجديد جعله الله عز وجل عام خير وبركة على مصر والمصريين وكافة المسلمين . ملحوظة : 1 - البرنامج لا يشغل كل الامتدادات 2- أنتظر ردودكم وملاحظاتكم . طبتم وطاب مقامكم ,,,تحياتى للجميع moktarplayer 2015 ©.rar

لا أستاذى لم أنسه .......... وانما ظنت أن هناك لعبه أخرى مخفيه