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

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

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

اشكرك جزيل الشكر هذا هو المطلوب اسأل الله عز وجل ان ينير دربك ويرزقك من حيث لا تحتسب

وعليكم السلام غيّر اتجاه التقرير الى من اليسار الى اليمين ثم تستطيع تقليص المسافة الفارغة جعفر

هذا ملف بواسطة اكواد VBA يكفي ان تكتب في الخلية I3 المطلوب لتظهر النتيجة فوراً بعد الضغط على Enter كود تحديد اخر سعر salim with macro.rar

الحل مرفق كود تحديد اخر سعر salim.rar

هذه المعادلة مع (Ctrl+Shift+Enter)و ليس Enter وحدها )لانها معادلة صفيف =INDEX($F$4:$F$100,MAX(IF($D$4:$D$100=$I$3,ROW($D$4:$D$100)-ROW($D$4)+1,0))) او هذه مع (Ctrl+Shift+Enter) =LOOKUP(MAX($F$4:$F$100)+1,IF(--($D$4:$D$100=$I$3),$F$4:$F$100))

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

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

الله يطول في عمرك اخوي طاهر ، انا ما غيرت شيء يخص com1 ولا com2 ، كل اللي عملته هو مجرد تنسيق !! ولكن ، الآن وقد اردت هذا ، المفروض ان الكود "بعد تحديث" com1 يقوم بإعادة جلب البيانات للحقل com2 بناء على بيانات الحقل com1 (السطر الاخير يقوم بذلك) : Private Sub com1_AfterUpdate() MsgBox "قيمة الحقل=" & Me.com1 & vbCrLf & _ "اسم الصنف=" & Me.com1.Column(1) Me.com2.Requery End Sub جعفر

وعليكم السلام ورحمة الله وبركاته بالفعل هدية مميزة ، شكرا لك اخي صالح بما انك خطوت هذه الخطوة ، فهل بالامكان عمل برنامج accde او mde على جهاز الزبون و . وكذلك عدم عرض رسائل الامان ، بإستخدام الكود هذا جعفر

هذا الملف ، بصيغة ثانية ، وللعلم ، هذا الملف من المشاركة الاولى جعفر AlignListbox.MDB.zip

وعليكم السلام اكتب الكود هكذا Private Sub n1_AfterUpdate() Me.نص6 = Me.n1 + (Me.n1 * Me.n2) End Sub جمع.rar

جرب هذا الملف الكود Private Sub cmddel_Click() Dim x$, y$ x = Application.InputBox("حدد العامود الاول", "Excel tel you", Type:=2) y = Application.InputBox("حدد العامود الثاني", "Excel tel you", Type:=2) On Error GoTo 1 ActiveSheet.Columns.Hidden = False '=================================== Range(Cells(1, x), Cells(1, y)).EntireColumn.Delete 'للحذف 'Range(Cells(1, x), Cells(1, y)).EntireColumn.Hidden = True ' للاخفاء '=================================== Exit Sub 1: ActiveSheet.Columns.Hidden = False End Sub استعمل احد السطرين (او الحذف او الاخفاء في الكود) وذلك بوضع فاصلة عليا بجانب السطر الذي لا تريده و ازالتها من السطر الاخر الملف مرفق hide_columns.rar

تفضل أخى mod71 طباعة الشهادة بالصفحة الحالية طباعة الشهادات من مسلسل إلى مسلسل طباعة جميع الشهادات حتى آخر مسلسل OK_1 كهرباء.rar

السلام عليكم وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ، بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار: dim fso: set fso = CreateObject("Scripting.FileSystemObject") dim CurrentDirectory CurrentDirectory = fso.GetAbsolutePathName(".") dim Directory Directory = CurrentDirectory & "\Seq.mdb" rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase Directory o.usercontrol=true set o=nothing . جعفر

الحمد لله أنه أفادك وفق الله الجميع

ان لله وانا اليه راجعون لله ما اعطى وله ما أخذ وكل شيئ عنده بمقدار ان العين لتدمع وان القلب ليحزن وانا على فراقك يا عماد الحسامي لمحزونون اللهم اغفر له وارحمه

السلام عليكم هذا كود تشغيل اله الحاسبة للويندوز في الاكسل Sub اله_حاسبه() Dim calc calc = Shell("C:\windows\system32\calc.exe", 1) End Sub تحياتي

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

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

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