خالد الشاعر

السادة خبراء المنتدى فى الملف ماكرو للاعلامة الاستاذ / خبور خير لاستخراج النوع و تاريخ الميلاد و المحافظة من الرقم القومى ولى سئوال هل ممكن تنفيذ ناتج هذا الماكرو فى الفورم مثال هذا الماكرو للنوع =Kh_Date_Sex_Province($C14;2) ولكم جزيل الشكر كشف 12.rar

السادة الخبراء لقيت هذا العمل فى موقع اجنبى "نتقةل" حملتة للافادة يجب اولا عمل ملف فى الدريف D:\MyDatabase شكرا ارشيف.rar

السادة خبراء المنتدى اريد عمل ارشيف لورقة عمل فى ملف لكى تحفظ فى ملف مستقل باسم السنة الدراسية فهل ممكن التعديل على هذا الماكرو Sub ماكرو1() Sheets("ورقة1").Select Sheets("ورقة1").Move ChDir "F:\ارشيف" ActiveWorkbook.SaveAs Filename:="F:\ارشيف\ارشيف 2010-2011.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End Sub ولكم جزيل الشكر والاحترام

استاذ / محمد لسة المشكلة موجودة الويندوز XP s3 المتصفح Internet Explorer 8 و Avant Browser وعلى فكرة عند تحميل اى ملف من منتدى اخر لا توجد هذه المشكلة

الويندوز XP s3 المتصفح Internet Explorer 8 و Avant Browser وعلى فكرة عند تحميل اى ملف من منتدى اخر لا توجد هذه المشكلة

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

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

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

السادة الخبراء اكتشفت ان عند تحميل الملف الى exe لا يقدر على قراءة المسار File1 = ActiveWorkbook.Path & "\" & "1.xls" ولكن يريد مسار الملف بالتفاصيل مثال f$ = "C:\Documents and Settings\khaled \Desktop\New Folder\1.xls" فهل يوجد طريقة لتعريف المسار مختصرة فى الملف exe ولكم جزيل الشكر

للرفع

السادة الخبراء عندى برنامج يحول اكسل الى ملف تفيذى ويعمل جيداً ولكن بعد التحميل يوجد ماكرو لفتح ملف اخر لا يعمل مع التحويل فهل لديكم فكرة عن عدم عملة وشكرا الماكرو Sub Post1() File1 = ActiveWorkbook.Path & "\" & "1.xls" Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open File1 Application.ScreenUpdating = True Application.DisplayAlerts = True Workbooks("Main.exe").Close End Sub مرفق برنامج التحويل XLtoEXE.rar

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

الف شكر و جزاك الله خيراً

استاذ HaNcOcK عمل رائع تسلم ايدك جزاك الله خيراً لى فقط ملحوظة صغيرة اسم الدريف لا يعطى اكثر من ثلاثة مثال C d e ولكن اذا كان يوجد دريف F لا يعطى فى البحث فهل ممكن معلاجة هذه المشكلة و لك كل الشكر

استاذ qhq اشكرك على هذه المشاهمة الجملية ولكنى سوالى للفهم اكثر لماذا فى المشاركة رقم 3 الناتج مع الاسم الفارغ يعطى صفر هل من اجابة لهذا السؤال و لكم جزيل الشكر

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

للرفع

وجدت هذا العمل الرائع بالمنتدى و يستخدم نفس الدالة ولكن عند اختيار خانة فارغة من الاسم يعطى صفر فاكيف ولكم جزيل الشكر golos2.rar

السادة الخبراء ملف ملف لرقم الجلوس بدلة LOOKUP و لكن عن اختيار لعدد غير موجود يعطى نفس بيانات الطالب السابق مثال يوجد 80 طالب عند اختيار الطالب رقم 81 يعطى بيانات رقم 80 فهل ممكن ان يعطى فاضى ولكم جزيل الشكر جلوس.rar

استاذ برنس هذ هو الملف الاساسى ارجو ان يوضح المطلوب قطع الارتباط.rar

هذا ماكرو من اعمال عباقرة المنتدى Sub Update() Dim astrLinks As Variant astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) ActiveWorkbook.UpdateLink _ Name:=astrLinks(1), _ Type:=xlLinkTypeExcelLinks End Sub

هذا من اعمال خبراء المنتدى ارجو ان يكون هو المطلوب ADDLIST2.rar

استاذ خالد عمل جيد جداً تسلم ايدك ولى سؤال عن مكان دورة الفيجول هذه برجاء التفاصيل لانى اريد التعلم ايضاً ولك كل الشكر

استاذ Abo3asem يجب تغيير اللغة فى Control Panel من Regional and Language Options من Advanced تغيير اللغة الى العربية و سوف يضبط كل شى ان شاء الله

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