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

السلام عليكم ورحمة الله استخدم الكود التالى Sub ShetName() Dim ws As Worksheet Dim C As Range, WsName As String For Each ws In ThisWorkbook.Worksheets Set C = ws.Range("A1") If IsNumeric(C.Value) And Not IsEmpty(C.Value) Then WsName = WsName & Chr(10) & ws.Name End If Next MsgBox WsName End Sub

السلام عليكم حسب مافهمت من طلبك هي تخص الفقرة 4 من تصدير التقرير PDF تفضل اتمنى يكون المطلوب nre_3.rar

السلام عليكم تفضل اخي الكريم تصدير الملف بعدة طرق ؟؟؟؟ اختر مايناسبك منها 1- حفظ pdf بجانب قاعدة البيانات (اي ضمن المسار) 2- الحفظ في القسم C يمكن تغييره حسب ماتريد في اي قسم اخر 3- اختيار الحفظ حسب ناقذة الوندوز 4- الحفظ في فولدر بتم انشاءه من البرنامج باسم التقارير في القسم e يمكن تغيير اسمه وكان الحفظ حسب ماتريد 5- الطباعة مباشرة 6- اختيار الطابعة والطباعة اتمنى ان يكون المطلوب nre_2.rar

بعد اذنك حبيبي ابا البشر انظر كده ....... جرب ووافينا بالنتيجة تنسيق المدارس1.accdb

السلام عليكم لدي طريقة تكون عن طريق النموذج تصدير الى pdf بجانب قاعدة البيانات (ضمن المسار) وبنقس الرقم اتمنى يكون المطلوب nre_1.rar

السلام عليكم ورحمة الله اجعل المعادالة فى الخلية "J5" هكذا ثم اسحبها نزولا =IF(I5="";"";RANK($I5;$I$5:$I$17)+COUNTIF(I5:$I$5;I5)-1)

اخي العزيز لاشكر على واجب نسالك الدعاء

هو كما ذكرت ولكن نسيت أن اعدل جدول الاحتياج كما في الصورة .... لأن هذا العدد يتناقص كل ما تم توزيع الطلاب ..... عدله كما في الصورة

تفضل استاذنا الفاضل ولا تنس قراءة شرح الاستاذ ياسر العربي https://www.mediafire.com/file/0cpcrr2gf6wg6r3/VB6setup-generic.exe/file

احسنت اخى خالد جزاك الله خيرا 💐 عملت بنفس طريقتك 😀 بالتوفيق اخوانى

السلام عليكم و رحمة الله اخى الكريم سوف تظهر لك رسالة تظهر اول شيت تنطبق عليه الشروط اذا ما اردت فتحه ما عليك الا الضغط على الزر "Yes" و ينتهى الماكرو اما اذا ضغطت على الزر "No" سيظهر لك الشيت التالى و هكذا حتى لآخر شيت Sub ShetName() Dim ws As Worksheet, x As Variant Dim C As Range, WsName As String Dim OpenSht As String For Each ws In ThisWorkbook.Worksheets x = ws.Tab.ColorIndex Set C = ws.Range("A1") If IsNumeric(C.Value) And Not IsEmpty(C.Value) And x = 3 Then WsName = ws.Name OpenSht = MsgBox(" Are You Want To Open : " & WsName, vbYesNo) If OpenSht = vbYes Then ws.Activate Exit For End If End If Next End Sub

ممكن الاستفادة من الفكرة هنا ..... بالتوفيق ....

تلوين خلايا نطاق.xlsm

اعتذر جدا Results-1000.rar

السلام عليكم استاذ khasem منور استاذنا العزيز ابو البشر ارسل لك هذا الملف وفيه 25000 سجل ولاحظ حجم الملف ثانيا لاحظ سرعة الاداء ان كانت جيدة بالنسبة لك فاعتمده ملاحظة : اي عملية تغيير بالبيانات يرجى الضغط على زر حفظ قبل فتح التقارير Results-500.rar

أولاً من قواعد المنتدى عدم توجيه المساعدة من شخص بعينه حتى يتسنى لأي عضو المساعدة وممكن أن يساعدك يكون لديه خبرة أكثر منه أو الشخص الذي تم التوجيه إليه عنده ظروف فكل عضو يعمل حسب ظروفه الملف ثقيل جدا وحجمه كان كبير ثانيًا حضرتك قمت بسخ الشيتات ولم تقم بنسخ الماكروهات فتم نسخها وتم عمل ماكرو لترتيب الطلاب على ملف Main وتم عمل كود ترحيل عمود الاسم والنوع من شيت Main إلى شيت تسجيل البيانات وتفعيل زر الترتيب واستدعاء البيانات تم تغيير امتداد الملف لرفعه على المنتدى حيث أن أقصى حجم هو 3 ميجا ممكن بعد تنزيله تقوم بحفظه بتسيق 97-2003 برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى

اتفضل اخى @صايل عزام ان شاء الله يكون ما تريد Repair(4).mdb

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

استاذ تعجز الكلامات عن الشكر @Khalid Jnb .....

الاستاذ المبدع @Khalid Jnb كلمة شكر لاتكفي لكن دعوة بالغيب ....هناك مطلب اخر واخير اعرف اني اثقلت عليك لكن اتمنى منك تحملي لكي يكون الموضوع متكامل ويكون مرجع يستفاد منة الجميع ماذا لو اضفنا حقل اخر الى النموذج واسميناه اسم الفولدر اي الفولدر الذي سيحفظ بة ملف التصدير في الحاسوب وكان هناك ثلاث فولدرات وهي (اوفيسنا1 و اوفيسنا 2 و افيسنا3 ) في البارتيشن z في الحاسوب كيف يتم حفظ الملف بحسب اسم الفولدر الموجود في النموذج كمثال لو كان القيمة الموجودة في الحقل اسم الفلولد في النموذج هي اوفيسنا 1 يتم حفظ الملف المصدر الى البارتيشن z في الفولدر اوفيسنا 1 وهكذا لكن في حال لم يكن الاسم موجود يتم اظهار رسالة تحذيرية و يتم ايقاف الامر او انشاء فولدر في نفس البارتيشن z بنفس اسم الفولدر

شكر وتقدير واحترام من اخيك استاذ عبدالله الصاري

السلام عليكم وتحية طيبة وبعد هل البرنامج يعمل على الويندوز 7؟

ان شاء الله اخي انتظرني بعض الوقت

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

برنامج بسيط لتسجيل طلاب الصف الأول ويصلح لجميع المراحل ابتدائى / اعدادى / ثانوى كلمة السر 1970 تقديم الصف الأول.rar تقديم الصف الأول.rar

يمكن رفعه على اي سحابه مثل قوقل درايف مثلا وترسل الرابط للاستاذ حسام

انا جربت الملف بالتعديل المذكر واشتغل

مشكور على هذا المجهود الأكثر من رائع

اتفضل اخى ازهر ان شاء الله يكون ما تريد بالتوفيق الجمع باكثر من شرط.accdb

مع انني لا أحب ان اتعاطى مع اليوزر فورم بجميع اشكاله لكن بما انك عضو جديد فأهلاً وسهلاً بك جرب هذا الملف تم وضع كود لزر الاضافة يمكنك اضافة الأكواد لبقية الأزرار Moh_Mos.xlsm

اولاً :تم اضافة حقل = Text6 في نموذج البيان ثانياً لا بد ان يكون نموذج = البيان مفتوح واليك الملف بعد التعديل مثال1.rar تحياتي

التحويل بواسطة برنامج VB6 نسخة خفيفة حوالي 30 ميقا وتعلمتها من المنتدي ويوجد شرح مفصل للطريقة بالمنتدى للاستاذ ياسر العربي حيث قام بشرح تفصيلي لربط الاكسل بالفيجوال بيسك والتحكم بملف الاكسل عن طريقه واما التحويل الى EXEفهي ميزة موجودة بالفيجول بيسك. https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ تحياتي

وعليكم السلام ورحمة الله وبركاته السبب اسم التقرير = État1 الافضل اعادة تسميته بحروف لاتينية ( انجليزية ) مثل = rpt1 تحياتي

وعليكم السلام فى مشكله عندك فى اعدادت اللغه لانى لما غيرت اسم التقرير لى Etat1 فتح المحرر عادى بالتوفيق مشكل في التقارير.accdb

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐 بالتوفيق اخى

اتفضل اخى ازهر ان شاء الله يكون ما تريد =IIf([L1]<>"";Nz(DSum("N1";"TBR";"[W]='X' and [L1]=" & [IDL]);0);" New Microsoft Access قاعدة بيانات(2).accdb

هل هذا ما طلبت 123: Replace([Name],"x","Z")

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

اقدم لكم الشرح المفصل لكيفية حماية برنامجك من الكسر وصد الكراكرز من عملية تكريكة مبدا عمل الحماية تقوم بالتحقق من ، القطع الاتية .. [ MOTHER BORED ID ] - [ CPU ID ] - [ MAC ADDRESS ] - [ HWID ] لم افهم ؟ اعطيك مثال بسيط ، الان انا قمت ببرمجة برنامج واريد اعطاء لشخص اسمه [ احمد ] لكن ! اخاف ان اعطيه البرنامج فيقوم بنشره ، بهذه الطريقة سالجئ لحماية برنامجي على قطع الجهاز الخاصة بـ [ احمد ] المتمثلة بالهاردوير والمذربورد وغيرها [ الادوات المطلوبة / لعمل الحماية ] [ 1 ] برنامج Net. اي اصدار انا طبقت على الاصدار 2012 [ 2 ] حساب بموقع PasteBin.com [ 3 ] مكتبة System.Management [ 4 ] فنكشنات التحقق من قطع الجهاز ، مكتوبة بلغة [ Net. ] اولا نقوم بتسجيل عضوية بموقع [ PasteBin ] رابط التسجيل [ هنا ] اتمام التسجيل ، ظهور رسالة تخبرك بالتوجه نحو بريدك لتفعيل العضوية بعد عملية التفعيل ظهور رسالة تخبرك بنجاح التفعيل الان نقوم بتسجيل الدخول ثم ، نقوم بفتح الفيجوال ستوديو واختيار مشروع جديد ، ثم نقوم باضافة [ TextBox1 ] + [ Button1 ] من قائمة الادوات ليصبح المشروع كالاتي .. الان نقوم باضافة مكتبة الـ [ System.Management] من خيارات المشروع ، كلك يمين ثم نتوجه الى النافذة [ Refernces ] ثم نقوم بكتابة اسم المكتبة في مربع البحث [ System.Mangament ] ثم نضغط موافق الان نقوم بالنقر المزدوج على الـ [ Form1 ] ونقوم بمسح كل الاكواد ونلصق هذه الاكواد Imports System.Management Imports System Imports System.Text Imports System.Security.Cryptography Imports System.Net Public Class Form1 Dim HW As New SEC_Informations Dim HDD As String Dim CPU As String Dim MB As String Dim MAC As String Dim hwid As String = Strings.UCase(HW.getMD5Hash(CPU & HDD & MB & MAC)) Public Class SEC_Informations '..................................... '>> ReCoder : SEMO.Pa3x '>> Skype : Security.Najaf '..................................... Friend Function GetProcessorId() As String Dim strProcessorId As String = String.Empty Dim query As New SelectQuery("Win32_processor") Dim search As New ManagementObjectSearcher(query) Dim info As ManagementObject For Each info In search.Get() strProcessorId = info("processorId").ToString() Next Return strProcessorId End Function Friend Function GetMACAddress() As String Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration") Dim moc As ManagementObjectCollection = mc.GetInstances() Dim MACAddress As String = String.Empty For Each mo As ManagementObject In moc If (MACAddress.Equals(String.Empty)) Then If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString() mo.Dispose() End If MACAddress = MACAddress.Replace(":", String.Empty) Next Return MACAddress End Function Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter)) disk.Get() Return disk("VolumeSerialNumber").ToString() End Function Friend Function GetMotherBoardID() As String Dim strMotherBoardID As String = String.Empty Dim query As New SelectQuery("Win32_BaseBoard") Dim search As New ManagementObjectSearcher(query) Dim info As ManagementObject For Each info In search.Get() strMotherBoardID = info("SerialNumber").ToString() Next Return strMotherBoardID End Function Friend Function getMD5Hash(ByVal strToHash As String) As String Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) bytesToHash = md5Obj.ComputeHash(bytesToHash) Dim strResult As String = "" For Each b As Byte In bytesToHash strResult += b.ToString("x2") Next Return strResult End Function End Class Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load CPU = HW.GetProcessorId() HDD = HW.GetVolumeSerial("C") MB = HW.GetMotherBoardID() MAC = HW.GetMACAddress() TextBox1.Text = (hwid) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim w As New WebClient Dim cpuids As String() = Split(w.DownloadString("Your Link"), "|") Dim cur As String = hwid For Each c As String In cpuids If cur = c Then GoTo authed End If Next MessageBox.Show("1 - Make sure of the title of [ Hardware ] Is not prohibited" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "2 - Make sure your Internet connection" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "3 - If you find other problems contact on [ Skype : Security.Najaf ]", "Warning message", MessageBoxButtons.OK, MessageBoxIcon.Error) Environment.Exit(0) authed: MessageBox.Show("Has been successfully activated version" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Thank you for using this program", "Welcome Message", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub End Class الان نقوم بتشغيل المشروع ، نلاحظ سيظهر لنا رقم طويل نقوم بنسخة ثم نقوم بالذهاب لموقع [ PasteBin ] ونقوم بكتابة مشاركة جديدة نقوم بكتابة الرقم الذي قمنا بنسخه ، مع تعديل خيارات المشاركة ثم نقوم بالضغط على كلك يمين على كلمة [ RAW ] ونختار نقوم بالرجوع لمشروعنا ونستبدل كلمة [ Your Link ] بالرابط الجديد الان قم باعطاء برنامجك للعميل ، وقل له ان يشغله ، بعد ان يقوم العميل بتشغيل البرنامج سيظهر له الرقم الطويل يقوم باعطاءك اياه لتقوم انت بوضعه بالموقع وسيعمل برنامجك بدون اي مشاكل اما عند الاشخاص الغير مصرح لهم باستعمال البرنامج الان السؤال كيف ساقوم باضافة اكثر من رقم عميل بالموقع ؟ الجواب بين كل عميل واخر افصل بينهم بالـ [ | ] مثال بسيط على العملية .. نصائح لحماية معقدة اكثر ، قم بضغط البرنامج بحماية [ SafeEngine ] او [ Consufer ] او غيرها من باقي الحمايات العنيدة .

في الخدمة اخي الفاضل 🌹

المشكلة لديك اتوقع في جملة الاتصال تفضل هذا الموقع لجمل الاتصال https://www.connectionstrings.com/access/ ادناه جملة اتصال جاهزة فقط قم باختيار اصدار الاوفيس و بتغيير اسم قاعدة البيانات ' 2003 "Provider=Microsoft." & " Jet.OLEDB.4.0 " & ";Data Source=|DataDirectory|\" & "Database" & ".mdb;" & "Jet OLEDB:System Database=system.mdw;" ' 2007 "Provider=Microsoft." & " ACE.OLEDB.12.0 " & ";Data Source=|DataDirectory|\" & "Database" & ".accdb;" & "Jet OLEDB:System Database=system.mdw;"

بسم الله الرحمن الرحيم السلام عليكم قد يتم غلق البرنامج عندما تقوم بخذف عمود قد حدث لي هذا وقد وفقني الله لمعرفة سبب ذلك بعد تجارب كثيرة والسبب هو وجود تجميد للألواح أو أنقسام (freeze panes or split) وبعد إلغائه يتم حذف الأعمد دون أي مشكلة

وعليكم السلام ورحمة الله واجهت من قبل مشكلتك بعد ترقية الويندوز إلى 10 جرّب الخط simplified Arabic المرفق simpo.zip