بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
11,621 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
285
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Ali Mohamed Ali
-
تعديل على معادلة لجلب العمولة ضمن شروط
Ali Mohamed Ali replied to alihgrvdad123's topic in منتدى الاكسيل Excel
وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND($C2=DATE(2022,6,1),$A2="حلة",$B2="ثانية"),10000,5000) جلب العمولة بشروط1.xlsx -
المساعدة في تحويل أرقام إلى أسماء في الملف المرفق
Ali Mohamed Ali replied to algammal's topic in منتدى الاكسيل Excel
بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 2 عند الإنتقال لعمود أخر وبالتوفيق ان شاء الله =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,2,0)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) واذا كنت لا تريد تغيير الرقم كلما سحبت المعادلة لعمود جديد فيمكنك استخدام هذه المعادلة مباشرة دون تعديل رقم العمود =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,MATCH(C$2,ورقة1!$B$2:$G$2,0),FALSE)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء 3 .xlsx -
المساعدة في تحويل أرقام إلى أسماء في الملف المرفق
Ali Mohamed Ali replied to algammal's topic in منتدى الاكسيل Excel
السلام عليكم -يمكنك استخدام هذه المعادلة =IF(VLOOKUP($B14,$B$3:$G$9,2,0)="ح","ح",INDEX($I$3:$I$9,MATCH(C3,J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء1 .xlsx -
وعليكم السلام-تفضل على الرغم انك لم تقم برفع الملف .. قيمكنك اضافة هذا السطر بحدث Open Sheets("الرئيسية").Select
-
ملف كامل لتسوية العهد وتقارير بشكل دقيق وجميل واحترافي
Ali Mohamed Ali replied to جراح امة's topic in منتدى الاكسيل Excel
احسنت بارك الله فيك ووسع الله فى رزقك -
بارك الله فيك وزادك الله من فضله
- 1 reply
-
- 4
-
عدد مرات تكرار الاسم في كل صف وكل عمود
Ali Mohamed Ali replied to algammal's topic in منتدى الاكسيل Excel
وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT(--(COUNTIFS(C3:G3,C3:G3,C3:G3,"<>"&"ح")>1)) عدد مرات تكرار الاسم في كل صف وكل عمود معدل1.xlsx -
مشروعي بين يديكم : نظام ادارة شؤون التلاميذ الاصدار 1.00
Ali Mohamed Ali replied to أبو امين's topic in قسم الأكسيس Access
تفضل هذه بنواة 64 بت -بعد اذن جميع الأساتذة فالملف ليس به اى مشكلة فإن واجهتكم مشكلة فاعلم انها من عندك انت فلابد كما أخبرنا من تحميل الأداة والمكتبة الناقصة رابط تحميل السيلينيوم https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe رابط تحميل الدريفر الخاص بالسلينيوم https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك نظام ادارة شؤون التلاميذ الاصدار 1.00.rar -
محمد رسول الله فى كتاب يفتح بالباوربوينت
Ali Mohamed Ali replied to مجدى يونس's topic in منتدى الباوربوينت
اللهم صلى وسلم وبارك عليك سيدى يا رسول الله ... أكرمك الله استاذ حسين وزادك الله من فضله -
فقط المشكلة كانت لديك فى تنسيق خلية الرقم القومى ةالرقم التأمينى لأنك قمت بعمل تنسيق لتلك الخلايا على أنها تاريخ وليس رقم وشكراً
-
المساعدة في عمل كود بحث في الكمبوبوكس
Ali Mohamed Ali replied to yasse.w.2010's topic in منتدى الاكسيل Excel
وعليكم السلام-تفضل Option Explicit Private IsArrow As Boolean Private Sub ComboBox1_Change() Dim i As Long If Not IsArrow Then With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown If Len(.Text) Then For i = .ListCount - 1 To 0 Step -1 If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i Next .DropDown End If End With End If End Sub Private Sub ComboBox1_DropButtonClick() With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown End With End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Debug.Print Time; "KeyDown"; KeyCode; ComboBox1.ListIndex; ComboBox1.ListCount, ComboBox1.Value IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown) If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value ElseIf KeyCode = vbKeyTab Then With Me.ComboBox1 If .ListIndex = -1 Then .Value = .List(0) Else .Value = .List(.ListIndex) End If End With KeyCode = vbKeyReturn End If End Sub القائمة بالكومبوبوكس1.xlsm- 1 reply
-
- 3
-
كيفية اضافة شيت جديد باسم الموظف ورقمه باستخدام VBA
Ali Mohamed Ali replied to mmagedmemo's topic in منتدى الاكسيل Excel
أحسنت استاذ ماجد بارك الله فيك