Leaderboard

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

يمكن تعبئة الخلايا الفارغة بدون (Sort) ابجدياً بواسطة هذا الماكرو Option Explicit Sub give_Data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim last_ro# last_ro = Range("a1").CurrentRegion.Rows.Count Range("MM2").Resize(last_ro - 1).Formula = _ "=IF(AND(C2<>"""",D2<>""""),D2,INDEX($D$2:$D$" & last_ro & ",MATCH(C2,$C$2:$C$" & last_ro & ",0))" & ")" Range("D2").Resize(last_ro - 1).Value = _ Range("MM2").Resize(last_ro - 1).Value Range("MM2").Resize(last_ro - 1) = vbNullString With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق FiLL_Empty.xlsm

السلام عليكم ورحمة الله استخدم هذه الدالة المعرفة Function Repeat_Int(Rng As Range) For i = 1 To Len(Rng) If IsNumeric(Rng) Then If Mid(Rng, i, 1) = 1 Then p = p + 1 End If End If Next Repeat_Int = p End Function

الشيت ثقيل لانك تجعل الكود ينتظر ثانية واحدة في كل خطوة من خلال الدالة Wait ما مجموعه (55 × 57 =4125 ثانية اي حوالي ساعة وربع) جرب هذا الماكرو Sub salama() Application.ScreenUpdating = False Dim My_num, i#, col# Dim color_index% color_index = 1 + 18 * Rnd() For i = 3 To 55 For col = 2 To 57 Select Case Cells(i, col) Case 1: My_num = 2 Case 2: My_num = 3 Case 3: My_num = 1 Case Else: My_num = "" End Select Cells(i, col) = My_num Cells(i, col).Interior.colorindex = color_index Next Next Application.ScreenUpdating = True End Sub '=================================== 'هذا الكود للتصحيح في حال ادخال رقم مختلف بالخطأ Sub reset() Application.ScreenUpdating = False Dim i#, col# For i = 3 To 55 For col = 2 To 57 If Cells(i, col) <> vbNullString Then _ Cells(i, col) = 1 Next Next Application.ScreenUpdating = True End Sub 2030.xlsm

وهذا مثال على الفزر بالاستعلامات اعتذر كان تقصير منى عدم انشاء الاستعلامات فى المثال السابق ( √ ) أو ( x ) - الفرز -علامة.mdb

ببارك للأخ وجيه شرف الدين الترقية لدرجة الخبراء😄 باذن الله ستكون هناك ترقيات أخرى قريبا فى القسم 😃

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

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

تفضل .... kanory.accdb

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

تفضل رصد الدرجات1.xlsm

عذرا لم انتبه لمرفقك الا الان - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp اتفضل يا سيدى التعديل على مرفقك Picture Bbutton - مثال-2 -.zip

اخواني كل عام وانتم بخير جميعا بناء علي طلب احد الاخوة باللينك التالي https://www.officena.net/ib/topic/91148-نقل-واسترداد-البيانات-من-ملف-اكسل-الى-ملف-اكسيل-أخر/?fbclid=IwAR0xbxEnx7AZelkY6NQoXHeffLqB-RzI3Q_b1LqE8IcQdkcl1jbpWCjWm3I ولاكبر استفادة اردت الاجابة في مشاركة منفصلة شرح العمل:- افتح ملف" V2" اضغط علي الزر لاظهار الفورم اضعط علي زر استرداد بيانات من ملف اخر الكود المستخدم Sheets(1).Range("D6:G15") = "" mm = ActiveWorkbook.Name MyPath = ThisWorkbook.Path & "\v1.xlsm" 'On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set Mybook = Workbooks.Open(Filename:=MyPath) m = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Address Workbooks(mm).Sheets(1).Range(m).Formula = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Formula Workbooks("v1.xlsm").Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox ("DONE") trans.rar

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ، ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) هذا الكود : Private Sub cmd_Export_QR_Commandline_Click() ' 'https://sourceforge.net/projects/zint/ ' Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_Test.png" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) Shell App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text End Sub وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال آخر وبعُجاله ، بمرفق جديد يعمل على 2003 :) اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد ، فقد استعملت الصورة التي استعملها في مثاله :) ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) ShellWait App_Name & " -o " & Output_File & " -d " & Me.ID End Sub المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود :) انا وضعت المشاركةوسافرت ، ولازلت على سفر :) جعفر zint QR Code.zip zint QR Final.zip

السلام عليكم جرب المرفق مع بعض الإضافات... الكلمة السرية لحماية الورقة هي: 123 بن علية حاجي فاتورة.rar

السلام عليكم يسعدنا انضمام الأخ على محمد على الي فريق الموقع أعانك الله على المسؤولية الجديدة 😃

الملف عندك كبير جداً 5 صفحات في 1200 صف مما لا يسهل عملية متابعة الكود دائماً وابداً ارجو منك ومن جميع من له مشاركات او اسئلة ان يرفق مثال مبسط عما يريدونه ،وذلك لوضع الكود المناسب و من ثم تعميمه على الملف الأصلي تم اختصار الملف الى حوالي 20 اسم في كل صفحة وتغيير اسماء الصفحات لسهولة عمل الكود (في حال اضافة مدارس جديدة) الكود (في حدث الصفحة فقط اختر الصف الذي تريده ليقوم الكود بغمله) Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$D$1" And Target.Count = 1 Then Copy_data End If Application.EnableEvents = True End Sub Rem======================== Rem======================== Rem======================== Sub Copy_data() Dim My_Sh As Worksheet Dim Arr(), i#, st Dim m#: m = 4 Dim x# Dim k As Byte: k = 1 Dim My_tabL As Range Set My_Sh = Sheets("FOUSUL") My_Sh.Range("a4:I" & Rows.Count).ClearContents st = My_Sh.[D1] For i = 1 To Sheets.Count If Mid(Sheets(i).Name, 1, 3) = "SHC" Then ReDim Preserve Arr(1 To k) Arr(k) = Sheets(i).Name k = k + 1 End If Next For k = LBound(Arr) To UBound(Arr) With Sheets(Arr(k)) If .FilterMode Then .ShowAllData .AutoFilterMode = False End If Set My_tabL = .Range("b3").CurrentRegion x = My_tabL.Rows.Count My_tabL.AutoFilter 5, st My_tabL.Offset(1).Resize(x - 1).SpecialCells(12).Copy _ My_Sh.Range("A" & m) m = My_Sh.Cells(Rows.Count, 2).End(3).Row + 1 If .FilterMode Then .ShowAllData .AutoFilterMode = False End If End With Next Erase Arr: Set My_tabL = Nothing End Sub الملف مرفق Mult_filtre _salim.xlsm

وعليكم السلام ورحمة الله ..... لم نستطع تحميل المرفق .... لكن ضع هذا الكود في حدث عند تشغيل النموذج الاول .... DoCmd.DeleteObject acForm, "نموذج2"

السلام عليكم طلبك اخي الكريم بسيط وممكن عمله بكل سهولة ----ولكن هل تعلم ما سيصبح حجم قاعدة البيانات بعد استعمالها لفترة قصيرة من الزمن اما اذا طالت فحدث ولا حرج خصوصا انت تطلب اظهار جميع التعديلات والمعلومه السابقة والاحقه (وما بالك اذا اجري اكثر من تعديل على سجل واحد او عدد من السجلات) بعدها ستبداء المشاكل لكبر حجم قاعدة البيانات هناك حلول ابسط من الذي طرحت 1 - صلاحيات المستخدمين --- اعطاء صلاحيات التعديل والحذف والاضافة لعدد محد من الاشخاص او حصرها بالمدير او بمسؤول محدد (وهي الافضل ) 2 - استخدام النسخ الاحتياطي --- وعمل حقلين اضافين في الجدول الرئيسي لمعرفة وقت اخر عملية تعديل ومقارنتها بالنسخه الاحتياطية (وهذه عملية اكثر تعقيد ) يالتوفيق

السلام عليكم ورحمة الله تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب... بن علية حاجي النطاقات.xlsx

جرب هذا الملف لعله يفى بالغرض نسخة من النطاقات-1.xlsm

بص هى الفكرة دى مش عارف هتعجبك واللا لاء اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها ولكن ركز معى فى الاتى - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp ------------------------- قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل Picture Bbutton.zip

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

عاجز عن شكرك ولو كنت بجانبي لقبلت رأسك إحتراما وتقديرا فقط شيء بسيط أنا أود أن يكون الB وال C مرتبطان بالإدخال في ال A أي بمعنى مجرد الكتابة في ال A يضاف التاريخ بالعربي وكذلك ينطبق على ال F وال G مرتبطان بالإدخال في الH نوع القرار يضاف تاريخ التصدير واليوم أتوماتيكياً وشكرا والله والله والله من القلب عاجز عن ما أقول ولكننا في نهار رمضان أسأل الله أن يسخر لكم من يقضي حاجاتكم

:: بعد اذن السيد سلوم ... :: تفضل ... حالة موقف الخدمة متغيرة في السجلات المتكرره فهي التي تسبب التكرار ... بعد حذفها من الاستعلام زال التكرار 10 5 2019 up.mdb

اسم المستخدم admin1 كلمة المرور 1123 رابط التحميل

وعليكم السلام ورحمة الله رمضان مبارك، وتقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... تم عمل التعديلات حسب ما فهمت من المطلوب، راجع الملف المرفق إن كان يفي الغرض المنشود... بن علية حاجي BOOK (2).rar

السلام عليكم في بعض الأحيان نحتاج إلى عرض صورة في عمود أو خلية تبعاً لقيمة خلية في عمود آخر أو خلية أخرى مثلاً تغيير صورة منتج بناء على اسمه أو كوده و تغيير صورة موظف مع تغير اسمه الأكواد المستخدمة 'كود إضافة قائمة منسدلة إلى العمود الذي سيتم تغيير الصور بناء على قيمته Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then With Range("a" & Target.Row).Validation .Delete 'w_r=OFFSET($E$1;0;0;COUNTIF($E$1:$E$1000;"<>")) .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=w_r" .IgnoreBlank = True .InCellDropdown = True .ShowInput = True .ShowError = True End With End If End Sub 'إدراج الصور في الخلايا Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False Dim PicM As Picture Dim pictloc As String 'Created by H-E Khalf Dim x As String If Target.Column = 1 And Range("a" & Target.Row) = "" Then x = Range("c" & Target.Row).Address & "c" ActiveSheet.Shapes(x).Delete End If If Target.Column = 1 And Range("a" & Target.Row) <> "" Then x = Range("c" & Target.Row).Address & "c" ActiveSheet.Shapes(x).Delete pictloc = Application.ActiveWorkbook.Path & "\" & Range("a" & Target.Row).Value '& ".jpg" Set PicM = ActiveSheet.Pictures.Insert(pictloc) PicM.Select PicM.ShapeRange.LockAspectRatio = msoFalse PicM.ShapeRange.Height = Range("c" & Target.Row).Height PicM.ShapeRange.Width = Range("c" & Target.Row).Height PicM.Top = Range("c" & Target.Row).Top PicM.Left = Range("c" & Target.Row).Left PicM.Placement = xlMoveAndSize PicM.Name = Range("c" & Target.Row).Address & "c" Range("a" & Target.Row).Select End If Application.ScreenUpdating = True End Sub 'تصفير البيانات Private Sub CommandButton1_Click() Call Del End Sub Sub Del() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Sh As Excel.Shape For Each Sh In ActiveSheet.Shapes If Right(Sh.Name, 1) = "c" Then Sh.Delete End If Next Dim Cel As Range Dim C As Integer For Each Cel In Range("a1:a1000") With Cel.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .ShowInput = True .ShowError = True End With Next Range("a:a").ClearContents Range("a:a").ClearHyperlinks Selection.ClearContents Selection.ClearHyperlinks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ' جلب أسماء الصور من المجلد الذي سيوضع به الملف و هي من لاحقة ' jpg Private Sub Workbook_Open() Call Get_Files_Names End Sub Sub Get_Files_Names() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fldpath Dim fso As Object, fld As Object, fil As Object, j As Long On Error Resume Next fldpath = Application.ActiveWorkbook.Path If fldpath = False Then MsgBox "Folder Not Selected" Exit Sub End If Columns("D:D").Clear Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.getfolder(fldpath) j = 1 For Each fil In fld.Files Range("D" & j).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=fil.Path, _ TextToDisplay:=fil.Name ActiveSheet.Hyperlinks.Delete j = j + 1 Next Dim Cel As Range For Each Cel In Range("D1:D1000") If Right(Cel, 4) <> ".jpg" Then Cel.Delete Shift:=xlUp End If Next Dim Cel1 As Range For Each Cel1 In Range("D1:D1000") If Left(Cel1, 1) = "~" Then Cel1.Delete Shift:=xlUp End If Next Set fso = Nothing Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub قمت بكتابة بعض هذه الأكواد بينما اقتصر عملي على تعديل بعضها فقط و جزى الله خيراً من قدم الأكواد الأصلية. احتجت إل هذه الفكرة فاحببت مشاركتها مع من يبحث عنها إدراج صورة متغيرة حسب قيمة خلية.xlsm

السلام عليكم تفضل إليك هذا المثال به ما تريد إن شاء الله منع تعديل تاريخ الجهاز.rar

اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar

تفضل .. اسماء النماذج والتقارير في مربع تحرير.accdb

تسلم أستاذ وجيه ولكني أرى أنه يجب أن تكون الخلية B3 تكون بها معادلة الأستاذ الفاضل سليم ويكون واستخدام العمودK والعمود L أفضل لأنه الخلية B3 سوف يتم الاستعلام عن ورقة العمل التي سوف يتم أخذ منها البيانات ولإثراء الموضوع فاتوره.xlsm

بعد اذن استاذى ومعلمى الحبيب واثراء للموضوع فاتوره.xlsm

strFilePath = CurrentProject.Path & "\123.Txt" هذا السطر غير فيه strFilePath = CurrentProject.Path & "\123.Txt" CurrentProject.Path مسار قاعدة البيانات وهذا ثابت & "\123.Txt" وهذا اسم الملف 123.TxT يمكنك تغيره بما تشاء وان كان الملف فى مكان غير مكان قاعدة البيانات يكون مثلا strFilePath = "D:\folder\123.Txt"

أحسنت أستاذ وجيه ولكن لم تتنتبه أن هناك طلب ثاني فالملف بعد العمل على الطلب الثاني نسخة من Book1.xlsm

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

عمل رائع استاذ وجيه هل ممكن تطبيق هذا على الرقم الوطني فمثلا 119730258417 حيث رقم واحد باللون الاحمر إذا كان 1 معناها ذكر و إذا 2 معناها أنثى و أما لارقام باللون الأزرق فتمثل تاريخ الميلاد 1973

المثــــــــــــــــال الثالث  ـــــــــــــــــــــــــــــــــــــ الدالة ( Trim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين ويسار النص وتستخدم كالتالى Trim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 003 - Trim- حذف مسافات يمين ويسار النص.mdb

تفضل اخي form1 نموذج ادخال ضغط زر قبل التعديل البيانات سوف تذهب المعلومات الى جدول قبل التعديل ضغط زر بعد التعديل --- المعلومات سوف تخزن بجدول التعديلات بالتوفيق 28-2-2019.rar

جرب هذا الماكرو Sub SALIM_MACRO() On Error Resume Next Columns("D:D").SpecialCells(4) _ .FormulaR1C1 = "=R[-1]C" '4 =====> xlCellTypeBlanks On Error GoTo 0 End Sub

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... في هذا الشهر المبارك وفي هذه الأيام نعتز بانضمامكم إلى فريق العمل بالمنتدى، وأكرر دائما أن هذه الترقيات ليست تشريفا وإنما هي تكليف ومسؤولية مما يعني أن المجهود يتضاعف للرقي بهذا المنتدى العريق... نسأل الله أن يعينك ويسهل عليك العمل في هذه المَهَمّة الجديدة... فمبارك عليك هذه الترقية المستحقة... بن علية حاجي

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

بعد اذن اخي ابراهيم جرب هذا الملف (يمكن استخراج اي شيء) ليس فقط الارقام HOW_MANY.xlsm

ألف مبروك للأستاذ الفاضل / علي وأدعوا الله أن يعينه على مسئولية هذا المنصب

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

عمل ولا اجمل ولا اخصر ابا جودي شكرا لك

اتفضل جرب المرفق هاد التاريخ (2).mdb

جرب هذا الملف File_1.xlsx

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