Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Leaderboard


Popular Content

Showing content with the highest reputation since 05/15/2019 in all areas

  1. 9 points
    السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb
  2. 5 points
    يمكن تعبئة الخلايا الفارغة بدون (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
  3. 5 points
    السلام عليكم ورحمة الله استخدم هذه الدالة المعرفة 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
  4. 5 points
    الشيت ثقيل لانك تجعل الكود ينتظر ثانية واحدة في كل خطوة من خلال الدالة 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
  5. 5 points
    وهذا مثال على الفزر بالاستعلامات اعتذر كان تقصير منى عدم انشاء الاستعلامات فى المثال السابق ( √ ) أو ( x ) - الفرز -علامة.mdb
  6. 4 points
    ببارك للأخ وجيه شرف الدين الترقية لدرجة الخبراء😄 باذن الله ستكون هناك ترقيات أخرى قريبا فى القسم 😃
  7. 4 points
    في بعض الأحيان يود البعض منا أن يقوم بتكبير حجم الخط في شريط الصيغ حتى تظهر المعادلات بوضوح ممكن عمل ذلك في خطوات بسيطة من قائمة ملف - خيارات اختر عام تجد حجم الخط كما بالصورة بعد ذلك تظهر رسالة موجودة في الصورة الثانية وبها الشرح أتنمى أن تكون وفقت في توصيل هذه المعلومة
  8. 4 points
    بعد البحث عن الخلل وبعد تعب ومشقة للوصول للخطأ في الكود تبين أن الكود يعمل بشكل سليم والخطأ لديك في العمود BB وتم تصويبها تفضل المطلوب الدور الثانى 2019 علمى.xlsm
  9. 4 points
  10. 4 points
    بارك الله فيك استاذنا الكريم محمد طاهر وهذا بالطبع يسعدنى ويشرفنى ويارب اكون جدير بهذه الثقة الكبيرة واكون ان شاء الله عند حسن ظنكم بى-وشاكر جدا لصرحنا الكبير بما فيه من مديرين ومشرفين وخبراء جزاكم الله جميعا خير الثواب
  11. 4 points
    تفضل رصد الدرجات1.xlsm
  12. 4 points
    عذرا لم انتبه لمرفقك الا الان - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp اتفضل يا سيدى التعديل على مرفقك Picture Bbutton - مثال-2 -.zip
  13. 3 points
    اخواني كل عام وانتم بخير جميعا بناء علي طلب احد الاخوة باللينك التالي 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
  14. 3 points
    السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا 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
  15. 3 points
    السلام عليكم جرب المرفق مع بعض الإضافات... الكلمة السرية لحماية الورقة هي: 123 بن علية حاجي فاتورة.rar
  16. 3 points
    السلام عليكم يسعدنا انضمام الأخ على محمد على الي فريق الموقع أعانك الله على المسؤولية الجديدة 😃
  17. 3 points
    الملف عندك كبير جداً 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
  18. 3 points
    وعليكم السلام ورحمة الله ..... لم نستطع تحميل المرفق .... لكن ضع هذا الكود في حدث عند تشغيل النموذج الاول .... DoCmd.DeleteObject acForm, "نموذج2"
  19. 3 points
    السلام عليكم طلبك اخي الكريم بسيط وممكن عمله بكل سهولة ----ولكن هل تعلم ما سيصبح حجم قاعدة البيانات بعد استعمالها لفترة قصيرة من الزمن اما اذا طالت فحدث ولا حرج خصوصا انت تطلب اظهار جميع التعديلات والمعلومه السابقة والاحقه (وما بالك اذا اجري اكثر من تعديل على سجل واحد او عدد من السجلات) بعدها ستبداء المشاكل لكبر حجم قاعدة البيانات هناك حلول ابسط من الذي طرحت 1 - صلاحيات المستخدمين --- اعطاء صلاحيات التعديل والحذف والاضافة لعدد محد من الاشخاص او حصرها بالمدير او بمسؤول محدد (وهي الافضل ) 2 - استخدام النسخ الاحتياطي --- وعمل حقلين اضافين في الجدول الرئيسي لمعرفة وقت اخر عملية تعديل ومقارنتها بالنسخه الاحتياطية (وهذه عملية اكثر تعقيد ) يالتوفيق
  20. 3 points
    السلام عليكم ورحمة الله تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب... بن علية حاجي النطاقات.xlsx
  21. 3 points
    جرب هذا الملف لعله يفى بالغرض نسخة من النطاقات-1.xlsm
  22. 3 points
    بص هى الفكرة دى مش عارف هتعجبك واللا لاء اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها ولكن ركز معى فى الاتى - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp ------------------------- قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل Picture Bbutton.zip
  23. 3 points
    هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb
  24. 2 points
    عاجز عن شكرك ولو كنت بجانبي لقبلت رأسك إحتراما وتقديرا فقط شيء بسيط أنا أود أن يكون الB وال C مرتبطان بالإدخال في ال A أي بمعنى مجرد الكتابة في ال A يضاف التاريخ بالعربي وكذلك ينطبق على ال F وال G مرتبطان بالإدخال في الH نوع القرار يضاف تاريخ التصدير واليوم أتوماتيكياً وشكرا والله والله والله من القلب عاجز عن ما أقول ولكننا في نهار رمضان أسأل الله أن يسخر لكم من يقضي حاجاتكم
  25. 2 points
    :: بعد اذن السيد سلوم ... :: تفضل ... حالة موقف الخدمة متغيرة في السجلات المتكرره فهي التي تسبب التكرار ... بعد حذفها من الاستعلام زال التكرار 10 5 2019 up.mdb
  26. 2 points
    اسم المستخدم admin1 كلمة المرور 1123 رابط التحميل
  27. 2 points
    وعليكم السلام ورحمة الله رمضان مبارك، وتقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... تم عمل التعديلات حسب ما فهمت من المطلوب، راجع الملف المرفق إن كان يفي الغرض المنشود... بن علية حاجي BOOK (2).rar
  28. 2 points
    السلام عليكم في بعض الأحيان نحتاج إلى عرض صورة في عمود أو خلية تبعاً لقيمة خلية في عمود آخر أو خلية أخرى مثلاً تغيير صورة منتج بناء على اسمه أو كوده و تغيير صورة موظف مع تغير اسمه الأكواد المستخدمة 'كود إضافة قائمة منسدلة إلى العمود الذي سيتم تغيير الصور بناء على قيمته 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
  29. 2 points
    السلام عليكم تفضل إليك هذا المثال به ما تريد إن شاء الله منع تعديل تاريخ الجهاز.rar
  30. 2 points
    اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar
  31. 2 points
    تفضل .. اسماء النماذج والتقارير في مربع تحرير.accdb
  32. 2 points
    تسلم أستاذ وجيه ولكني أرى أنه يجب أن تكون الخلية B3 تكون بها معادلة الأستاذ الفاضل سليم ويكون واستخدام العمودK والعمود L أفضل لأنه الخلية B3 سوف يتم الاستعلام عن ورقة العمل التي سوف يتم أخذ منها البيانات ولإثراء الموضوع فاتوره.xlsm
  33. 2 points
    بعد اذن استاذى ومعلمى الحبيب واثراء للموضوع فاتوره.xlsm
  34. 2 points
    strFilePath = CurrentProject.Path & "\123.Txt" هذا السطر غير فيه strFilePath = CurrentProject.Path & "\123.Txt" CurrentProject.Path مسار قاعدة البيانات وهذا ثابت & "\123.Txt" وهذا اسم الملف 123.TxT يمكنك تغيره بما تشاء وان كان الملف فى مكان غير مكان قاعدة البيانات يكون مثلا strFilePath = "D:\folder\123.Txt"
  35. 2 points
    أحسنت أستاذ وجيه ولكن لم تتنتبه أن هناك طلب ثاني فالملف بعد العمل على الطلب الثاني نسخة من Book1.xlsm
  36. 2 points
    وعليكم السلام ورحمة الله ..... وضح ما هي نوع البيانات المطلوب جلبها بيانات جدول أو كلمة معينة .. سطر معين .... حبذا لو ترفق المطلوب بمثال أفضل وأسرع الفهم ؟؟؟
  37. 2 points
    عمل رائع استاذ وجيه هل ممكن تطبيق هذا على الرقم الوطني فمثلا 119730258417 حيث رقم واحد باللون الاحمر إذا كان 1 معناها ذكر و إذا 2 معناها أنثى و أما لارقام باللون الأزرق فتمثل تاريخ الميلاد 1973
  38. 2 points
    المثــــــــــــــــال الثالث  ـــــــــــــــــــــــــــــــــــــ الدالة ( 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
  39. 2 points
    تفضل اخي form1 نموذج ادخال ضغط زر قبل التعديل البيانات سوف تذهب المعلومات الى جدول قبل التعديل ضغط زر بعد التعديل --- المعلومات سوف تخزن بجدول التعديلات بالتوفيق 28-2-2019.rar
  40. 2 points
    جرب هذا الماكرو Sub SALIM_MACRO() On Error Resume Next Columns("D:D").SpecialCells(4) _ .FormulaR1C1 = "=R[-1]C" '4 =====> xlCellTypeBlanks On Error GoTo 0 End Sub
  41. 2 points
    بارك الله فيك استاذ موسى وشكرا جدا على هذا البرنامج الرائع ,ولكى تعم الفائدة فبعد اذنك طبعا سأقوم برفعه داخل المنتدى البيان_للمحاسبة.xlsm
  42. 2 points
    السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... في هذا الشهر المبارك وفي هذه الأيام نعتز بانضمامكم إلى فريق العمل بالمنتدى، وأكرر دائما أن هذه الترقيات ليست تشريفا وإنما هي تكليف ومسؤولية مما يعني أن المجهود يتضاعف للرقي بهذا المنتدى العريق... نسأل الله أن يعينك ويسهل عليك العمل في هذه المَهَمّة الجديدة... فمبارك عليك هذه الترقية المستحقة... بن علية حاجي
  43. 2 points
    جزاكم الله اخوانى الاحباء عن هذا الشعور الطيب والنبيل والف شكر على هذا التقدير وهذا شرف لى الف شكر استاذ سليم الف شكر استاذ احمد بدره الف شكر استاذ على الف شكر استاذ اهلاوى الف شكر استاذ ابراهيم الحداد الف شكر استاذ محمد طاهر وان شاء اكون عند حسن ظن الجميع
  44. 2 points
    بعد اذن اخي ابراهيم جرب هذا الملف (يمكن استخراج اي شيء) ليس فقط الارقام HOW_MANY.xlsm
  45. 2 points
    ألف مبروك للأستاذ الفاضل / علي وأدعوا الله أن يعينه على مسئولية هذا المنصب
  46. 2 points
    بجد ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها
  47. 2 points
    عمل ولا اجمل ولا اخصر ابا جودي شكرا لك
  48. 2 points
  49. 2 points
    جرب هذا الملف File_1.xlsx
  50. 2 points
    الأخ السلام عليكم هذا شيت كنترول من تصميمي به ترحيل الناجح و الراسب بدون أكواد فقط بالمعادلات و بنتائج صحيحة هنا شريطة أن تخبرنى برأيك


×
×
  • Create New...