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

تفضل اخى الكريم لك ما طلبت s0ds1 - Copy.xls

تفضلى يمكنك شرحها وذكرها هنا

حضرتك كنت كاتب المعادلة بهذه الصورة =IF(G12,"ثمانون درجة",B_Only(C12,1,1,2,"درجة","درجتان","درجات")) فكيف تكون النتيجة صحيحة بهذه الطريقة واول جزء بالمعادلة الخلية G12 ,ثم قمت بكتابة الخلية C12 داخل معادلة التفقيط فيجب كتابة نفس الخلية داخل معادلة التفقيط ايضا وهى الخلية G12 فبالتالى شكل المعادلة كلها غير صحيحة -لأن ايضا جزء معادلة If غير مضبوط,فيجب ان تكون المعادلة هكذا كالتالى : =IF(G12=100,"مائة درجة",B_Only(G12,1,1,2,"درجة","درجتان","درجات"))

السلام عليكم 🙂 وبطلب من البشمهندس ابا جودي ، تم وضع مثال لعمل VCard QR ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂 وتم الكود والمرفق مع المشاركة الاولى في هذا الموضوع ، ونتيجة احد السجلات: جعفر

تفضل تفقيط الدرجات.xls

اعتقد انه ليس هناك كلام بعد هذا الملف فبه كل ما طلبت تفقيط الدرجات2.xls

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line 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) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

رسم بيانى اضاءة على الشخص المتفوق الفيديو الصور

رسم بيانى الشخص المميز الفيديو الصور

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

بعد إذن أستاذ علي تم عمل المطلوب بدون عمود مساعد كما طلبت ومعذرة للتأخير فالموضوع ليس بالهين s0ds1 - Copy(1).xls

أستاذى @عبد اللطيف سلوم أرجو تصليح الخطأ وجزاك الله خيراً اوفسنا تلقائي (1).rar

انا اول مرع بصراحة اتعامل مع المرفقات كنت ابحث وكنت ادرس الكود https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field2-savetofile-method-dao ثم لتعلم ان الفضل كله لله عزوجل هو العليم و لو لا تفضله سبحانه وتعالى علينا ما اهتدينا

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

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

اخى وحبيبى واستاذى @Khalf ما هى نتيجة التجربة ؟؟؟ هل وجدت ضالتك قمت بعمل االاعجاب على سؤالى عن التجربة فلم افهم هل وجدت ضالتك ام لا اعجبتك الطريقة ام لا

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

انتظر ان يخبرنى كل من قام بالتجربة بالنتيجة هل تمت التجربة بنجاح ام لا

اتفضل تم بفضل الله تعالى طبعا تحتاج بعد التعديلات التى تلائم كل سجل لبرنامجك Test To Print External File.rar

تفضل وهذه النتيجة بعد التنقل بين صفحات التقرير FahrasTest.accdb طبعا لا اعرف هل هذه النتيجة التي تريدها ام لا لكن الكود الذي وضعته انت يقوم بهذا عند معاينة التقرير والتنقل بين محتوياته

تفضل -كنت كاتب المعادلة بطريقة غير صحيحة تفقيط الدرجات مع التعديل.xls

تفضل لك ما طلبت بيان اعلى راتب من الدرجات في الدوائر.xlsx

تفضل تم عمل التنسيق المطلوب في الملفين تنسيق شرطى للمكرر2.xlsx هوية.xlsm

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

لا اعلم ما المشكلة لديك بالضبط فالملف يعمل عندى عليك برفع الملف نفسه الذى به المشكلة وليس صورة

شكرا اخي الكريم..لقد نجحت اخيرا في اكتشاف خطأي

انا مش فاهم ممكن مرفق عل الصورة تتضح اكثر

https://online-barcode-reader.inliteresearch.com/ شككت ايضا بالجوال او بالتطبيق الذى يقرأ الرمز وبحثت و وجدت هذا الموقع https://online-barcode-reader.inliteresearch.com/ مما قطع الشك باليقين ان المشكلة من منشئ الرموز نفسه

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

وعليكم السلام كان عليك رفع الملف وشرح المطلوب عليه بشكل دقيق ولكن تفضل فقمت بعمل الملف لك تنسيق شرطى للمكرر.xlsx

انا قصدت المثال في النموذج السابق وليس كامل البرنامج..لا اعلم لماذا لم تضبط معي مع وافر التقدير

الاخ / @مهند محسن اعتقد ان باكسس يمكن عمل اي شئ لما رأيته من اشياء كثيرة فيه ولان المنتدي تعليمي بمعني ان كان عند سؤال في جزئية معينة سوف تلاحظ عدم تأخير جميع الاخوان عنك ولان لا يوجد مرفق من حضرتك للتعديل عليه اعتقد ان لا احد لديه الوقت لتصميم الجداول والنماذج والاستعلامات الخ ولذلك انصحك اخي الكريم ان تبدأ في بداية المشروع حسب صورك المرفق وتعمل الجداول اللازمة وعند مقابلة اي مشكلة اعرضها هنا والله انا مبتدأ ولكن رأيتك اكثر من مرة ولذلك قمت بكتابة النصيحة لك بالتوفيق ان شاء الل

وعليكم السلام بارك الله فيك اخى الكريم-فقط يمكنك تتبع المعادلات الموجودة بالخلايا التي بها تواريخ فهى سهلة جدا ويمكنك عملها فكل ما عليك عمله عند زيادة السنوات مثلا ,يمكنك تغيير عدد السنوات الى ما تريد في الخلية C2 وكتابة تاريخ بداية العقد في الخلية C3

تفضل الكود يعمل بشكل سليم قم بتطبيق ما يلي :: يوضع الكود في حدث عند الطباعة لتذييل الصفحة PageFooterSection ضع مربع نص في نفس قسم التذييل وضع فيه =[Pages] وسميه ما شئت قم بتغيير مسميات الجدول الخاص بتخزين الفهرس لان المسميات الموجودة في الكود محجوزة للنظام مثلا انا سميتها Wpage pageName هذا هو الكود بعد التعديل Dim db As Database 'To reference what db we're in Dim rs As DAO.Recordset 'This holds the records to loop Dim strSQL As String 'Your SQL statement Dim GrpStPage As String Dim GrpLastPage As String GrpStPage = Page GrpLastPage = Pages 'Objects like databases & records need to be "set" Set db = CurrentDb Set rs = db.OpenRecordset("Table1") 'Now rs is equal to your select statement With rs .AddNew .Fields("Wpage") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage .Fields("pageName") = Me.CategoryName .Update End With واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

إذا كان هذا ما تريد يظهر فقط الشهر الحالي اخواني الاعزاء (خبراء الكسس ) هههههههههه أعجبتني الشهر الحالي.accdb

تفضل إذا كان هذا ما تطلب أخي حلبي اليوم السابق والتالي للتاريخ.accdb

ياريت تنزل الملف بعد التحديث

الحمد لله توصلت للحل وها هو منشور للفائدة

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

محاولة مني تم العمل ولكن في العمود A فقط s0ds1 - Copy.xls

اهلا بك اخى الكريم في المنتدى تفضل هذا الرابط فبه كل ما تطلب https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

بارك الله فيك وجزاك الله كل خير نعم دائما وابدا نتعلم منه الكثير

أحسنت أستاذ سليم عمل ممتاز بارك الله فيك

تفضل اخى الكريم موظفين.xlsm

تفضل اخى الكريم Office Soft.Employ & Salary-Source.rar

جرب هذا excel.rar

0

من فضلك ارسل الملف واشرح طلبك وفكرتك عليه حتى يتسن للزملاء مساعدتك؟

ممكن تجرب هذا برنامج العهدة لمصروفات التشغيل.rar

حاول أستاذ علي تجرب هذا الكود Public Sub CopyrangeA() Dim firstrowDB As Long, lastrow As Long Dim arr1, arr2, i As Integer firstrowDB = 1 arr1 = Array("BJ", "BK") arr2 = Array("A", "B") For i = LBound(arr1) To UBound(arr1) With Sheets("SheetA") lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row) .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Copy Sheets("SheetB").Range(arr2(i) & firstrowDB).PasteSpecial xlPasteValues End With Next Application.CutCopyMode = False End Sub وممكن هذا الكود كمان Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub أو ربما ذلك Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub وأخر كودجميل Sub PasteSpecial_ValuesOnly() Worksheets("Sheet1").Range("A1:Z100").Copy 'PasteSpecial Values Only Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 'Clear Clipboard (removes "marching ants" around your original data set) Application.CutCopyMode = False End Sub