ريان أحمد

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

فيما يخص مشكل التاريخ شكرا وأللف شكر وبارك الله فيك وجزاك الله كل خير لاحظ المرفق تجد انه يأتي الخلية التي حصل فيها تعديل هكدا $E$21 أريدها يكتب الكود بدلا من هذا الإختصار أين أضع التعديل للمشاركة السابقة كيف يقتصر التعديل بدلا من الورقة كلها على نطاق محدد وشكرا سلفا Taher_TQ.rar

hالسلام عليكم شكرا وألف شكرا قمة في التميز والإبداع حفظك الله --------------------------------------------------- أستاذي كنت قد قلتي لي عن ملف التعديل بتاريخ ستحاول فيه فهل من جديد

للرفع

السلام عليكم أريد أساتذتي الكرام أنه عندما يفتح البرنامج يقول للمستخدم أدخل كلمة المستخدم فيقوم بإدخالها إذا لم ينجح في إدخالها بعد ثلاث محاولات تخرج رسالة مفادها أنه سيتم حذف البرنامج بعد 05 دقائق

نعم هو المطلوب بارك الله فيك تعديل التلريخ والكود هل أكملتهم

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

الكود الذي وجدته في thisworkbook في أي حدث يوضع عندما تضغط على زر طباعة نتيجة البحث في الفورمشاهد ما ذا يصهر في , الورقة my con

السلام عليكم آسف إن كنت أثقلت عليك والملف لا يحتوي على H سرار ولا شي لقد وجد ت المشكل وهو كالتالي ملفي يحتوي على فورم دخول وكلمة سر أضعه في حدث thiswork book open حذفت الكود صبط كل شيئ لكن عندي إستفسار أستاذي الكود الثاني أين يوضع -------------------------- عندما تصغط على طباعة لاحظ ماذا يصهر في الزرقة ماي كون Dim vOldVal Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim bBold As Boolean Dim Fe, AA If Target.Cells.Count > 1 Then Exit Sub If ActiveSheet.Name = "My_Con" Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False End With If IsEmpty(vOldVal) Then vOldVal = "ÎáíÉ ÝÇÑÛÉ" bBold = Target.HasFormula VBA.Calendar = vbCalHijri With Sheets("My_Con") If .Range("A1") = vbNullString Then .Range("A1:H1") = Array("ÇáÎáíÉ ÇáÊí ÍÕá ÝíåÇ ÊÚÏíá", "ÇáÞíãÉ ÇáÓÇÈÞå ÇáÊí ßÇäÊ Ýí ÇáÎáíÉ", "ÇáÞíãÉ ÇáÌÏíÏÉ", "ÍÕá ÇáÊÚÏíá Ýí ÇáæÞÊ", "ÍÕá ÇáÊÚÏíá Ýí ÇáÊÇÑíÎ", "ÍÕá ÇáÊÚÏíá ãä ÞÈá ÇáãÓÊÎÏã", "ÊÇÑíÎ ÇáÊÛííÑ", "íæÒÑ") End If AA = .Cells(Rows.Count, 1).End(xlUp).Row With .Range("G2:G" & AA + 1) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With .Cells(.Rows.Count, 1).End(xlUp)(2, 1) .Value = Target.Address .Hyperlinks.Add Anchor:=.Offset(0, 0), Address:="", SubAddress:=(ActiveSheet.Name) & "!" & (Target.Address) .Offset(0, 1) = vOldVal With .Offset(0, 2) If bBold = True Then .ClearComments .AddComment.Text Text:="maicl2010@gmail.com:" & Chr(10) & "" & Chr(10) & "Êã ÅÖÇÝÉ ãÚÇÏáÉ Ýí åÐå ÇáÎáíÉ" End If .Value = Target .Font.Bold = bBold End With .Offset(0, 3) = Time .Offset(0, 4) = Date .Offset(0, 5) = Application.UserName .Offset(0, 6) = ActiveSheet.Name End With

أرفق ملف من فصلك لكي يتم المحاولة

الملاحظات هي عندما إخترت من القائمة الأوراق ظهر الخطأ الذي في المرفق عندما أجريت تعديل على ورقة كتب في الورقة ماي كون القيمة القديمة كانت خلية فارغة وهي لم تكن فارغة عندما أكتب تاريخ وأريد أن أمحيه بالكايبورد لا يمحى إلى إذا ظللته بالفأرة Sans titre.rar

السلام عليكم عمل رائع أستاذي كيف يتم إظافة أعمدة وإدخالهم في الفورم والبحث

الله يبارك فيك وفي عمرك في صحتك لقد عملت الكود والفورم ---- لكن بعد إستبدال SysWOW64 ب System32 الآن سأجرب جوانب الكود وسأعطيك الملاحضات لكي نصل إلى عمل متكامل C:\Windows\System32\MSCOMCTL.OCX ملاحظة هل كل مرة أثبت فيها اللأفيس أصف هذه الأداة

لم أجد هذه الجملة

أستاذي إليك ملف تجريبي نقلت إليه عمل والفورم ربما هناك خطأ في النقل test.rar

ref edit control. Sans titre.rar

السلام عليكم عندما حاول تطبيق ما طلبته لم تضهر References نشطة كما موضحة في الصورة Sans titre.rar

السلام عليكم عندما نقلت العمل إلى برنامجي وعندما حاولت إستدعاءالفورم لتجربتها ظهرت الرسالة التالية الرجاء حل المشكلة لإنتقل إلى تجربة جوانب العمل Sans titre.rar

ألف مبروك والله تستاهل كل خير

جاري التجريب

بارك الله فيك كود روعة ومفيد جدا ومحترف

شكرا وألف شكر جربت كل التعديلات ونجحت الحمد لله right]هذا حل مؤقت إلى أن اجد طريقة بإستخدام Hyperlin أنا انتصر الطريق الثانية

أخي أي إستفسار نحن هنا سنساعدك بكل ما أتينا من جهد

;والله إنك سوف تترك لك فراغا رهيبا لكن ما عسانا أن نقول تقبل الله منا ومنكم صالح الأعمال وسندعو لك ان تعود لنا سالما غانما

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