أكاديمية الصقر للتدريب
FBConnect

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :salim
عدد النتائج (775) نتيجة
10-05-2021 06:43 صباحا
icon كتابة المعادلات بطريقة vba Application | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 من اجل الـــ SUMPRODUCT هذا الكود

Option Explicit

Sub From_SUMPRODUCT_To_Vba()
Dim My_formula$, i As Byte, arr()

My_formula = "=SUMPRODUCT(($BN$7:$BN$23=My_Cel)*($BP$7:$BP$23))+"
My_formula = My_formula & "(($BQ$7:$BQ$23=My_Cel)*($BO$7:$BO$23))"
arr = Array("CA9", "CA13", "CA17")
  
  For i = LBound(arr) To UBound(arr)
      With Sheets("Sheet1").Range("CC9").Offset(4 * i)
        .Formula = _
          Replace(My_formula, "My_Cel", arr(i))
       .Value = .Value
      End With
  Next i

End Sub
09-05-2021 01:53 مساء
icon كتابة المعادلات بطريقة vba Application | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 البداية فقط لاول نطاقين  من  AE7 الى  AE25
ثم تتابع الى باقي النطاقات كل نطاق حسب المعادلة المناسبة

Sub From_Tornula_To_Vba()
Const Ro = 23
With Sheets("Sheet1")
    .Range("AE7:AE" & Ro).Formula = _
    "=IF(AND(ISNUMBER(I7),ISNUMBER(K7)),G7,"""")"
    .Range("AF7:AF" & Ro).Formula = _
    "=IF(AND(ISNUMBER(I7),ISNUMBER(K7)),M7,"""")"
    .Range("AE7:AF" & Ro).Value = _
    .Range("AE7:AF" & Ro).Value
End With
 ''''''وهكذا الى نهاية النطاق
End Sub

05-05-2021 09:04 مساء
icon رسائل vba لاتعرض باللغة العربية | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
03-05-2021 08:43 صباحا
icon طلب مساعدة في عمل اكواد على ملف | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 ربما كان المطلوب
ادراج الايام والتواريخ يتم اوتوماتيكياً عند ادخال الشهر والسنة
في الخلايا  E2 و D2
ولا حاجة لادخالها يديوياً


 
02-05-2021 10:39 مساء
icon البحث عن اخر خمسة اشهر | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 لا اعلم اذا كان هذا المطلوب
22-04-2021 10:31 مساء
icon كيفية جمع القيم الموجبة فقط | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 1-  المعادلة الأولى في الخلية  B5 معادلة صفيف  (Ctrl+Shift+Enter)
واسحب يميناً حتى العامود M  و نزولاُ 4 صفوف

=IF(ROWS(B$5:B5)>COUNTIF(Sheet1!A$4:A$7,">=0"),"",INDEX(Sheet1!A$4:A$7,SMALL(IF(Sheet1!A$4:A$7<>"",IF(Sheet1!A$4:A$7>0,ROW(B$4:B$7)-ROW(B$4)+1)),ROWS(B$5:B5))))


2-  المعادلة الثانية في الخلية  B9 معادلة صفيف  (Ctrl+Shift+Enter)
واسحب يميناً حتى العامود M (هنا يمكن استعمال الدالة  SUM ايضاً )

=SUM(CHOOSE((INDEX(Sheet1!$A$4:$L$7,,MATCH(COLUMNS($B$1:B1),Sheet1!$A$3:$L$3,0))<=0)+1,INDEX(Sheet1!$A$4:$L$7,,MATCH(COLUMNS($B$1:B1),Sheet1!$A$3:$L$3,0)),0))
17-04-2021 09:56 مساء
icon نقل بيانات بين عمودين بدون الخلايا الفارغة وبنفس التنسيق | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 استبدل الكود بهذا

Option Explicit

Sub without_zeros()
Dim Source_Array As Variant
Dim Target_Array()
Dim n%, i%
    With Sheets("ورقة1")
       Source_Array = .Range("K3").CurrentRegion
      .Range("D3").Resize(UBound(Source_Array), 2).Clear
       For i = 1 To UBound(Source_Array)
          If Source_Array(i, 1) <> 0 Then
             n = n + 1
             ReDim Preserve Target_Array(1 To 2, 1 To n)
             Target_Array(1, n) = Source_Array(i, 1)
             Target_Array(2, n) = Source_Array(i, 2)
           End If
        Next i
          
          If n Then
            .Range("D3").Resize(n, 2) = _
             Application.Transpose(Target_Array)
                 
           .Range("K3").CurrentRegion.Copy
           .Range("D3").Resize(n, 2).PasteSpecial 4
           Application.CutCopyMode = False
          .Range("D3").Select
       End If
    End With
End Sub

الملف مرفق
 
17-04-2021 06:56 صباحا
icon نقل بيانات بين عمودين بدون الخلايا الفارغة وبنفس التنسيق | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 زيادة في اثراء الموضوع

Option Explicit

Sub without_zeros()
Dim Source_Array As Variant
Dim Target_Array()
Dim n%, i%
    With Sheets("ورقة1")
      .Range("D3").CurrentRegion.ClearContents
       Source_Array = .Range("K3").CurrentRegion
       
       For i = 1 To UBound(Source_Array)
          If Source_Array(i, 1) <> 0 Then
             n = n + 1
             ReDim Preserve Target_Array(1 To 2, 1 To n)
             Target_Array(1, n) = Source_Array(i, 1)
             Target_Array(2, n) = Source_Array(i, 2)
           End If
        Next i
          
          If n Then
            .Range("D3").Resize(n, 2) = _
             Application.Transpose(Target_Array)
          End If
    End With
End Sub
16-04-2021 09:31 صباحا
icon كود لحماية المصنف و الشير vba | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 Try This Macro

Option Explicit

Sub ProtectWorkbook()
 
    Dim My_Workbook As Workbook
    Dim File_Pas As String
    Dim Struc_Pas As String
 
    Set My_Workbook = Application.ActiveWorkbook
 
    File_Pas = "123"     'Change Here as you like
    Struc_Pas = "ABC"    'Change Here as you like
 
    My_Workbook.ProtectSharing Password:=File_Pas, _
        SharingPassword:=Struc_Pas
 
End Sub

14-04-2021 05:50 مساء
icon مساعده في مؤثرات شهرية | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 ربما يكون ما تريده
تم نغيير المعادلات في الصفحة (Salim) للحصول على كل ايام الشهر بغض النظر اذا كان 28 /29/ 30 / او 31 يوم



Option Explicit

Sub Find_Ijasat()
Dim D As Worksheet, S As Worksheet
Dim Rod%, Ros%, I%, x%, k%
Dim Rg_FD As Range
Dim Rg_Code As Range


Set D = Sheets("Data"): Set S = Sheets("Salim")
Rod = D.Cells(Rows.Count, 2).End(3).Row
Ros = S.Cells(Rows.Count, 2).End(3).Row
D.Range("B3").Resize(Rod, 8).Interior.ColorIndex = xlNone
Set Rg_FD = D.Range("B3:B" & Rod)
If Ros < 6 Then Exit Sub
 S.Range("D6").Resize(Ros - 5, 31).ClearContents
For I = 6 To Ros
    Set Rg_Code = Rg_FD.Find(S.Cells(I, 2), Lookat:=1)
    If Rg_Code Is Nothing Then GoTo Find_Again
        x = Rg_Code.Row

         For k = 4 To 35
            If S.Cells(4, k) = D.Cells(x, 4) Then
               S.Cells(I, k) = D.Cells(x, 7)
               D.Range("B" & x).Resize(, 8).Interior.ColorIndex = 35
               Exit For
            End If
        Next k
Find_Again:
Next I
End Sub

الملف مرفق من جديد
 
14-04-2021 10:05 صباحا
icon مساعده في مؤثرات شهرية | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 يعني حضرتك اكتب شهر فبراير واضغط run مش هيظهر اي نتائج ....[/quote]
لاحظ الصورة وقل اين الخطأ   (الملف من جديد مرفق)
DYs6a_Screenshot_1
13-04-2021 03:10 مساء
icon مساعده في مؤثرات شهرية | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 لم أفهم شيئاً مما تريد !!!

الصفحة 1 من 65 < 1 2 3 4 65 > الأخيرة »





الساعة الآن 12:24 صباحا

أعلن هنا
أعلن هنا
أعلن هنا