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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





اضافة ستة اعمده بملف

السلام عليكم ورحمة الله وبركاته اريد المساعده اخواني معي ملفين الأول اسمه (قديم ) شغال بكفاءه عاليه الثاني اسمه (جديد) ..



06-07-2020 08:53 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
اريد المساعده اخواني معي ملفين 
الأول اسمه  (قديم ) شغال بكفاءه عاليه
الثاني اسمه (جديد)  وهو مثل الاول تماما ولكني اريد التعديل عليه بإضافة ستة اعمده حيث قمت بتلوين الاعمده باللون الاحمر
قمت بإضافة الأعمده بالملف (جديد) ولكن لم استطع الوصول لحل . . . الأكواد متقدمه جدا...
يتم تشغيل الاكواد بالترتيب
​كنترول+ K.... ينفذ الكود الاول
​كنترول+ L...ينفذ الكود الثاني

-----
جزاكم الله خيرا اريد تشغيل الملف المسمى"جديد" مثل الملف المسمى "قديم"وذلك بإضافة الست مواد اليه
ماده1- ماده2- ماده3- ماده4- ماده5- ماده6
 
 
 
  جديد.rar   تحميل rar مرات التحميل :(0)
الحجم :(472.603) KB
  قديم.rar   تحميل rar مرات التحميل :(0)
الحجم :(501.636) KB


07-07-2020 01:28 مساء
مشاهدة مشاركة منفردة [1]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اضافة ستة اعمده بملف
اريد التعديل على هذا الكود فقط ليناسب الملف الجديد
Sub M002_Calculate_Main_Sheet()
    Dim ws          As Worksheet
    Dim a           As Variant
    Dim aM          As Variant
    Dim m           As Long
    Dim I           As Long
    Dim j           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("sheet_mostgad")
        m = ws.Cells(Rows.count, "C").End(xlUp).Row
        a = ws.Range("E5:Z" & m + 3).Value
        aM = Array("100", "100", "100", "100", "150", "150", "150", "150", "150", "100", "100", "100", "100", "100", "100", "150", "150", "150", "100", "", "", "100")
    
        For I = LBound(a, 1) To UBound(a, 1) Step 4
            For j = LBound(a, 2) To UBound(a, 2)
                If j <> 20 And j <> 21 Then
                    a(I + 3, j) = "=Level($C" & I + 4 & ",IF(" & Chr(j + 68) & I + 5 & "=""""," & Chr(j + 68) & I + 4 & "," & Chr(j + 68) & I + 5 & ")," & Chr(j + 68) & "$3)"
    
                    If IsNumeric(a(I, j)) Then
                        If Val(aM(j - 1)) = 100 Then
                            If a(I, j) >= 48 And a(I, j) < 50 Then a(I + 2, j) = 50
                        ElseIf Val(aM(j - 1)) = 150 Then
                            If a(I, j) >= 72 And a(I, j) < 75 Then a(I + 2, j) = 75
                        End If
                    End If
                End If
            Next j
            a(I, 22) = "=Quran(X" & I + 4 & ",Y" & I + 4 & ")"
        Next I
    
        With ws.Range("E5").Resize(UBound(a, 1), UBound(a, 2))
            .Formula = a
        End With
    Application.ScreenUpdating = True
End Sub



07-07-2020 06:08 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اضافة ستة اعمده بملف
طب ممكن شرح للارقام الموجوده بهذا السطر
 

 
 
 a(I + 3, j) = "=Level($C" & I + 4 & ",IF(" & Chr(j + 68) & I + 5 & "=""""," & Chr(j + 68) & I + 4 & "," & Chr(j + 68) & I + 5 & ")," & Chr(j + 68) & "$3)"

07-07-2020 06:55 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif اضافة ستة اعمده بملف
السطر مرتبط بدالة معرفة لها أكثر من بارامتر .. حاول تتبع الكود وسيذهب بك الكود للدالة المعرفة وتعرف قيمة كل بارامتر خاص بها ..

08-07-2020 07:23 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif اضافة ستة اعمده بملف
ان شاء الله خير...جزاك الله خيرا




الكلمات الدلالية
اضافة ، اعمده ، بملف ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:06 صباحا