كل الانشطه

سادتي الاعزاء ارجو تفضلكم ماهو سبب القيم الخاطئة في الملف ولو تفضلتم بحويل اللغة الى العربية لتكون (سنة شهر يوم ) وانتم اصحاب الفضل وفقكم الله وحفظكم ورعاكم قيم خاطئة.xlsx

كانت عندي نفس المشكلة لكن كل ملفات الاكسيل علي الجهاز بتجيب read only وواكتشفت السبب اني كنت ضايف دوال اضافية مش موجوده في نسخة الاكسيل عندي من خلال Add ins حذفتهم واشتغل طبيعي مفهوش اي مشاكل

شكرا لكم 🌹

@Saleh Ahmed Rabie @كمال على طارق وفقكما الله ورعاكما شكرا جزيلا لكم ايها الاخوة

السلام عليكم، لدي قاعدة بيانات وفيها شاشتين رئيستين A,B مختلفين لكن نفس الازرار ونفس النماذج، في الشاشة الافتتاحية اذا اختار المستخدم شاشة A بيكمل عادي بس مثلا في النماذج لو في زر رجوع Main للشاشة اللي دخل بيها A وهكذا العكس ولو اختار شاشة B وكمل شغل وفي زر رجوع Main للشاشة اللي دخل بها B .... اتمني تفيدوني واتمني اكون وصلت المعلومة صح.

استاذنا خليفة، في خطأ بيظهر لي compil error, method or data not found هصورها لحضرتك وابعتهالك. ابعت لحضرتك جدولي

شكرا لك اخي العزيز

رابط الموقع الذى يتم فيه تحويل جمل sql access الى sql server SQL Converter - AccessUserGroups.org

تسلم ايديك بجد حل عبقرى

السلام عليكم اخوتي الكرام الى السادة الخبراء طلب: أريد اظهار سالة (لا توجد صورة مطابقة لرقم الجلوس) عندما لاتوجد صورة مطابقة لرقم الجلوس عند تنفيذ الكود التالي: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) Me![Image_Std].Picture = "D:\صور\" + s1 + ".jpg" End Sub ولكم جزيل الشكر

في حالة الرغبة باستخدام الكود الخاص بك يكفي تعديله فقط على الشكل التالي Sub PDF() Dim Path As String Path = Label2.Caption 'Code......................... ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ Path & "ملف رواتب الموظفين\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي جرب هدا Private Sub CommandButton1_Click() Dim WS As Worksheet: Set WS = Sheet3 Dim FileName As String, strDirname As String, Patch As String, strDefpath As String strDirname = Me.TextBox1.Text FileName = WS.[B8] strDefpath = Label2.Caption lr = WS.Range("B" & WS.Rows.Count).End(xlUp).Row WS.PageSetup.PrintArea = "A1:D" & lr + 5 On Error Resume Next If FileName = "" Then MsgBox "يرجى اظافة اسم الملف": Exit Sub If Not Right(strDefpath, 1) = "\" Then strDefpath = strDefpath & "\" If Not Right(FileName, 4) = ".Pdf" Then FileName = FileName & ".Pdf" If Dir(strDefpath & strDirname, vbDirectory) = "" Then MkDir strDefpath & strDirname Patch = strDefpath & strDirname & "\" & FileName WS.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Patch End Sub ملف V2.xlsm

ملف3.xls ملف2.xlsm

للاسف لم يقم الكود بعمل المطلوب حيث تم تغيير الكود لكن تظهر شاشة ادخال اسم الملف والمطلوب انه يحفظ تلقائي الملف باسم الموظف كما بالخلية B8 داخل الفولدر

تأكد ان يكون لكل مستخدم اسمه محفوظ في الـ cell B8 ، فهذا الاسم سيتم حفظه مع الملف الـ PDF ككود. يجب تغيير السطر التالي: FileName = Dir(FilePath) إلى: FileName = Range("B8").Value هذا الكود سيجعل اسم الملف الـ PDF يأخذ قيمة الـ cell B8 مباشرة كاسم للموظف.

ماش شاء الله بارك الله في عمرك مجهود جبار تعديل اخير هل بالامكان تعديل بالكود بحيث اسم الملف يكون باسم الموظف مباشرة كما بالخلية B8 بدل من ظهور شاشة وكتابة اسم الملف

اشكرك اخى المرفق بالاعلى ولم يعمل

إليك مثال بسيط لاستخدام الكود: 1. افتح برنامج الإكسل وانشئ ورقة عمل جديدة. 2. قم بنسخ ولصق البيانات التالية في الخلايا من D2 إلى D4: ``` 123 456.78 1,234.56 ``` 3. انسخ والصق الكود التالي في المحرر النصي لـ VBA: Sub ConvertTextToNumber() Dim cell As Range For Each cell In Range("D2:D4") If IsNumeric(cell.Value) Then cell.Value = Val(cell.Value) Else cell.Value = Val(Replace(cell.Value, ",", "")) End If Next cell End Sub 4. اضغط على زر التشغيل أو اختر "Run" من القائمة لتشغيل الكود. 5. ستلاحظ أن الأرقام في الخلايا D2 و D3 تم تحويلها من النص إلى أرقام، في حين تمت معالجة الفاصلة في الرقم D4 وتحويله إلى رقم أيضًا. هذا المثال يوضح كيف يمكنك استخدام الكود لتحويل الأرقام من النص إلى أرقام في Excel.

اشكركم جدا وجارى التجربة

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

السلام عليكم ورحمة الله وبركاته الأستاذة صفاء يمكنك إضافة الكود التالي في الحدث عند النقر او في Public sub واستدعائه Dim msgResponse As VbMsgBoxResult Dim totalRecords As Integer Dim totalSeeReport As Integer Dim totalNotEmptyResult As Integer Dim totalEmptyResult As Integer Dim tableName As String tableName = "test_order_tbl" totalRecords = DCount("*", tableName) If totalRecords = 0 Then MsgBox "There are no records in Table : " & tableName, vbCritical + vbOKOnly, "Error : No Records" Exit Sub End If totalSeeReport = DCount("[see_report]", tableName, "[see_report]=false") totalNotEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and not isnull([result])") totalEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and isnull([result])") If totalSeeReport = totalEmptyResult Then MsgBox "No need To Print this Report", vbInformation + vbOKOnly, "No Need To Print" Exit Sub ElseIf totalSeeReport = totalNotEmptyResult Then ' Here you shuold add the print code to print all records Debug.Print "Report Printed" Else msgResponse = MsgBox("Only Some Results Exist" & vbCrLf _ & "Do you want to Print The report ?", vbQuestion + vbYesNo, "Do You want to Print ?") If msgResponse = vbYes Then ' Here you shuold add the print code to print all records Debug.Print "Report Printed" Else Debug.Print "Report will not be Printed" End If End If اما بخصوص هل تم طباعته من قبل وحتي لا نضيف أي شي لواجهة البرنامج فاقتراح إضافة عمود بالجدول او اثنين 1- نعم او لا إذا تم الطباعة 2- لعدد مرات الطباعة إذا كان هذا الاقتراح مناسب فيمكنك التعديل علي الملف ومشاركته مرة أخرى وإن شاء الله سأضيف الاكواد اللازمة لتحديثه

ويمكنك استخدام الكود التالي في VBA للحصول على نفس النتيجة في جميع إصدارات Excel: Function DateDifference(startDate As Date) As String Dim years As Integer Dim months As Integer Dim days As Integer years = DateDiff("yyyy", startDate, Date) months = DateDiff("m", startDate, Date) Mod 12 days = DateDiff("d", startDate, Date) - Int(DateDiff("d", startDate, Date) / 30) * 30 DateDifference = years & " Years, " & months & " Months, " & days & " Days" End Function يمكنك استدعاء هذه الوظيفة في Excel باستخدام الصيغة: =DateDifference($D2) هذا الكود يعمل في جميع إصدارات Excel.