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

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

أستاذ خالد بارك الله فيك أستاذنا العيدروس شرفت بمروركم وشكرا على هذه الاضافة الأكثر من رائعة يا زيزو يا بسكرى العيديه بتاعتك أهه افتح الفيجوال المحمى بكلمة سر كل سنة وأنتم جميعا بخير Open Visual Basic Editor .rar Open Visual Basic Editor .rar

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

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

بارك الله فيك يا استاذ محمد وهذا المعادلة أيضا تعطى نفس النتائج =MAX(IF($A$4:$A$10=C4;$A$4:$A$10;C4)) تحياتى

السلام عليكم و رحمة الله و بركاته خير الكلام ما قلّ و دلّ كما هو واضح من العنوان أعرض عليكم كود فتح الفيجوال بيزك أو محرر الأكواد Sub OpenVBE() Application.Goto "OpenVBE" End Sub الكود يوضع فى مديول عادى ...... بس خلاص تحياتى للجميع

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

أشكرك أستاذى العزيز على اجابتك و سعة صدرك لكن سؤالى الأساسى عن ملف حضرتك Formatted Userorm Caption فى موضوعك كيفية تغيير لون شريط العنوان لليوزرفورم و تغيير شكل و لون و حجم الخط ال Caption لماذا لا يعمل عندى هذا الملف أعمل على mso 2010 معلش ان كنت تعبتك معى الملف بصراحة جميل وعايزه يشتغل على العموم أنا سأعيد تحميله جايز يكون هناك خطأ

السلام عليكم بارك الله فيك أخى ابراهيم على هذا المجهود الرائع فى ميزان حسناتك باذن الله اضافة بسيطة للشروط هناك If IsError لاختبار ما اذا كانت الخلية بها خطأ مثل #N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, or #NULL! Sub Mokhtar_IsError() If IsError(Range("C1").Value) Then MsgBox "'C1 قيمة خاطئة فى الخلية " Else MsgBox "'C1 قيمة صحيحة فى الخلية " End If End Sub يمكن تعديل الكود السابق ونستخدم Select Case Sub Mokhtar_IsError2() Dim msg As String If IsError(Range("C1").Value) Then Select Case Range("C1").Value Case CVErr(xlErrDiv0): msg = "#DIV/0!" Case CVErr(xlErrNA): msg = "#N/A" Case CVErr(xlErrName): msg = "#NAME?" Case CVErr(xlErrNull): msg = "#NULL!" Case CVErr(xlErrNum): msg = "#NUM!" Case CVErr(xlErrRef): msg = "#REF!" Case CVErr(xlErrValue): msg = "#VALUE!" End Select MsgBox msg & " " & "نوع الخطأ فى الخلية " Else MsgBox "لا توجد أى قيم خاطئة فى الخلية " End If End Sub لو عايز تجرب الكود اكتب فى 'C1 المعادلة دى 5*moktar= النتجة قيمة خطأ لاننا ضربنا نص فى رقم تحياتى

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

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

بارك الله فيك أخى الحبيب العزيز زيزو أستاذى الفاضل جعفر ملف الأستاذ محمد يعمل عندى تمام و ملف حضرتك FormattedUserFormCaption لا يعمل عندى هل هذا معناه أن فيه كونترول أو dll ناقص عندى ؟ مع ملاحظة أن الفيجوال بيزك عندى ما قالش أن فيه dll مفقود الملف بصراحة جميل وعايزه يشتغل لأن فكرته جميلة أوى فيه حاجة كمان مش قادر أفهمها حضرتك قلت على ملف الأخ محمد أن " الكود في الملف يحتاج الى كونترول أو dll .. فهو لا يشتغل عندي " و قلت " جعل الفورم شفاف مع التحكم في درجة الشفافية لا يحتاج الى أي كونترولات أو Com Dlls " طيب ماشى ..... فى ملف الأستاذ محمد بنقدر نتحكم فى درجة الشفافية ..... اذن الملف لا يحتاج الى أي كونترولات أو Com Dlls ؟ صح كده ولا أنا فيه حاجه مش واخد بالى منها ؟

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

جميل جدا يا أستاذ محمد عبد السلام بارك الله فيكم هذا الرابط مفيد و له علاقه بموضوعك http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ أطلب من الادارة تعديل لعنوان الموضوع الى كود للتحكم فى درجة شفافية الفورم ليصبح العنوان أكثر تعبيرا عن محتواه تحياتى

مديول عادى جديد و اربطه بزر لو حبيت تخلى الكود يشتغل على الجانبين False و True أدرج شكل تلقائى وليكن Rounded Rectangle خلى بالك من اسم ورقم الشكل لأننا بنحطهم فى الكود Option Explicit Sub DisableRowsColumns2() With ActiveSheet.Shapes("Rounded Rectangle 2").TextFrame2.TextRange.Characters ' لاحظ اسم ورقم الشكل التلقائى If .Text = "Disable Rows Columns" Then .Text = "Enable Rows Columns" Application.CommandBars("Column").Enabled = False Application.CommandBars("ROW").Enabled = False Else .Text = "Disable Rows Columns" Application.CommandBars("Column").Enabled = True Application.CommandBars("ROW").Enabled = True End If End With End Sub ايقاف خاصية التحكم بتكبير وتصغير الاعمده والصفوف .rar

أمس جه فى بالى ازاى أعرض على المستخدم رسالة على فترات زمنية متفطعة وكمان من غير ما يضغط المستخدم على زر زى ok cancel Retry ..... طبعا الرسائل العادية المعروفه لا تمكنا من ذلك خاصة وأن فيها على الأقل زر ok فكتبت هذا الكود مستخدما اليوزر فورم لعرض رسالة على فترات زمنية متفطعة على المستخدم Option Explicit Sub showUF() Dim i As Integer For i = 1 To 3 'عدد مرات العرض Application.OnTime Now + TimeValue("00:00:01"), "UnloadUF" ' مدة عرض الفورم UserForm1.Show Next i End Sub Sub UnloadUF() UserForm1.Hide Application.Wait Now + TimeValue("00:00:01") ' مدة اختفاء الفورم End Sub كيفية عرض عدة رسائل على المستخدم على فترات زمنية متقطعة لتنفيذ هذا يلزم عدد معين من اليوزر فورم كل فورم به رسالة مختلفة فاستخدمت أسلوب المصفوفات فى عرض هذه الرسائل على المستخدم فكان هذا الكود الذى يعرض عددا من اليوزر فورم زاحد تلو الآخر Option Explicit Dim X As Integer Dim iuserform As Variant Sub showUF() ' by mokhtatr 19/9/2015 iuserform = Array(UserForm1, UserForm2, UserForm3, UserForm4) For X = LBound(iuserform) To UBound(iuserform) Application.OnTime Now + TimeValue("00:00:01"), "UnloadUF" ' مدة العرض iuserform(X).Show Next X End Sub Sub UnloadUF() iuserform = Array(UserForm1, UserForm2, UserForm3, UserForm4) iuserform(X).Hide Application.Wait Now + TimeValue("00:00:01") End Sub تفضلوا المرفقات كل عام وأنتم بخير displays a timed messages on the UserForm by mokhtar.rar displays a timed message on the UserForm by mokhtar.rar

أستاذ عمار الكود التالى يمنع التعامل مع الأعمدة والصفوف Sub DisableRowsColumns() Application.CommandBars("Column").Enabled = False Application.CommandBars("ROW").Enabled = False End Sub للعودة غير False الى True

ان شاء الله تعالى . سعدت وشرفت بك تحياتى

أشكرك أستاذى الكريم على الرابط على فكرة صاحب الموقع هو Mr. Jan Karel Pieterse الراجل ده أنا تواصلت معاه فى أحد المنتديات الأجنبية الخاصه بالاكسل كان حول لى Windows API declarations من 32 الى 64 فى كود خاص بالموضوع التالى http://www.officena.net/ib/index.php?showtopic=59963 وأعطانى رابط موقعه ده لكى أفهم تحويل Windows API declarations من 32 الى 64 وبرضه ما فهمتش كنت عايز زيادة وتفصيل وتطبيقات على الموضوع كل سنه وحضرتك والمسلمين بخير بمناسبة عيد الاضحى تقبل تحياتى

بارك الله فيك أستاذنا جعفر الطريبق لكن لى ملحوظتان وطلب الملحوظة الاولى : أنا أعمل على win 7 32 bit ومنشط كل المكتبات والمراجع ولم يعمل الملف الفورم لم يظهر كما فى الصورة الواردة فى مشاركتك الاولى ولما ضغطت على Done حصله وميض اخضر واختفى الملحوظة الثانية : قد يكون تعديل ال Windows API declarations ليس أمرا صعبا بالنسبة لك . ولكنه لا يتطلب امتلاك جهاز جديد بل نسخة ويندوز 64 بت فقط ليه التكاليف !!!! الطلب : تشرح لنا بالتفصيل فى موضوع مستقل " تعديل ال Windows API declarations من 32 الى 64 " لأنى تواصلت مع أساتذة أجانب ولم أفهم عنهم جيدا بسبب فرق مستوى اللغة فالحمد لله أنك معانا فى المنتدى لتشرح لنا ما نجهله . تقبل تحياتى وتقديرى لشخصكم الكريم

أشكرك أخى العزيز الى قلبى زيزو البسكرى أشكرك على كلامك الطيب بحقى ان طال الغياب فالشوق غلاب الى منتدى الاحباب نعمل ايه فى الدنيا ومشاغلها !!!!

تفضل Add Rows mokhtar 2 .rar

وهذه اضافة أيضا قد تفيد بأن اسم الزر فى اليوز فورم يتغير مع تغير العملية الحسابية Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "جمع " Then Me.CommandButton1.Caption = "ضرب " Me.CommandButton1.BackColor = RGB(0, 255, 0) TextBox4 = Val(TextBox2) + Val(TextBox3) Else Me.CommandButton1.Caption = "جمع " Me.CommandButton1.BackColor = RGB(255, 0, 0) TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub مهمتين لزر واحد .rar

أخى العزيز أبا الحسن والحسين ملحوظة مهمة جرب المرفق التالى Add Rows mokhtar 2 .rar

أشكرك أخى الفاضل أبا الحسن والحسين