kinguter1
-
Posts
64 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه kinguter1
-
-
اشكرك يا استاذ ياسر شكراً جزيلا على سرعة الردو ارجوا أن تفيدنى بالنسبة للمطلوب الأول وهو
عند الخروج من textbox الرقم القومى يتم كتابة تاريخ الميلاد و المحافظة و النوع والديانة فى أماكنها فى الفورم
وكل عام و حضرتك بخير
-
-
الأساتذة الأفاضل خبراء اكسيل برجاء مساعدتنا فى فى إضافة السطر الموجود لأنى عند تشغيله يوقف عمل النسخ ولكم جزيل الشكر
Sub Tarheel()
Application.ScreenUpdating = False
prompt = "åá ÊÑíÏ ÊÍÏíË ÏÑÌÇÊ ÃÚãÇá ÇáÓäÉ"
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
Title = "ÊÝÑíÛ æØÈÇÚÉ ÇáÏÑÌÇÊ"
project = MsgBox(prompt, Command_buttons, Title)
If project = vbYes Then
PT = ActiveWorkbook.Path
Application.DisplayAlerts = False
For SH = 20 To 24
nm = Format(SH, "@")
Sheets(nm).Activate
LR = [A9999].End(xlUp).Row
Range("aa6:ca3930").Copy
Workbooks.Open Filename:=PT & "\" & nm & ".xlsm"
'Sheets("maindata").Range("aa1:bc2000").UnMerge
Sheets("maindata").Range("aa1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("maindata").Range("aa1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Close (True)
Next
Application.CutCopyMode = False
Application.DisplayAlerts = True
Sheets("main").Select
MsgBox "Êã ÊÍÏíË ÏÑÌÇÊ ÃÚãÇá ÇáÓäÉ ÈäÌÇÍ"
Else
End If
Application.ScreenUpdating = True
End Sub -
الأساتذة الأفاضل
أرجوا اختصار الكود المرفق لأنى عند إضافة شيت جديد أضطر لنسخ نفس الكود
لذا أرجوا تعديل الكود فى صور حلقة تكرارية حيث أقوم فيها بزيادة عدد الشيتات فقط
-
المطلوب موجود فى المصنف 2
-
الإخوه الأفاضل
اشكركم على الصبر وسعة الصدر وأذكر الأستاذ الفااضل ابن مصر بطلبى الأول والذى لم أطلب غيرة
تاريخ المشاركة 11 November 2014 - 04:17 PM
الأساتذة الأفاضل
السلام عليكم ورحمة الله وبركاته
أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as"
وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as"
هذا للتذكير فقط
وفى هذا لطلب لم أطلب نسخ ولا إخفاء ولا إظهار ولا كتابة الباسورد فى أحد الشيتات وكان المرفق لتعديل سطرين الحماية فقط
وكنت أحاول فى كل رد أن أوضح ما فهمته حضرتك فى النهاية
Sheet1.Protect Password:="as", DrawingObjects:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=Trueوهو تعديل سطر الحماية بهذة الصورةفلك وللأستاذ ياسر جزيل الشكر والتقديرعذرا على إهدار وقتكما فى محولاتى لتوضيح طلبى -
أخى الفاضل
YasserKhalilأنا لو عارف اصحح الخطأ فلما اسأل
حضرتك سألت عن الأعمدة والصفوف التى أريد إخفائها
الإجابة أننى سوف أخفى وأظهر أعمدة وصفوف ليست محددة وذلك فى ظل حماية الورقة
وللتوضيح أكثر قم حضرتك بإخفاء العمود A مثلا بعد فتح هذا المرفق ستجد أن أمر HIDE غير نشط
ولذلك أربد تصحيح السطر الخطأ حتى يتيح لى حماية الورقة ويترك أمر HIDE نشط
-
الأستاذ العزيز
هذا الخطأ هو المشكلة وأريد تصحيح هذا السطر ليزول الخطأ
لأننى عندا أكتب السطر بالشكل التالى لا يحدث خطأ
ActiveWorkbook.Protect ("as")
-
الأستاذ العزيز
YasserKhalilاشكرك على المرور على هذا الموضوع وارجو الاطلاع على المرفق الأخير last
لآنى لا أريد حماية الورقة بالكامل ولكنى أريد التحكم فى إظهار وإخفاء الأعمدة والصفوف بدون فك الحماية
-
-
الأستاذ العزيز
بارك الله فيك وزادك علماً
نتيجة رائعة و أعطتنى نتائج طيبة مع السطر بهذا الشكل ActiveSheet.Protect
ولكن مع السطر التالى اصبح السطر لونة أحمر
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=Trueفأرجوا الإفادةتحياتى -
الأستاذ العزيز
ibn_egyptاشكرك شكرا جزيلا على الاهتمام وعلى هذا الكود الجميل
ولكن السؤال هل ممكن كتابة الباسورد داخل الكود بالشكل التالى
ActiveSheet.Unprotect.password = "as
-
أخى العزيز
ibn_egyptاشكرك على الرد ولكن ليس هذا هو المطلوب
الملف المرفق به كود بعمل عند الفتح
والمطلوب تعديل السطر ActiveSheet.Unprotect بحيث يضاف إليه الــ password داخل الكود حتى لا تظهر رسالة إدخال كلمة السر
وتعديل السطر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
بحيث يكون بنفس كلمة السر "as"المهم أن كلمة السر تكون داخل الكود وليست فى أوراق العمل -
الأساتذة الأفاضل
السلام عليكم ورحمة الله وبركاته
أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as"
وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as"
-
الأساتذة المحترمين
السلام عليكم ورحمة الله وبركاته
مرفق كشف لتسجيل الغياب وقمت بعمل تنسيق شرطى فى خلية عدد أيام الغياب ليتغير لون الخلية عند الأرقام "7-14-21-30"
حتى أعرف عند تغير لون الخلية أن الطالب له إنذار أم لا
ولكن المشكلة أن كل إنذار يرسل فى حالتين
الأولى أن يكون الغياب متصل والثانية أن يكون الغياب منفصل
ففى حالة أن غياب الطالب "4-8-15" متصل ترسل له إنذارات بدلا من الأرقام "7-14-21-30"
فأرجو أن أنهل من علمكم كيف اجعل الخلية تقوم بتحديد أيام الغياب متصلة أم منفصلة
علما بأن الجمعة والسبت أجازة
ملحوظة مهمه
إذا غاب الطالب يومى الخميس والأحد يحسب له يومان متصلان مع أن بينهما الجمعه والسبت وهو لم يحضر فيهما مع أن التواريخ بين الخميس والأحد لسيت متصلة
-
-
الاستاذ / ابو عيد
بارك الله فيك وجعله فى ميزان حسناتك
-
- 1
-
الأساتذة الأفاضل
لكم جزيل الشكر على هذا المجهود والحلول جميلة ومفيدة
وخصوصا مرفق الأستاذة أم عبدالله عندما قمت بتغيير الأوقات من و إلى أعطى النتائج المطلوبة
ولكن فى المدرسة التى أعمل بها المفروض أن أطبع جول الامتحان ليعلن للطلبة
ولا تقبل إدارة المدرسة أن يكتب فى الجدول الساعة "13:00" بدلا من الساعة "01:00"
وهذة هى المشكلة الوحيدة التى تجعلنى أقوم بجعل تنسيق جميع الخلايا رقمى وأقوم بإدخال جميع بيانات الجدول يدويا
فأرجو أن نكمل إن كان هناك حل
ولكم جزيل الشكر
-
أخى العزيز / محمود الشريف
اشكرك على الاهتمام
وأرجو تعديل المرفق بحيث أننى لا أريد عمود الراحة
ثانيا حاولت تعديل الأوقات من و إلى فمنعنى التحقق من الصحة
مثال اللغة الأجنبية من "8.00" إلى "8.30"
ملحوظة كنت جهزت تنسيق الخلايا بحيث أكتب "8" فتظهر "08.00" بعد الخروج من الخلية
وذلك بدون AM أو BM
فأرجو التعديل بناء على ذلك حتى يسهل الاستخدام
-
الأستاذ الفاضل / أبو عيد
السلام عليكم ورحمة الله وبركاته
طبعا بعد فتح المصنف سبكون هناك بعض السطور لآداء بعض المهام ثم يغلق المصنف
-
ألا من مجيب
-
الأستاذة الفاضلة / أم عبدالله
السلام عليكم ورحمة الله وبركاته
اشكرك على الرد بعد أن فقدت الأمل فى الإجاية
وعندما قمت بتجربة الجدول وجدت المشكلة فى إدخال الوقت "من" و "إلى" ما زالت كما هى
فمثلا عندما قوم بكتابة بداية الوقت "8.00" لا يظهر سوى أصفار
وعندما قوم بكتابة نهاية الوقت "8.30" لا يظهر سوى أصفار
وقد حاولت تغيير تنسيق الخلايا ولكن دون جدوى
فأرجو إدخال إدخال الوقت بالصيغة الموضحة حتى تتضح المشكلة
ولك جزيل الشكر والتقدير
-
السلام عليكم ورحمة الله وبركاته
ارجو تعديل الكود الموجود فى المصنف "a"
بحيث يقوم بإغلاق المصنف "b" بعد فتحه
تعديل لشروط حالة الأب وحالة الأم في الفورم
في منتدى الاكسيل Excel
قام بنشر
الف الف شكر يا استاذ ياسر
زادك الله علماً ونفع بك وجعله فى ميزان حسناتك .
وبالنسبة لتغيير اسم الظهور أنا حاولت لكن مش عارف الخطوات