أرجو المساعدة في شرح هذا الكود

[samia84]

السلام عليكم

لقد وجدت مساعدة كبيرة في منتدانا الغالي وخاصة من كبار أساتذتنا

ولهذا ألجأإليكم  في كل مرة لمساعدة

وجدت هذا الكود في أحد برامج الزملاء وفد أعجبني وأريد تطبيقه في برنامجي ولكن لم أنجح

لذا أرجو منكم المساعدة

Sub Rappel_eleves()
On Error Resume Next

Dim MyRange As Range, MyR As Range
Dim r As Integer, N As Integer, M As Integer, MM As Integer, K As Integer, C As Integer, CC As Integer

TT = Application.WorksheetFunction.Match(Range("l2"), Feuil3.Rows("5:5"), 0)
Dim Tab1(8) As Integer
Tab1(1) = TT: Tab1(2) = TT + 1: Tab1(3) = IIf(TT >= 38, "", TT + 2): Tab1(4) = IIf(TT >= 38, TT + 2, TT + 3): _
            Tab1(5) = IIf(TT >= 38, TT + 3, TT + 4): Tab1(6) = IIf(TT >= 38, TT + 4, TT + 5): Tab1(7) = IIf(TT >= 38, TT + 5, TT + 6): _
            Tab1(8) = IIf(TT >= 38, TT + 6, TT + 7)

Set MyRange = Range("bas_t" & Range("V1"))

kh2_Clears

Application.Calculation = xlCalculationManual

'ÚÏÏ ÇáÓØæÑ ÇáÎÇÑÌÉ Úä äØÇÞ ÇáÇÓÊÏÚÇÁ
N = 7
Application.ScreenUpdating = False
With MyRange
    For r = 1 To .Rows.Count
        If .Cells(r, 1) = "" Then GoTo 1
        If .Cells(r, 6) = Range("d4") Then
            M = M + 1
            MM = N + M
            With Cells(MM, 2)
                .Value = M
                .AddComment
                .Comment.Text Text:="" & r
            End With
            For K = 1 To 12
                C = Choose(K, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
                CC = Choose(K, 2, 3, 8, Tab1(1), Tab1(2), Tab1(3), Tab1(4), Tab1(5), Tab1(6), Tab1(8))
                If CC = 0 Then Else Cells(MM, C) = .Cells(r, CC)
            Next K
        End If
1   Next r
End With
'ÊÓØíÑ ÇáÕÝæÝ ÇáãÍÊæíÉ Úáì ÇáÈíÇäÇÊ
With Range("B8:n" & MM)
    .Borders.LineStyle = 2
End With
    With Range("B8:n" & MM).Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Application.ScreenUpdating = True
Range("g8").Activate
MsgBox "Êã ÇáÇÓÊÏÚÇÁ ÈäÌÇÍ", vbMsgBoxRight, "ÇáÍãÏááå"
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
End Sub
 

 

 

Sub Rappel.rar

[ياسر خليل أبو البراء]

يرجى إرفاق ملف الإكسيل نفسه الي يحوي الكود

تم تعديل نوفمبر 28, 2014 بواسطه YasserKhalil

[samia84]

السلام عليكم

هذا الملف لأحد الزملاء الذي يوجد فيه الكود الذي أريد الشرح له

يوجد في المرفقات

وشكرا

على المساعدة

 

 

 

GESTION DES NOTES _9.rar

[samia84]

السلام عليكم

هل من مساعدة

أنا في أمس الحاجة إلى هذا الكود

وشكرا مسبقا

 

 

 

[ياسر خليل أبو البراء]

الأخت الفاضلة

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

فيرجى الصبر وإعادة المحاولة وبإن المولى ستجدين المساعدة

بالنسبة للكود أعتقد أنه للعلامة عبد الله باقشير وهو أعرف الناس بالكود من غيره ..

ثم إن الكود يحتاج وقت لشرحه .. هل يمكنك تحديد جزء معين من الكود يكون غامض بالنسبة إليك لتوضيحه بشكل يسير؟

[samia84]

السلام عليكم

شكرا أخي على الإهتمام و الإجابة

أنا في الإنتظار دائما

ولكن الإدارة التى أعمل فيها هي المستعجلة

وشكرا

 

 

 

[الصـقر]

الاخت الكريمة

انا بحث عن هذا الكود  () Sub Rappel_eleves اللى انتى عايزه الشرح له غير موجود بالملف ممكن اعرف هو فى اى مودويل

[ياسر خليل أبو البراء]

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

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

[jonier]

Range("b9: c9").Value. ورقه301 = .Range("f9: g9").Value. ورقه301

ما معنى هذا الكود

ارجو المساعده ضرورى جدا

وشكرا جزيلا

[ياسر خليل أبو البراء]

أخي الفاضل مثل هذا السطر يستخدم لتحويل المعادلات الموجودة في النطاق المذكور إلى قيم فقط ، وتحويل المعادلات إلى قيم يجعل الملف أسرع وأخف

[jonier]

Range("b9: c9").Value. ورقه301 = .Range("f9: g9").Value. ورقه301

ما معنى هذا الكود

ارجو المساعده ضرورى جدا

وشكرا جزيلا

معلش ممكن توضحلى اكتر معنى كلامك

وانا ممكن ابعتلك البرنامج اللى عندى وتشرحلى اكتر

ده اذا امكن

ومتشكر جدا لدرك عليا

تم تعديل ديسمبر 5, 2014 بواسطه jonier

[samia84]

السلام عليكم شكرا لكم على الرد

الكود موجود في  modules:

Tarhil_car_not

 

من الملف المرفق سابقا

وهوGESTION DES NOTES _9

وسأرفقه موة ثانية

 

 

GESTION DES NOTES _9.rar

[أبوعيد]

السلام عليكم

Range("b9: c9").Value. ورقه301 = .Range("f9: g9").Value. ورقه301

المعنى

أنسخ القيم الموجودة في الخليتين b9  و  c9  إلى الخليتين f9  و  g9    من نفس الورقة

تحياتي

[samia84]

السلام عليكم

أبعث لكم الملف وهو جزء من الملف الأصلي لأحد الأساتذة المحترمين

وما أريده هو التعديل على الكود لكي يعمل

وشكرا

والملف مرفق

مع العلم أني قمت بالتغيير في الكود

وأرجو منكم مساعدتي في إصلاح الكود

وشكرا مسبقا

 

 

 

كشف النقاط الشخصي 1970.rar

[jonier]

Private Sub CommandButton1_Click()

 

 ورقة10.Range("b9: c9").Value = ورقة10.Range("f9: g9").Value

الكود ده مكتوب فى ورقه غير اللى مكتوب فى الكود واللى بيحصل لما بدوس على Button بينقل القيم من الكود المكتوب للصفحه الحاليه

فانا مش فاهم ازاى بيحصل وازاى بيثبت وبينقل للمكان ده مع ضغطه ال button

وشكرا على اهتمامكم

تم تعديل ديسمبر 6, 2014 بواسطه jonier

[jonier]

هل يوجد كود يأمر بطبع عدد صفحات معينه؟

ارجو المساعده