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

السلام عليكمأقدم لكم ملف يحتوي على دوال الإكسيل بـ 16 لغة مختلفة ، والملف مفيد في حالة التعامل مع نسخة غير النسخة الإنجليزية لمعرفة الاسم الصحيح للدالة https://www.file-upload.com/zpo9tygi69snتقبلوا وافر تقديري واحترامي

وعليكم السلام مثل ما قال اخونا عبدالسلام ، هكذا: private sub cmd_click() on error goto err_cmd_click .. .. .. .. exit_cmd_click: exit sub err_cmd_click: if err.number=3314 then msgbox "هنا تضع صيغة رسالتك" resume exit_cmd_click else msgbox err.number & vbcrlf & err.description endif end sub جعفر

نعم هناك طريقة مثلا نريد ان يبدأ من رقم 100 سنستخدم هذا الكود =NZ(Dmax("[ID]","Tbl1"),99)+1 هذا الكود سيعطيك اكبر رقم من حقل اي دي في جدول تبل 1 واذا ما وجد اي رقم اي اذا ليس يكون هناك رقم في ذلك الحقل سيعطيك رقم 99 + 1 واذا كان هناك اكبر رقم في ذلك الحقل سيعطيك ذلك الرقم و يزيد عنه رقم واحد

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

السلام عليكم شكرا للاستاذ شيفان على سطر الكود الجميل نعم يوجد حل لتعديل حقل الترقيم التلقائي Dim DB As Database, RS As Recordset Set DB = CurrentDb Dim i As Integer i = Me.id_start Set RS = DB.OpenRecordset("tbl1") RS.AddNew RS!id = i RS.Update Me.Requery txtName.SetFocus بداية ترقيم تلقائي.rar

جرب هذا الملف Super_5 Salim.rar

وعليكم السلام امام كل سطر مال الرسائل ، مثل MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" ضع اشارة قبل السطر ، هكذا ' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" او rem MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" وبيتحول لون السطر الى الاخضر ، وخلاص جعفر

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

في الخلية J7 ضع المعادلة التالية واضغط بعدها Ctrl + Shift + Enter لأنها معادلة صفيف ، ثم قم بسحبها لأسفل =MAX(IF($F$6:$F$10000=I7,$G$6:$G$10000))

استخدم Error Handling

وعليكم السلام تقدر تستخدم هذا الكود: Private Sub Command1_Click() TerminateProcess ("calc.exe") End Sub Private Sub TerminateProcess(app_exe As String) Dim Process As Object For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'") Process.Terminate Next End Sub واذا ما فادك ، استعمل الكود من هنا: http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673 جعفر

جزيت خيرا - اكثر من المطلوب - تسلم حيل نال اعجابي وفرحت

ربما ينال الاعجاب هذا الملف salimمحرك بحث.rar

شكرا استاذ جعفر اتفضلي كما قال استاذنا جعفر تقدر تستخدمي هذا الكود في حدث بعد تحديث لكومبوبوكس Private Sub Names1_AfterUpdate() Me.Job1 = DLookup("[Job]", "Employes", "[EmpNum]='" & Me.Names1 & "'") End Sub او تقدر تستخد هذا كمصدر مربع نصي ل جوب1 =DLookUp("[Job]";"Employes";"[EmpNum]='" & [Names1] & "'") واليك قاعدة بياناتك بعد استخدام الطريقة الثانية Rewards.rar

السلام عليكم ورحمة الله وهذا العمل نفسه لكن بالمعادلات... بن علية حاجي Transpose_Notes.rar

الحل جاء من المحترم ياسر العربي 'هذا الكود للمحترم ياسر العربي ' الهدف من الكود هو نسخ صف الى صفوف تحته بالعدد المطلوب 'وقبل النسخ يتم مسح البيانات القديمه 'تاريخ الانشاء 30/7/2017 '=*=*=*=*=*=*=*=*=*=*=*=*=*=* Private Sub CommandButton1_Click() Dim sh As Worksheet, lr As Long, str As String If TextBox1.Text = Sheets("بيانات الطلبة").Range("F1") Then Me.Hide TextBox1.Text = "" MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'اذا كان عدد المتقدمين اقل من اتنين يتم ايقاف الكود ولا يكمل If Sheets("بيانات الطلبة").Cells(2, 3) < 2 Then Exit Sub End If '=*=*=*=*=*=* 'On Error Resume Next For Each sh In Sheets(Array("بيانات الطلبة", "إنجاز1", "تحريرى ف 1", "تحريرى ف 2", "أعمال السنة", "كشف الدور الثاني", "كشف ناجح")) lr = sh.Range("B" & sh.Range("b10000").End(xlUp).Row).Row sh.Activate ' str المتغير دا يتم تخزين اسم العمود الاخير فيه للعمل عليه 'يتم الذهاب الى اخر عمود بالاعتماد على الصف السادس ويتم استخلاص اسم العمود من اسم النطاق str = Split(sh.Range("XFD7").End(xlToLeft).Address, "$")(1) 'حذف البيانات الموجودة في النطاق المحدد sh.Range("A8:" & str & lr + 7).Clear ' نسخ الصف السابع لكل شيت من حيث عدد الاعمدة الى العدد المحدد بعدد المتقدمين sh.Range("a7:" & str & 7).AutoFill Destination:=Range("a7:" & str & [ 'بيانات الطلبة'!C2] + 6) Next Sheets("بيانات الطلبة").Select Range("A4").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Unload Me Else MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب" TextBox1.Text = "" TextBox1.SetFocus End If End Sub Private Sub Label1_Click() End Sub Private Sub UserForm_Click() End Sub جزاه الله عنا خير الجزاء ================ نسخ صفوف.rar

اتفضل اخي في محرر الاكواد وبعد تحديث حقل التوجيه الصق هذا الكود Me.رقم_الفاتوره = Nz(DMax("[رقم الفاتوره]", "مجمع الفواتير اجمالى", "[التوجيه]='" & [التوجيه] & "'"), 0) + 1

جرب هذاالكود Option Explicit Sub Copy_With_Hidden_Sheet() If ActiveSheet.Name <> "Sales" Then Exit Sub Dim Lr_sales%, Lr_data% Dim Rg_Tocopy As Range Lr_sales = Sheets("sales").Cells(Rows.Count, "A").End(3).Row Lr_data = Sheets("data").Cells(Rows.Count, "V").End(3).Row If Lr_sales < 2 Then Lr_sales = 2 Set Rg_Tocopy = Sheets("data").Range("l1:v" & Lr_data) With Sheets("Sales") .Range("A2:K" & Lr_sales).ClearContents .Range("a2").Resize(Lr_data, Rg_Tocopy.Columns.Count).Value = Rg_Tocopy.Value .Range("A1").Select End With End Sub

يمكن ان يكون الحل هنا salim_Prices.rar

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then Call kh_Show_UFormChang1 End If '********************************************************** If Target.Column = 5 Then Target.Value = Date Selection.NumberFormat = "yyyy/mm/dd" Target.Offset(0, 1).Select End If If Target.Column = 6 Or Target.Column = 8 Then Target.Value = Target.Offset(-1, 0) Target.Offset(0, 1).Select End If ThisRow = Target.Row If Target.Column = 7 And Range("f" & ThisRow) = "قيد يومية" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("f4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("f4").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "استلام شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g1").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g1").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "قبض نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g2").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g2").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g3").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g3").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g4").Value Target.Offset(0, 1).Select End Select End If End Sub وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون ..

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

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

أخي الحبيب عبد العزيز .. أعتقد أن المشكلة بسبب اختلاف إعدادات اللغة لديك .. أما المتبع في وضع تعليق على أسطر الكود استخدام حرف الطاء ولكن انتبه أن يكون اتجاه الكتابة باللغة الإنجليزية وهنا طريقة أفضل وهي التي أتبعها وهي كالتالي : كليك يمين في مكان فاضي في شريط الأدوات في محرر الاكواد ..تمام .. قول تمام يا فلاحجي هتلاقي شريط اسمه Edit والشريط دا بستخدمه لهذا الغرض .. طبعاً الخطوة اللي فاتت دي بتتعمل مرة واحدة أثناء ضبط محرر الأكواد .. يوجد في هذا الشريط الرائع أيقونة اسمها Comment Block ..من خلالها بحدد أسطر الكود أياً كان عدد الأسطر .. وبنقر على الأيقونة دي فتقوم تضع علامات التعليق على كل الأسطر مرة واحدة ويوجد أيقونة أخرى على يمينها تعكس العملية أي تزيل التعليقات من كل الأسطر مرة واحدة أرجو أن تعجيكم هذه الطريقة تقبلوا تحياتي

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

طب يا خي محمد هل ممكن يصبح هذا وإذا استخدمت صفحات الويب المخصصه للاكسس هل يمكن ان يدخل الطالب في النت ويستعلم عن نتيجته ام لا