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

السلام عليكم ورحمة الله جرب هذا الكود ربما يفيدك ضع كود الصنف الذى تبحث عنه فى الخلية "E1" قبل استخدام الكود Sub Call_Data() Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, j As Long, p As Long Dim ws As Worksheet, Kind As Variant Set ws = Sheets("ورقة1") LR = ws.Range("A" & Rows.Count).End(xlUp).Row Kind = ws.Range("E1").Value ws.Range("E3:G" & LR).ClearContents Arr = ws.Range("A5:C" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) 'On Error Resume Next If Arr(i, 1) = Kind Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next End If Next If p > 0 Then Range("E3").Resize(p, UBound(Temp, 2)).Value = Temp End Sub

جرب هذا الملف لعله يفى بالغرض نسخة من اقل راتب واعلى راتب.xlsx

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا 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

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

السلام عليكم ورحمة الله وبركاته ..... اخواني الاعزاء اعذروني ان كان هناك تقصير في اي شيء يتعلق بالموضوع لدي مشكلة سأذكرها لكم وهي ان لدي قاعدة بيانات ( برنامج فواتير ) الجدول يعطيني القيمة صحيحة و الفورم كذلك لاكن في التقرير تكمن المشكلة وهيا ان لدي عدد معين ولنفرض 1000.50 رس وعدد اخر 500.20 رس عند استخدام الدالة سم في التقرير يطلعلي العدد 1500.00 رس فقط !!! المفترض ان يظهر كامل المبلغ وهوا 1500.70 رس , هنا مشكلتي هيا ان التقرير يزيل الفواصل العشرية ويخليها اصفار . ارجوا من الله ثم منكم اعزائي الكرام ان تجدوا لي حل وهذه صورة توضح ما اقصد

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

رمضان كريم و مبارك على الحميع بعد اذن اخي بن علية في حال استعمال الكود يمكن عمل ذلك بدون أعمدة مساعدة ( أقصد العامود T ) و حتى بدون معادلات Countif الكود Option Explicit Sub Salim_Unique_Data_And_count() Dim Rng As Range [b9:i10].ClearContents Dim dt As Object Set dt = CreateObject("Scripting.Dictionary") For Each Rng In [B2:I6] If Rng.Value <> vbNullString Then dt(Rng.Value) = _ IIf(Not dt.exists(Rng.Value), 1, dt(Rng.Value) + 1) End If Next Range("b9").Resize(1, dt.Count) = dt.Keys Range("b10").Resize(1, dt.Count) = dt.Items dt.RemoveAll: Set dt = Nothing End Sub الملف مرفق My_count_Salim.xlsm

وعليكم السلام -كود ممتاز استاذ ابراهيم احسنت كل عام وانتم بخير تقبل الله منكم سائر الأعمال

السلام عليكم ورحمة الله تم عمل المطلوب بواسطة كود VBA ومعادلات... بن علية حاجي My_count.xlsm

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

السلام عليكم ورحمة الله تم عمل المطلوب مع بعض التعديلات على المعادلات والجداول وإضافة تنسيقات أخرى (جدول أيام العطل الرسمية) وتنسيقات شرطية... أرجو أن تفي الغرض المطلوب... بن علية حاجي التعديل على معادلة البحث 14.xlsm

وعليكم السلام-تفضل الحل بالمعادلات حذف الفراغات.xlsx

الأخ الكريم مازن الحسيني .. عسى أن يكون المرفق هو المطلوب كل عام أنتم بخير اخر ترقيه.zip

ما شاء الله استاذ على عمل رائع

وبارك الله فيكم اخى سليم

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

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

Please note that Access 2010 64-bit requires SP1 or later. Access 2007 requires SP2 or later

استاذ سليم ما هذا الابداع وهذا الجمال اللهم بارك لك فى علمك الكلمات تقف عاجزة عن وصف اعماك ولكن هذا ماعهدناه منك جزاكم الله خير

رابط شرح الجزء الأول http://www.kutub.info/library/book/17141 ربط شرح الجزء الثاني http://www.kutub.info/library/book/17142

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

السلام عليكم بالإضافة إلي حل أخي العزيز / كيماس في حالة أن الحرف المراد حذفه ثابت كما في السؤال ممكن استخدام أمر الاستبدال Replace وذلك بتظليل الخلايا المطلوبة ثم بالضغط علي Ctrl+H وطلب استبدال الحرف A بلاشيء أي في خانة Find What تضع A وفي خانة Replace with لاتضع شيئا

=MID(A1;2;LEN(A1)-1)