اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم ورحمة الله وبركاته :

 

اسعد الله صباحكم جميعا

 

المطلوب حذف اسم او خلية من خلال مربع التحرير والسرد مرفق مثال يوضح المطلوب والتعديل عليه

 

وهناك طلب اخر فكرت به منذ زمن وهو اضافة تعليق لزر الكود عند وضع المؤش عليه

 

وشكرا لكم

حذف خلية من الكمبو بكس.rar

تم تعديل بواسطه علي العابد
  • Like 1
قام بنشر

شكرا لك اخي الجموعي نعم هو المطلوب فعلا لكن لو تكرمت علي بقي الطلب الثاني الخاص بالتلميح او التعليق عند وقوف مؤشر الفأرة على زر الكود ان امكن منك او من امثالك

 

المحترمين

 

وشكرا مرة ثانية

قام بنشر

أخي الحبيب بالنسبة لطبك فهو في منتهى البساطة

انقر على زر الأمر ومن نافذة الخصائص Properties قم بالبحث عن الخاصية ControlTipText واكتب في الحقل المجاور لها التلميح الذي تريده أن يظهر للمستخدم .. انتهى

قام بنشر

يا ريت يا اخي لو تحكيلي كيف اجدها لاني حاولت ولم اعرف كيف اجدها

 

اخى الفاضل

 

بعد إذن أخى ياسر .. تجدها بعد الوقوف على الزر في نافذة الخصائص ... الغريب والعجيب انك بالملف المرفق بالفعل انت كاتب بها " اضغط للانتقال الى الورقة المحددة" :wink2: 

 

7tjHwu.jpg

 

تحياتي :fff: 

  • Like 1
قام بنشر

أعتذر عن عدم المتابعة منذ قليل بسبب انشغالي بعض الشيء

عموما قدم ابن مصر الغالي المعلومة على طبق من صورة موضحاً لك ما تريد

تقبل تحياتي يا ابن مصر (فين كود النهاردة)!!! لازم أسأل كل يوم ..حاول تتعود إنك أول ما تفتح المنتدى يكون أول شيء ببالك ترمينا بكود يكون مشرووووووووح وذو فائدة تطبيقية أكيد

  • Like 1
قام بنشر

السلام عليكم ورحمة الله

اخي الاستاذ احمد ابن مصر يقول لك الاخ ياسر اول ماتفتح المنتدى احذفة بكود او كودين وخلية يعرف طريق روما ماسر اللغز بينكما اللي هو كل الطرق تودي الي روما  ..... ههههههههاي 

  • Like 2
قام بنشر

أقول حكاية روما دي ..

في كذا موضوع تلاقي السائل بيطلب طلب ويكون قدام عنيه بس مش واخد باله .. أو يكون فيه أكتر من طريقة بس هو عايز طريقة محددة ، فتلاقيه حيران ..فتلاقيني أنا وابن مصر الغالي نكرر نفس الجملة (كل السبل تؤدي إلى أوفيسنا)

  • Like 1
قام بنشر

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

قام بنشر

جرب الكود التالي

أضف شكل بيضاوي أو أي شكل وجرب الكود

    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)
    ActiveSheet.Hyperlinks.Add shp, "", "", ScreenTip:="هذا هو الشكل الذي يمثل شكل الطابعة"

قام بنشر

 

جرب الكود التالي

أضف شكل بيضاوي أو أي شكل وجرب الكود

    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)
    ActiveSheet.Hyperlinks.Add shp, "", "", ScreenTip:="هذا هو الشكل الذي يمثل شكل الطابعة"

 

استاذي الفاضل

 

كود رائع لعمل ارتباط تشعبي Hyperlink للشكل وكتابة تلميح الشاشة ScreenTip وهو الحل الوحيد حيث ان الأشكال لا تدعم ال ControlTipText... ومن الممكن ايضا ان يستغنى العضو عن الكود ويقوم بذلك يدويا بالضغط كليك يمين على الشكل ويختار ارتباط تشعبي HyperLink ثم يتبع الخطوات كما في الصورة .. 

 

PPKKgN.jpg

 

تحياتي :fff: 

قام بنشر

اخواني الافاضل

 

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

وبالنسبة للكود جربته  ايضا ونفس النتيجة ظهر التلميح ولم يفتح الفورم فلا ادري وهذا الملف ارفقه مرة ثانية يظهر التلميح ولكن لا يفتح الفورم

 

ودمتم سالمين

حذف خلية من الكمبو بكس.rar

قام بنشر

شكرا لك اخي الحبيب ابن مصر على ردك وصدقني قبل طرح اي سؤال ابحث بالمنتدى واحاول ان اتعلم بنفسي قدر استطاعتي وبقي الدور على اخونا الخبير ياسر خليل وباقي الخبراء المحترمين في هذا المنتدى  الرائع ولا اظنهم يعجزو ن عن هذا الامر

 

تحياتي للجميع

قام بنشر

اخى الفاضل أبو تراب

 

تحياتي لك .. حل رائع من أستاذ قدير . عمل معي بشكل جيد جدا ولكن بعد تعديل بسيط بجعل الكود بهذا الشكل

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

تحياتي :fff: 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information