ياسر الحافظ قام بنشر يونيو 7, 2011 مشاركة قام بنشر يونيو 7, 2011 العزيز يحياوي : بداية اشكرك كود يقوم بعمل حماية على جميع أوراق العمل في ملف أكسيل مع ملاحظة كود تقسم الخلايا لم يعمل معي ؟؟ ربما لم اعرف التعامل معه ارجو المساعدة في اعادة الكود بملف اكسل آخر ... وعذرا وفقك الله ياسر الحافظ حماية مصنف.rar 1 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 7, 2011 الكاتب مشاركة قام بنشر يونيو 7, 2011 اخي ياسر بارك الله فيك على الكود الجميل بالنسبة لكود تقسيم الخلية لاحظ الملف التالي تقسيم الخلية الى عدة اسطر.rar 3 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 8, 2011 مشاركة قام بنشر يونيو 8, 2011 اخي واستاذي يحياوي : بداية اشكرك على المرفق بشأن كود التفسم واشكر لك اهتمامك هنا كود : يقوم هذا الكود بفرز البيانات بمجرد الضغط المزدوج Double Click على أي عنوان من عناوين الأعمدة Headers في الصف الأول تحياتي للجميع وفقكم الله ياسر الحافظ فرز.rar 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 8, 2011 مشاركة قام بنشر يونيو 8, 2011 طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله التحقق من الصحه بربط كومبكس في حدث الصفحه اليكم الكود يشرح نفسه ومرفق مثال Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets("æÑÞÉ1") Cancel = True Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .ListFillRange = "" .LinkedCell = "" .Visible = False End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate End If errHandler: Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End Sub abood.rar 2 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 8, 2011 الكاتب مشاركة قام بنشر يونيو 8, 2011 اخي الكريم alidroos كود رائع لا كن حسب ما فهمته من الكود انه بالضغط المزدوج يمكن التحكم في القائمة من الكيبورد اعلى و اسفل ارجو التوضيح اكثر جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 8, 2011 مشاركة قام بنشر يونيو 8, 2011 اشكرك اخي يحي على توضيح الكود اكثر نعم هذا كود من المدخرات في رحلة البحث على الجوجل استخدمته في التحكم بعرض القائمة على حد علمي انه لايمكن التحكم بخط القائمة المنسدله لدى التحقق من البيانات فلهذا استفدت من هذه الجزئيه ومااوضحته انفع برضه رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 9, 2011 مشاركة قام بنشر يونيو 9, 2011 (معدل) كود لجمع الخلايا ذات اللون المعين وادراجه كمعادلة هذه ضيغة الداله =ColorFunction($C$1;$A$1;TRUE) الجزء المضلل بالاحمر المدى المراد جمع خلاياه الملونه والجزء المضلل بالاخضر الخليه العينه التي فيها اللون المراد جمع الخلايا التي تحتوي على نفس اللون اليكم الكود Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim vResult '=ColorFunction($C$1;$A$1:$A$12;TRUE)كالتالي عمل الداله الاول بعد القوس الخليه التي تحط فيها اللون المراد جمعه 'وبعد الفاصل من خليه والفاصل الثاني الي خليه اغلق القوس lCol = rColor.Interior.ColorIndex If SUM = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.SUM(rCell, vResult) End If Next rCell Else For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = 1 + vResult End If Next rCell End If ColorFunction = vResult End Function معادلة لجمع الخليه الملونة بالكسور.rar تم تعديل يونيو 9, 2011 بواسطه alidroos 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 9, 2011 مشاركة قام بنشر يونيو 9, 2011 اليكم كود لتلأم العمود لمحتوى النص بمعنى عند كتابة اسم طويل بالخليه تتوسع اتوماتيك ينحط الكود في حدث workbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) ActiveSheet.Columns(Target.Column).AutoFit End Sub 3 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 10, 2011 الكاتب مشاركة قام بنشر يونيو 10, 2011 كود اضافة دالة اسم اليوم كود اضافة دالة اسم اليوم.rar 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يونيو 12, 2011 مشاركة قام بنشر يونيو 12, 2011 (معدل) إليكم هذا الكود أتمنى أن يعجبكم رسالة تأكيد ضهور معلومات.rar رسالة تأكيد ضهور معلومات.rar تم تعديل يونيو 12, 2011 بواسطه tahar1983 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 14, 2011 الكاتب مشاركة قام بنشر يونيو 14, 2011 تغيير ترتيب اسماء من خلال مربع قائمة تغيير ترتيب من خلال مربع قائمة.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 15, 2011 الكاتب مشاركة قام بنشر يونيو 15, 2011 كود قائمة منسدلة متناقصة كود قائمة منسدلة متناقصة.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 17, 2011 الكاتب مشاركة قام بنشر يونيو 17, 2011 كود تغيير لون خلية عشوائيا كود تغيير لون خلية عشوائيا.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 20, 2011 الكاتب مشاركة قام بنشر يونيو 20, 2011 اخواني الكرام تحية طيبة و ارجوا تكونوا بخير اليوم جبتلكم كود يجعل الملف يختفي لمدة من الزمن تحددها انت اخفاء ملف الاكسل لمدة من الزمن.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 20, 2011 مشاركة قام بنشر يونيو 20, 2011 العزيز يحياوي : شكرا لهذه الاكواد الرائعة والشكر لكافة السادة الاعضاء المشاركين وارجو من الله ان لاتنقطع المشاركات مهما كان يظن صاحبها انها بسيطة لانها قد تكون غائبة عن الذهن ويمكن الاستفادة منها هنا كود لفصل الرقم عن النص ( او استخلاص الرقم من خلية - او النص ) منقول وفقكم الله ياسر الحافظ كود لفصل النص عن الرقم exl2003.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 20, 2011 مشاركة قام بنشر يونيو 20, 2011 اخي العزيز / استاذي يحياوي : اسعد الله اوقاتك مرفق كود لتلوين الخلية النشطة ( او مجال - مدى - خلايا معين ) ويمكن تعديل اللون من رقم اللون في محرر vda تحياتي لك وللجميع وفقكم الله ياسر الحافظ كود لتلوين الخلية النشطة exl2003.rar 1 رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 22, 2011 مشاركة قام بنشر يونيو 22, 2011 فكرة هذا الموضوع رائعة اسمحوا لي بالمشاركة بهذا الكود البسيط كود منع إضافة أوراق عمل جديدة للملف الكود يوضع في ThisWorkbook منع إضافة أوراق.rar 2 رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 22, 2011 مشاركة قام بنشر يونيو 22, 2011 كود جميل من إحدى المشاركات الجميلة في المنتدى الكود يقوم بطباعة الحقول الممتلئة فقط دون الحاجة لإخفاء الحقول الفارغة طباعة الحقول الممتلئة فقط.rar رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 22, 2011 مشاركة قام بنشر يونيو 22, 2011 كود يظهر رسالة تطلب من المستخدم تمكين الماكرو من العمل إذا كان مستوى أمان الماكرو High أو Very High الشرح داخل الملف رسالة لتمكين الماكرو.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 22, 2011 مشاركة قام بنشر يونيو 22, 2011 العزيز يحياوي : تحية طيبة هنا كود للترحيل واشياء اخرى يمكن الاطلاع على التفاصيل في المرفق ( منقول ) واشكرك على حسن ادارة هذه المشاركة وفقك الله ياسر الحافظ كود ترحيل واشياء اخرى.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 22, 2011 مشاركة قام بنشر يونيو 22, 2011 اخي واستاذنا يحياوي : هنا كود : ترقيم اجباري واعادة بدء الترقيم يمكن الاستفادة منه في الاستحقاقات التي تتطلب ارقام تسلسلية ارجو ان ينال الرضى ( منقول ) وفقك الله ياسر الحافظ ترقيم اجباري واعادة بدء الترقيم.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 23, 2011 مشاركة قام بنشر يونيو 23, 2011 الاساتذة : يحياوي , نادر بداية كل الشكر لي طلب بخصوص كود طباعة الحقول الممتلئة فقط هل بالامكان التعديل في الكود ليصبح الخيار على عمود فارغ فقط ( ويوجد معلومات في باقي الاعمدة ) بحيث اذا كان عامود معين ( ومحدد ) فارغ لاتتم طباعة بيانات كل السطر لا اعرف اذا تمكنت من الشرح وفقكم الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 23, 2011 مشاركة قام بنشر يونيو 23, 2011 (معدل) الاساتذة : يحياوي , نادر بداية كل الشكر لي طلب بخصوص كود طباعة الحقول الممتلئة فقط هل بالامكان التعديل في الكود ليصبح الخيار على عمود فارغ فقط ( ويوجد معلومات في باقي الاعمدة ) بحيث اذا كان عامود معين ( ومحدد ) فارغ لاتتم طباعة بيانات كل السطر لا اعرف اذا تمكنت من الشرح وفقكم الله ياسر الحافظ أستاذ ياسر حسب ما فهمت منك أنت تريد الكود أن يختار الصف للطباعة بناء على خلية في عامود محدد الكود بوضعه الحالي يعتمد على العامود الأول A فأي خلية فيها بيانات في العامودA سيقوم باختيار الصف للطباعة و إذا كانت الخلية في العامودA خالية فلن يطبع الصف حتى لو كان بقية الصف فيه بيانات لأن الكود يقوم هنا بإخفاء الصف عند الطباعة كما ترى في هذا الجزء من الكود: If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True ثم يطبع الصفوف بهذا الأمر: PrintOut ثم يظهر الصفوف مرة أخرى بهذا الأمر: Rows.Hidden = False حيث الرقم 1 الأزرق اللون هو رقم العامودA تم تعديل يونيو 23, 2011 بواسطه naderwatfa رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 24, 2011 الكاتب مشاركة قام بنشر يونيو 24, 2011 كود اظهار رسالة من عدة اسطر yahiaoui.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 24, 2011 الكاتب مشاركة قام بنشر يونيو 24, 2011 (معدل) اخواني الكرام تسهيلا على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد كما ارجوا من الاخوة المشرفين ادراج هذه المشاركة في الصفحة الاولى yahiaoui توليد ارقام عشوائية في مدى معين يوسف عطا كود صندوق حوار يظهر عند فتح الملف yahiaoui كود منع اضافة اوراق جديدة كود منع طباعة حماية ورقة بواسطة زر اختيار اخفاء/ اظهار ورقة بزر اختيار كيفية ربط Label من فورم بقيمة خلية yahiaoui فهرسة الاوراق في الورقة1 yahiaoui كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة hyasser تجميع بعض من الاكواد yahiaoui كود رسالة تحذير عند فتح الملف aah_aah2008 منع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر hyasser ادراج المفكرة ( رزنامة ) في ملف اكسل yahiaoui كود بسيط لعمل عداد hyasser كود ساعة رقمية + ساعة عادية yahiaoui صندوق ادخال مع صندوق حوار yahiaoui كود كتابة جملة في شريط الحالة abumode75 كود معاينة قبل الطباعة yahiaoui كود لتحديد عدد مرات استعمال البرنامج hyasser إخفاء وحماية اوراق العمل hyasser شاشة دخول اكسل hyasser المؤشر الى نص yahiaoui تقسيم الخلية الى عدة اسطر galal_mk كود للفرز ولكن حسب رقم العمود المختار hyasser كود يقوم بعمل حماية على جميع أوراق العمل hyasser فرز البيانات بمجرد الضغط المزدوج Double Click على أي عنوان من عناوين الأعمدة Headers في الصف الأول alidroos طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله alidroos كود لجمع الخلايا ذات اللون المعين alidroos كود لتلأم العمود لمحتوى النص yahiaoui كود اضافة دالة اسم اليوم tahar1983 رسالة تأكيد ضهور معلومات yahiaoui تغيير ترتيب اسماء من خلال مربع قائمة yahiaoui كود قائمة منسدلة متناقصة yahiaoui كود تغيير لون خلية عشوائيا yahiaoui كود يجعل الملف يختفي لمدة من الزمن تحددها انت hyasser كود لفصل النص عن الرقم hyasser كود لتلوين الخلية النشطة naderwatfa منع إضافة أوراق naderwatfa طباعة الحقول الممتلئة فقط naderwatfa رسالة لتمكين الماكرو hyasser كود ترحيل واشياء اخرى hyasser ترقيم اجباري واعادة بدء الترقيم yahiaoui كود اظهار رسالة من عدة اسطر تم تعديل يونيو 24, 2011 بواسطه yahiaoui 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها