كل الانشطه

تسلم ايديك

أخي الحبيب الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. أخي الحبيب الأستاذ / @محمد هشام. السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. إليك الملف أخي الحبيب توحيد البحث في شيت واحد v6.xlsb

السلام عليكم عيدكم مبارك وايامكم سعيدة ان شاء الله. كان الطلب: نريد التصوير ، وتقطيع الصورة من خلال نموذج اكسس ، والجواب كان "استوديوهات مسقط" ، بكل ما للاستوديو من ادوات 🙂 اليكم الفيديو والدروس من هذا الرابط : . جعفر

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

شكرا بارك الله فيك أستاذ وعيدكم مبارك مسبقا

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

وعليكم السلام ورحمة الله تعالى وبركاته اخي @AMIRBM تم تعديل الكود حسب طلبك ليعرض عمودين في ListBox داخل نموذج البحث مثلا (الإسم + التسلسل) يمكنك تعديله بما يناسبك وقد قمت بمحاولة تنقيحه وتحسينه ليكون أكثر كفاءة وتنظيما يرجى أولا تفريغ جميع الأكواد السابقة من النموذج ثم نسخ الكود التالي بالكامل Option Explicit Private ColArr As Variant Public Property Get WS() As Worksheet: Set WS = Sheets("add"): End Property Public Property Get dest() As Worksheet: Set dest = Sheets("search"): End Property Private Sub UserForm_Initialize() TextBox1.SetFocus 'قم بتحديد الأعمدة المرغوب عرضها ColArr = Array(2, 1) ' 2 = الإسم / 1 = التسلسل With ListBox1: .ColumnCount = UBound(ColArr) + 1: .ColumnWidths = "100pt;40pt": End With End Sub Private Sub TextBox1_Change() Dim c As Range, tmp As String, lastRow As Long, i As Long, listCount As Long ListBox1.Clear If IsEmpty(ColArr) Then Exit Sub tmp = Trim(TextBox1.Value) If Len(tmp) = 0 Then Exit Sub SetApp False lastRow = WS.Cells(WS.Rows.Count, ColArr(0)).End(xlUp).Row For Each c In WS.Range(WS.Cells(5, ColArr(0)), WS.Cells(lastRow, ColArr(0))) If InStr(1, c.Value, tmp, vbTextCompare) > 0 Then ListBox1.AddItem c.Value listCount = ListBox1.listCount For i = 1 To UBound(ColArr) ListBox1.List(listCount - 1, i) = c.EntireRow.Cells(1, ColArr(i)).Value Next i End If Next c SetApp True End Sub Private Sub CommandButton1_Click() Dim Irow As Long, f As Long, i As Long, xName As String, cnt As Boolean: cnt = False If ListBox1.listCount = 0 Then MsgBox "لا توجد نتائج للبحث", vbExclamation, "تنبيه": Exit Sub xName = Trim(TextBox1.Value): Irow = WS.Cells(WS.Rows.Count, ColArr(0)).End(xlUp).Row SetApp False For i = 5 To Irow If WS.Cells(i, ColArr(0)).Value = xName Then If Not cnt Then dest.Range("A8:L" & dest.Rows.Count).ClearContents f = dest.Cells(dest.Rows.Count, "A").End(xlUp).Row + 1 dest.Range("A" & f).Resize(1, 12).Value = WS.Cells(i, 2).Resize(1, 12).Value cnt = True End If Next i If Not cnt Then MsgBox "لم يتم العثور على الاسم" & xName & " ضمن كشف المرحليات", vbInformation, "نتيجة البحث" SetApp True: Unload Me End Sub Private Sub ListBox1_Click() TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0) End Sub Private Sub SetApp(ByVal enable As Boolean) On Error Resume Next With Application .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With On Error GoTo 0 End Sub المرحليات أوفيسنا v2.xlsm

وعليكم السلام ورحمة الله وبركانه لم توضح ارتباط العمود الثاتي بأيعم ود في الشيت اليك التعديل Private Sub TextBox1_Change() ListBox1.Clear Application.ScreenUpdating = False Dim ws As Worksheet: Set ws = Sheets("add") Dim lr As Long, c As Range, b As Integer, k As Long Dim arrData() As Variant Dim i As Long, j As Long lr = 0 For Each c In ws.Range("b5:b" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row) b = InStr(1, c.Value, TextBox1.Value, vbTextCompare) If b > 0 Then lr = lr + 1 ReDim Preserve arrData(1 To 2, 1 To lr) arrData(1, lr) = c.Value arrData(2, lr) = c.Offset(0, 4).Value End If Next c With ListBox1 .ColumnCount = 2 .ColumnWidths = "100;100" If lr > 0 Then .List = Application.Transpose(arrData) End If End With Application.ScreenUpdating = True End Sub في الكود السابق تم ربط العمود الثاني باسم المعلم يمكنك التعديل يالتغيير في رقم 4 فهي تشير الى رقم العمود في الشيت بعد عمود الاسم arrData(2, lr) = c.Offset(0, 4).Value كنا يمكنك من تعديل عرض العمود بالتعديل في رقمي 100 الاول للعمود الاول والثانية للعمود الثاني .ColumnWidths = "100;100" ارجو ما قدمته ان يكون طلبك كل عام وانت بخير المرحليات أوفيسنا.xlsm

السلام عليكم ورحمة الله وبركاته تم تحسين سرعة الكود اي تغيير في I2 -13-14 يعمل الكود الترقيم التلقائي في العمود B تم تعديل المعادلة في العمود الاخير بحيت تظعر الارقام حيب اخر بيان في العمود C جرب الكود وان كان هناك أي استفسار فلا حرج اعاده الله عليك يالخير والبركة يومية النقدية 1العامة.xlsm

المشكلة الاساسية هي هذه فنحن لم نستطيع فتح اي نموذج او تقرير عموما من حيث المبدأ فتصدير التقرير الى الاكسل يتطلب استيفاء بعض الشروط فليس أي تقرير يمكن تصديره وحتى بعد التصدير لن تظهر جميع عناصره كما هي في التقرير مثال عنوان التقرير وكذا التسميات التوضيحية وغيرها من الاختلافات والطريقة الاسهل هي تصدير الاستعلام فهو أقرب مايكون الى ورقة أكسل قم بإعداد إستعلام يشمل جميع الأعمدة المطلوبة فعلى اعتبار ان الاستعلام المراد تصديره اسمه qryExportingData وتريد تصديرة الى نفس المجلد الخاص بالتطبيق بالإسم ExportingData.xlsx فبإستخدام الامر DoCmd.OutputTo acOutputQuery, "qryExportingData", acFormatXLSX, CurrentProject.path & "\ExportingData.xlsx", True, , , acExportQualityPrint سينتج لك ملف أكسل بنتيجة الإستعلام بنفس عناوين وترتيب الأعمدة

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

اهلا بحضرتك اسم التقرير Time Card by Employee and Date

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

وبارك بكم ، ونفع بكم شكراً لمرورك العطر 💐

حياك الله اخوي الغالي لنفترض أن لدينا حقلًا في جدول باسم LinkName كما في مثالك ، ويحتوي على الرابط التشعبي التالي : "Visit Google#https://www.google.com#Homepage" نتيجة HyperlinkPart([LinkName], 1) : "Visit Google" (النص الظاهر) . نتيجة HyperlinkPart([LinkName], 2) : "Homepage" (العنوان الفرعي) . نتيجة HyperlinkPart([LinkName], 3) : "https://www.google.com" (الرابط الأساسي) . متى نستخدم كلاً منهما ؟ استخدم 1 عندما تريد عرض النص الذي يراه المستخدم فقط (حسب مثالك طبعاً ) استخدم 2 عند الحاجة إلى استخراج إشارة مرجعية أو موقع داخل ملف ( مثل اكسل أو وورد ) استخدم 3 لاستخراج الرابط الفعلي ( URL أو مسار الملف ) فاستخدمت 1 لما يتوافق مع مثالك الذي طرحته ، ولكن جرب الحالة 3 😉 .

السلام عليكم ورحمة الله مطلوب الليست بوكس في فورم البحث تظهر عمودين بدل عمود واحد وشكرا المرحليات أوفيسنا.xlsm

كل عام وانتم بخير عمل الكود ده وفيه مشكلتين 1- تقيل جدا فى احضار البيانات 2- لما اختار الخلية i2 لا تعمل فى البحث الا بعد تحديث التاريخ فى يومية النقدية العامة.xlsmشيت الخزينة

بارك الله فيك ونفع بك

جزيل الشكر على المشاركة

السلام عليكم ورحمة الله وبركاته بعد ملاحظة ااستاذنا الفاضل محمد هشام. جزاه الله خيرا والتي ذكر فيها بعد مراجعة الملف المقدم من أستاذنا الفاضل @عبدالله بشير عبدالله لاحظنا أنك تعتمد على معيار واحد فقط لجلب البيانات وليس عدة معايير كما ظننا في البداية لو عرفنا هذا منذ البداية لكان بإمكاننا تقديم حلول أبسط مما تم تطبيقه ضمن اليوزرفورم حيث كنا نعتقد أنك تحتاج بحثا ديناميكيا بعدة معايير وتعليقكم وكما اشار معلمنا الفاضل اليك الملف يبحث بعدة معايير لكما كل الود والتقدير والاحترام طريقة اخرى للبحث بعدة معايير.xlsb

عاشت ايدك استاذ وهو المطلوب ، ممنون منك في ميزان حسناتك ان شاء الله استاذ انا كنت اعرف الدالة هذه مع الرقم 2 تستخرج اللنك من الرابط التشعبي ماكنت اعرف هذه الدالة مع الرقم واحد تستخدم اسم الرابط ؟ استاذ هاي التفاصيل والمعلومات كيف اطلع عليها واشوف غير دوال او غير خصائص ؟؟؟ HyperlinkPart([LinkName], 2)

شكرا على الملاحظة @سلمان الشهراني كرما إرسلها لي على الخاص

أخي الكريم الأستاذ الفاضل / @محمد هشام. السلام عليكم ورحمة الله وبركاته ظهرت لي هذه المشكلة عندما قمت في آخر تحديث من قبلكم باختزال الوظائف لثلاث وظائف فقط هي (محامي؛ عامل؛ طبيب) الغريب في الأمر أنها لا تظهر إلا عن اختيار وظيفة: محامي أو عامل فقط؛ في حين عند اختيار وظيفة طبيب تظهر النتائج كاملة؛ حاولت الوصول لحل ولم أعرف. فرجاء مساعدتي في الحل وجزاكم الله خيرا

عندي اكسس 2003

تفضل آمل ان ينال اعجابك عملت بعض تصرف .. وهي ان يكون مجال الآيات حسب السور .. وهو المنطقي ‏‏القرآن الكريم3.rar