-
Posts
1,836 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
21
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه الصـقر
-
-
اخى الكريم
جرب ايضا هذا الكود يفى بالغرض
Sub Delete_Zero() Application.ScreenUpdating = False lc = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row For i = lc To 3 Step -1 If Application.WorksheetFunction.Sum(Sheet1.Range(Cells(3, i), Cells(lr, i))) = 0 Then Columns(i).Delete Shift:=xlToLeft End If Next i Application.ScreenUpdating = True End Sub
وبهذا الكود انت لا تحتاج الى الصف رقم 284 اللى فيه مجموع الاعمده فانت فى غنى عنه
تقبل تحياتى
- 1
-
اخى الحبيب الاستاذ محمد الريفى والله القلوب عند بعضها
ادام الله علينا نعمه المحبه فى الله
هذا رابط فيديو لشرح الداله للعلامه الكبير محمد جادالله ( علم من اعلام الاكسيل اتمنى يكون بينا فى اوفيسنا )
تقبلوا جميعا تحياتى
- 2
-
جزاكم الله خيرا يا ابوالبراء كنت لسه ارفق لك الرابط لقيتك وصلت له
جزاكم الله خيرا
تقبل تحياتى
- 3
-
اخى الحبيب ابوالبراء
الداله موجوده فى اوفيس 2016 وليست معرفه
اعمل تحديث يا ابوالبراء من خيارات الاكسيل
تقبل تحياتى
- 3
-
تفضل اخى الكريم جرب المعادله بهذا الشكل ( على حسب ما فهمت من طلبك
=IF(AND(C6>=50;C6<=60);"Mahmoud";"")
تقبل تحياتى
- 1
-
وين المرفق اخى الكريم ؟
-
اخى واستاذى الحبيب محمد الريفى
جزاكم الله خيرا على كل ما تقدمه خدمه لاخوانك فى الوطن العربى
وبخصوص الموضوع فى داله جديده من دوال اوفيس 2016 وهى
TextJoin هى داله حديثه يمكن من خلالها عمل ذالك
لكن للاسف ما عندى نسخه 2016م معرفه على جهازى لكى ارفق لك مثال تطبيقى
اعتقد الداله هتكون بهذا الشكل
=textjoin( "/";;A1:E1)
ارجوا من الاخوة اللى عندهم 2016 يجرب ويعلمنى بالنتائج
تقبلوا تحياتى
- 2
-
اخى الكريم
فى شيت البحث وفى الخلية A3 َع المعادله التاليه
ثم اكتب الاسم فى الخليه B3
=INDEX(السجل!A3:B14;MATCH(B3;السجل!B3:B14;0);1)
تقبل تحياتى
- 1
-
اخى الكريم
فى شيت البحث وفى الخليه B3
ضع هذه المعادله
=VLOOKUP(A3;السجل!A3:B14;2;0)
تقبل تحياتى
- 1
-
استاذى الكريم هانى بدر
جزاكم الله خيرا على هدايكم القيمة
واسال الله تعالى ان يتغمد والديك بواسع رحمته وان يدخلهم فسيح جناته وان يجافى الارض عن جنبيهم
اللهم اغسلهم من الذنوب والخطايا كما ينقى الثوب الابيض من الدنس اللهم ابدلهم دار خير من دارهم
وولد خير من ولدهم اللهم مد لهم فى قبرهم مد بصرهم اللهم اجعلهم ممن قلت فيهم أولئك الذين نتقبل عنهم
احسن ما عملوا ونتجاوز عن سيئاتهم فى اصحاب الجنه وعد الصدق الذى كانو يوعدون
اللهم امين
تقبل تحياتى
- 3
-
اخى الفاضل
قم بتحديد التكست بوكس واحد ( الخاص بالبحث من خلال الاسم ) واضغط دبل كليك ستيدخلك محرر الاكود الخاص بحدث التغيير
هتلاقى السطر ده
Set Q = .Range("A2:A" & LastRow).Find(M)
كل ما عليك فعله تغيير A2 بــ A1 كالتالى
Set Q = .Range("A1:A" & LastRow).Find(M)
تقبل تحياتى
- 2
-
جزاكم الله خيرا استاذ ابومهند
شرفنى مرورك العطر
تقبل منى وافر الاحترام والتقدير
-
اخى وحبيبى الاستاذ احمد مفيش زعل والله الحمد لله لحظة شيطان تملك منا وراحة الحمد لله
تقبل منى كل حب و احترام وتقدير
- 1
-
جزاكم الله خيرا
- 1
-
-
جزاكم الله خيرا استاذ خالد على مرورك العطر
تقبل تحياتى
-
-
اخى الكريم الاستاذ / ياسر البنا
جزاكم الله خيرا على مروركم العطر
تقبل منى وافر الاحترام والتقدير
- 1
-
جزاكم الله خيرا
- 1
-
الاخ الغالى ابوالبراء
جزاكم الله خيرا على كل ما تقدمه
تقبل تحياتى
- 1
-
الاخ الكريم / الزبارى
الاروع هو مرورك اخى الكريم
وجزاكم الله خيرا
--------------
الاخ الكريم / اخوكم فى الله
ما شاء الله عليك روعه
تستحق انت تكون عضو خبير بالمنتدى ياريت ابوالبراء يبحث الامر
جزاكم الله خيرا اخى الكريم
وتقبلوا جميعا تحياتى
-
اخى فى الله
جزاكم الله خيرا
وياريت تحاول تظبط الكود بحيث يتناسب مع اى فورم فى العرض والارتفاع
بمعنى اعمل مثلا فورم عرضه 600 وارتفاعه 150 وشغل الكود شاهد ماذا يحدث ستجد ان عرض الفورم بعد انتهاء الكود لم يتم عرض الفورم بالكامل
اذا كان عندى متسع من الوقت ساراجع الكود واحاول فيه تظبيطه ليناسب اى فورم
تقبل تحياتى
- 2
-
اخى الكريم احمد الفلاحجى
جزاكم الله خيرا على مرورك العطر
تقبل تحياتى
- 1
-
حبيبى يا ابوالبراء
تسمح لى ان احجز مقعد ام الباب مغلق
بصراحه شروحات ولا اروع من كدا
بس انا منتظر الدخول فى منطقه الغريق يعنى توصل بالشروحات الى ابعد مدى انا بجد عايز استفيد
جزاكم الله خيرا الجزاء وجعل اعمالك فى ميزان حسناتك
تقبل منى وافر الاحترام والتقدير
- 2
حماية الدخول الي خيارات ملف الاكسل ومنع ايقاف الاكواد
في منتدى الاكسيل Excel
قام بنشر
يبقى حضرتك لازم تحول الملف الى صيغه EXE
تقبل تحياتى