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

تفضل التعديل New folder (2).zip

تفضل هذا التعديل odbExe2.zip

أهلا بك.. عدل الشفرة التي أشرت إليها لتصبح كالتالي Private Sub crn_DblClick(Cancel As Integer) Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Dir(File_Path & Me.crn & "*.pdf") If File_Name = "" Then MsgBox "لا توجد مستندات محفوظة" Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub النجمة في سطر المتغير File_Name تعود بأسماء جميع الملفات التي في بدايتها ذات الرقم. راجع ملف التعليمات لمزيد من التوضح حول التابع Dir

ما شاء الله الكودين ممتازين مبدعين جزاكم الله خيرا

تفضل هذا التعديل odbExe.zip

السلام عليكم ورحمة الله وبركاته : مثال عندما اكتب في التكست بوكس1 رقم (2 او 5 او 8 ) يعرض لي في (تكست بوكس2) كلمة " العراق" وعندما اكتب رقم (7 او 4 او 3) يظهر لي في تكست بوكس 2 كلمة " مصر" وهكذا () Private Sub TextBox1_Change If Me.TextBox1.Value = "2" Then "العراق"= TextBox2.Value Else "" = TextBox2.Value End If End Sub فورم.xlsm

احسنت استاذنا العزيز . بارك الله بجهودك

مساء الخير ما هو افضل ملف للتعديل على ملف PDF ( حذف - اضافة ) لكم جزيل الشكر

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

لكي يتم هذا يجب تحديد مكان تشغيل الملف التنفيذي مثلا في المسار D:\folder\file.exe مع تغيير اسم البارتيشن والمجلد والملف حسب احتياجاتك وفي حدث عند فتح ملف الاكسل يتأكد من وجود الملف التنفيذي في المسار المحدد فإذا كان موجودا يفتح البرنامج وإلا فيظهر رسالة يجب وضع البرنامج في المسار ..... كذا بكود مثل هذا Private Sub Workbook_Open() strpath = "D:\folder\file.exe" If Dir(strpath) = "" Then MsgBox "يجب وضع البرنامج في هذا المسار حتى يعمل" & chr(10)& strpath thisworkbook.close 1 End If End Sub وفي كود حذف الملف يتم إضافة سطر لحذف الملف التنفيذي kill "D:\folder\file.exe" بالتوفيق

يمكنك استعمال هذا الكود Private Sub TextBox1_Change() txt = Val(Me.TextBox1.Value) If txt = 2 Or txt = 5 Or txt = 8 Then Me.TextBox2.Value = "العراق" ElseIf txt = 3 Or txt = 4 Or txt = 7 Then Me.TextBox2.Value = "مصر" Else Me.TextBox2.Value = "" End If End Sub بالتوفيق

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

السلام عليكم ورحمة الله وبركاته،، وفقكم الله ورعاكم،، إذا كان لدي عمودين في اكسل الأول به أرقام والثاني مقابل كل رقم اسم،، هل بالإمكان أن أجل الخلية D3 مثلا في حال كتابة الرقم أن يأتي بالاسم في الخلية التي بعدها مباشرة رعاكم الله،، مرفق المثال،، ربط خلية بأخرى.xlsx

سلمت الله يعطيك العافية،، تمت أتم الله عليك الصحة والعافية،،

هذه عملية بحث بسيطة يمكن استخدام الكثير من معادلات البحث وأبسطها استعمال هذه المعادلة في الخلية E3 =VLOOKUP(D3, A1:B100,2, 0) حيث الرقم مكتوب في D3 بالتوفيق

الدالة صحيحة بلا أي مشاكل وظيفتها جمع الأرقام من مدى به نصوص وأرقام بينهما مسافة ربما يكون الخطأ في وضع أول سطر من الدالة بجوار التعريف بها حيث أن الترتيب الصحيح هكذا Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double Dim xNums As Variant, lngNum As Long xNums = Split(rngS, strDelim) For lngNum = LBound(xNums) To UBound(xNums) SumNumOnly = SumNumOnly + Val(xNums(lngNum)) Next lngNum End Function بالتوفيق

السلام عليكم اولا: يتم عمل الجدول بجميع المعادلات والقيم السليمة مثل التامينات وحدود الضرائب وغيرها (بمعنى حساب الصافى كما هو معتاد) ثانيا: استخدام خاصية الـــ Goal Seek فى الاكسيل كما فى المثال البسيط المرفق صورة مع ملاحظة ارقام الخلايا بالصور اتمنى ان تنجح معك السلام عليكم اولا: يتم عمل الجدول بجميع المعادلات والقيم السليمة مثل التامينات وحدود الضرائب وغيرها (بمعنى حساب الصافى كما هو معتاد) ثانيا: استخدام خاصية الـــ Goal Seek فى الاكسيل كما فى المثال البسيط المرفق صورة مع ملاحظة ارقام الخلايا بالصور اتمنى ان تنجح معك

جزاك الله خيرا وربنا يجعل مساعدتك لغيرك فى ميزان حسناتك

أستاذ / محمد الأوفيس 32 بت واويندوز 64 بت والملفات كانت تعمل بكفاءة على هذا الوضع بالملفات القديمة ملفات xlsb وهى مهمة جدا بالنسبة لي وحجمها كبير نسبيا أما الملفات الجديدة فهى تعمل بامتداد xlsb هل أعيد تثبيت الويندوز والمشكلة بالماكرو طبعا ولك جزيل الشكر

أ/محمد اشكرك الله يعطيك العافية وفقك الله استاذي الفاضل

تفضل هنا حلين بعد تغيير اتجاه الخلايا وتغيير مكان البداية في شيت H-5 واحد بدالة offset وواحد بالتركيبة المطلوبة بالتوفيق how-can-get-data-from-other-sheets_2.xlsx

جزاك الله خير أ/ محمد وفي حال كانت البيانات في الشيتات الاخرى بالافقي الله يعطيك العافية انا اسف اعتذر لوقت الثمين how-can-get-data-from-other-sheets (1).xlsx

جميعا بإذن الله

لا يوجد مشكلة في إثراء الموضوع ولكن حتى يتم جلب بيانات عمود النسبة تحتاج إلى إضافة سطر وتعديل آخر sh.Cells(m, 8).Value = ws.Cells(r, 12).Value sh.Cells(m, 9).Value = ws.Cells(r, 13).Value For Each x In Array(2, 3, 8, 9) ليصبح الكود كاملا Sub Test() Dim x, ws As Worksheet, sh As Worksheet, r As Long, m As Long, c As Long, n As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Sheet1") Set sh = ThisWorkbook.Worksheets("2") With sh.Range("B2").CurrentRegion.Offset(1) .Cells.UnMerge: .ClearContents End With m = 3 For r = 4 To ws.Cells(Rows.Count, "B").End(xlUp).Row sh.Cells(m, 2).Resize(, 2).Value = ws.Cells(r, 2).Resize(, 2).Value n = 4 For c = 4 To 10 Step 2 sh.Cells(m, n).Value = ws.Cells(r, c).Value sh.Cells(m + 1, n).Value = ws.Cells(r, c + 1).Value n = n + 1 Next c sh.Cells(m, 8).Value = ws.Cells(r, 12).Value sh.Cells(m, 9).Value = ws.Cells(r, 13).Value For Each x In Array(2, 3, 8, 9) sh.Cells(m, x).Resize(2).Merge Next x m = m + 2 Next r Application.ScreenUpdating = True End Sub بالتوفيق

Rem In UserForm Module Rem ------------------ Private Sub UserForm_Initialize() Dim a With ThisWorkbook.Worksheets(1) a = MergeRanges(.Range("AH2").Resize(Application.CountA(.Columns("AH"))), .Range("W2").Resize(Application.CountA(.Columns("W")))) End With Me.ComboBox1.List = a End Sub Rem In Standard Module Rem ------------------ Function MergeRanges(ParamArray args()) Dim e, cell As Range ReDim temp(0) For Each e In args For Each cell In e If cell <> "" Then temp(UBound(temp)) = cell ReDim Preserve temp(UBound(temp) + 1) End If Next cell Next e ReDim Preserve temp(UBound(temp) - 1) MergeRanges = Application.Transpose(temp) End Function

تفضل التعديل ترتيب رقم 3 - نقل طالب واحد - نقل جميع الطلاب في المجموعة رقم 2 listboxSearch (4).zip

يمكنك استعمال هذا الكود في حدث تهيئة النموذج والاستغناء عن إجراء add_comp Private Sub UserForm_Initialize() With Sheets("الصفحة الرئيسية") Lr = .Cells(Rows.Count, 23).End(xlUp).Row lr2 = .Cells(Rows.Count, 34).End(xlUp).Row For n = 2 To lr2 Me.ComboBox1.AddItem .Range("ah" & n) Next n For n = 2 To Lr Me.ComboBox1.AddItem .Range("w" & n) Next n End With End Sub مع تعديل خاصية عدد الأعمدة ColumnCount إلى 1 في خصائص ComboBox1 بالتوفيق

الف شكر على الرد لاكن للاسف الكود لم ينجح يا غالي

شكرا لمروركم الكريم أستاذ @خالد القدس نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

تفضل هذا التعديل Microsoft Access Database جديد (3).zip

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

متسرع في ردك كالعادة المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب لكن قد يكون الفرز في عمود غير العمود الذي تريده في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق شكرا لكم ,,, ,

Hello Make sure the direction of language is Arabic before copying the codes and also make sure you have installed Arabic from Windows Settings

ارفع ملف علشان نستطيع ان ننفذ عليه طلبك

تفضل اخي الكريم لكن نصيحتي لك بأن تجعل المسميات باللغة الانجليزية حتى تستطيع التعامل بسهولة مع الجداول برمجيا d.zip

* لا لن تضاف تلقائيا ؛ لأنك حددت مصدر بيانات الجدول المحوري من A1:H6 وحتى تضاف تلقائيا يجب تنسيق المدى الموجود في ورقة1 كجدول format as table من تبويب الصفحة الرئيسية home ثم تعديل مصدر بيانات الجداول المحورية change data source إلى نفس المدى في ورقة1 ولكن هذه المرة سيظهر المدى باسم جدول1 أو table1 * لتعديل عناوين في الجداول المحورية مثل rows labels & columns labels & grand total يتم تحديد الخلية ثم كتابة التسمية المطلوبة ثم ضغط مفتاح الادخال Enter بالتوفيق

لا يوجد تقرير في قاعدة البيانات المرفقة

أخي الكريم Gamor هذا كود بسيط يمكنك استعماله وتوظيفه كما تشاء الأخ الفاضل gelani يرجع هذا لاستعمالك نظام تشغيل 64 بت تم وضع نفس الملف لنسخة 64 في المشاركة الأولى الصديق الكريم. ابوخليل كلامك صحيح جدا ولكن كان هذا هو المتاح في عام 2009 تحياتي

الحمد لله على عودة هذا الصرح التعليمي الكبير كنت قد وضعت برنامج لحساب نتائج مباريات كأس العالم للشباب والتي أقيمت في مصر 2009 واليوم قمت بتطوير الفكرة لجعلها مناسبة لأي بطولة تتكون من 24 فريق المطلوب من المستخدم: كتابة أسماء فرق المجموعات في مكانها الصحيح في جانب اللغات وكتابة نتائج المباريات والبرنامج يقوم بحساب الاحصائيات والترتيب ومن سيقابل من في الأدوار القادمة حتى نصل للبطل لا ينقصني سوى دعاؤكم لي بالتوفيق والسداد Mas24TeamsCup.rar

شكرا freemasn

أستاذ / رضا مهران تفضل تعديلات على البرنامج ضع أسماء الوظائف بالترتيب في العمود Z واكتب اسم وظيفة كل موظف في العمود O شئون عاملين 2019.rar

اemp.raremp.rarلسلام عليكم ورحمة الله وبركاته احب ان اسجل اعجابي بالمنتدي فطالما استفدت جدا من مشاركات السادة الاعضاء وببعض البرامج التي تم التعديل عليها لتواكب ظروف العمل لقد وفقت اثناء بحثي بالمنتدى في الحصول على برنامج لشئون الموظفين تصميم الاستاذ احمد بكر ولكن رجائي من حضراتكم ومن الاستاذ احمد بكر بالسماح بالتعديل على البرنامج بما يتوافق مع شئون موظفين بمصر داخل مصلحة حكومية لذا الرجاء تغيير البيانات بالفورم وكذلك بملف الترحيل كما يلي بيانات الموظف رقم الموظف - اسم الموظف - الرقم القومي - محل الاقامة - رقم التليفون - المؤهل الدراسي - تاريخ الحصول على المؤهل بيانات الوظيفة الوظيفة - الادارة التابع لها - تاريخ التعيين - تاريخ استلام العمل - الدرجة الوظيفية - تاريخ الحصول على الدرجة - تاريخ اخر ترقية بيانات موقع العمل مكان العمل - عنوان مكان العمل - تليفون مكان العمل - فترة العمل الاجازات نوع الاجازة " عارضة - اعتيادي - انقطاع - مرضي " - تاريخ بدء الاجازة - تاريخ انتهاء الاجازة - مدة الاجازة - الرصيد الباقي الجزاءات نوع الجزاء - سبب الجزاء - العقوبة - رقم كتاب العقوبة - تاريخ العقوبة

كلمة المرور : 12345

سعيد بمرورك أخي سالم أنت المميز وردودك دائما مميزة سلمك الله من كل سوء

هل البرنامج لم ينل رضا الإخوة؟ أم المجال نفسه لا يوجد اهتمام به؟ رغم وجود معادلات وشغل عالي جدا فيه على العموم أرحب بآرائكم واقتراحاتكم أخوكم محمد صالح

مشكور أخي yamz شاهدت أمثله مثل هذا لكأس العالم وكأس أوربا جزاك الله خيرا

رائع أخي أحمد جزاك الله كل خير

أخي الكريم جلال لعمل المطلوب بالنسبة للتنسيق الشرطي يمكنك تحويل معادلة التنسيق الشرطي إلى دالة sumif ففي مثالك يمكنك جمع الخلايا الملونة بالعمود h بهذه المعادلة =SUMIF(H7:H20;"<8") وفقني الله وإياكم لكل ما يحب ويرضى

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

مشكور أخي أحمد يعقوب وإذا سمحت لي فهذه هديتي لك وللإخوة ‏طريقة إنشاء شريط أدوات جديد في اكسل و ارفاقة مع ملف محدد o من القائمة عرض تختار اشرطة الأدوات ثم تخصيص o سوف تظهر معاك الصفحة التالية o تضغط على جديد سوف يظهر لك مربع حوار التالي o تدخل هنا الإسم الذي تريده لشريط الأدوات الجديد ثم موافق o سوف يظهر لديك شريط ادوات جديد خالي من أذارير o تنتقل الى تبويب الأوامر o ثم تختار بواسطة الماوس أي امر تريدة وتسحبة و تفلته داخل شريط الأدوات الجديد o من هنا بعد عملية السحب o يمكنك الآن تغيير شكل الزر o تغيير اسم الزر o وعدة خيارات اخرى باستخدام كليك يمين على الزر الذي تريد o = = = = = = = = = = = = = = = o ((اضافة شريط الأدوات الى ملف معين)) o بعد الإنتهاء من عمل الشريط الجديد o تعود الآن الى تبويب أشرطة الأدوات مرة اخرى o و بالضغط على زر ارفاق000 o تظهر لك الشاشة التالية o داخل هذه الشاشة يوجد لديك كل أشرطة الأدوات التي تم إضافتها من قبل المستخدمين إلى اكسل o تحدد شريط الأدوات الذي تريده – ثم تضغط على نسخ o الآن بعد الضغط على موافق o أصبح شريط الأدوات المحدد مقترن تماما مع ملف اكسل المفتوح و النشط حاليا أحفظ الملف و اغلقة عند تشغيل هذا الملف في أي جهاز كمبيوتر آخر سوف يظهر تلقائيا شريط الأدوات المختار مع تحياتي و تقديري