naderwatfa قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 هذا كود يحذف القيم الأصغر أو التواريخ الأحدث مع حذف الصف كله لكنه يقوم بذلك في الخلايا المرتبة فوق بعضها مش عارف أوضح تماماً لكن التجربة في الملف المرفق أفضل حذف القيم الأصغر أو التواريخ الأقدم.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 2, 2011 الكاتب مشاركة قام بنشر يوليو 2, 2011 (معدل) اخي نادر بارك الله فيك على الاكواد الجميلة بالنسبة للكود الاخير حذف الصفوف بدلالة القيم الاصغر في التواريخ اعجبني كثيرا ولكن القيم يجب ان تكون مرتبة لكني قمت بالتعديل عليه ليقوم بفرز القيم اولا ثم يقوم بالحذف و بالتالي لن تضطر الى ان تكون القيم مرتبة ارجوا ان يعجبك الكود تعديل حذف القيم الأصغر أو التواريخ الأقدم.rar تم تعديل يوليو 2, 2011 بواسطه yahiaoui رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 2, 2011 الكاتب مشاركة قام بنشر يوليو 2, 2011 كانت الفكرة من طرف اخونا ابو احمد في موضوع سابق وهي ماكروهات في قائمة منسدلة macros in Drop-down list.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 2, 2011 الكاتب مشاركة قام بنشر يوليو 2, 2011 و هذا كود عمل ماكروهات في كومبو بكس RunMacrosFromComboBox.rar رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 اخي نادر بارك الله فيك على الاكواد الجميلة بالنسبة للكود الاخير حذف الصفوف بدلالة القيم الاصغر في التواريخ اعجبني كثيرا ولكن القيم يجب ان تكون مرتبة لكني قمت بالتعديل عليه ليقوم بفرز القيم اولا ثم يقوم بالحذف و بالتالي لن تضطر الى ان تكون القيم مرتبة ارجوا ان يعجبك الكود تسلم إيدك على التعديل الجميل ده أكيد يعجبني و يعجب غيري طالما من تعديلك أخي الكريم و بما إن النهاردة أول يوم سبت يكون إجازة عندنا في محافظة الشرقية فأنا فاضي شوية النهاردة الكود المرفق يقوم بعمل حماية لخلايا في الورقة بدون حماية الورقة نفسها يعني لو عندك أكثر من نطاق و فيها معادلات أو حتى ما فيهاش و تريد حمايتهم من التغيير بدون الحاجة لحماية الورقة فالكود ده ممتاز في هذا المجال كود لحماية أكثر من نطاق بدون حماية الورقة.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 العزيز يحياوي : والله احترت ... ليس بجعبتي حاليا اية مشاركة وبنفس الوقت لااريد الانقطاع عن المشاركة .. اخترت اليوم ملف دروس في تعامل الاكواد ضمن اكسل ( تطبيقات vba ) وهو ليس باهمية الدروس التي ارفقتها حضرتك ولكن ابسط نوعا ما وتلائم المبتدئين امثالي ارجو ان ينال الرضى ... منقول للامانة وفقك الله ياسر الحافظ " ابو الحارث " الجزء الأول.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 هنا الجزء الثاني الجزء الثاني.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 هنا الجزء الثالث والاخير الدرس الثالث.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 2, 2011 الكاتب مشاركة قام بنشر يوليو 2, 2011 كود اخر خلية مستعملة كود اخر خلية مستعملة.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 3, 2011 الكاتب مشاركة قام بنشر يوليو 3, 2011 الاخ العزيز ياسر اشكرك الشكر الجزيل لانك كنت معنا في هذا المشوار ولولاك والاخوة الافاضل لما وصلنا الى هذه المرحلة من الموضوع ولا انسى ان ابارك لك و لجميع الاخوة بالترقية اليوم معي هذا الملف و به كود للبحث نستطيع ان نستفيد منه في اي مشروع و هو في الاصل لاستاذنا الكبير خبور فورم بحث.rar 2 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 4, 2011 مشاركة قام بنشر يوليو 4, 2011 السلام عليكم ورحمة الله وبركاته شكرا للاخ الحبيب يحياوي على فتح هذا الموضوع المميز والذي سيستفيد منه الجميع هنا مشاركة متواضعة لاثراء مواضيع الاكواد كيفية تخصيص كبسات لوحة المفاتيح لتنفيذ ماكرو مثلا لو كان لدينا ماكرو وقمنا بتسميته "main" Sub main() '......أكتب أي كود هنا لتنفيذه......... '............... '............... '............... '............... End Sub واردنا تخصيص زر "F1" لتنفيذه نستخدم الكود التالي Application.OnKey "{F1}", "main" ويمكنا ربط الزر "" بكبسات أخرى مثل "SHIFT" و "CTRL" و "ALT" بحيث نستخدم الرموز التالية للدلالة عليها SHIFT + CTRL ^ ALT % Application.OnKey "+{F1}", "main" ' <SHIFT> + <F1> Application.OnKey "^{F1}", "main" ' <CTRL> + <F1> Application.OnKey "%{F1}", "main" ' <ALT> + <F1> واذا اردنا الغاء التخصيص يعني لو اردنا ارجاع كبسة "F1" لتعمل وظيفتها السابقة نستخدم الكود التالي Application.OnKey "{F1}" وهنا قائمة للكبسات والازرار التي يمكننا تخصيصها BACKSPACE .............................. {BACKSPACE} or {BS} BREAK .......................................... {BREAK} CAPS LOCK ....................................... {CAPSLOCK} DELETE or DEL .............................. {DELETE} or {DEL} السهم للأسفل DOWN ARROW .............................. {DOWN} END .............................. {END} ESC .............................. {ESCAPE} or {ESC} F1 - F15 .............................. {F1} -{F15} HELP .............................. {HELP} HOME .............................. {HOME} INS .............................. {INSERT} السهم لليسار LEFT ARROW .............................. {LEFT} NUM LOCK .............................. {NUMLOCK} PAGE DOWN .............................. {PGDN} PAGE UP .............................. {PGUP} السهم لليمين RIGHT ARROW .............................. {RIGHT} SCROLL LOCK .............................. {SCROLLLOCK} TAB .............................. {TAB} السهم للاعلى UP ARROW .............................. {UP} ولكن يجب الحذر في استخدام هذه الازرار ومعرفة كيفية التعامل معها بتفعيلها وتعطيلها بحيث يتم تفعيلها في داخل الملف فقط ويمكنكم التعامل معها باستخدام احداث الصفحات وحدث فتح الملف واحدث اغلاق الملف 1 رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 4, 2011 مشاركة قام بنشر يوليو 4, 2011 هذة دالة تفقيط بالجنية المصري اتمني من الله ان تفيد بعض الاخوة وجزاكم الله كل خير :fff: :fff: تفقيط_بالجنية_المصرى.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 5, 2011 الكاتب مشاركة قام بنشر يوليو 5, 2011 الاخوة الكرام هذا الملف به مجموعة من الاكواد: - حساب عدد الخلايا المحددة - حساب عدد الخلايا المملوءة في نطاق - حساب عدد الخلايا المملوءة المحتواة على ارقام فقط في نطاق - حساب عدد الصفوف في نطاق - حساب عدد الاعمدة في نطاق حساب عدد خلايا المحددة.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 5, 2011 مشاركة قام بنشر يوليو 5, 2011 السلام عليكم الاخوة الافاضل هذا كود نفس كود الاستاذ هانكوك اخفاء المعادلات ولاكن هذا يعمل حماية لخلايا المعادلات رقم سري Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim rFormulaCheck As Range On Error Resume Next Sh.Unprotect Password:="123" With Selection .Locked = False .FormulaHidden = False End With If Target.Cells.Count = 1 Then If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With Sh.Protect Password:="123", UserInterFaceOnly:=True End If ElseIf Target.Cells.Count > 1 Then Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas) If Not rFormulaCheck Is Nothing Then With Selection.SpecialCells(xlCellTypeFormulas) .Locked = True .FormulaHidden = True End With Sh.Protect Password:="123", UserInterFaceOnly:=True End If End If On Error GoTo 0 End Sub ينحط في حدث ThisWorkbook والسلام عليكم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 5, 2011 مشاركة قام بنشر يوليو 5, 2011 (معدل) السلام عليكم بعد اذن اخي الحبيب يحياوي الاخ الفاضل ياسر الاضافه بسيطه هذه الاضافه rLastCell.Select وفي جزئية الكود Sub ExampleProcedure() Run "LastUsedCell", 1 If Not rLastCell Is Nothing Then MsgBox rLastCell.Address rLastCell.Select Else MsgBox "الورقة فارغة" End If End Sub ومرفق نفس الملف مع الاضافه والسلام عليكم كود اخر خلية 1مستعملة.rar تم تعديل يوليو 5, 2011 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 5, 2011 مشاركة قام بنشر يوليو 5, 2011 (معدل) كود للبحث والاستبدال :fff: ماكرو للبحث.rar تم تعديل يوليو 5, 2011 بواسطه MAHMOUDFOXMAM رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 8, 2011 مشاركة قام بنشر يوليو 8, 2011 السلام عليكم الاخوة الافاضل هذا كود عمل باسورد لجميع الاوراق ولاكن غير الكود الاول في مربع حوار هذا في حدث ThisWorkbook وتقدر تستخدمه عند الاغلاق والفتح والحفظ ارى انه افضل عند فتح المصنف Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub عند الحفظ بمعنى CTRL+S Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub عند اغلاق المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub العذر منكم والسموحه في التفصيل على اجزاء الاستخدام الغرض من التوضيح للمبتدئين في VBA excel اليكم المرفق وبه ماسبق ذكره والسلام عليكم PASS_alidroos.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 9, 2011 الكاتب مشاركة قام بنشر يوليو 9, 2011 (معدل) كود جميل للاستاذ الكبير عادل حنفي وهو لالغاء او تعطيل زر تكبير واستعادة لملف الاكسل كود الغاء او تعطيل زر تكبير واستعادة لملف الاكسل .rar تم تعديل يوليو 9, 2011 بواسطه yahiaoui رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 9, 2011 الكاتب مشاركة قام بنشر يوليو 9, 2011 مرحبا ممكن كود الترقيم التلقائي داخل ال form Thank you الاخت الكريمة ممكن توضحين الطلب بمثال على العموم هذا مثال فيه فورم به زر لادراج الترقيم التلقائي ارجوا ان يكون المطلوب ارقام تلقائية من فورم.rar رابط هذا التعليق شارك More sharing options...
أسيــــــ الغربة ــــــرة قام بنشر يوليو 10, 2011 مشاركة قام بنشر يوليو 10, 2011 (معدل) الاستاذ yahiaoui كان قصدي اضيف الاسم من وبالكودهو يسجل الرقم تلقائي انا عملت تعديل بالمرفق Thank you ارقام تلقائية من فورم.rar تم تعديل يوليو 10, 2011 بواسطه أسيــــــ الغربة ــــــرة رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 10, 2011 الكاتب مشاركة قام بنشر يوليو 10, 2011 تفضلي اختي الكريمة فورم بسيط لادخال البيانات فورم ادخال بيانات.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 10, 2011 مشاركة قام بنشر يوليو 10, 2011 السلام عليكم الاخوة الافاضل هذا كود عمل باسورد لتنفيذ الماكرو واذا تعدت المحاولات 3 مرات يقفل الملف ارجو ان ينال استحسانكم Public ABU_NSSAR As Byte Private Sub CommandButton1_Click() الباسورد = "123" ِABOOD = InputBox("إدخل الباسورد لتنفيذ الماكرو") If ِABOOD <> الباسورد Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ABU_NSSAR = ABU_NSSAR + 1 If ABU_NSSAR > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "اوفسينا أجمل صرح تعليمي" MsgBox ("تم تنفيذ الماكرو") End Sub والسلام عليكم رابط هذا التعليق شارك More sharing options...
أسيــــــ الغربة ــــــرة قام بنشر يوليو 10, 2011 مشاركة قام بنشر يوليو 10, 2011 (معدل) تفضلي اختي الكريمة فورم بسيط لادخال البيانات الاستاذ yahiaoui كان قصدي اضيف الاسم في الفرم والرقم يكون تلقائية من دون تدخل حسب الترتيب في الجدول استاذا yahiaoui اريد اضافة امكانية استدعاء والتعديل في الفورم ويكون السريل في نفس الفورم Thank Tapetk me Thank you تم تعديل يوليو 10, 2011 بواسطه أسيــــــ الغربة ــــــرة رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 10, 2011 الكاتب مشاركة قام بنشر يوليو 10, 2011 (معدل) اخواني الكرام السلام عليكم ورحمة الله و بركاته هذا ملف يقوم باخفاء شريط المهام الخاص بالوندوز عند فتح الملف ممكن تضيف الكود الى كود ملء الشاشة HideUnhide2.zip تم تعديل يوليو 10, 2011 بواسطه yahiaoui رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 10, 2011 الكاتب مشاركة قام بنشر يوليو 10, 2011 (معدل) الاستاذ yahiaoui كان قصدي اضيف الاسم في الفرم والرقم يكون تلقائية من دون تدخل حسب الترتيب في الجدول الاخت الكريمة هذا مثال قد يفي بالمطلوب فورم ادخال بيانات.rar تم تعديل يوليو 10, 2011 بواسطه yahiaoui رابط هذا التعليق شارك More sharing options...
الردود الموصى بها