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

السلام عليكم هذه اكواد ابسط واسرع المرفق 2010 فورم ترحيل بسيط.rar

زين شاشة برنامجك بعلم دولتك واجعلة يرفرفر خفاقا" مرفق مثال بسيط flags.rar

اول مشاركة لية ارجو ان تكون مفيدة ملف بفورم يعرض اسماء الله الحسنى بالصورة والشرح مع شاشة اافتتاحية لمدة زمنية الشيتات محمية بالرقم 123 الكود غير محمي اي استفسار مرحب بها الرابط http://www.mediafire.com/download/c2ypmw5hrw8ru7f/Names.rar Names.rar

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته بناء على طلب الاخ طاهر محمد فى تنفيذ برنامج يصلح لجمعيه خيريه وقد تم بحمد الله عمل البرنامج بنجاح ................................................ ولكنى اردت فقط ان اطرح العمل فى موضوع جديد لتعم الاستفاده على من يريد ................................... تقبلو تحياتى جمعية خيرية1.rar

http://www.get-digital-help.com/2012/05/19/select-a-cell-in-a-table-and-the-chart-updates-automatically-vba/ لنستفيد مما عملة الاخرين في اضافه اشياء الى موقع اوفسينا

اعتماداً على معادلة الاخ ibn_egypt هذا حل اخر بعد الفاصلة 1.rar

لمعرفة عدد "اسم معين من الايام" بين تاريخين مع تاريخ كل يوم منها مثلأ كم يوم جمعة بين 1/11/2014 و 2/5/2015 مع تواريخها انظر الى الملف التالي ايام محددة.rar

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

الاخوة الاعزاء طبتم بناء عن طلب احد الأخوة قمت بفضل الله بعمل ملف يقوم بتشفير البيانات وثحويلها لباركود ثم العملية العكسية لفك التشفير فيما يمكن استخدامه ؟ 1-تشفير كلمات المرور 2-تشفير البيانات بالكامل داخل ملفات الاكسيل والعديد من الافكار ادعوا الله ان يكون مفيدا" باركود مع التشفير واعادة فك التشفير.rar

تفضل اخى الكريم تم الحل ان شاء الله نهائى.rar

الاكواد لا يصلح معها اوامر Undo , redo و يمكنك اذا اردت الاحتفاظ بالقيمة قبل عمل ال Paste special و استعادتها بكود اخر و يكون الحفظ اما فى خلية اخري ، او فى متغير اذا كنت ستسخدمها مياشرة و اذا كان الامر يستحق هناك اكواد تقوم بعمل ال Undo , redo http://www.jkp-ads.com/Articles/UndoWithVBA01.asp تم نقل الموضوع الى قسم الاكسيل و لكن الاجابة المباشرة ، ان الاكواد لا يعمل معها هذه الاوامر و الله اعلم و اتمنى ان يفيدك الاخوة بحلول افضل

تفضل استاذى الكريم الملف المرفق به الحل المخزن كامل.zip

الاساتذة الكرام الحميع تقريبا ً كتب المعادلة بالشكل التالي =IF(AND(B5<>"";A5<>"");ROUND(9550*$B5/$A5;2);"") لماذا نختار لا يساوي بينما موجود بالفعل علامة = للسهولة وعليه تكون المعادلة =IF(A2="";"";ROUND(9550*$B2/$A2;2))

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

السلام عليكم حل بطريقة اخرى te pe22.rar

السلام عليكم Function Nm_Prgram(Nm_Pth As String) As Boolean Dim In_c As Integer On Error Resume Next In_c = GetAttr(Nm_Pth) Select Case Err.Number Case Is = 0 Nm_Prgram = True Case Else Nm_Prgram = False End Select On Error GoTo 0 End Function Sub Auto_Open() Dim Pth As String '=============================== ' عادة مسار البرامج Pth = "C:\Program Files\skype" If Nm_Prgram(Pth) Then Else MsgBox " برنامج سكاي غير موجود على جهازك": _ ThisWorkbook.Saved = 1: Application.Quit ' امر اغلاق الملف End Sub

تفضل أخ ريان ملف مرفق بالكود الرائع الخاص بالأستاذ العلامة شوقي ربيع Missing Number By Code.rar

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

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

شكرا جزيلا على الشرح الوافي لهذه النقطة أضافة أخرى لعملية الحماية عن طريق VBA sheet1.Protect Password:="11", UserInterFaceOnly:=True sheet1 هي اسم الورقة والباسوورد هي 11 يمكن تغييرها لإزالة الحماية sheet1.Unprotect Password:="11", UserInterFaceOnly:=True يمكن وضع هذه الاوامر وجعلها تعمل مع زر او أي شكل تلقائي او جعل هذه الاوامر ضمن اكواد اخرى

الحل بين يديك te pe.rar

لم تذكر آخر حرف في المعادلة l مااذا يعني ؟ Te = 9550 * (Pe/Ne) l جرب المرفق ادخل قيمة pe ne واترك لإكسل حساب قيمة te في العمود الأصفر هذا بحسب ما مهمت تحياتي معادلة لحساب Te.rar

هكذا Set Rng = Range("A1,B1,C1,D1,F1,C:C,D:D") ' إذا عمود تكتب A:A إذا خلية تكتب A1 وهذا الكود Dim Rng As Range Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("A1,B1,C:C,D:D") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub

تابع الشرح انتهى الشرح ارجو ان يكون هذا العمل خالصا لوجه الله تعالى وَقُلْ رَبِّ زِدْنِي عِلْمًا