بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
873 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
حسونة حسين last won the day on مارس 18
حسونة حسين had the most liked content!
السمعه بالموقع
694 Excellentعن العضو حسونة حسين
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
accountant
-
البلد
مصر
-
الإهتمامات
الاكسل والبرمجه
وسائل التواصل
-
Website URL
https://facebook.com/hassona227
-
Yahoo
hassona229@yahoo.com
اخر الزوار
3,618 زياره للملف الشخصي
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ اخى ارفق الملف الذي به المشكله
-
المعادله اخى موجوده في الملف المرفق في المشاركه السابقه لي
-
وعليكم السلام ورحمة الله وبركاته تفضل لعله لطلبك الراتب الاساسى212 مارس.xlsx
-
وعليكم السلام ورحمة الله وبركاته تأكد ان الحساب اوتوماتيكي وليس يدوى من اعدادات الحساب ان لم يكن المطلوب يرجي رفع ملف
-
قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر. ×××××××× يغلق ×××××××× الإدارة
-
وعليكم السلام ورحمه الله وبركاته تفضل اخى Option Explicit Sub Search_Delete() Dim Arr As Variant, SH As Worksheet, dic As Object Dim I As Long, Unique_No As String, R As Range, P As Long Application.ScreenUpdating = False: Application.EnableEvents = False Set SH = ThisWorkbook.Worksheets("ورقة1") Arr = SH.Range("B2:F" & SH.Cells(Rows.Count, 2).End(xlUp).Row).Value Set dic = CreateObject("Scripting.Dictionary") dic.CompareMode = 1 For I = LBound(Arr) To UBound(Arr) Unique_No = Arr(I, 1) & Arr(I, 4) & Arr(I, 5) If Not dic.Exists(Unique_No) Then dic.Add Unique_No, P P = P + 1 Else If R Is Nothing Then Set R = SH.Cells(I + 1, 1) Else Set R = Union(R, SH.Cells(I + 1, 1)) End If End If Next I If Not R Is Nothing Then R.EntireRow.Delete Application.EnableEvents = True: Application.ScreenUpdating = True End Sub
-
مطلوب كود عمل فورمات للخلية عند التعديل
حسونة حسين replied to ehabaf2's topic in منتدى الاكسيل Excel
هذا موضوع اخر اخي الغالي قم بفتح موضوع بالطلب الجديد -
وعليكم السلام ورحمة الله وبركاته تفضل فيديو لعله يفيدك ان شاء الله
-
وعليكم السلام ورحمه الله وبركاته ما الذي لا يعمل اخي ما تم تعديله هو TextBox4 فقط مفروض تعدل باقي التيكست بنفس الطريقه
-
وعليكم السلام ورحمه الله وبركاته عدل If .TextBox4.Value <> "" And X <> 0 Then الى If .TextBox4.Value <> "" And X <> 0 And IsNumeric(.TextBox30.Value) Then
-
معادلة لجلب البيانات على اساس راس الجدول والكود
حسونة حسين replied to kkfhvvv's topic in منتدى الاكسيل Excel
وجزاكم مثله اخى -
معادلة لجلب البيانات على اساس راس الجدول والكود
حسونة حسين replied to kkfhvvv's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمه الله وبركاته مبارك علينا وعليكم تفضل =VLOOKUP(A4,البيانات!$A$2:$E$8,MATCH($D$3,البيانات!$A$1:$E$1,0),0) معادلة على اساس رأس الجدول.xlsm -
مطلوب كود عمل فورمات للخلية عند التعديل
حسونة حسين replied to ehabaf2's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل كود عمل فورمات للخلية عند التعديل.xlsm -
تحويل معادلات اختبار استحقاق بناء على شرط إلى كود
حسونة حسين replied to أبو إيمان's topic in منتدى الاكسيل Excel
وجزاكم مثله اخى ابو عبدالرحمن @علي بطيخ سالم على دعاؤكم الطيب -
وعليكم السلام ورحمة الله وبركاته بارك الله فيك اخى وجعله الله في ميزان حسناتك