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

[محمد يحياوي]

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

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

كتاب الكتروني : دورة المبتدئين في ال VBA

كتاب الكتروني : دورة للمتوسطين في الVBA للاستاذ هادي

كتاب الكتروني : دورة في الVBA وتطبيقاته في الاكسل

كتاب الكتروني: دروس في VBA والجداول المحورية للاستاذ محمد طاهر

[محمد يحياوي]

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

كود تعليقات من قائمة.rar

[ياسر الحافظ]

الاستاذ يحياوي :

تحية طيبة

مرفق اكواد رياضية رائعة - 2 ملف -

مع شرح بسيط لتطبيقات vba مع الاكسل

لاستاذنا الكبير محمد طاهر

وفقك الله

ياسر الحافظ

شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar

[ياسر الحافظ]

اشكرك اخي العزيز يحياوي :

نعم لاحظت انني كررت المرفق

ولكن ملاحظتي جاءت متأخرة ... بعد ان قمت بمراجعة مرفقاتك الرائعة

اقبل اعتذراي ..

وعندي استفسار :

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

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

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

تحياتي لك

وفقك الله

ياسر الحافظ

تم تعديل يونيو 25, 2011 بواسطه hyasser

[باسنت العمري]

الأخوة الكرام/

كود تغيير ترتيب اسماء من خلال مربع قائمة الموجود بالمشاركة 86

كود ابداع وخيال ولكن أذا كانت الاصناف أكثر من 4 صفوف لا تظهر في الفورم

أيضاً عند تغيير رقم الصف والعمود عن A1 لا تظهر الاصناف كذلك في الفورم .

أرجو الرد جزاكم الله خيراً فأنا بحاجة الى هذا الكود.

[محمد يحياوي]

الأخوة الكرام/

كود تغيير ترتيب اسماء من خلال مربع قائمة الموجود بالمشاركة 86

كود ابداع وخيال ولكن أذا كانت الاصناف أكثر من 4 صفوف لا تظهر في الفورم

أيضاً عند تغيير رقم الصف والعمود عن A1 لا تظهر الاصناف كذلك في الفورم .

أرجو الرد جزاكم الله خيراً فأنا بحاجة الى هذا الكود.

اخي الكريم القضية لها علاقة بتسمية النطاق

لاحظ الصور و المثال

تغيير ترتيب من خلال مربع قائمة.rar

[محمد يحياوي]

عندما تسمع كلمة دمج المراسلات يتبادر الى الذهن ان الكلام حول word لكن ماذا عن excel

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

كود طباعة سجلات معينة من قاعدة بيانات.rar

[الـعيدروس]

السلام عليكم

هذا كود تشغيل اله الحاسبة للويندوز في الاكسل

Sub اله_حاسبه()

Dim calc

calc = Shell("C:\windows\system32\calc.exe", 1)

End Sub

تحياتي

[عبدالله المجرب]

هذا الملف فيه اضافة علامة الصح بالضغط مرتين بالماوس في الخلية بعد الانتهاء من تعبية البيانات

وهو من اعداد الاستاذ ابو تامر ووجدته في موقع الاستاذ يحيى حسين حفظه الله

اتمنى ان يتم الاستفادة منه

ابواحمد

ابو اسامة كود دبل كليك علامة صح.rar

[ياسر الحافظ]

" الاخ العزيز ياسر تحية عطرة واحيي فيك هذا الخلق الرفيع

وكما قلت سابقا الموضوع موضوعك وكما يقول الشاعر:

نحن الضيوف وانت رب المنزل "

استاذي يحياوي :

شهادة اعتز وافتخر بها جدا ... جدا ... وهذا يدل على اخلاقك العالية وتواضعك الكريم

اشكرك

وفقك الله

ياسر الحافظ

مرفق ملف وورد به اكواد لاكسل .. ارجو من الاخوة الاعضاء المشاركة بتحويل الاكواد الى ملفات اكسل

وبذلك نخطأ احيانا ونتعلم احيان اخرى

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

ارجو مشاركة الجميع

وفقكم الله

ياسر الحافظ

امثلة عملية على الماكرو.rar

تم تعديل يونيو 26, 2011 بواسطه hyasser

[باسنت العمري]

أخي الكريم /

كود تغيير ترتيب اسماء من خلال مربع قائمة كود ابداع وخيال

وجزاك الله خير على توضيح الكود.

ولكن في الفورم كيف نزيد عرض العمود وارتفاع الصف.

[naderwatfa]

كود منع طباعة الملف

الكود في ThisWorkbook

كود منع طباعة الملف.rar

[ياسر الحافظ]

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

كود طباعة من قاعدة بيانات ... رائع ... رائع جدا

تسلم ايدك

مرفق كود اعتقد انه مميز وهو رد على احدى اسئلتي من الاستاذ يحيــــــــــــــــــــــاوي

كود يقوم بفرزقاعدة بيانات من خلال شرطين بعمود واحد ( بين تاريخين من عمود واحد )

من اعمال العزيز يحياوي بتصرف

وفقك الله

ياسر الحافظ

كودفرز من عامود واحد بين تاريخين.rar

[ياسر الحافظ]

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

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

من اعمال استاذ المنتدى الاستاذ خبور خير ... حفظه الله

وفقك الله

ياسر الحافظ

كود بحث واستدعاء ورقة عمل.rar

[محمد يحياوي]

أخي الكريم /

كود تغيير ترتيب اسماء من خلال مربع قائمة كود ابداع وخيال

وجزاك الله خير على توضيح الكود.

ولكن في الفورم كيف نزيد عرض العمود وارتفاع الصف.

اخي الكريم يمكنك التعديل على listbox1 لاحظ المثال

تغيير ترتيب من خلال مربع قائمة.rar

[naderwatfa]

فورم و كود إخفاء الأوراق

يمكنك إخفاء كل أوراق العمل عدا ورقة واحدة مهما كان عدد الأوراق

و لإظهار أي ورقة مخفية يتم عن طريق الفورم

لا يمكن إظهار الأوراق المخفية بدون كتابة الباسوورد الموجود في ورقة1

فورم إخفاء الأوراق و استدعاؤها بباسوورد.rar

[محمد يحياوي]

كود قائمة منسدلة متغيرة ، تصفية حسب الاحرف الاولى

DataValSelectNameFilter.rar

[ياسر الحافظ]

اخي يحياوي :

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

تحباتي لك

ياسر الحافظ

جلب بيانات ترحيل عن طريق الفرز وتعديل اسم ورقة العمل.rar

[ياسر الحافظ]

الاخ / الاستاذ يحيـــــــــــــــــــــــــــــــــــــــاوي :

تحية طيبة

مرفق كود ( وهو مكرر في المشاركة 1 باسم " تجميع اكواد متعددة " ضمن عدة اكواد الا انه هنا موضح ومفصل ويمكن الاستفادة منه )

وانا لااقصد التكرار الا انني اتحري الوضوح وتعميم الفائدة

فرز - وترحيل حسب معطبات متعددة

وفقك الله

يلسر الحافظ

فرز حسب معطيات متعددة.rar

تم تعديل يونيو 29, 2011 بواسطه hyasser

[naderwatfa]

كود دخول الورقة بتصريح

أخذته من موضوع الأخ الفاضل alidroos

هنا

http://www.officena....showtopic=37412

الورقة تفتح بباس وورد

الباسورد هي 123 وتغييرها من الكود في هذا السطر

Dim pwd As String: pwd = "123"

كود دخول الورقة بتصريح.rar

تم تعديل يونيو 30, 2011 بواسطه naderwatfa

[الـعيدروس]

السلام عليكم

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

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

انشاء الله يفيدكم

Option Explicit

Sub ProtectAllSheets()

Dim pwd As String, pwd2 As String

Dim ws As Worksheet

        Do

        pwd = Application.InputBox("ادخل الباسورد?", "عمل باسورد للصفحات", Type:=2)

            If pwd = "False" Then Exit Sub

        pwd2 = Application.InputBox("اعد ادخال الباسورد للتأكيد ?", "التأكد من الباسورد", Type:=2)

            If pwd2 = "False" Then Exit Sub

        If pwd = pwd2 Then Exit Do Else MsgBox "عفـواً الباسور غير مطابق"

    Loop

    For Each ws In Worksheets

        ws.Protect Password:=pwd

    Next ws

End Sub

 

وهذا الغاء باسورد الحمايه

Option Explicit

Sub UnProtectAllSheets()

Dim pwd As String, ws As Worksheet

On Error Resume Next

pwd = Application.InputBox("الرجاء ادخال الباسورد لاالغاء الحمايه عن كافة الاوراق?", "الغاء الحماية", Type:=2)

If pwd = "False" Then Exit Sub

    For Each ws In Worksheets

        ws.Unprotect Password:=pwd

        If ws.ProtectContents = True Then

            MsgBox "الباسورد غير صحيح لم يتم الغاء الحماية"

            Exit Sub

        End If

    Next ws

End Sub

مرفق ملف تجربه

تحياتي

كود حماية.rar

[الـعيدروس]

السلام عليكم

الاخوة الافاضل يحياوي وياسر

مشكورين جدا على الكلمات الجميله

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

العمود A من السطر الثاني كم تشاء من الاوراق

وعمل ارتباط تشعبي في كل ورقة جديدة العودة الى

الورقه الرئيسية

ارجو ان تستفيدو منه

Option Explicit

Sub CreateSheets()

Dim RNG As Range

Dim c As Range

Application.ScreenUpdating = False

    Set RNG = ActiveSheet.Range("A2:A" & Rows.Count).SpecialCells(xlConstants)

For Each c In RNG

    If Not Evaluate("ISREF('" & c.Text & "'!A1)") Then

        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = c.Text

    Else

        Sheets(c.Text).Move After:=Sheets(Sheets.Count)

    End If

    Sheets(c.Text).Range("A1").Formula = "=HYPERLINK(""#ورقة1!A1"",""الرئيسية"")"

    c.Offset(, 1).FormulaR1C1 = "=HYPERLINK(""#'"" & RC[-1] & ""'!A1"", ""Link"")"

Next c

RNG.Parent.Activate

Application.ScreenUpdating = True

End Sub

والمرفق ملف تجربه

تحياتي

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

كود عمل اوراق.rar

[محمد يحياوي]

كود التبديل بين خليتين

كود التبديل بين خليتين.rar

[naderwatfa]

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

النطاق المحدد هو الذي تقوم بتظليله بالماوس ثم تشغل الكود

جرب الملف المرفق لفهم الكود بطريقة عملية

حذف صفوف بناء على خلايا فارغة في نطاق محدد.rar

[naderwatfa]

الكود المرفق يقوم بحذف الصفوف بناء على القيم المكررة في نطاق معين

حدد النطاق بالماوس ثم شغل الكود

سيقوم الكود بحذف الصفوف بالكامل إذا كان هناك تكرار في خلايا النطاق المحدد

حذف الصفوف المكررة بناء على قيم خلايا محددة في نطاق.rar