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

تفضل اخى الكريم لك ما طلبت 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

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

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

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

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

تفضل وهذه النتيجة بعد التنقل بين صفحات التقرير 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 واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

ومشاركة مع اخى الحبيب الاستاذ @مسفر اربع نماذج كل نموذج يتقدم عن سابقة بشئ النموذج الاول هو محل السؤال يا دكتور @حلبي باقى النماذج الثلاث افكار متقدمة اليوم السابق والتالي للتاريخ (1).accdb

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

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

وعليكم السلام -اهلا بكم فى المنتدى طالما انكى لم تقومى برفع ملف وشرح عليه المطلوب بشكل دقيق فيمكنك رؤية هذا الرابط داخل المنتدى فبه ملف سوف يفيدك https://www.officena.net/ib/topic/70419-برنامج-جرد-العهده-المخزنيه/ ولدى برنامج اخر بالأكسيس -تفضلى ادارة عهد المستودع.accdb

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

اهلا بك اخى الكريم في المنتدى تفضل هذا الرابط فبه كل ما تطلب 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

تفضل جرب هذا ظ…ط³ط§ط¹ط¯ط©.rar

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