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

بارك الله فيك أخي العزيز سليم إثراءً للموضوع إليك حل المشكلة بثلاثة طرق الأولى بطريقة يدوية بالشكل التالي والطريقة الثانية نفس الفكرة بالكود بدون حلقات تكرارية Sub SimpleReplace() With Columns(2) .Replace "2017", "", xlPart .Replace "~*", "", xlPart End With End Sub والطريقة الثالثة باستخدام المعادلات حيث يمكنك وضع المعادلة التالية في أي عمود فارغ بهذا الشكل =SUBSTITUTE(SUBSTITUTE(B1,"2017",""),"*","")

شكرا استاذنا شيفان وهذه الاكواد حسب طلبك الغاء من الخيارات Application.SetOption "Confirm Action Queries", 0 Application.SetOption "Confirm Document Deletions", 0 Application.SetOption "Confirm Record Changes", 0 اجعلها في حدث تحميل نموذج البداية وهذه لارجاع التحذير Application.SetOption "Confirm Action Queries", 1 Application.SetOption "Confirm Document Deletions", 1 Application.SetOption "Confirm Record Changes", 1 يمكنك جعلها في حدث اغلاق النموذج ان شئت

السلام عليكم منذ تعرفي على vba excel احببت التعامل مع اليوزر فورم والأكواد وكل ما يتعلق بهم بعد طرحي لموضوع برنامج تتبع وتسيير شؤن اللأليات والموضفين المصمم على الإكسل احببت ان اقدم لكم اليوم جزأ من برنامج صممته على يوزر فورم بعدما ترجمته الى اللغة العربية لأن النسخة الاصلية صممتها باللغة الفرنسية أروج أن تستفيدو منه الباسورد للبرنامج ولمحرر الأكواد هو 123 برنامج تسيير شؤن الموضفين.rar

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

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

يلزم هذا الكود Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ComboBox1.Clear col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column For i = 1 To col ComboBox1.AddItem Cells(2, i) Next End Sub Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ComboBox1.Clear col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column For i = 1 To col ComboBox2.AddItem Cells(2, i) Next End Sub

إذا كانت النصوص الممكنة مع الأرقام هي فقط رموز gr kg ml l يمكنك استعمال هذا التعبير في الاستعلام weight number: Replace(Replace(Replace(Replace([weight];"gr";"");"kg";"");"ml";"");"l";"") وهو لاستبدال النصوص بلا شيء لتظهر الأرقام فقط

جزاك الله خيرا

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

لعمل هذا يمكنك نسخ الكود الموجود في الزر الثاني إلى الزر الأول أو استعمال call button2_Click داخل حدث ضغط الزر الأول

:: لا علم لكن بالتجربة كل شي تقريبا ممكن .. ارفق مثال للتجربة .

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

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

السلام عليكم - جزيت خيرا - جزيت خيرا - تقل الله منكم صالح الاعمال ونساله تعالى ان يرزقك من فضله اشكرك استاذ ياسر تمام 100 % شغل محترفين - النتائج ممتازة يرحم والديك

وعليكم السلام أخي الكريم أبو عبد الواحد في الملف المسمى "السجل" أدرج موديول جديد وضع الكود التالي فيه Sub ImportDataFromClosedWBs_YasserKhalil() Dim strFolder As String Dim strFile As String Dim wbk As Workbook Dim sh As Worksheet Dim lr As Long With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False .AskToUpdateLinks = False End With strFolder = ThisWorkbook.Path & "\الفواتير\" strFile = Dir(strFolder & "*.xls*") Do While strFile <> "" Set wbk = Workbooks.Open(strFolder & strFile) Set sh = wbk.Worksheets(1) With ThisWorkbook.Worksheets(1) lr = IIf(.Cells(Rows.Count, 1).End(xlUp).Row < 3, 3, .Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & lr).Resize(1, 6).Value = sh.Range("A7").Resize(1, 6).Value .Range("G" & lr).Resize(1, 2).Value = sh.Range("A2").Resize(1, 2).Value .Range("I" & lr).Value = sh.Range("F1").Value .Range("J" & lr).Value = sh.Range("F2").Value .Range("K" & lr).Value = sh.Range("F3").Value .Range("O" & lr).Value = sh.Range("B2").Value End With wbk.Close False strFile = Dir Loop With Application .AskToUpdateLinks = True .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub

شكرا جزيلا اخوانى الكرام تم التجربة والحمد لله نجحت جزاكم الله كل خير

If IsNumeric(Text1) = True Then MsgBox "قيمة رقمية" Else MsgBox "قيمة غير رقمية" End If

:: عليكم السلام .... مشاركة مع الاخ @ARAB101 تفضل ... بالتوفيق =Sum(IIf([In]>0;[Zvalue])) =Sum(IIf([out]>0;[Zvalue]))

:: يعد حذف هذا السطر (Forms![DataMasterForm]![ends1] = Me.date1) من الكود اكتب هذا الكود في مصدر التحكم للحقل Date1 ... او في القيمة الافتراضية له =[DataMasterForm].[form]![ends1]

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

هذا الكود يعمل If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then Text3 = #8:30:00 AM# Else Text3 = Text2 End If db2.rar

اذا 50 تصير 5 يعني واحد عن كل عشرة تعتبر خيال ما رأيك نختزل الــ 27 تقرير في تقرير واحد طبعا حل الاستاذ صالح سيكون ضمن الخلطة المطلوب مثال mdb يحتوي على التقارير الثلاث لاحدى الفئات ولا تنسى ادراج بيانات اكثر من فئة في الجدول

:: ضع مثال او اكتب هذا الكود في مصدر التحكم للحقل Date1 ... او في القيمة الافتراضية له =[subformname].[form]![Textname]

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

هناك ملاحظة انا عملت التجربة الان و عملت نموذج بها زرين للحذف واحد كتبت في اوله DoCmd.SetWarnings False وزر الاخر لم كتبت ذلك السطر واولا قمت بالحذف بواسطة زر الاول وبعدين عملت حذف بزر الثاني لم اعاني رسالة تحذير ======= بعدين عملت نموذج اخر على جدول اخر و عملت عليها زرين واحد استخدمت ماكرو والاخر بالكود حذفت سجل واحد فقط بواسطة زر الحذف بواسطة ماكرو لم يعطيني رسالة التنبيه لكن في مرة الثانية اعطاني رسالة التحذير ولكن حين عملت الحذف بواسطة كود لم اعطاني رسالة التحذير ... اي يعني الماكرو بيجدد التحذير !! قمت بتحويل الماكرو الى الكود وعملت الحذف بواسطته لم يعطاني رسالة التحذير هذا والله يعلم

السلام عليكم ورحمة الله اكتب المعادلة التالية فى التنسيق الشرطى وحدد اللون الذى تريده =COUNTIFS($A$2:$A$1000;$A2;$B$2:$B$1000;$B2)>1

السلام عليكم جرب المرفق لعل فيه ما تريد... تم تعديل طفيف على جدول التقديرات... بن علية حاجي anas2017.rar

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

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