أ / محمد صالح

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

ويمكن اختصار الكود ليصبح 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 وجرب وأخبرني بالنتيجة

شكرا لك أخي سعد بارك الله لك

جزاك الله خيرا أخي طارق ولكني لم أفهم المطلوب بدقة وأدعو الأخ خالدي أن يزيد الأمر وضوحاً هذا طبعاً إذا كان ما تفضل به أخي طارق ليس هو المطلوب وإن كان هو المطلوب فالحمد لله الذي هدانا لهذا

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

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

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

جزاك الله كل خير أخي عماد الحسامي واسمح لي برنامجك الخفيف الرائع أعطاني فكرة أن يكون هذا البرنامج وظيفة إضافية Addin فقمت باختصار الكود إلى التالي Sub show2003menus() On Error Resume Next Dim cmdBar As CommandBar Dim cmdBarCtrl As CommandBarControl CommandBars("mas").Delete Set cmdBar = CommandBars.Add("mas", , , False) cmdBar.Visible = True For i = 1 To 10 Set cmdBarCtrl = cmdBar.Controls.Add(Type:=msoControlPopup, ID:=30001 + i) Next i End Sub Sub hide2003menus() On Error Resume Next CommandBars("mas").Delete End Sub ثم حولتها إلى إضافة .... طريقة تشغيل الوظيفة الإضافية لمن لا يعرفها ضع الملف في مكان ثابت أو في مسار الوظائف الإضافية افتح برنامج إكسل 2007 أو 2010 file ---> options ---> addins ----> go----> browse ---> select the addin ---> open ----> check Mas2003Menus ---->ok ولا تنسوني من صالح دعائكم في هذه الأيام المباركات Mas2003Menus.rar

قمت باستيراد قاعدة بيانات mysql إلى أكسس 2010 بدون اي مشاكل خطوات الاستيراد: get external data odbc database file data source ----> new select Mysql odbc 5.1 driver next ---> any name next ---> finish server user password ok إذا ظهرت رسالة أنه لم تتم عملية الحفظ لا مشكلة (لأنه بالفعل تمت عملية الحفظ وظهر الملف في مجموعة مصادر البيانات) اختر الاسم الذي حفظته به من مصادر البيانات ثم ok تظهر نافذة خيارات الخادم والمستخدم وقاعدة البيانات مرة أخرى حدثها ثم ok تظهر جداول القاعدة اختر منها ما تشاء ثم ok بعدها يتم الاستيراد بنجاح

أنا جربت البرنامج والبرنامج المساعد في إكسل 2010 وشغال تمام ومن قبلها إكسل 2007 ومفيش مشاكل وسأجرب مع الأكسس وأخبرك بالنتيجة رغم أني لا أعتقد وجود مشكلة في الكونيكتور لأنه لم يتم إضافة bugs إليه