ريان أحمد قام بنشر مارس 22, 2012 الكاتب قام بنشر مارس 22, 2012 (معدل) الله يبارك فيك وفي عمرك في صحتك لقد عملت الكود والفورم ---- لكن بعد إستبدال SysWOW64 ب System32 الآن سأجرب جوانب الكود وسأعطيك الملاحضات لكي نصل إلى عمل متكامل C:\Windows\System32\MSCOMCTL.OCX ملاحظة هل كل مرة أثبت فيها اللأفيس أصف هذه الأداة تم تعديل مارس 22, 2012 بواسطه tahar1983
ريان أحمد قام بنشر مارس 22, 2012 الكاتب قام بنشر مارس 22, 2012 (معدل) الملاحظات هي عندما إخترت من القائمة الأوراق ظهر الخطأ الذي في المرفق عندما أجريت تعديل على ورقة كتب في الورقة ماي كون القيمة القديمة كانت خلية فارغة وهي لم تكن فارغة عندما أكتب تاريخ وأريد أن أمحيه بالكايبورد لا يمحى إلى إذا ظللته بالفأرة Sans titre.rar تم تعديل مارس 22, 2012 بواسطه tahar1983
الـعيدروس قام بنشر مارس 23, 2012 قام بنشر مارس 23, 2012 السلام عليكم الاخ الفاضل طاهر ارجو منك ارفاق الملف الذي تعمل عليه كي اعرف اين تكمن المشكلة ولإختصار الوقت والجهد اذا كان فيه اسرار عمل ارسله على ايميلي والسلام عليكم
ريان أحمد قام بنشر مارس 23, 2012 الكاتب قام بنشر مارس 23, 2012 السلام عليكم آسف إن كنت أثقلت عليك والملف لا يحتوي على 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
الـعيدروس قام بنشر مارس 23, 2012 قام بنشر مارس 23, 2012 (معدل) أي كود تقصد و ماذا يظهر ؟؟ تم تعديل مارس 23, 2012 بواسطه alidroos
ريان أحمد قام بنشر مارس 23, 2012 الكاتب قام بنشر مارس 23, 2012 الكود الذي وجدته في thisworkbook في أي حدث يوضع عندما تضغط على زر طباعة نتيجة البحث في الفورمشاهد ما ذا يصهر في , الورقة my con
الـعيدروس قام بنشر مارس 23, 2012 قام بنشر مارس 23, 2012 في حدث ThisWorkbook زر طباعة يطبع نتيجة البحث التي في ListView
ريان أحمد قام بنشر مارس 23, 2012 الكاتب قام بنشر مارس 23, 2012 السلام عليكم شكرا في الملف الذي تم تعديله ليصبح يحتوي عل إختيار الأوراق الذي حذث فيها التغيير عندما تضغط على زر طباعة نتيجة البحث تضهر أسماء وأشياء لم أفهمها في الورقة my con Taher_TQ.rar
الـعيدروس قام بنشر مارس 23, 2012 قام بنشر مارس 23, 2012 احذف كود حدث اذهب الى السطر التالي في الكود If ActiveSheet.Name = "My_Con" Then Exit Sub وإستبدله بهذا If ActiveSheet.Name = "My_Con" Or ActiveSheet.Name = "Search Result" Then Exit Sub
ريان أحمد قام بنشر مارس 23, 2012 الكاتب قام بنشر مارس 23, 2012 نعم هو المطلوب بارك الله فيك تعديل التلريخ والكود هل أكملتهم
الـعيدروس قام بنشر أبريل 3, 2012 قام بنشر أبريل 3, 2012 السلام عليكم الأخ الفاضل طاهر سهوت عن مشاركتك السموحه منك ماذا تقصد بالكود أرجو التوضيح بالنسبة لمشكلة التاريخ تفضل الملف المرفق جرب امل أن تكون انحلت المشكلة Ali_Dat.rar
ريان أحمد قام بنشر أبريل 3, 2012 الكاتب قام بنشر أبريل 3, 2012 (معدل) فيما يخص مشكل التاريخ شكرا وأللف شكر وبارك الله فيك وجزاك الله كل خير لاحظ المرفق تجد انه يأتي الخلية التي حصل فيها تعديل هكدا $E$21 أريدها يكتب الكود بدلا من هذا الإختصار أين أضع التعديل للمشاركة السابقة كيف يقتصر التعديل بدلا من الورقة كلها على نطاق محدد وشكرا سلفا Taher_TQ.rar تم تعديل أبريل 3, 2012 بواسطه tahar1983
الـعيدروس قام بنشر أبريل 3, 2012 قام بنشر أبريل 3, 2012 السلام عليكم ماذا تريد أن يكتب بدلاً من مرجع الخلية ؟؟ ========================= كيف يقتصر التعديل بدلا من الورقة كلها على نطاق محدد "إقتباس" ========================= جرب المرفق بخصوص مدى معين Taher_TQ_AA.rar
ريان أحمد قام بنشر أبريل 4, 2012 الكاتب قام بنشر أبريل 4, 2012 أريد أن يكتب رقم القيدبدلا من مرجع الخلية أين يوض التعديل فيما يخص المدى معين
الـعيدروس قام بنشر أبريل 5, 2012 قام بنشر أبريل 5, 2012 السلام عليكم يوجد مدى معرف غيره إلى أي مدى تريد وغير مسمى المدى من هذا السطر Set RR = Sh.Range("My_RR") تفضل المرفق عليه تعديل لطلبك الأخير Taher_TQ_AB.rar
ريان أحمد قام بنشر أبريل 6, 2012 الكاتب قام بنشر أبريل 6, 2012 السلام عليكم الأخ الفاضل طاهر سهوت عن مشاركتك السموحه منك ماذا تقصد بالكود أرجو التوضيح بالنسبة لمشكلة التاريخ تفضل الملف المرفق جرب امل أن تكون انحلت المشكلة نعم إنحلت المشكلة لكن أين سويت التعديل ------------------------------- فيما يخص جميع الطلبات شكرا جزيلا وبارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.