كل الانشطه

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

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

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

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

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

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

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

عندي اكسس 2003

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

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

وعليكم السلام ورحمة الله وبركاته .. من خلال الملف اعتقد ان المشكلة لديك في فقدان الخط QCF_BSML من الويندوز وعدم وجوده . لذا تستطيع تحميل النسخة 2005 من هنا ، أو النسخة الجديدة كاملة من هنا . مع العلم أن الخطوط التي تريدها هما :- Desktop.zip فقط قم بتثبيتهما على جهازك وافتح الملف بعدها .

مرفق جزء من ملف بحثي بعد نسخ الايات من مصحف المدينة المنورة وحفظ الملف تحولت الى الشكى الموضح برجاء الافادة للاهمية د. وليد.docx

وعليكم السلام ورحمة الله وبركاته .. بعد النظر الى ملفك المرفق من الجوجل درايف ، انظر للخطأ الذي ظهر حيث ان أسماء الحقول لديك هي ارقام في بعض الجداول . فإن كانت البدايات تحتوي على مشاكل ، فسيتم دائماً وجود مشاكل لاحقاً . أيضاً في الجدول Time Cards ، الحقل ID نوعه ترقيم تلقائي ولكنك استخدمت التنسيق "TCN "0000 = اي انه يحتوي على نص ورقم في حقل نوعه ترقيم تلقائي . وعليه لم أكمل النظر في المرفق لأخطاءه الكثيرة ,, ثانياُ ، لم تذكر اسم التقرير للأسف . ثالثاً ملف الآكسل يحتوي اسماء العناوين نصوص وليست أرقام !!! وانت لم تفسر وتشرح وتوضح مطلبك بشكل واضح للقارئ .

وعليكم السلام ورحمة الله وبركاته .. استعملت استعلام تحديث بعد اضافة الحقل النصي LinkTxt في الجدول ، فيقوم بتحديث قيمة الحقل لكل سجل باستخراج اسم الموقع على شكل نص وليس رابط تشعبي . UPDATE Linktbl SET Linktbl.LinkTxt = HyperlinkPart([LinkName], 1) WHERE Linktbl.LinkName IS NOT NULL; LinkName.accdb

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

حبيبي لك مطلق الحرية بالتصميم والتجربة المهم أن تكون الصورة النهائية التي تؤدي الغرض المطلوب

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا في قاعدة بيانات المرفقة جدول يحتوي على حقل نوعه ارتباط تشعبي من خلال الاستعلام يمكننا عن طريق دالة HyperlinkPart استخراج الرابط من الارتباط التشعبي للحقل ، المطلوب هو كيف استطيع استخراج اسم الموقع بدون رابط تشعبي يعني فقط الاسم ؟ هل هذا ممكن وكيف ؟؟؟؟؟؟ LinkName.rar

السلام عليكم كل عام و حضرتكم بخير عندي تقرير في الاكسس اريد تحويله الي ملف اكسيل ملف الاكسس https://drive.google.com/file/d/1bWTYdnA...sp=sharing مرفق ملف الاكسيل Report.xlsx

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

ما شاء الله جزاكم الله خيرا على هذا العمل الرائع والفكرة المميزة اخي @Foksh بناء على هده الفكرة القيمة قمت بتطوير الكود بحيث عند وجود أكثر من اختلاف بين القيم (قبل وبعد) يتم تمييز كل اختلاف بلون مختلف هذا فعلا يسهل جدا معرفة وتتبع الفروقات كما دكرت مع إظافة استخراج المادة التي تحتوي على الاختلاف إلى جانب الاسم والقيمة القبلية والبعدية لتوفير عرض واضح ومباشر للفروقات بالتوفيق......... نسخة معدلة من الكود لتحقيق هذا الهدف Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long, c As Long, Tbl1, Tbl2, a, b, tmp As Long, xCount As Long, key As String Dim xColor, cnt As Object, j As Long, i As Long, x As Long, ky As String Const départ = 3, ColArr = 18, début = 2, LastCol = 9, f = 9, Irow = 1 If Target.CountLarge > 1 Then Exit Sub Set cnt = CreateObject("Scripting.Dictionary") xColor = Array( _ RGB(255, 255, 0), RGB(255, 0, 0), RGB(0, 176, 80), RGB(0, 112, 192), RGB(255, 192, 0), RGB(112, 48, 160), _ RGB(255, 0, 255), RGB(0, 176, 240), RGB(146, 208, 80), RGB(255, 102, 0), RGB(204, 0, 153), RGB(0, 255, 255), _ RGB(255, 153, 204), RGB(153, 51, 0), RGB(102, 102, 255), RGB(255, 204, 153), RGB(51, 153, 102), RGB(153, 0, 0), _ RGB(0, 102, 204), RGB(204, 153, 255), RGB(255, 255, 153), RGB(204, 0, 0), RGB(0, 153, 0), RGB(0, 51, 102), _ RGB(255, 128, 0), RGB(102, 0, 102), RGB(0, 204, 204), RGB(255, 102, 102), RGB(102, 255, 102), RGB(102, 102, 153)) On Error GoTo CleanUp With Me If Intersect(Target, .Range(.Cells(départ, début), .Cells(départ + ColArr - 1, LastCol + f))) Is Nothing Then Exit Sub SetApp False .Range(.Cells(départ, début), .Cells(départ + ColArr - 1, LastCol + f)).Interior.colorIndex = xlNone With .Range("T:W"): .UnMerge: .ClearContents: End With Me.[T1:W1].Value = Array("الإسم", "المادة", "قبل", "بعد") tmp = 2: j = 0: xCount = 0 For r = départ To départ + ColArr - 1 b = .Cells(r, Irow).Value For c = début To LastCol Tbl1 = .Cells(r, c).Value: Tbl2 = .Cells(r, c + f).Value: a = .Cells(2, c).Value If IsEmpty(Tbl1) Then Tbl1 = "" If IsEmpty(Tbl2) Then Tbl2 = "" If CStr(Tbl1) <> CStr(Tbl2) Then xCount = xCount + 1 key = b & "|" & a & "|" & Tbl1 & "|" & Tbl2 If Not cnt.Exists(key) Then cnt.Add key, xColor(j Mod (UBound(xColor) + 1)) j = j + 1 End If .Cells(r, c).Interior.Color = cnt(key) .Cells(r, c + f).Interior.Color = cnt(key) .Cells(tmp, "T").Resize(1, 4).Value = Array(b, a, Tbl1, Tbl2) tmp = tmp + 1 End If Next c Next r If xCount > 0 Then .Cells(tmp, "T").Value = "إجمالي الاختلافات" .Cells(tmp, "U").Value = xCount x = 2: ky = .Cells(x, "T").Value For i = 3 To tmp If .Cells(i, "T").Value <> ky Or .Cells(i, "T").Value = "" Then If i - 1 > x Then .Range("T" & x & ":T" & i - 1).Merge x = i ky = .Cells(i, "T").Value End If Next i Else With .Range("T:W"): .UnMerge: .ClearContents: End With End If CleanUp: SetApp True Set cnt = Nothing End With End Sub Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With End Sub درجات المواد v4.xlsb

استخدم اوفيس 2016 64 بت وايضا اوفيس 365 64 بت دون فائدة لعمل الأكواد

كلامك وكلام الزملاء صحيح عند اتباع الخطوات الصحيحة وخاصة الجداول تسهل عملية ادخال واخراج البيانات بارك الله فيكم استاذ @ابوخليل

أيضا للأسف لا يعمل

شغال 100% شغال 100% و مع الخطأ في الأساسات .. العمل على جدولين كالعمل على جدول واحد

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