نجوم المشاركات

السلام عليكم اخواني في المنتدى لمعرفة الخلايا التي تحتوي على معادلات لا حاجة الى `+Ctrl بعد الآن التنسيق الشرطي يقوم بذلك ( مقتبس من احد المواقع الأجنبية) روائع شرط التنسيق.rar

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

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

أخى الكريم بارك الله فيكم على مروركم الكريم تقبل خالص تحياتى وتقديري

السلام عليكم هذا ما يمكن معالجته في هذا الفورم شاهد المرفق 2010 me.rar

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

السلام عليكم أخى الحبيب / ابراهيم أبو ليله تسلم ايديك أخى الحبيب / محمود الشريف تسلم ايديك وبعد اذنكم هذا حل أخر لاثراء الموضوع كنت قد جهزته قبل انقطاع التيار الكهربى Sub ragab() Application.ScreenUpdating = False T = 5 + Month(Now) If T = 6 Then T = 7 If T = 17 Then T = 16 Columns("G:R").EntireColumn.Hidden = True Range(Cells(4, T), Cells(4, T + 2)).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub مشتركى الدوحة نت.rar

انا بحثت فى المنتدي كلة ولقيت ان الطريقة الوحيدة الى شغالة بعد تقسيم القاعدة انا عملت قاعدة بسيطة كدة كتجربة عبارة عة جدولين الجدول الاول : Ayman الجدول الثاني : Aysar وعملت استعلام ونموذج ودة صورة من شكل النموذج النهائي وقسمت القاعدة .. تمام ... وقلت اجرب القاعدة باللينك الى معمول حالياً وموجود على الكمبيوتر ودخلت بيانات و كلة تمام وعملت بحث وكلة تمام ودة صورة ودة كان شكل العلاقة Relationships one to one كل الى انا عملتو نزلت سيرفر محلى " أباتشى" ونزلت برنامج MySQL Connector / ODBC علشلان يعمل اتصال بالـ SQL من الـ ODBC ونزلت برنامج Access2MySQL Pro علشان يحولى "الواجهة الخلفية" "BackEnd" الجداول الى انا قسمتها الى SQL واعملها Import لقاعدة البيانات الى فى السيرفر المحلى localhost وبروح فى "الواجهة الأمامية" Front End " الملف الى فية النماذج و بعمل ربط بالـ ODBC وبختار الكونيكشن الى عملتو زى الى فى اللينك الى انا أرفقتو حالياً انا رابط القاعدة بـ SQL ودة صورة تأكد شكل اللينك دلوقتى كل لما اضيف سجل جديد وبيانات جديدة ... بدخل بيانات جدول 1 : أيمن .. ولما اجى اكتب فى جدول 2 : أيسر مش بيرضى يكتب كما فى الصورة اكتب البيانات لحد الـ Age لكن لما أجى اكتب Email كأنها غير مفعلة هي والـ Visa قلت اشوف العلاقة ما بينهم ولقيت كمان فى الصورة دة " مفيش علاقة " فقلت انا اعمل علاقة وكما فى الصورة السابقة مش عارف اعلم على الـ 3 إختيارات الى تحت Enforce referential integrity Cascade update related fields Cascade delete related records لو عملت Create جاتلى الصورة دة مشكلتى كلها يا جماعة دلوقتى انى مش عارف اكتب اى بيانات ف الـ Email و الـ Visa من النموذج .. بس لو دخلت الجداول ( جدول : أيسر ) ممكن اضيفها . الـ Email و الـ Visa .. ( ودة طبعاً غلط )) مينفعش ادخل الجدول واضيف بيان فية فهل يوجد حل ممكن يكون البرنامج الى بيحول mdb to sql الى انا بستخدمة مش بيحول العلاقات معاه .. طب لو كدة ممكن حد يجيبلى برنامج يحول الجداول والعلاقات الى sql انا بحث ولقيت برنامج "Intelligent Access-to-MySQL" فية اوبشن * Converts relationships between tables ودة اللينك بتاعة http://www.intelligent-converters.com/demos/acc2sqld.exe بس النسخة الديمو الى على النت لا تحول العلاقات (Limitation) لو حد ينفع يجيب البرنامج دة كامل ونجرب او لو فية مشكلة تانية غير العلاقات

السلام عليكم اعذروني على التأخير في الرد البارح ماكان عندي نت الاستاذ الفاضل يحياوي الله يسعدك كلماتك الاجمل الاخت الفاضله اسيرة الغربه عملت الاضافة على عجله وهيا كالتالي اضافة ماتفضلتي به وتحقق من تكرار الاسم رسالة تنبيه وتحقق من اكمال تعبئة الحقول رسالة تنبيه وكومبوكس للحالة الاجتماعية بياناته من ورقة2 عمود A لو اردتي اضافة بيانات اخرى اضيفية بنفس العمود او الحذف واضافة بيانات اخرى . وعملت للتكست تاريخ الميلاد Calendar واذا ماتريدينه ابحثي على هذا السطر واحذفيه Private Sub TextBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) UserForm3.Caption = "date" UserForm3.show End Sub وفورم رقم 3 برضه اللي هو Calendar يحذف برضه وارجو ان يكون هذا المطلوب واي استفسار انا موجود ======================================= الفضل الكبير يعود للاساتذة الافاضل أحمد حمــور عـادل حنفي حفظهم الله من كل شر ======================================= تحياتي والسلام عليكم ادخال بيانات.alidroos.rar

الكود يعمل ببطء .. فما الحل؟ عندما يكون لدينا ملف ممتلئ بالمعادلات و الأكواد قد يحدث بطء في تنفيذ الماكروات و السبب أن إكسيل يقوم بعمل Calculate للخلايا آلياً كلما حدث تغيير في خلية ما مما يسبب البطء في تنفيذ الكود كثيراً ما يكون الحل لهذه المشكلة هو إيقاف هذه العملية قبل تنفيذ الكود ثم إعادتها لطبيعتها بعد تنفيذ الكود لعمل ذلك نكتب هذا الأمر في بداية الكود Application.Calculation = xlCalculationManual يقوم هذا الأمر بتعطيل آلية هذه العلمية ثم في نهاية الكود نضيف هذا السطر الذي سيرجع العملية لصورتها الآلية كما كانت Application.Calculation = xlCalculationAutomatic

كود اختيار المجال الظاهر و المنشط بالماوس إذا كان لديك في الملف صفوف فارغة و أخرى غير فارغة و أردت اختيار الصفوف غير الفارغة و نسخها لصفحة أخرى مثلاً فالكود المرفق يقوم بذلك عليك إخفاء الصفوف الفارغة ثم تنشيط المجال الظاهر بالماوس ثم تشغيل الكود و اعمل Copy & Paste جرب الملف المرفق اختيار الخلايا الظاهرة و المنشطة فقط.rar

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

السلام عليكم ورحمة الله وبركاته شكرا للاخ الحبيب يحياوي على فتح هذا الموضوع المميز والذي سيستفيد منه الجميع هنا مشاركة متواضعة لاثراء مواضيع الاكواد كيفية تخصيص كبسات لوحة المفاتيح لتنفيذ ماكرو مثلا لو كان لدينا ماكرو وقمنا بتسميته "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} ولكن يجب الحذر في استخدام هذه الازرار ومعرفة كيفية التعامل معها بتفعيلها وتعطيلها بحيث يتم تفعيلها في داخل الملف فقط ويمكنكم التعامل معها باستخدام احداث الصفحات وحدث فتح الملف واحدث اغلاق الملف

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

أولأ أعتذر عن التاخير لظروف كثيره اجتمعت معا : ********************************************** أحب أن أطرح هنا فكرة جديدة تهدف إلى تجاهل همزة الألف عند الكتابة لأن بعضهم يعتبر الهمزة مشكلة لأنه أحياناً يدخل ألف مهموزة أو بدون همزة مثل ( أحمد - احمد ) وتهدف الفكرة إلى تجاهل الألف المهموزة و الممدودة و استبدالها بألف بدون همزة .. في الوحدة النمطية العامة أضف : Function ForTrAlfbet(Astr As Variant) As String Dim L1 As String, L2 As String, NewStr As String If Nz(Astr, "") = "" Then Exit Function Astr = CStr(Astr) L1 = Mid(Astr, 2, Len(Astr)) L2 = Mid(Astr, 1, 1) Select Case Asc(L2) Case 194, 195, 197: L2 = Chr(199) Case Else: L2 = L2 End Select NewStr = L2 & L1 ForTrAlfbet = NewStr End Function ' Asc(" آ ") = '194 ' Asc(" أ ") = '195 ' Asc(" إ ") = '197 ' Asc(" ا ") = '199 و في حدث بعد التحديث للعنصر أضف : Private Sub First_Name_AfterUpdate() First_Name = ForTrAlfbet(Nz(First_Name)) End Sub ******** اقتباس للأخ / فينوس