احمد حمور-ابوعبدالله قام بنشر يوليو 30, 2010 مشاركة قام بنشر يوليو 30, 2010 السلام عليكم ورحمة الله وبركاته ارفق ملف خاص بالتعليق على الخلاياولكن عن طريق كود في العمود A يحتوى على ارقام من 1 الى 6 وكل رقم له تعليق مختلف عن الاخر اريد هنا وضع التعليق عن ادخال الرقم يظهر في الخليه خاصة وان الرقم سيتكرر كثيرا في هذا العمود كل مره ادخل بهاالرقم مره اخرى ان يعطيني نفس التعليق الخاص بالرقم وشكرا لكم تعليق على الخليه.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 30, 2010 مشاركة قام بنشر يوليو 30, 2010 السلام عليكم أخي أحمد تفضل المرفق به _ إن شاء الله _ ما طلبت اكتب الأرقام في أي مكان بالورقة ثم حدد المدى الذي كتبت فيه و اضغط الزر سسينفذ ما تريد جرب و اخبرني بالنتيجة دمت بخير أيسم إبراهيم تعليق على الخليه.rar رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر يوليو 30, 2010 الكاتب مشاركة قام بنشر يوليو 30, 2010 الاخ ايسم شكرا لك كثيرا الصفحه عندي خاصه بالداتا حيث ان برنامجي من حيث الادخال والاستعلام والتعديل وغيرها كلها من خلال فورم اي انني لا احد يدخل الى الداتا الا انا فما اريده هنا عدم وجود زر ولا يكون مرتبط بتحديد المدى واريده فقط في العمود a بمعنى اخر لا اريد ماكرو وانما اريد كود في حدث الصفحه نفسه وان يكون حالة change وليس selection اي عندما اضع ادخل الرقم 1 يعطيني التعليق مباشره دون التحديد او بزر امر انا بصراحة عندي كود بس المشكله انني اتعامل مع 50 رقم وكل رقم له اسم مختلف الطريقه ادناه اعطتني الحل بشكل ممتاز ولكنها طويله حيث ان الكود سيتم تكراره 50 مره فهل توجد طريقه تسهل عدم التكرار Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1,a1000")) Is Nothing Then On Error Resume Next If Target.Value = 1 Then Target.AddComment ("ahmad") End If If Target.Value = 2 Then Target.AddComment ("aysam") End If End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 30, 2010 مشاركة قام بنشر يوليو 30, 2010 أخي الغالي أحمد جرب الملف التالي عله يفي بالغرض أخوك أبو البراء Comments.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 30, 2010 مشاركة قام بنشر يوليو 30, 2010 السلام عليكم ممتاز الحل أخي ياسر بارك الله فيك دمت بخير أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر يوليو 31, 2010 الكاتب مشاركة قام بنشر يوليو 31, 2010 اخي ياسر بارك الله فيك الحل اكثر اكثر اكثر من ممتاز الشكر موصول للاخ ايسم بارك الله بكم رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 أخي الحبيب / أبو البراء أستاذ ورئيس قسم ولإثراء الموضوع هذه فكرة أخرى باستخدام معادلة VLOOKUP بالكود مع إضافة فكرة إخفاء التعليق إذا رغب أخونا العزيز السائل في ذلك , والشكر موصول لصاحب السؤال ولكل من شارك . تحياتي أبو عبدالله إضافة تعليق بشرط.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 (معدل) مبدع دائماً وأبداً أخي أبو عبدالله بارك الله فيك ظهرت لدي رسالة خطأ عند العمل على ملفك فقمت بإضافة سطر تعريف متغير my_com في بداية الكود ليكون كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Dim my_com As String On Error Resume Next If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value <> "" Then If Target.Value = "" Then Target.ClearComments my_com = Application.WorksheetFunction.VLookup(Target, Sheets("Sheet1").Range("A:B"), 2, False) Target.AddComment my_com Target.Comment.Visible = False End If End Sub الملف عمل بشكل جيد ثم أغلقت الملف وفتحته مرة أخرى فوجدت الكود قد اختفى وظهرت رسالة غريبة (أول مرة أشوفها) Error in loading DLL تم تعديل يوليو 31, 2010 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر يوليو 31, 2010 الكاتب مشاركة قام بنشر يوليو 31, 2010 اخي ابوعبدالله شكرا لك على ردك وملاحظتك فهي قيمه ومما لاشك فيه اضافة جميله حياك الله رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 أخي الحبيب / أبو البراء أشكرك من كل قلبي على كلماتك الجميلة ، وقد استغربت لما حدث معك بالملف فهو يعمل معي بدون أي مشاكل على إكسيل 2007 وأظن أخونا العزيز أحمد قام بتحميله وأتصور لم يحدث عنده مشكلة لذا حاول تنزيله مرة أخرى وتجربته وأخبرني بالمستجدات . تحياتي أبو عبدالله إضافة تعليق بشرط.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 أخي أبو عبد الله قمت بتنزيل الملف في مشاركتك السابقة وعند البدء في العمل على الملف وكتابة بيانات في العمود A ظهر الخطأ التالي untitled.bmp رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 أخي الحبيب / أبو البراء حقيقي لا أعلم ماذا يحدث معك ولكن أرجو من الإخوة اللذين قامو بتنزيل الملف وجربوه أن فيدونا عما حدث معهم ولتأكيد الوضع عندي إليك هذا الملف المرفق . تحياتي أبو عبدالله إضافة تعليق.rar رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر يوليو 31, 2010 الكاتب مشاركة قام بنشر يوليو 31, 2010 معذرة اخي ابوعبدالله ساضم صوتي لصوت اخي ياسر لانها ظهرت عندي نفس الرساله مع العلم ان ردي على ملفك بالسابق كان قبل ان افتحه( تعبيرا مني على مجهودك) ولكن عند فتح الملف لا يوجد خطأ الا عند وضع القيمه في الخليه رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 إخواني الأعزاء قمت بتغيير إسم ورقة البيانات الخاصة بمعادلة ال VLOOKUP من SHEET1 إلى SOURCE ربما هذا سبب معكم مشكلة على الرغم من أنه يعمل عندي بشكل ممتاز أرجو تجربة المرفق وبه التعديل . تحياتي أبو عبدالله إضافة تعليق بشرط-1.rar رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر يوليو 31, 2010 الكاتب مشاركة قام بنشر يوليو 31, 2010 اكرر مره اخرى امتناني لك اخي ابوعبدالله ولكن للاسف الملف لا يعمل يظهر نفس الخطأ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.