اذهب الي المحتوي
أوفيسنا

(موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض


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

هذا كود يحذف القيم الأصغر أو التواريخ الأحدث مع حذف الصف كله

لكنه يقوم بذلك في الخلايا المرتبة فوق بعضها

مش عارف أوضح تماماً

لكن التجربة في الملف المرفق أفضل

حذف القيم الأصغر أو التواريخ الأقدم.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

تعديل حذف القيم الأصغر أو التواريخ الأقدم.rar

تم تعديل بواسطه yahiaoui
رابط هذا التعليق
شارك

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

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

تسلم إيدك على التعديل الجميل ده

أكيد يعجبني و يعجب غيري طالما من تعديلك أخي الكريم

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

فأنا فاضي شوية النهاردة

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

يعني لو عندك أكثر من نطاق و فيها معادلات أو حتى ما فيهاش

و تريد حمايتهم من التغيير بدون الحاجة لحماية الورقة

فالكود ده ممتاز في هذا المجال

كود لحماية أكثر من نطاق بدون حماية الورقة.rar

رابط هذا التعليق
شارك

العزيز يحياوي :

والله احترت ... ليس بجعبتي حاليا اية مشاركة

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

اخترت اليوم ملف دروس في تعامل الاكواد ضمن اكسل ( تطبيقات vba )

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

ولكن ابسط نوعا ما وتلائم المبتدئين امثالي

ارجو ان ينال الرضى ... منقول للامانة

وفقك الله

ياسر الحافظ " ابو الحارث "

الجزء الأول.rar

  • Like 1
رابط هذا التعليق
شارك

الاخ العزيز ياسر اشكرك الشكر الجزيل لانك كنت معنا في هذا المشوار

ولولاك والاخوة الافاضل لما وصلنا الى هذه المرحلة من الموضوع

ولا انسى ان ابارك لك و لجميع الاخوة بالترقية

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

فورم بحث.rar

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

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

هنا مشاركة متواضعة لاثراء مواضيع الاكواد

كيفية تخصيص كبسات لوحة المفاتيح لتنفيذ ماكرو

مثلا لو كان لدينا ماكرو وقمنا بتسميته "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}

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

بتفعيلها وتعطيلها بحيث يتم تفعيلها في داخل الملف فقط

ويمكنكم التعامل معها باستخدام احداث الصفحات وحدث فتح الملف واحدث اغلاق الملف

  • Like 1
رابط هذا التعليق
شارك

هذة دالة تفقيط بالجنية المصري

اتمني من الله ان تفيد بعض الاخوة

وجزاكم الله كل خير :fff: :fff: :fff: :fff:

تفقيط_بالجنية_المصرى.rar

رابط هذا التعليق
شارك

الاخوة الكرام هذا الملف به مجموعة من الاكواد:

- حساب عدد الخلايا المحددة

- حساب عدد الخلايا المملوءة في نطاق

- حساب عدد الخلايا المملوءة المحتواة على ارقام فقط في نطاق

- حساب عدد الصفوف في نطاق

- حساب عدد الاعمدة في نطاق

حساب عدد خلايا المحددة.rar

رابط هذا التعليق
شارك

السلام عليكم

الاخوة الافاضل هذا كود نفس كود

الاستاذ هانكوك اخفاء المعادلات

ولاكن هذا يعمل حماية لخلايا المعادلات رقم سري

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

والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

بعد اذن اخي الحبيب يحياوي

الاخ الفاضل ياسر

الاضافه بسيطه

هذه الاضافه

 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

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

m.gifa.gifh.gifm.gifo.gifu.gifd.giff.gifo.gifx.gifm.gifa.gifm.gif

كود للبحث والاستبدال :fff: :fff: :fff:

ماكرو للبحث.rar

تم تعديل بواسطه MAHMOUDFOXMAM
رابط هذا التعليق
شارك

السلام عليكم

الاخوة الافاضل

هذا كود عمل باسورد لجميع الاوراق

ولاكن غير الكود الاول في مربع حوار

هذا في حدث 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

رابط هذا التعليق
شارك

كود جميل للاستاذ الكبير عادل حنفي وهو لالغاء او تعطيل زر تكبير واستعادة لملف الاكسل

كود الغاء او تعطيل زر تكبير واستعادة لملف الاكسل .rar

تم تعديل بواسطه yahiaoui
رابط هذا التعليق
شارك

مرحبا

ممكن كود الترقيم التلقائي داخل ال form

Thank you

الاخت الكريمة ممكن توضحين الطلب بمثال

على العموم هذا مثال فيه فورم به زر لادراج الترقيم التلقائي ارجوا ان يكون المطلوب

ارقام تلقائية من فورم.rar

رابط هذا التعليق
شارك

الاستاذ yahiaoui

كان قصدي اضيف الاسم من

وبالكودهو يسجل الرقم تلقائي

انا عملت تعديل بالمرفق

Thank you

ارقام تلقائية من فورم.rar

تم تعديل بواسطه أسيــــــ الغربة ــــــرة
رابط هذا التعليق
شارك

السلام عليكم

الاخوة الافاضل

هذا كود عمل باسورد لتنفيذ الماكرو

واذا تعدت المحاولات 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

والسلام عليكم

رابط هذا التعليق
شارك

تفضلي اختي الكريمة

فورم بسيط لادخال البيانات

الاستاذ yahiaoui

كان قصدي اضيف الاسم في الفرم والرقم يكون تلقائية من دون تدخل حسب الترتيب في الجدول

استاذا yahiaoui

اريد اضافة امكانية استدعاء والتعديل في الفورم ويكون السريل في نفس الفورم

Thank Tapetk me

Thank you

تم تعديل بواسطه أسيــــــ الغربة ــــــرة
رابط هذا التعليق
شارك

اخواني الكرام السلام عليكم ورحمة الله و بركاته

هذا ملف يقوم باخفاء شريط المهام الخاص بالوندوز عند فتح الملف ممكن تضيف الكود الى كود ملء الشاشة

HideUnhide2.zip

تم تعديل بواسطه yahiaoui
رابط هذا التعليق
شارك

الاستاذ yahiaoui

كان قصدي اضيف الاسم في الفرم والرقم يكون تلقائية من دون تدخل حسب الترتيب في الجدول

الاخت الكريمة هذا مثال قد يفي بالمطلوب

فورم ادخال بيانات.rar

تم تعديل بواسطه yahiaoui
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information