محمد يحياوي قام بنشر يونيو 24, 2011 الكاتب مشاركة قام بنشر يونيو 24, 2011 لكي تعم الفائدة احببت ان اوجه اخواني الى مكتبة الموقع فيها بعض الدروس التي تخص الموضوع وهي بعض الكتب الالكترونية كنت قد عملتها منذ سنتين خلاصة لبعض الاساتذة الكرام في هذا المنتدى كتاب الكتروني : دورة المبتدئين في ال VBA كتاب الكتروني : دورة للمتوسطين في الVBA للاستاذ هادي كتاب الكتروني : دورة في الVBA وتطبيقاته في الاكسل كتاب الكتروني: دروس في VBA والجداول المحورية للاستاذ محمد طاهر 2 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 24, 2011 الكاتب مشاركة قام بنشر يونيو 24, 2011 كود اختيار تعليقات من جدول معد مسبقا كود تعليقات من قائمة.rar 1 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 الاستاذ يحياوي : تحية طيبة مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر وفقك الله ياسر الحافظ شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar 6 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 (معدل) اشكرك اخي العزيز يحياوي : نعم لاحظت انني كررت المرفق ولكن ملاحظتي جاءت متأخرة ... بعد ان قمت بمراجعة مرفقاتك الرائعة اقبل اعتذراي .. وعندي استفسار : بحوزتي ملف وورد به عدة اكواد للاكسل .. هل من مانع لطرحه في المشاركة حتى يقوم الاعضاء بترجمة هذه الاكواد الى ملفات اكسل وبذلك جميعنا نستفيد تحياتي لك وفقك الله ياسر الحافظ تم تعديل يونيو 25, 2011 بواسطه hyasser رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 الأخوة الكرام/ كود تغيير ترتيب اسماء من خلال مربع قائمة الموجود بالمشاركة 86 كود ابداع وخيال ولكن أذا كانت الاصناف أكثر من 4 صفوف لا تظهر في الفورم أيضاً عند تغيير رقم الصف والعمود عن A1 لا تظهر الاصناف كذلك في الفورم . أرجو الرد جزاكم الله خيراً فأنا بحاجة الى هذا الكود. 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 25, 2011 الكاتب مشاركة قام بنشر يونيو 25, 2011 الأخوة الكرام/ كود تغيير ترتيب اسماء من خلال مربع قائمة الموجود بالمشاركة 86 كود ابداع وخيال ولكن أذا كانت الاصناف أكثر من 4 صفوف لا تظهر في الفورم أيضاً عند تغيير رقم الصف والعمود عن A1 لا تظهر الاصناف كذلك في الفورم . أرجو الرد جزاكم الله خيراً فأنا بحاجة الى هذا الكود. اخي الكريم القضية لها علاقة بتسمية النطاق لاحظ الصور و المثال تغيير ترتيب من خلال مربع قائمة.rar 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 25, 2011 الكاتب مشاركة قام بنشر يونيو 25, 2011 عندما تسمع كلمة دمج المراسلات يتبادر الى الذهن ان الكلام حول word لكن ماذا عن excel هذا ملف به كود طباعة سجلات محددة من قاعدة بيانات صيغت على شكل دمج المراسلات كود طباعة سجلات معينة من قاعدة بيانات.rar 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 السلام عليكم هذا كود تشغيل اله الحاسبة للويندوز في الاكسل Sub اله_حاسبه() Dim calc calc = Shell("C:\windows\system32\calc.exe", 1) End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 هذا الملف فيه اضافة علامة الصح بالضغط مرتين بالماوس في الخلية بعد الانتهاء من تعبية البيانات وهو من اعداد الاستاذ ابو تامر ووجدته في موقع الاستاذ يحيى حسين حفظه الله اتمنى ان يتم الاستفادة منه ابواحمد ابو اسامة كود دبل كليك علامة صح.rar 2 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 (معدل) " الاخ العزيز ياسر تحية عطرة واحيي فيك هذا الخلق الرفيع وكما قلت سابقا الموضوع موضوعك وكما يقول الشاعر: نحن الضيوف وانت رب المنزل " استاذي يحياوي : شهادة اعتز وافتخر بها جدا ... جدا ... وهذا يدل على اخلاقك العالية وتواضعك الكريم اشكرك وفقك الله ياسر الحافظ مرفق ملف وورد به اكواد لاكسل .. ارجو من الاخوة الاعضاء المشاركة بتحويل الاكواد الى ملفات اكسل وبذلك نخطأ احيانا ونتعلم احيان اخرى وصمام الامان للخطأ في هذه الملفات لصاحب المشاركة استاذنا يحياوي ارجو مشاركة الجميع وفقكم الله ياسر الحافظ امثلة عملية على الماكرو.rar تم تعديل يونيو 26, 2011 بواسطه hyasser 1 رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 أخي الكريم / كود تغيير ترتيب اسماء من خلال مربع قائمة كود ابداع وخيال وجزاك الله خير على توضيح الكود. ولكن في الفورم كيف نزيد عرض العمود وارتفاع الصف. رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 كود منع طباعة الملف الكود في ThisWorkbook كود منع طباعة الملف.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 العزيز يحياوي : كود طباعة من قاعدة بيانات ... رائع ... رائع جدا تسلم ايدك مرفق كود اعتقد انه مميز وهو رد على احدى اسئلتي من الاستاذ يحيــــــــــــــــــــــاوي كود يقوم بفرزقاعدة بيانات من خلال شرطين بعمود واحد ( بين تاريخين من عمود واحد ) من اعمال العزيز يحياوي بتصرف وفقك الله ياسر الحافظ كودفرز من عامود واحد بين تاريخين.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 العزيز يحياوي : مرفق كود بحث عن ورقة عمل في ملف اكسل واستدعاء الورقة / يستحق المشاهدة / من اعمال استاذ المنتدى الاستاذ خبور خير ... حفظه الله وفقك الله ياسر الحافظ كود بحث واستدعاء ورقة عمل.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 27, 2011 الكاتب مشاركة قام بنشر يونيو 27, 2011 أخي الكريم / كود تغيير ترتيب اسماء من خلال مربع قائمة كود ابداع وخيال وجزاك الله خير على توضيح الكود. ولكن في الفورم كيف نزيد عرض العمود وارتفاع الصف. اخي الكريم يمكنك التعديل على listbox1 لاحظ المثال تغيير ترتيب من خلال مربع قائمة.rar رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 فورم و كود إخفاء الأوراق يمكنك إخفاء كل أوراق العمل عدا ورقة واحدة مهما كان عدد الأوراق و لإظهار أي ورقة مخفية يتم عن طريق الفورم لا يمكن إظهار الأوراق المخفية بدون كتابة الباسوورد الموجود في ورقة1 فورم إخفاء الأوراق و استدعاؤها بباسوورد.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 28, 2011 الكاتب مشاركة قام بنشر يونيو 28, 2011 كود قائمة منسدلة متغيرة ، تصفية حسب الاحرف الاولى DataValSelectNameFilter.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 29, 2011 مشاركة قام بنشر يونيو 29, 2011 اخي يحياوي : مرفق كود جلب بيانات ( بالفرز ) مع تعديل اسم ورقة الهدف حسب المطلوب تحباتي لك ياسر الحافظ جلب بيانات ترحيل عن طريق الفرز وتعديل اسم ورقة العمل.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 29, 2011 مشاركة قام بنشر يونيو 29, 2011 (معدل) الاخ / الاستاذ يحيـــــــــــــــــــــــــــــــــــــــاوي : تحية طيبة مرفق كود ( وهو مكرر في المشاركة 1 باسم " تجميع اكواد متعددة " ضمن عدة اكواد الا انه هنا موضح ومفصل ويمكن الاستفادة منه ) وانا لااقصد التكرار الا انني اتحري الوضوح وتعميم الفائدة فرز - وترحيل حسب معطبات متعددة وفقك الله يلسر الحافظ فرز حسب معطيات متعددة.rar تم تعديل يونيو 29, 2011 بواسطه hyasser رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 (معدل) كود دخول الورقة بتصريح أخذته من موضوع الأخ الفاضل alidroos هنا http://www.officena....showtopic=37412 الورقة تفتح بباس وورد الباسورد هي 123 وتغييرها من الكود في هذا السطر Dim pwd As String: pwd = "123" كود دخول الورقة بتصريح.rar تم تعديل يونيو 30, 2011 بواسطه naderwatfa رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 السلام عليكم الاخوة الافاضل هذا كود لعمل باسورد حماية لكافة اوراق الملف انشاء الله يفيدكم 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 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 السلام عليكم الاخوة الافاضل يحياوي وياسر مشكورين جدا على الكلمات الجميله وهذا كود لعمل اوراق جديد بحسب ماتكتبه في العمود 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 1 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 1, 2011 الكاتب مشاركة قام بنشر يوليو 1, 2011 كود التبديل بين خليتين كود التبديل بين خليتين.rar رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 هذا الكود يقوم بحذف الصفوف بناء على الخلايا الفارغة في نطاق محدد النطاق المحدد هو الذي تقوم بتظليله بالماوس ثم تشغل الكود جرب الملف المرفق لفهم الكود بطريقة عملية حذف صفوف بناء على خلايا فارغة في نطاق محدد.rar 1 رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يوليو 2, 2011 مشاركة قام بنشر يوليو 2, 2011 الكود المرفق يقوم بحذف الصفوف بناء على القيم المكررة في نطاق معين حدد النطاق بالماوس ثم شغل الكود سيقوم الكود بحذف الصفوف بالكامل إذا كان هناك تكرار في خلايا النطاق المحدد حذف الصفوف المكررة بناء على قيم خلايا محددة في نطاق.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها