حمادة عمر

تفضل المرفق اخي الكريم اسم المستخدم : 1 كلمة المرور : 1 Book12.rar

طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة ===================================================== ( مدخل في تعلم VBA اكسيل خطوة خطوة - 12 درس ) دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة ===================================================== قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ... قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر - أ / Jaafar Tribak هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !! ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013) هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !! علي الاكسيل ........... علي الباوربوينت

جزاك الله خيرا اخي الكريم

جزاك الله خيرا استاذنا القدير

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

جزاك الله خيرا استاذنا القدير

برجاء اخي الكريم ارفاق ملف ليمكن للجميع الاطلاع عليه وفهم المطلوب كما تريد ليمكن مساعدتك تقبل خالص تحياتي

جزاك الله خيرا اخي الكريم

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

السلام عليكم الاخ والاستاذ الكريم / زيزو العجوز بارك الله فيك ردودك جميعها رائع ... وجزاك الله خيرا علي مساعدتك الجميع تقبل خالص تحياتي ================================= الاخ الكريم /EL_Kashef بارك الله فيك طريقة جميلة وصحيحة 100% .. جزاك الله خيرا وبعدين احنا كلنا مصدقين ... عشان انت بقيت واحد من اعضاء اسرة اوفيسنا الكبير وان شاء الله تكون من احد عمالقة هذا الصرح العملاق واسعد بان اكون اول من يرحب بك بيننا .. اخاً كريما وان شاء الله استاذ كبير والجميع هنا يخدم لوجه الله .. وستجد اسر متحابة بطريقة لا تتخيلها في اي منتدي علي الانترنت تقبل خالص تحياتي

بالنسبة اخي الكريم لهذه الجزئية فهو بالفعل عند كتابة الاحرف الاولي من الاسم المطلوب في الكومبوكس فانه يظهر في القائمة فورا الاسماء التي تبدأ بهذة الحروف وباكمال الاسم يظهر الاسم المطلوب وهذا ما ما يحدث لدي علي جهازي ... فما هي الطريقة التي تظهر لديك ؟؟؟ وبالنسبة لهذه الجزيئة ايضا فقمت عدة مرات باضافة ملفات للفولدر الموجود به الملف الرئيسي وتظهر كاملة ... ولكن يجب اخي الكريم ان تكون الملفات كلها المطلوب اظهارها في فولدر واحد كما هو مرفق فالكود يعمل علي ذلك وفي انتظار ردك وملاحظاتك وما يحدث معك من مشكلات تقبل خالص تحياتي نهائي1.rar

السلام عليكم الاخ الكريم / ٍآلـ طاهر بارك الله فيك عذرا للتأخير في الرد ... وذلك نظرا لضيق الوقت شاهد اخي المرفق والطريقة الموجودة به يفتح الملف الاساسي ( main ) معك وتفتح الفورم الخاصة بك قم باختيار الملف الذي تريد التسجيل به من الكومبوبكس وان كنت تريد التسجيل في الملف الاساسي نفسه تجاهل الكومبوبكس الاول ثم اكمل البيانات وقم بالترحيل وشاهد النتيجة وان كانت النتيجة كما تريد نكمل العمل سويا وعذرا تم تغيير اسماء الملفات للانجليزية لعطل فني لدي بالنسخة ملحوظة : يجب ان تكون كل الملفات في فولدر واحد شاهد المرفق واخبرنا بالنتائج تقبل خالص تحياتي واعتذاري نهائي.rar

شاهد المرفق التالي فهو بنفس الفكرة التي تطلبها او قم اخي الكريم بتصميم الفورم بالشكل الذي تريده ( نظرا لضيق الوقت فقط ) وسوف اقوم ان شاء الله بوضع اكواده لك شاهد المرفق وابلغنا بالنتائج تقبل خالص تحياتي طلب كود استدعاء بيانات فاتورة.rar

عذرا اخي الكريم / ناصر ... لم افهم المطلوب تماما او اختلط علي الامر كيف تقوم بتشغيل الكود الاول ( منع طباعة اوراق محددة سواء مرئية أو مخفية ) وتقوم بتشغيل الكود الرابع ( طباعة اوراق محددة سواء مرئية أو مخفية ) في نفس الوقت .. فكيف لي المنع والطباعة في آن واحد وهل هناك شرط معين للقيام بتنفيذ عملية الطباعة مثلا ام ماذا تقبل خالص تحياتي

تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله وشاهد البيانات في الصف رقم 520 -521 -522 - 523 تقبل خالص تحياتي نقل اسماء الزبائن والكود -sama.rar

السلام عليكم الاخ الكريم / ناصر المصري تقبل خالص تحياتي قم بتعديل الكود الخاص بالطباعة الي الكود التالي ( والفكرة هي اظهار الملفات للطباعة اولاً ثم اخفاءها مرة اخري بعد الانتهاء من الطباعة ) Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4", "ورقة5", "ورقة6", "ورقة7", "ورقة8")) sh.Visible = xlSheetVisible If Application.WorksheetFunction.CountBlank(sh.Range("A1:B3")) <> sh.Range("A1:B3").Count Then sh.PrintOut sh.Visible = xlSheetHidden End If Next sh Application.ScreenUpdating = True End Sub واذا واجهت مشكلة في تنفيذ الكود تأكد من اسماء الشيتات في الكود ( حيث ان لدي مشكلة بالجهاز لا تظهر اللغة العربية الآن ) حيث تم اضافة الجزئية التالية ( لاظهار الشيتات ) في بدايات الكود sh.Visible = xlSheetVisible ثم اضافة الجزئية التالية ( لاخفاء الشيتات مرة اخري ) في نهايات الكود sh.Visible = xlSheetHidden واخبرنا بالنتيجة ان شاء الله جزاك الله خيرا

قم اخي الكريم بارفاق ملف كمثال ليمكن التعامل معه بشكل اوضح ولرفع الملفات ستخدم المحرر الكامل ثم اضغط ملفك واختار من تبويب ارفاق الملفات بالاسفل ((اختر ملفات )) ثم حدد مكان الملف من علي الجهاز عندك قم موافق (( لابد ان يكون الملف مضغوط)) باحد برامج الضغط واشهرها Winare ولا تتجاوز مساحة الملف 1.95 ميجابايت وان كان اكبر من ذلك قم برفعه علي اي موقع رفع ملفات وضع الرابط بالمشاركة كما في الصورة علي الرابط التالي https://www.officena.net/ib/topic/46745-طلب-مساعدة-كيفية-رفع-الملفات/#comment-280436 تقبل خالص تحياتي

المعادلة اخي الكريم ستكون كالتالي ان كان ما فهمته صحيح او برجاء مزيد من التوضيح ضع المعادلة البسيطة في الخلية H64 =H61+H62-H63 تقبل خالص تحياتي

السلام عليكم الاخ الكريم / هاني الحلاج قم يتغيير الكود الموجود لديك بالملف الي الكود التالي وذلك فقط بزيادة النطاق المستخدم في الكود من 500 الي 100000 Sub salim() Dim Source_sheet, Target_sheet As Worksheet Dim Lrs, lrt As Integer Set Source_sheet = Sheets("البيانات"): Set Target_sheet = Sheets("قائمة باسماء الزبائن") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Target_sheet.Range("a2:b100000").ClearContents Lrs = Source_sheet.Cells(Rows.Count, 1).End(3).Row Source_sheet.Range("a2:b" & Lrs).Copy Target_sheet.Activate With ActiveSheet .Range("a2").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True .Range("$A$1:$B$100000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes lrt = .Cells(Rows.Count, 1).End(3).Row .Range("a2:B" & lrt).SpecialCells(4).EntireRow.Delete .Range("a2").Select End With Source_sheet.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub واخبرنا اذا كان هذا التعديل يفي بالغرض ام لا تقبل خالص تحياتي جزاك الله خيرا

تفضل اخي الكريم والموضوع ليس توسلا اخي الكريم ولكن اعذر الجميع فالكل يشارك حسب وقته وانت تعلم ضغوط الحياة هذه الايام فالكل يشارك هنا اخي الكريم لوجه الله فنحن اخوة في الله اخي الحيب تقبل خالص تحياتي ***** عذرا لم اري والله مشاركة الاخ الكريم / عبد الرحيم .... جزاه الله خير .. الا بعد الرد ... واظن انها تفي بالغرض ******** شئون الموظفين بالرقم القومي.rar

ممكن ارفاق الملف الاساسي الموجود به الفورم مع ملف آخر من ملفات الادخال كمثال ليتضح التنسيق والشكل وشكل الفورم ايضا تقبل خالص تحياتي

برجاء اخي الكريم ارفاق ملف كمثال لتوضيح المطلوب ليمكن تنفيذ طلبك

شاهد اخي الكريم الملف الملف ان شاء الله يفي بطلبك منع فتح الملف.rar

السلام عليكم الاخ الكريم / احمد محمود عبد الفتاح جرب اخي الكريم الكود التالي بوضعه في ThisWorkbook وان شاء الله يفي بالغرض Private Sub Workbook_Open() Application.OnKey "^d", "" End Sub تقبل خالص تحياتي

الاخ الكريم / فراس البزاز السلام عليكم ورحمه الله وبركاته بالنسبة للطباعة شاهد طريقة الطباعة في المرفق .. ام انك تريد الطباعة بشكل آخر بالنسبة لموضوع التكرار هذا .. فعذرا لا افهمك فالتسلسل الموجود والذي يتم وضعه تلقائياً بمجرد فتح الفورم لا يمكن ان يكرر وتم تنفيذ البحث بالاسم في الفوم ... وفي انتظار ردك تقبل خالص تحياتي جزاك الله خيراً برنامج الورشة-sama2.rar