اريد التعديل على هذا الملف

نورانور · ديسمبر 13, 2011

السلام عليكم

اشكركم كثيرا على حسن تعاونكم معنا ولى طلب صغير ارجو من مشرفى هذا المنتدى الذى تعلمت منه الكثير وهو كيف يمكننى التعديل على ورقة ارقام الجلوس فى الملف المرفق من حيث الاضافة والحذف وارجو من حضراتكم اضافة عداد لعدد الصفحات المراد طباعتها وحذف كلمة جدول من رقم الجلوس مع الاحتفاظ باسم صاحب العمل . لأننى لا يمكننى الاتصال به ليعمل هذا التعديل علما بان هذا العمل قد صممه لى وقد نسيت كيف اعدل عليه.

_ارقام_الجلوس الصف الأول فيزياء 2011.rar

نورانور · ديسمبر 14, 2011

للرفع

نورانور · ديسمبر 14, 2011

انا افتكرت فك الحماية وفكيت الحماية عايز من فضلكم وضع عداد لعدد الورقات المراد طباعتها فى ورقة رقم الجلوس

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

_ارقام_الجلوس.rar

**طارق محمود** · ديسمبر 15, 2011

السلام عليكم

أخي العزيز

كيف يمكننى التعديل على ورقة ارقام الجلوس فى الملف المرفق من حيث الاضافة والحذف

ورقة ارقام الجلوس بها أسهم تحكم والموجودة تقريبا عند الخلايا W2:W4

وهي تتحكم وتغير فقط الخلايا C53 - C39 - C24 - C9 لتأخذ 4 أرقام جلوس متتالية

ثم تأتي بقية البيانات (مثل الإسم و الفصل الدراسى و الصف ورقم اللجنة و مكان اللجنة)

تأتي هذه البيانات عن طريق دوال ومعادلات من الورقة الأصلية (الاسماء)

لذلك إجابة لسؤالك

يمكنك التعديل على ورقة ارقام الجلوس بطريق غير مباشر بالتعديل في الورقة الأصلية (الاسماء)

**طارق محمود** · ديسمبر 15, 2011

حذف كلمة جدول من رقم الجلوس

مع الاحتفاظ باسم صاحب العمل .

لأننى لا يمكننى الاتصال به ليعمل هذا التعديل علما بان هذا العمل قد صممه لى وقد نسيت كيف اعدل عليه.

المشكلة أنك رفعت الملف بلا أكواد وواضح انه مان عليه كود لبرنامج

إبحث عن الملف الأصلي وأعد إرفاقه

نورانور · ديسمبر 15, 2011

شكرا لحسن ردكم اريد عمل عداد اكتب فيه عدد ارقام الجلوس المراد طباعتها مثلا اكتب فيه طباعة من رقم جلوس 100 الى 200 مثلا وهكذا بدلا من اسهم الزيادة والنقصان بدلا من طبع كل ورقة على حده فى ورقة ارقام الجلوس

**جلال محمد** · ديسمبر 15, 2011

اليك هذا الملف

يارب يهون هو المطلوب

_ارقام_الجلوس الصف الأول فيزياء 2011.rar

نورانور · ديسمبر 15, 2011

شكرا وجعل الله هذا العمل فى ميزان حسناتكم واعانكم الله علينا وخير الناس انفعهم للناس وانتم خيرة الناس وهذا المطلوب تماما

نورانور · ديسمبر 16, 2011

من فضلكم زر الطباعة لا يعمل فى الملف قى ورقة ارقام الجلوس بعد اضافة زر للطباعة فى المرفق الأخير

waledm · ديسمبر 16, 2011

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

شكرا لكم

مرفق شيت الثانى والرابع

شيت الثانى والرابع.zip

waledm · ديسمبر 17, 2011

ألا يوجد من يهتم ويحل المشكلة أيها الأخوة

waledm · ديسمبر 24, 2011

ألا من مجيب

**طارق محمود** · ديسمبر 25, 2011

السلام عليكم

أخي وليد

لازم تحدد المشكلة

فالشيت ليس متواضع وليس به مكرو واحد

أنا فتحت فقط (شيت الصف الثانى) وجدت به اكثر من 40 ماكرو

لابد ان تشير إلي الكود الذي إسمه كذا لايعمل أو الموجود بالورقة كذا

يلزم أن تساعد من يريد المساعدة

waledm · ديسمبر 28, 2011

أخى العزيز شكرا ً جزيلاً على إهتمامك لأن الشيت ضرورى جدا لمدرستى

والمشكلة بالتحديد هى أولاً ( فى شيت الثانى) عند فتح ورقة الإدارة والضغط على زر الناجح والراسب تظهر لى رسالة بأن هناك خطأ وعند فتح الرسالة أجد تظليل بالون الأصفر على أحد الأسطر فى الكود

ثانياً ( شيت الرابع ) عند فتح ورقة الإدارة والضغط على زر الناجح والراسب يتم ترحيل الناجحين إلى ورقة ناجح وهو المطلوب ولكن المشكلة أنه يتم ترحيل الناجحين والراسبين معا إلى ورقة دور ثان والمطلوب ترحيل الراسبين فقط إلى ورقة دور ثان

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

شيت الثانى والرابع.zip

waledm · ديسمبر 31, 2011

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

Sub SEPARATION()

Application.ScreenUpdating = False

Sheets("ناجح").Range("B6:J1000").ClearContents

Sheets("راسب").Range("B6:J1000").ClearContents

Dim ResSh As String

For i = 2 To Cells(1000, 9).End(xlUp).Row

ResSh = Cells(i, 9).Value

AA = Sheets(ResSh).Cells(1000, 9).End(xlUp).Row + 1

On Error Resume Next

Sheets(ResSh).Cells(AA, 2).Value = Cells(i, 2).Value

Sheets(ResSh).Cells(AA, 3).Value = Cells(i, 3).Value

Sheets(ResSh).Cells(AA, 4).Value = Cells(i, 4).Value

Sheets(ResSh).Cells(AA, 5).Value = Cells(i, 5).Value

Sheets(ResSh).Cells(AA, 6).Value = Cells(i, 6).Value

Sheets(ResSh).Cells(AA, 7).Value = Cells(i, 7).Value

Sheets(ResSh).Cells(AA, 8).Value = Cells(i, 8).Value

Sheets(ResSh).Cells(AA, 9).Value = Cells(i, 9).Value

Next i

Application.ScreenUpdating = True

MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح"

End Sub

waledm · ديسمبر 31, 2011

هذا هو الشيت الذى به كود فصل الراسب عن الناجح

ارجو شرح وتوضح الكود

ناجح وراسب.zip

تم تعديل ديسمبر 31, 2011 بواسطه waledm

**طارق محمود** · ديسمبر 31, 2011

السلام عليكم

أخي الكريم

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

بعد تعديل طفيف عليه

السطرين الثالث والرابع واللذان يبدءان بــ : Range("B6

غيرهما ليبدءا بــ: Range("B2

سيكون الكود كالتالي



Sub SEPARATION()

Application.ScreenUpdating = False

Sheets("ناجح").Range("B2:J1000").ClearContents

Sheets("راسب").Range("B2:J1000").ClearContents


Dim ResSh As String

....

....

الباقي كما هو

waledm · يناير 1, 2012

أخى الكريم شكراً جزيلا على إهتمامك

لكن عند تطبيق الماكرو بعد التعديل الذى تكرمت به على الشيت الخاص بى ( شيت الثانى والرابع) فإنه لايعمل

أرجو الإطلاع والإفادة

جزاك الله خيرا

مرفق الشيت

شيت الثانى والرابع.zip

**طارق محمود** · يناير 7, 2012

السلام عليكم

أخي الكريم

يبدو أنك غيرت كثيرا في محتوي الملف الأصلي

نصيحة لاتفعل هذا مستقبلا

لأن الكود تم تفصيله علي شكل البيانات

مثلا لأسطر الثمانية العلوية عناوين وتبدأ البيانات من الصف التاسع والكود كان يفترض فقط سطر واحد عنوان

وكثير من التغييرات ستجدها في الملف المرفق مع الكود التالي



Sub SEPARATION()

Application.ScreenUpdating = False

'Sheets("ناجح").Range("B2:J1000").ClearContents	 ' خطأ الصف الأول للبيانات في ورقات راسب/ناجح هو السابع وليس الثاني

'Sheets("دورثان").Range("B2:J1000").ClearContents

Sheets("ناجح").Range("B7:J1000").ClearContents

Sheets("دورثان").Range("B7:J1000").ClearContents



Dim ResSh As String

'For i = 2 To Cells(1000, 9).End(xlUp).Row	  ' خطأ الصف الأول للبيانات هو السادس وليس الثاني

For i = 6 To Cells(1000, 20).End(xlUp).Row

	'ResSh = Cells(i, 9).Value	  خطأ عمود النتيجة رقم 20 وليس رقم 9

	ResSh = Cells(i, 20).Value

	'AA = Sheets(ResSh).Cells(1000, 9).End(xlUp).Row + 1

	AA = Sheets(ResSh).Cells(1000, 19).End(xlUp).Row + 1

	On Error Resume Next

		Sheets(ResSh).Cells(AA, 2).Value = Cells(i, 2).Value

		Sheets(ResSh).Cells(AA, 3).Value = Cells(i, 3).Value

		Sheets(ResSh).Cells(AA, 4).Value = Cells(i, 4).Value

		Sheets(ResSh).Cells(AA, 5).Value = Cells(i, 5).Value

		Sheets(ResSh).Cells(AA, 6).Value = Cells(i, 6).Value

		Sheets(ResSh).Cells(AA, 7).Value = Cells(i, 7).Value

		Sheets(ResSh).Cells(AA, 8).Value = Cells(i, 8).Value

		Sheets(ResSh).Cells(AA, 9).Value = Cells(i, 9).Value

		'كل الصفوف التالية كانت ناقصة

		Sheets(ResSh).Cells(AA, 10).Value = Cells(i, 10).Value

		Sheets(ResSh).Cells(AA, 11).Value = Cells(i, 11).Value

		Sheets(ResSh).Cells(AA, 12).Value = Cells(i, 12).Value

		Sheets(ResSh).Cells(AA, 13).Value = Cells(i, 13).Value

		Sheets(ResSh).Cells(AA, 14).Value = Cells(i, 14).Value

		Sheets(ResSh).Cells(AA, 15).Value = Cells(i, 15).Value

		Sheets(ResSh).Cells(AA, 16).Value = Cells(i, 16).Value

		Sheets(ResSh).Cells(AA, 17).Value = Cells(i, 17).Value

		Sheets(ResSh).Cells(AA, 18).Value = Cells(i, 18).Value

		Sheets(ResSh).Cells(AA, 19).Value = Cells(i, 19).Value


Next i

Application.ScreenUpdating = True

MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح"

End Sub

تفضل المرفق الصف الثاني

وسأترك لك المحاولة في الصف الرابع

2012شيت مدرستى - الصف الثانى2.rar

waledm · يناير 8, 2012

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

أرجو الإفادة ،،، وشكرا مرة أخرى للإهتمام

2012شيت مدرستى - الصف الثانى2.zip

**طارق محمود** · يناير 8, 2012

السلام عليكم

لاأعرف

قد يكون لديك خطأ آخر

الملف يعمل عندي علي 2003 ، 2010 بلامشاكل

انظر الفيديو

try.rar

waledm · يناير 20, 2012

أرجو الإفادة مازالت المشكلة قائمة

waledm · يناير 22, 2012

أشكرك أخى الكريم وجعل الله مشاركاتك فى ميزان حسناتك إن شاء الله تعالى

أخوك/ محمد سعيد- قويسنا - منوفيه

عصام امين · أبريل 21, 2014

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

هام جدا وضرورى

تسجيل الدخول

اريد التعديل على هذا الملف

الردود الموصى بها

نورانور

نورانور

نورانور

طارق محمود

طارق محمود

نورانور

جلال محمد

نورانور

نورانور

waledm

waledm

waledm

طارق محمود

waledm

waledm

waledm

طارق محمود

waledm

طارق محمود

waledm

طارق محمود

waledm

waledm

عصام امين

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information