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

لإثراء الموضوع أكثر، هذا فنكشن فك التشفير وإرجاعه نص طبيعي.. Function DecodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String i = 2 Do While i < Len(s) Select Case Mid(s, i, 1) Case "0" To "7" r = r & Chr(CLng("&H" & Mid(s, i, 2))) Case "C", "D" p1 = CLng("&H" & Mid(s, i, 2)) - 192 i = i + 3 p2 = CLng("&H" & Mid(s, i, 2)) - 128 r = r & ChrW(64 * p1 + p2) Debug.Print Hex(64 * p1 + p2) Case Else ' Not handled End Select i = i + 3 Loop DecodeQP2 = r End Function

السلام عليكم تم استبدال الدالة COUNTIF بالدالة SUMPRODUCT في الملف المرفق... New Microsoft Excel Worksheet (2).xlsx

برنامج يمكنك من متابعة السيارات بالشركه سواء الزيت او البنزين يارب ينال اعجابكم الباسوورد 2545 1918844418_.accdb

ايضا انظر هنا تطبيق لتثبييت المواعيد والأحداث

جرب هذا التعديل بالمصفوفة مع مراعاة تسمية الورقة بالانجليزي حتى لا يحدث مشاكل في الكود يتم اظهار البيانات بعد كتابة 3 رقم Option Base 1 Private Sub TextBox8_Change() Dim sh As Worksheet, ArchiveArray As Variant Set sh = Sheets("archives") ArchiveArray = sh.Range("A2:G" & Range("A" & Rows.Count).End(xlUp).Row).Value 'grab data into the array Dim i As Long If Len(TextBox8.Value) >= 3 Then 'if three characters entered... Me.ListBox1.Clear For i = 1 To UBound(ArchiveArray, 1) 'run through array If InStr(LCase(ArchiveArray(i, 1)), Me.TextBox8) <> 0 Then ' add to list if chars match With Me.ListBox1 .ADDITEM ArchiveArray(i, 1) .List(ListBox1.ListCount - 1, 1) = ArchiveArray(i, 2) .List(ListBox1.ListCount - 1, 2) = ArchiveArray(i, 3) .List(ListBox1.ListCount - 1, 3) = ArchiveArray(i, 4) .List(ListBox1.ListCount - 1, 4) = ArchiveArray(i, 5) .List(ListBox1.ListCount - 1, 5) = ArchiveArray(i, 6) .List(ListBox1.ListCount - 1, 6) = ArchiveArray(i, 7) End With End If 'Next x Next i End If End Sub

انظر هل تريد الكتابة في الكليندر مباشرة وحفظ النتائج مثل الصورة ؟؟

طيب جرب هذا و جرب تستخدم نفس ملف الاكسل المرفق اذا ضبط جرب ملف الاكسل الي عندك اذا صار اختلاف يصير لابد ترسلي نسخة من ملف الاكسل الي عندك DATA142.zip Data14.xlsx

السلام عليكم و رحمة الله تعالى و بركاته من بين أكثر الأسئلة الموجودة في المنتدى هي حول التعامل مع الأكسل من الأكسس سواءا إستيراد أو تصدير. و لما لهذا الموضوع من أهمية قررت إضافة موضوع أشرح فيه جميع حالات التعامل بين الأكسس و الأكسل. و يبقى لنا كمرجع يرد منه من يشاء إن شاء الله. أولا: شرح بعض المصطلحات الأكسل هو تطبيق Excel.Application يقوم بفتح أو عرض المصنف Workbook و المصنف يحتوي على عدة أوراق WorkSheets و الشيت يحتوي على الكثير من الأعمدة Columns و الأسطر Rows تقاطع كل سطر و عمود يشكل لنا خلية Cells و كل مجموعة خلايا نحددها تسمى نطاق range -*- تذكرو هذه المصطلحات جيدا. سوف نعتمد عليها في هذا الموضوع إن شاء الله -*- ثانيا: إنشاء ملف أكسل جديد لإنشاء ملف أكسل سوف نقوم بإنشاء تطبيق أكسل Excel.Application و نضيف له مصنف جديد Workbook به ثلاث أوراق sheets و نستطيع إضافة شيت آخر أو أكثر لهذا المصنف ثم نقوم بحفظ هذا الملف بمسار محدد و هذا هو الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Add ' إضافة مصنف جديد Set xlWs = xlWB.Worksheets.Add ' إضافة شيت جديد xlWB.SaveAs CurrentProject.Path & "\2026.xlsx" ' حفظ الملف باسم 2026 xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" ثالثا: التصدير لملف أكسل موجود مسبقا سوف نقوم بإرسال بيانات ثابتة لخلايا محددة بملف الأكسل الذي أنشأناه في الأعلى و نستطيع بنفس الطريقة إرسال بيانات من جدول أو إستعلام من خلال الكود التالي: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Dim curPath As String curPath = CurrentProject.Path & "\2026.xlsx" 'مسار ملف الأكسل Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False ' إخفاء التطبيق Set xlWB = xlApp.Workbooks.Open(curPath) Set xlWs = xlWB.Worksheets(1) ' 1 هو رقم الورقة في ملف الأكسل xlWs.Cells(1, 1).Value = "الاسم" xlWs.Cells(2, 1).Value = "ابوخليل" ' 2 رقم السطر و 1 هو رقم العمود xlWs.Cells(3, 1).Value = "جعفر" xlWs.Cells(1, 2).Value = "العنوان" xlWs.Cells(2, 2).Value = "الدمام" xlWs.Cells(3, 2).Value = "مسقط" xlWs.Cells(1, 3).Value = "الهاتف" xlWs.Cells(2, 3).Value = "011245632" xlWs.Cells(3, 3).Value = "033156513" xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" التحكم في الأكسل.accdb

اذا يلزم انك تحصل على المكتبة عشان تثبتها و تقدر من خلالها تستدعي API عشان تتصل بالسيرفر سواء كان في الزكاة و الدخل او غيره لكن انصحك انك تشتغل على ASP.Net أو VB.Net أو #C راح تجد سهولة في التعامل مع جميع خصائص API و سهلة في تثبيتها

لم يعد موجود تمت ازالته من اصدار 2010

تفضل التعديل DATA141.zip

اخي الكريم ممكن صورة لطلبك ... ربما نستطيع خدمتك ..

تفضل DATA14.zip

تفضل التعديل اخي الكريم و اغتذر عن التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb

وعليكم السلام 🙂 بعد الانتهاء من عمل البرنامج ، انصحك بفحصه وعمله رشيق باستعمال المرفق : واذا البرنامج فيه اخطاء ، سيخبرك عنها ويجب عليك اصلاحها قبل ان تحولها الى صيغة accde او mde ، واذا مافيه اخطاء ، فيمكنك تحويل برنامج يديويا لاحقا الى accde او mde والذي سيحدث بدون اخطاء 🙂 واما اذا لم تشأ ان تستخدم المرفق ، فاذهب الى محرر الاكواد VBE ، ثم Debug > Compile ، وسيخبرك اين المشكلة في الكود (طبعا هنا تستعمل برنامجك بصيغة accdb او mdb) 🙂 جعفر

الشرف كل الشرف 01067176151 جمال دغيدى

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

السلام عليكم بإقتراح من عميد منتدانا الاستاذ الفاضل جمال دغيدي نضع هذا الموضوع ليكون محفظة تجميعية لجميع المواضيع المتعلقة بالتحقق من الصحة وفي النهاية نتمنى من أخونا العزيز الاستاذ جمال الفار بأن يجمع الخلاصة في ملف اكسل (كما عودنا) وقواعد المشاركة في هذا الموضوع كالتالي: وضع روابط لمشاركات قيمة تتعلق بالموضوع فقط. مع شكرنا وتقديرنا للجميع نرجو بعدم وضع مشاركات الشكر (سيتم حذفها) وذلك للأستفادة من الموضوع. * الموضوع وضع للاستفادة في ما يخص موضوع التحقق من الصحة فاجعل مشاركتك فيه ذات معنى وقيمة *وهذا طلب للجميع ليدلو الكل بدلوه حتى نشكل الرافد الذي يستفيد منه اعضاء المنتدى. والله من وراء القصد ****************************************** وابداء انا الروابط 1. هذا رابط للمقارنة بين التنسيق الشرطي والتحقق من الصحة الرابط من هنا ****************************************** 2. شرح انشاء قاعدة تحقق من الصحة الرابط من هنا ****************************************** 3-التحقق من الصحة لعدة جداول data validastion http://www.officena.net/ib/index.php?showtopic=38347 ****************************************** 4. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=4344 ****************************************** 5. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=36963 ****************************************** 6-سؤال في قاعدة التحقق من الصحة Validation http://www.officena.net/ib/index.php?showtopic=37059 ****************************************** سيتم تثبيت الموضوع لفترة محدودة

السلام عليكم الاخوة الكرام الرجاء المساعدة في نقل اسم العميل الذي اختاره في الفلتره إلى الخلية المحددة باللون الاصفر وشكرا العميل.rar