الصـقر

تفضل Sub ResetAll() Dim myCommandBar As CommandBar For Each myCommandBar In Application.CommandBars If myCommandBar.Type = msoBarTypePopup Then myCommandBar.Reset myCommandBar.Enabled = True End If Next myCommandBar End Sub هذا الكود ضعه بمودويل فى اى ملف عندك ثم اضغط رن واقفل الملف وافتحه مره اخرى ستجد الكليك يعمل هذا الكود من المكتبة للعلامه الكبير الاخ الحبيب ياسر خليل على الرابط التالى http://www.officena.net/ib/index.php?showtopic=57935&hl= قم بالبحث فى المكتبه عن كلمة استعاده

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

استاذى الفاضل غسان العبيدى جزاكم الله خيرا وننتظر من حضرتك ما هو جديد ومفيد دائما تقبل تحياتى

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

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

اخى الكريم راجع الرابط التالى ربما تجد ما تريد http://www.officena.net/ib/index.php?showtopic=57962&hl= تقبل تحياتى

اخى الكريم يجب بعد وضع الكود بالمودويل قم بحفظ الملف من ( حفظ باسم ) واختر امتداد XLSM أو XLSB ثم اضغط اوك تقبل تحياتى

الاخت الفاضله الرابط التالى فيه شرح وافى عن كيفية تحويل الملف الى ملف تنفيذى للعلامه شوقى ربيع http://www.officena.net/ib/index.php?showtopic=49169&hl=+%D9%85%D9%84%D9%81%20+%D8%AA%D9%86%D9%81%D9%8A%D8%B0%D9%89&page=1 تقبل تحياتى

تفضل اخى الملف المرفق به 15 عمود و 10.000 صف جرب وعلمنى بالنتيجة تقبل تحياتى الحذف من الليست بوكس.zip

بعد اذن استاذى / خزانى استاذ / زوهير اليك حل اخر ربما ينال اعجابك انقر دبل كليك على الصف المراد حذفه من الليست بوكس تقبل منى وافر الاحترام والتقدير الحذف من الليست بوكس.zip

استاذى الحبيب انا بصراحه مش عارف قصدك ايه من موضوع الغاء "X" اذا كنت تقصد اخفاء الزر تمام راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=60997&hl= واذا كنت تقصد تعطيل "X" يعنى موجوده ولكن معطله اظن الاستاذ حماده عمر قام بشرح هذه الجزئية فى الموضوع اللى حضرتك ذكرته اما بخصوص انه تقوم بالغائها بجميع الفورم بالبرنامج راجع هذا الرابط للقدير ياسر خليل http://www.officena.net/ib/index.php?showtopic=61593 ستجد شرح مستفيض تقبل منى وافر الاحترام والتقدير

استاذى الحبيب يشرفنى دعوة حضرتك للاطلاع على الرابط التالى http://www.officena.net/ib/index.php?showtopic=58471&hl= تقبل تحياتى

اخى الحبيب ضع هذا الكود بالفورم هو من اعمال وكنوز اخى الحبيب ابن مصر الغالى المهندس احمد Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '''''''''''''''''''''' AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Height: FW = Width ZH = AH - FH: ZW = AW - FW: Zo = Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '''''''''''''''''''''' Move AL, AT, AW, AH If Zo <> 100 Then Zoom = Zo End Sub تقبل تحياتى

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

اخى الكريم كان افضل ارفاق ملف لكن عموما لو فرضنا عندك التكست بوكس 1 هو المطلوب تنسيقه نسبة مئويه جرب هذا الكود Private Sub TextBox1_AfterUpdate() Me.TextBox1 = Format(Me.TextBox1, "%0") End Sub الكود هو حدث بعد تحديث التكست اى بعد الكتابه به يعنى لو كتبت 20 ووضغطت انتر ستجد التكست 20 % تقبل تحياتى واى استفسار تحت امرك

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

استاذى الحبيب رجب جاويش الف مليون مبروك تقبل تحياتى

اخى الحبيب مرحبا بك اخ جديد لنا فى جامعه اوفيسنا بخصوص طلبك راجع الرابط التالى ربما يفيدك http://www.officena.net/ib/index.php?showtopic=57962&hl= تقبل تحياتى

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

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

استاذى الحبيب شوقى ربيع انا اعلم ان Me.RightToLeft = True تجعل اليست من اليمين لليسار ومن فترة طويله وانا كل ما اريد تعديل اتجاه ليست من اليمين لليسار اقوم بتعديل هذه الخاصيه من الخصائص للفورم Me.RightToLeft = True ولكن للاسف لا يقبل التعديل من false الى true وتبقى false دائما فى جميع ملفات الاكسيل وجربت ايضا من خلال كود عند فتح الفورم بهذا السطر Me.RightToLeft = True ولا ادرى اين تكمن المشكله هل بنسخه الاوفيس ام ماذا تقبل تحياتى

اخى الكريم راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=57962&hl= يمكن تلاقى مبتغاك تقبل تحياتى

استاذى الحبيب السطر المذكور غير واضح لا بد من ارفاق الملف حتى يتثنى لنا شرح ما تريد ولكن على حسب ما فهمت من سؤالك Dim lr As Range set lr= Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) مثال أنا عندى بيانات ممتلئه بالخلايا A1:A5 وعايز البيانات الجديده تنزل فى الخلية a6 فلازم اعرف اخر سطر به بيانات وهو a5 ثم اضيف له 1 لنصل الى A6 هنا LR هى متغير وقلنا انه يساوى (Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0 (وذالك حتى يتم كتابة LR فىما بعد بالكود بدلا من الجمله دى كلها (Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0 اول جزئية وهى (Cells(Rows.Count, 1 cells تعنى الخليه واى خلية عند قرائتها لابد من اسم العمود ورقم الصف مثلا A1 تعنى الخلية اللى موجوده بالعمود A والصف 1 فى الكود انا عايز اشير الى اخر خليه بها بيانات فتنسيق كتابة الخليه كالتالى (العمود,الصف) Cells لذالك كتبنا (Cells(Rows.Count, 1 هنا رقم الصف غير معروف فقلنا بالكود Rows.Count اى عمل احصاء لعدد الخلايا الممتلئه بالبيانات فى العمود وطبعا العدد هيكون 5 العمود هو رقم 1 وممكن يكتب هكذا "A" اسم العمود داخل علامات تنصيص ( اذن هناك خيارين كتابة رقم العمود مثل 1 أو كتابة اسم العمود مثل "A" ) النتيجة طبقا للسابق هى (5,1) Cells ( يعنى الخلية الموجوده بالصف 5 والعمود 1 ) وهى A5 طيب انا بلف دا كله علشان اوصل الى الخلية A5 ليه علشان اقول له هى اخر خليه بها بيانات فنقوم باضافه (End(xlUp. Cells(Rows.Count, 1).End(xlUp) طيب دلوقتى الكود فهم ان اخر خليه بها بيانات هى A5 أنا بقى عايز انزل البيانات الجديده بالخلية A6 فبقوم بأضافه (Offset(1, 0. (Offset(1, 0. يعنى من الخلية A5 تحرك بمقدار صف واحد ونفس العمود وهو بمثالنا A وبكدا الكود هيوصل الى الخلية A6 السطر هيكون كدا Dim lr As Range set lr= Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) اتمنى اكون وفقت بالشرح وهى استفسار انا تحت امرك تقبل تحياتى

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

اخى الكريم انظر المشاركه السابقه ستجد تم اضافه هذا السطر قبل نهاية الكود ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) وذلك لمنع سؤال المستخدم هل تريد الحفظ ام لا يرجى تعديل افضل اجابه تقبل تحياتى