مطلوب شرح سطر فى كود

[يوسف عطا]

الرجاء شرح السطر التالى فى كود ترحيل أو بمعنى أصح ترجمته

cc.Value = cc.Offset(-1, 0) + 1

[يوسف عطا]

الكود بالكامل كالتالى

Dim Z As Integer, A As Integer, B As Integer

Sheets("15").Range("A11:DZ5000").ClearContents

Sheets("16").Range("A11:DZ5000").ClearContents

A = 11: B = 11

Application.ScreenUpdating = False

For Z = 11 To 5000

If Cells(Z, 1) = "ناجحة" Then

Range("A" & Z).Resize(1, 33).Copy

Sheets("15").Range("A" & A).PasteSpecial xlPasteValues

Application.CutCopyMode = False

'

A = A + 1

End If


If Cells(Z, 1) = "لها دور ثان" Then

Range("A" & Z).Resize(1, 33).Copy

Sheets("16").Range("A" & B).PasteSpecial xlPasteValues

Application.CutCopyMode = False

B = B + 1

End If


Next

For Y = 16 To 17

Sheets(Y).[B11] = 1

rrw = Sheets(Y).[B3000].End(xlUp).Row

For Each cc In Sheets(Y).Range("B12:B" & rrw)

cc.Value = cc.Offset(-1, 0) + 1

Next cc

Next Y


MsgBox ("الحمد لله تـــم ترحيل الطالبات كل إلى نتيجتها طبقاً للإحصاء التالى ")

For x = 16 To 17

Y = Sheets(x).[B3000].End(xlUp).Row - 10

mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & x

Next x

MsgBox (" تم ترحيل عدد" & mssg)

Range("A1").Select

Application.ScreenUpdating = True

End Sub

تم تعديل سبتمبر 13, 2012 بواسطه يوسف عطا

[أبو حنــــين]

السلام عليكم

و كأننا قلنا للبرنامج الخلية cc تساوي الخليةالتي فوقها مباشرة + 1

جرب المثال التالي بوضع CommandButton1 و اضف الكود التالي ثم أكتب في الخلية D1 اي رقم و لاحظ الخلية D2

Private Sub CommandButton1_Click()

Range("D2").Value = Range("D2").Offset(-1, 0) + 1

End Sub

[يوسف عطا]

الف شكر

[أبو حنــــين]

العفو اخي يوسف

[يوسف عطا]

معذرة لدى إستفسار آخر فى نفس الكود

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

المطلوب أن يذكر الكود الإسم الذى أريده للشيت المرحل إليه وليس رقم الشيت

حيث قمت بترقيم الشيتات فى الملف وليس تسميتها لكثرة عددها

الكود يذكر لى أن الشيت رقم 16 به عدد كذا طالبة والشيت رقم 17 به عدد كذا طالبة

المطلوب أن يكون الإحصاء بغسم أضعه أنا بالكود وليس برقم الشيت

عسى أن أكون أوضحت وجهة نظرى

[أبو حنــــين]

غير هذا السطر

mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & x

بالسطر التالي

mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & Sheets(x).Name

[يوسف عطا]

مشكور على مشاركتك أخى الغالى ابو حنين

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

مثلاً الشيت الذى إسمه 15 سيرحل له الطالبات الناجحات والإحصاء تظهر لى كما يلى

تم ترحيل 50 طالبة لشيت 15

أريد أن تظهر الإحصاء كما يلى

تم ترحيل 50 طالبة لشيت الناجحات

دون أن أغير إسم الشيت فى الملف

فكيف اقوم بذلك

الف شكر مقدماً

[أبو حنــــين]

جرب الكود التالي حيث تم تغيير الجزئ الاخير من مشاركتك رقم 2

'MsgBox ......................................................

' الكود يبدأ من تحت كلمة Msgbox

Dim rArr

rArr = Array(" ناجح ", " دور ثاني ")

For x = 16 To 17

Y = Sheets(x - 15).[B3000].End(xlUp).Row - 10

mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & "." & rArr(x - 16)

Next x

MsgBox ("  تم ترحيل عدد " & mssg)

Range("A1").Select

Application.ScreenUpdating = True

[alfahad]

بارك الله فيك اخي ابو حنين

والحقيقة استاذ

جعل الله ماتقوم به في ميزان حسناتك

[أبو حنــــين]

مشكور أخي الكريم : / فهد