بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
873 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه حسونة حسين
-
-
المعادله اخى موجوده في الملف المرفق في المشاركه السابقه لي
-
- 2
-
وعليكم السلام ورحمة الله وبركاته
تأكد ان الحساب اوتوماتيكي وليس يدوى من اعدادات الحساب
ان لم يكن المطلوب يرجي رفع ملف
-
قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
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
- 1
-
هذا موضوع اخر اخي الغالي
قم بفتح موضوع بالطلب الجديد
- 1
-
وعليكم السلام ورحمة الله وبركاته
تفضل فيديو لعله يفيدك ان شاء الله
-
وعليكم السلام ورحمه الله وبركاته
ما الذي لا يعمل اخي
ما تم تعديله هو TextBox4 فقط
مفروض تعدل باقي التيكست بنفس الطريقه
-
وعليكم السلام ورحمه الله وبركاته
عدل
If .TextBox4.Value <> "" And X <> 0 Then
الى
If .TextBox4.Value <> "" And X <> 0 And IsNumeric(.TextBox30.Value) Then
- 1
-
وجزاكم مثله اخى
- 1
-
وعليكم السلام ورحمه الله وبركاته
مبارك علينا وعليكم
تفضل
=VLOOKUP(A4,البيانات!$A$2:$E$8,MATCH($D$3,البيانات!$A$1:$E$1,0),0)
- 1
- 1
-
- 2
- 1
- 1
-
وجزاكم مثله اخى ابو عبدالرحمن @علي بطيخ سالم
على دعاؤكم الطيب
-
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك اخى وجعله الله في ميزان حسناتك
-
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك اخى وجعله الله في ميزان حسناتك
-
آمين يارب العالمين
- 1
-
تفضل
احذف الكود الخاص بك الموجود في حدث الشيت
ثم ضع هذا الكود
Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Column = 2 Then If X.Value = "" Then X.Resize(, 6).ClearContents Else X.Offset(0, 2) = Date X.Offset(0, 2).NumberFormat = "dddd yyyy/mm/dd" End If End If Next Application.EnableEvents = True Search_SUM End Sub
- 3
- 1
-
اخي الكود يعمل بالفعل ما تريد
عدل البيانات كما تريد ثم شغل الكود الموجود في module1 المسمى
search_sum
-
- 1
-
رمضان مبارك علينا وعليكم وعلى جميع الامه الاسلاميه
- 2
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ
ارفق ملف للعمل عليه
-
وعليكم السلام ورحمه الله وبركاته
ممكن شرح بالتفصيل ما هو المطلوب حتي يتسنى لمن يريد المساعده فهم طلبك
اي بيانات تريد عرضها واي فورم تريد عرض الصور عليه
- 1
-
وعليكم السلام ورحمة الله وبركاته
تفضل اخى لعلها طلبك
=ROUNDDOWN(L10/N10,0) & " " & L10-SUM(ROUNDDOWN(L10/N10,0)*N10) & "/" & N10
- 1
-
بارك الله فيك وجعله الله في ميزان حسناتك
- 1
مشكلة إنشاء ماكرو فتح أوراق
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم ورحمة الله وبركاته وبها نبدأ
اخى ارفق الملف الذي به المشكله