أ / محمد صالح

أخي الكريم أنس للانتقال إلى خلية معينة وليكن مثلا A1 استعمل الكود التالي range("a1").select نأتي إلى نقطة في ورقة محمية إذا كانت الورقة محمية ضد تحديد الخلايا المحمية يجب عليك تضمين كود إلغاء حماية الورقة قبل كود الانتقال وهو كالتالي ActiveSheet.Unprotect Password:="mas" نأتي إلى عند الضغط على مفتاح الإدخال Enter وهنا أقول لك اختر اي مفتاح آخر غير انتر لأنك ستفقد وظيفته الأساسية إذا قصرت وظيفته على هذا الأمر وساعتها سأعرض لك الكود بإذن الله

بارك الله فيك أخي سعيد ونفع بك وجزاك الله كل الخير في الدنيا والآخرة

أخي الكريم النماذج الفرعية لديك ليس بها اي سجلات كيف تريد مثلا أن يفتح النموذج على السجل وليكن الخامس وهو ليس به خمس سجلات المفروض في هذه الحالة أن يكون في الجدول الخاص بالنموذج الفرعي سجلات أكثر من أو مساوية للنموذج الرئيسي ليتم الاستعلام منها بمسلسل الطالب الموجود في السجل النشط

أخي الكريم lordring ضع في حدث الضغط على زر التالي هذا الكود Private Sub Command13_Click() If CurrentRecord < DCount("المعرف", "جدول1") Then DoCmd.GoToRecord , , acNext End If End Sub وجرب وأخبرني بالنتيجة

بارك الله فيك أخي الكريم أبو خليل وزادك الله علما ونفع بك

أخي شاعر لوقف هذه الرسائل استعمل الأمر التالي DoCmd.SetWarnings False قبل كود الاستعلام ولا تنس أن تعيد قيمتها إلى true بعد تنفيذ الاستعلام DoCmd.SetWarnings True ..... وبالنسبة لموضوع تسجيل وقت الخروج ضع كود استعلام التحديث لوقت الخروج في حدث عدم التحميل للنموذج Private Sub Form_Unload(Cancel As Integer) Your code here End Sub ولا تنس تعطيل التحذيرات قبل تنفيذ الاستعلام وتمكينها بعده

شكرا لتواصلك أخي العزيز م / محمد طاهر أستخدم نسخة ويندوز 7 - 32 بت ولكن هل حملت الموصل من رابط الميديا فاير أم من موقعه؟ لأن الرابط في ميديا فاير 32 بت ولذا يفضل تحميله من موقعه والتسجيل فيه لكي تحمل النسخة الموافقة لنظامك 64 بت ربما يكون هذا هو السبب

أخي الكريم عماد دائما سباق إلى الخير كنت أفكر في استعمال الأمر crop ولكنك سبقتني جزاك الله كل خير وكل عام وجميع الأحباب في منتدانا بكل خير

المضوع ممكن بإذن الله ولكن ماذا تريد من هذا الكود؟ أو ما الهدف من استخدامه؟ وظهور الصورة تدريجيا أو حسب نسبة مكتوبة في خلية؟ لعلنا نتعاون في فكرة تكون أفضل

ويمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "hh:mm:ss"), "") End Sub

بارك الله فيك أخي عبد الله حلك أفضل من حلي لأن عملية الحساب تقوم بتغيير التواريخ السابقة لأحدث تاريخ موجود أما في الكود الذي تفضلت به فيحتفظ الملف بالتاريخ القديم ويغير فقط تاريخ الخلية التي تمت الكتابة فيها وفقك الله لكل ما يحب ويرضى واسمح لي بإضافة بسيطة ربما يحتاجها أخي صاحب الموضوع وهي حذف التاريخ من الخلية إذا حذفت القيم من خلية في العمود الأول ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column <> 1 Then Exit Sub If Target.Row > LR Then Exit Sub If Cells(Target.Row, 1).Value <> "" Then Cells(Target.Row, 2).Value = Format(Now(), "hh:mm:ss") Else Cells(Target.Row, 2).Value = "" End If End Sub

دالتك صحيحة أخي الكريم ولكن يلزمها تحديث البيانات استعمل هذا الكود بعد الضغط دبل كلك على this work book Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.Calculate End Sub ولا تنس أن تجعل تنسيق الخلية التي بها المعادلة تاريخ

عذرا أخي العزيز عبد الله لم أر مشاركتك وقت إرسالي مشاركتي وفقك الله لكل خير دائما سبّاق إلى الخير

جرب هذه المعادلة =DATE(YEAR(A1),12,31)

شكرا على الكود الجميل أخي محمد يحيى وأعتقد أنه يتم بهذا الكود أيضا تحجيم الصورة With ActiveSheet.Shapes("picture 2") .Width = .Width * Range("a1").Value .Height = .Height * Range("a1").Value End With ولكني أعتقد أن الأخ أبو الشرف لا يريد تحجيم الصورة وإنما يريد ظهور 20% من الصورة والباقي يكون مختفي وهكذا إلى أن تظهر الصورة كاملة وهذا أيضا له حل بإذن الله ..... فعندما يتم التوضيح من الأخ ابو الشرف يتم الرد بإذن الله

أعتقد أن مثل هذا الأمر لا يمكن معالجته بالمعادلات

هل عدد الخلايا غير الملونة ثابت؟

آمين ولك مثلها أخي حسام وفقنا الله جميعاً اكا ما يحب ويرضى وهذا رابط لنفس الإضافة في الوورد والباور كما وعدت http://www.officena.net/ib/index.php?showtopic=36867&view=findpost&p=214154 كل عام أنتم بخير

أنا مش عارف إيه المطلوب ذالعمودين g و h متطابقين ولا يوجد بينهم فروق المعادلة في العمود g المراد تعديلها تعطي ما هو مطلوب في العمود h ياريت مزيد من التوضيح

يفضل إرفاق ملفك للتعديل عليه

أخي الكريم ما تقوله ليس ضمن برمجة الإكسل ولكن ضمن برمجة صفحات الويب بلغة برمجة مثلا php وربطها بقواعد بيانات من نوع mysql وبالفعل عندما تحفظ ملف إكسل كصفحة ويب لا يحتفظ الملف بأكواد vba لأنك في هذه الحالة تحتاج أكواد php أو asp لتحل محل vba ويمكنك متابعة مواضيع منتدى برمجة الويب وتعلم أساسيات لغة html فهي بداية تعلم برمجة الويب ..... للعلم توجد خدمة في موقع مستندات جوجل تقدم استضافة ملفات الإكس وعرضها وتعديلها من خلال المتصفح ولكن أيضا بدون أكواد vba

بارك الله لك أخي محمد يحيى موضوع رائع واسمح لي بالمساهمة فيه ولو بالقليل ..... كود لعرض شريط القوائم وشريط الأدوات القياسي وشريط التنسيق (الخاصين بأوفيس 2003) في أوفيس 2007 أو 2010 في الإكسل نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Worksheet Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وفي الوورد والباور بوينت نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وهذا كود حذفهم جميعاً Sub hide2003() On Error Resume Next CommandBars("Mas2003Menu").Delete CommandBars("Mas2003Standard").Delete CommandBars("Mas2003Formatting").Delete End Sub تحياتي للجميع وكل عام أنتم بخير بمناسبة أفضل ايام الدنيا عشر ذي الحجة

أسعد الله ايامك أخي سعد كود بسيط وجميل جدا جزاك الله كل خير

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

نعم أخي العزيز هذا ممكن نفترض أن الماكرو الأول اسمه sub macro1 والماكرو الثاني اسمه sub macro2 يمكنك جمع الاثنين معاً في ماكرو ثالث مثلا اسمه macro3 وكوده كالتالي sub macro3() call macro1 call macro2 end sub وجرب وأخبرني بالنتيجة