حمادة عمر

جزاك الله خيرا

جاري التحميل جزاك الله خيرا

جزاك الله خيرا

تم نقل الموضوع للمنتدي المفتوح ========== الادارة ==========

جزاك الله خيرا اخي الكريم

اليكم هذا الرابط رابط مجلة اوفيسنا الدورية الشهرية http://www.officena.net/ib/index.php?showannouncement=24&f=135

جزاكم الله خيرا

مشاركة وضعت بالخطا ................ جزاكم الله خيرا

جزاكم الله خيرا

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

السلام عليكم الاخ الكريم / احمد عبد الفتاح بارك الله فيك قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه والكود كالتالي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ ' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت Cancel = True ' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي 'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه .. Me.CommandButton1.Visible = False 'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1 ' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 'مخفيا ليتم استعداؤه بعد ذلك Me.CommandButton1.Top = ActiveCell.Top 'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 'النشطة والتي تم تنشيطها بعد الضغط دبل كليك Me.CommandButton1.Left = ActiveCell.Left 'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية 'النشطة والتي تم تنشيطها بعد الضغط دبل كليك Me.CommandButton1.Visible = True 'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False وذلك لجعل 'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True End Sub 'السطر السابق يعني انهاء المهمة بالكامل ارجو ان اكون وفقت في شرح الكود كما ينبغي وان لم يمكنك التنفيذ ابلغني وسوف اعد لك ان شاء الله شرح فيديو يوضح ذلك تقبل خالص تحياتي

ولاثراء الموضوع ... استاذنا / أبو انتصار شاهد هذا الملف الراائع من سلسة دروس الاستاذ القدير / عماد الحسامي ... جزاه الله خيرا والخاصة باليوزفورم الدرس السادس.rar

بارك الله فيك

جزاك الله خيرا

السلام عليكم الاخ الكريم / سامي حمزة بارك الله فيك علي حسب فهمي لطلبك ... فان الرابط التالي به طلبك http://www.officena.net/ib/index.php?showtopic=37245&hl=%2B%D8%A7%D9%83%D8%AB%D8%B1+%2B%D8%AA%D9%83%D8%B3%D8%AA تقبل خالص تحياتي

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

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

السلام عليكم الاخت الفاضلة / سحـابة خير بارك الله فيكي بعد اذن اخي الحبيب / وليد فتحي ... جزاه الله خيرا طريقة باستخدام الكود لتنفيذ طلبك علي العمود A قومي بكتابة الرقم 1 الي 5 في اي خلية في العمود A وشاهدي النتيجة في العمود A في الخلية نفسها باستخدام الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer For i = 1 To 25000 If Cells(i, 1) = 1 Then Cells(i, 1) = "Pre Foundation" If Cells(i, 1) = 2 Then Cells(i, 1) = "Foundation" If Cells(i, 1) = 3 Then Cells(i, 1) = "Emerging" If Cells(i, 1) = 4 Then Cells(i, 1) = "Established" If Cells(i, 1) = 5 Then Cells(i, 1) = "Accomplished" Next End Sub تقبلي خالص تحياتي ملفات مرفقة تقييم .rar

بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا قم بتعديل الكود الخاص باخي شوقي الي الكود التالي (تعديل طفيف جدا ) ... الذي اعلم انه قد نسيه Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2014") Then M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??" Application.Quit End If: End If: End If: End If 1 End Sub تقبل خالص تحياتي ملفات مرفقة Booeeeeeeeeee.rar

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

بارك الله فيك اخي الكريم / احمد تقبل خالص تحياتي

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

جاري التحميل وان شاء الله مشاركات موفقة ... وفعالة

جاري التحميل ........