علي العابد قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 (معدل) السلام عليكم ورحمة الله وبركاته : اسعد الله صباحكم جميعا المطلوب حذف اسم او خلية من خلال مربع التحرير والسرد مرفق مثال يوضح المطلوب والتعديل عليه وهناك طلب اخر فكرت به منذ زمن وهو اضافة تعليق لزر الكود عند وضع المؤش عليه وشكرا لكم حذف خلية من الكمبو بكس.rar تم تعديل يناير 10, 2015 بواسطه علي العابد 1 رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 للرفع 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 تفضل أخي لعله المطلوب حذف خلية من الكمبو بكس.rar 2 رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 شكرا لك اخي الجموعي نعم هو المطلوب فعلا لكن لو تكرمت علي بقي الطلب الثاني الخاص بالتلميح او التعليق عند وقوف مؤشر الفأرة على زر الكود ان امكن منك او من امثالك المحترمين وشكرا مرة ثانية رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 أخي الحبيب بالنسبة لطبك فهو في منتهى البساطة انقر على زر الأمر ومن نافذة الخصائص Properties قم بالبحث عن الخاصية ControlTipText واكتب في الحقل المجاور لها التلميح الذي تريده أن يظهر للمستخدم .. انتهى رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 اخي الكريم ياسر هذا اذا كان زر امر ممكن ولكن اذا كان صورة او ايقونة مثل ايقونة الطابعة او الالة الحاسبة او اغلاق رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 أخي بالنسبة للصورة أيضا بها نفس الخاصية.. رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 يا ريت يا اخي لو تحكيلي كيف اجدها لاني حاولت ولم اعرف كيف اجدها رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 يا ريت يا اخي لو تحكيلي كيف اجدها لاني حاولت ولم اعرف كيف اجدها اخى الفاضل بعد إذن أخى ياسر .. تجدها بعد الوقوف على الزر في نافذة الخصائص ... الغريب والعجيب انك بالملف المرفق بالفعل انت كاتب بها " اضغط للانتقال الى الورقة المحددة" تحياتي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 أعتذر عن عدم المتابعة منذ قليل بسبب انشغالي بعض الشيء عموما قدم ابن مصر الغالي المعلومة على طبق من صورة موضحاً لك ما تريد تقبل تحياتي يا ابن مصر (فين كود النهاردة)!!! لازم أسأل كل يوم ..حاول تتعود إنك أول ما تفتح المنتدى يكون أول شيء ببالك ترمينا بكود يكون مشرووووووووح وذو فائدة تطبيقية أكيد 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 السلام عليكم ورحمة الله اخي الاستاذ احمد ابن مصر يقول لك الاخ ياسر اول ماتفتح المنتدى احذفة بكود او كودين وخلية يعرف طريق روما ماسر اللغز بينكما اللي هو كل الطرق تودي الي روما ..... ههههههههاي 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 أقول حكاية روما دي .. في كذا موضوع تلاقي السائل بيطلب طلب ويكون قدام عنيه بس مش واخد باله .. أو يكون فيه أكتر من طريقة بس هو عايز طريقة محددة ، فتلاقيه حيران ..فتلاقيني أنا وابن مصر الغالي نكرر نفس الجملة (كل السبل تؤدي إلى أوفيسنا) 1 رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اخواني بارك الله فيكم على ردودكم ان دل هذا فيدل على اهتمامكم للاعضاء المبتدئين امثالي وانا احمل نفسي المسئولية لانني لم اوصل الفكرة اليكم ولكني كما ذكرت سابق اني اعرف طريقة زر الامر مثل ما وضح اخي الكريم ابن مصر ولكني اريد تنفيذ نفس الفكرة على الشكل البيضاي في صفحة Main او الشكل المستطيل او اذا كانت ايقونة الة حاسبة مثلا او طابعة المربوطين في مايكرو وانا اسف على التأخير بالرد لاني كنت بالعمل وشكرا لكم جميعا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 جرب الكود التالي أضف شكل بيضاوي أو أي شكل وجرب الكود Dim shp As Shape Set shp = ActiveSheet.Shapes(1) ActiveSheet.Hyperlinks.Add shp, "", "", ScreenTip:="هذا هو الشكل الذي يمثل شكل الطابعة" رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 جرب الكود التالي أضف شكل بيضاوي أو أي شكل وجرب الكود Dim shp As Shape Set shp = ActiveSheet.Shapes(1) ActiveSheet.Hyperlinks.Add shp, "", "", ScreenTip:="هذا هو الشكل الذي يمثل شكل الطابعة" استاذي الفاضل كود رائع لعمل ارتباط تشعبي Hyperlink للشكل وكتابة تلميح الشاشة ScreenTip وهو الحل الوحيد حيث ان الأشكال لا تدعم ال ControlTipText... ومن الممكن ايضا ان يستغنى العضو عن الكود ويقوم بذلك يدويا بالضغط كليك يمين على الشكل ويختار ارتباط تشعبي HyperLink ثم يتبع الخطوات كما في الصورة .. تحياتي رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اخواني الافاضل السلام عليكم ورحمة الله وبركاته بخصوص طريقة ابن مصر جربتها من 3 ايام قبل ان أسأل وظهر التلميح ولكن الفورم لم يفتح وعندما ازيل الارتباط التشعبي يفتح الفورم ولا اعرف السبب وبالنسبة للكود جربته ايضا ونفس النتيجة ظهر التلميح ولم يفتح الفورم فلا ادري وهذا الملف ارفقه مرة ثانية يظهر التلميح ولكن لا يفتح الفورم ودمتم سالمين حذف خلية من الكمبو بكس.rar رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 12, 2015 الكاتب مشاركة قام بنشر يناير 12, 2015 للرفع رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 13, 2015 الكاتب مشاركة قام بنشر يناير 13, 2015 اخي الفاضل ياسر خليل اخي الفاضل ابن مصر اخواني الافاضل جميعا الرجاء الاهتمام والرد كما عودتمونا دائما بارك الله فيكم وعليكم رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 13, 2015 مشاركة قام بنشر يناير 13, 2015 اخى الفاضل شخصيا لا اجد لها حل ... ربما يكون الحل عند أحد الخبراء ... ال Shapes ليس لها ControlTipText تحياتي 1 رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 13, 2015 الكاتب مشاركة قام بنشر يناير 13, 2015 شكرا لك اخي الحبيب ابن مصر على ردك وصدقني قبل طرح اي سؤال ابحث بالمنتدى واحاول ان اتعلم بنفسي قدر استطاعتي وبقي الدور على اخونا الخبير ياسر خليل وباقي الخبراء المحترمين في هذا المنتدى الرائع ولا اظنهم يعجزو ن عن هذا الامر تحياتي للجميع رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر يناير 13, 2015 مشاركة قام بنشر يناير 13, 2015 اخي هذه محاولة جرب المرفق حذف خلية من الكمبو بكس.zip 1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 13, 2015 مشاركة قام بنشر يناير 13, 2015 اخى الفاضل أبو تراب تحياتي لك .. حل رائع من أستاذ قدير . عمل معي بشكل جيد جدا ولكن بعد تعديل بسيط بجعل الكود بهذا الشكل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("D8")) Is Nothing And Target.Count = 1 Then Range("D5").Select Delet End If End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر يناير 14, 2015 مشاركة قام بنشر يناير 14, 2015 جزاك الله خيرا استاذ ابن مصر قد يكون السبب اختلاف الاوفس رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 14, 2015 الكاتب مشاركة قام بنشر يناير 14, 2015 اخي الكريم ابو تراب حل مميز من عضو مميز فعلا بارك الله فيك وعليك وكل الشكر والاحترام لك وللاخ ابن مصر والاخ ياسر خليل وكل الاخوة الافاضل رابط هذا التعليق شارك 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.