مختار حسين محمود

أخوتى وأساتذتى الأفاضل السلام عليكم و بارك الله فيكم ردا على آخى وأستاذى ياسر اذا عمل المستخدم Ungroup يبقى ناوى يعملها معاى بس أنا ممكن أمنعه من استخدام كليك يمين لالغاء الجروب فى الشيت بالكود Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox "Sorry ,Righ click is disable ", vbInformation End Sub أو ممكن نفكر نلغى له بند Ungroup فقط من القائمة المختصرة للجروب وبكده نكون ضيقنا على البعيد شويه ردا على آخى وأستاذى جعفر أنا قصدت فعلا ألا يظهر الليبل أمام المستخدم حتى يشعر بأن أمامه الـ Shape فقط

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

والله فكرة جيدة أستاذ جعفر لكن ماذا لو تم تحريك الـــ Shape الى مكان جديد من قبل المستخدم بعيدا عن الخلية ؟! أنا عندى فكرة مشابهه لفكرة الملف المرفق فى مشاركتى السابقة لكن أفضل شويه وهى : عمل Group بين Shape و lable ( لذلك تحريك الـــ Shape يتبعه الـــ lable ) الــ lable يكون شفاف أو عديم اللون وتحت الـــ Shape مباشرة أما الــ Shape له لون واسم وهو الذى يظهر أمام المستخدم ونضع فى حدث الشيت الكود التالى Option Explicit Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) MsgBox "الزهرة اذا قطفتها فهى لك واذا تركتها فهى لك ولغيرك" End Sub جرب المرفق ده و قل لى رأيك Macro When Your Mouse is over a shape .rar Macro When Your Mouse is over a shape .rar

بارك الله فيك أستاذنا جعفر ردا على سؤالك نعم فكرت لكن لم أصل لشىء حتى الآن Macro When Your Mouse is over a Image1.rar

Sub names_by_letters() Dim myRange As Range Dim i As Integer Dim x As Range i = 2 lr = Cells(Rows.Count, 1).End(xlUp).Row Range("c2:c" & lr).ClearContents Set myRange = Range("a2:a" & lr) For Each x In myRange If UCase(Mid(x, 1, 1)) = [b2] Or LCase(Mid(x, 1, 1)) = [b2] Then Cells(i, 3).Value = x i = i + 1 End If Next x End Sub مشكور أخى ياسر بارك الله فيك اضافة صغيرة لو كان حرف البحث صمول مش هيعمل البحث لذلك يصبح الكود الرئيسى كما سبق تحياتى

اذا لم تكن هذة المكتبة مفعلة لا يعمل الكود

أخى أبا عبدالرحمن جرب هذا الملف قد يقيدك Test .rar

و عليكم السلام و رحمة الله وبركاته أبانا و أستاذنا الغالى محمد حسن المحمد جزيل الشكر لك على كلماتك الغالية .... لا فض فوك . بارك الله فيكم و جازكم عنا خيرا

أخى ليمونة جرب الملف التالى ملحوظة 1 يتم ادخال التاريخ فى الخلية U5 تم اضافة معادلة ترقيم من الخلية A6 الى A31 للحصول على ترقيم سليم قبل وبعد الفلترة ملحوظة 2 : لكى يعمل الكود يجب أن تكون مكتبة الورد نشطة لديك يكون ذلك من خلال فتح الفيجوال بيزك و من تبويب Tools اختر References ثم المكتبة Microsoft Word 12.0 Object Library ( الرقم يختلف حسب اصدار الأفيس ) ثم OK Excel Range To Word V 1.rar

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

أخى الكريم ليمونة الحلوة بارك الله فيك وأهلا بك وسهلا نعم يوجد كود ترحيل من شيت اكسل إلى شيت ورد بشرط معين بس ممكن توضح أكتر فى عدة تواريخ بالملف ؟؟ وضح النتائج المطلوبة من الكود وبالتفصيل

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

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

السلام عليكم ورحمة الله وبركاته اخوتى وأحبابى فى المنتدى بناء على طلب أخينا سعد عايد فى موضوعى الماضى العمليات الحسابية الأربعة بمجرد المرور بالماوس فوق خلية http://www.officena.net/ib/topic/64689-%D8%A7%D9%84%D8%B9%D9%85%D9%84%D9%8A%D8%A7%D8%AA-%D8%A7%D9%84%D8%AD%D8%B3%D8%A7%D8%A8%D9%8A%D8%A9-%D8%A7%D9%84%D8%A3%D8%B1%D8%A8%D8%B9%D8%A9-%D8%A8%D9%85%D8%AC%D8%B1%D8%AF-%D8%A7%D9%84%D9%85%D8%B1%D9%88%D8%B1-%D8%A8%D8%A7%D9%84%D9%85%D8%A7%D9%88%D8%B3-%D9%81%D9%88%D9%82-%D8%AE%D9%84%D9%8A%D8%A9/ أقدم لكم طريقة اظهار واخفاء الفورم بالماوس مش بالـ الأكواد المستعمله بسيطة . تفضلوا المرفق ولا تنسونا فى دعائكم تقبل الله منا ومنكم صالح الأعمال اظهار واخفاء الفورم بالماوس .rar

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

دى لزيزو دى للامورة دى للبسكرية

أخى وحبيبى الغالى عبدالعزيز ما شاء الله عليك ... وبارك الله فيك وزادك من علمه ونفع بك

السلام عليكم ورحمة الله وبركاته اخوتى وأساتذتى الأجلاء عبدالعزيز البسكرى و ياسر خليل أبى البراء و ياسر فتحى بــــــــــــــــــــــارك اللــــــــــــــــــــــــه فيــــكم وجزاكم عنا خيــــــــــــــــــــــرا كثير من المستخدمين ـ و منهم أنا ـ منبهرين لاكتشاف هذا الأساوب فى الفيجوال بيزك . انه سلس وسريع و يوفر فى حجم الملف الى جانب أنه شيق ويشعر المستخدم وكأنه على صفحة نت كما يمكن استغلاله فى صور لا حصر لها كما وضحت فى مشاركتى الاولى كما يمكن استغلاله كدالة من دوال البحث زى Vlookup مثلا كما فى المرفق التالى Vlookup Using Rollover Technique.rar اخوتى الأفاضل شاكر مروركم كما أشكر جزيل الشكر لأخينا جعفر طربيق مرة أخرى . تقبل الله منا ومنكم

جرب الملف ده ظهور دائم للصورة Rollover Technique.rar

بداية أشكر أخانا وأستاذنا جعفر طربيق على موضوعه حرك الماوس فوق الخلية و غير لونها ثم بين صورة أحد أعضاء المنتدى في الخلية المجاورة والذى يعتمد على اسلوب Rollover Technique و اثراء للموضوع أقدم لكم هذا الأسلوب فى صورة بسيطة مجرد دالة تقوم بالعمليات الحسابية الأربع جمع طرح ضرب قسمة خلايا نطاق محدد وذلك فى حالة مرور الماوس فوق خلية يتم استخدام هذه الدالة مع الدالة HYPERLINK و IFERROR أيضا لكن لا DEFINE NAME و لا صور تحياتى لكم ولا تنسونا فى دعائكم العمليات الحسابية بمجرد المرور بالماوس فوق خلية.rar

لا أدرى أبى محمد ما السبب عندك حاول مرة أخرى الدخول الى محرر الاكواد وفى كود MouseExit تحديدا غير السطر الاخير

بعد اذن أستاذنا جعفر أضع تصورى للفكرة الفكرة تعتمد على أسلوب يسمى : Rollover Technique تعتمد طريقته على حدوث شىء ما ( ظهور صورة أو نص أو ......أو ... الخ فى خلية ) بمجرد مرور الماوس على خلية أخرى والعكس أخى وأستاذى ياسر خليل : الصور مخزنة فى الملف وتكون متاحة أو غير متاحة حسب مرور الماوس على الخلية الكيلك اليمين تعطيله كعدمه ليس له علاقه بالاكواد الأصلية زيادة وتفصيل فى المرفق التالى تحياتى لمن أتى لنا بالفكرة . فكرة Rollover Technique.rar

روووووووووووووووووووعة ما يجبهاش الا جعفر شكرا لك أخى وأستاذى العزيز و هذا المرفق المنقول يستخدم نفس التكنيك Rollover Technique عناصر الجدول الدورى الحديث.rar

أخى الغالى المهندس ياسر فتحى بارك الله فيك نورت الموضوع وشرفت بمرورك

أخى وأستاذى الغالى ياسر خليل بارك الله فيك نورت الموضوع وشرفت بمرورك أخى وأستاذى الغالى سليم حاصبيا مشكور على الاضافة نورت الموضوع وشرفت بمرورك