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

المعذرة استاذ علي لم الحظ ردك لا بعد ان رفعت الملف جرب هذا الملف Facture.xlsx

وعليكم السلام لا يمكنك عمل هذا بمعادلة فلكوب العادية الا بعد عمل عمود مساعد او يمكنك استخدامها بطريقة مباشرة بعد جلب أول عمود بالفاتورة بهذه المعادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(التفاصيل!$C$4:$C$800,SMALL(IF($F$6=التفاصيل!$A$4:$A$800,ROW($A$4:$A$800)-3),ROW(A1))),"") برنامج فواتير.xlsx

السلام عليكم مبدئيا هذا حل باستعمال دالة مستحدثة (تم تسميتها Reversestr)... في الملف المرفق... 1 (3).xlsm

تم التعديل على الملف Cond_form_1.xlsx

وعليكم السلام - يمكنك استخدام هذه المعادلة =IFERROR(index($C$5:$C$51,match(0,index(countif($AF$4:af4,$C$5:$C$51),),0)),"") الحساب اليومي1.xlsx

ربما هذا المطلوب Cond_form.xlsx

وعليكم السلام استاذ حسين العربى مشاركة مع استاذ ازهر عبد العزيز ارجو ان تكون موفقة test-root.rar

اتفضل الملف لعله يفى بالغرض النص المقلوب.xlsm

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

السلام عليكم ورحمة الله يمكنك الاستعانة ببرنامج ATHAN المجاني (أو AZAN) على الرابط https://www.commentcamarche.net/download/telecharger-34083815-athan-azan ومن خلاله يتم تحميل، عبر النت، مواقيت الصلاة (الشهرية أم السنوية) للمدينة التي تم اختيارها عند تنصيب هذا البرنامج... (لكل مدينة توقيت خاص بها)... ليس لي فكرة أخرى... بن علية حاجي

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

طارق النخيلى أين انت من هذه الإجابة الممتازة؟!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!💙

تفضل لا يمكنك العمل بهذه الدالة قبل 1900 ولكن هناك دالة معرفة وهى XDATEYEARDIF ..... وهذا هو كودها Function XDATEYEARDIF(xdate1, xdate2) As Long Dim YearDiff As Long Dim i As Long, D1 As String, D2 As String D1 = xdate1 For i = 1 To 7 D1 = Replace(D1, Format(i, "dddd"), "") D1 = Replace(D1, Format(i, "ddd"), "") Next i D2 = xdate2 For i = 1 To 7 D2 = Replace(D2, Format(i, "dddd"), "") D2 = Replace(D2, Format(i, "ddd"), "") Next i YearDiff = Year(D2) - Year(D1) If DateSerial(Year(D1), Month(D2), Day(D2)) < CDate(D1) Then YearDiff = YearDiff - 1 XDATEYEARDIF = YearDiff End Function اشخاص - 1.xlsm

حيث أنك لم ترقع ملف للمعاينة جرب هذا الملف Fuction_split_name.xlsm

السلام عليكم ان كانت هذه الافتراضيات صحيحة 1- أن أول 5 أرقام من جهة اليسار للباركود هي ثابته ولن تتحرك جهة اليمين. 2- باقي الأرقام من بعد الخمسة الأولي من جهة اليسار هي عبارة عن وزن الصنف. اذن هذا الكود سيقوم بتنفيذ ما طلبت باذن الله Me.Text0=Val(Right([barcode],len([barcode])-5))/1000 وطبقت هذا علي مرفقكم مع تعديل كود البار كود كما جاء بمشاركتم الأولي ليظهر فائدة الكود انظر المرفق ووافنا بالنتائج كاشير.rar

السلام عليكم تفضل هذه المحاولة ارجو ان تكون مفيدة ملاحظة : حسب ما فهمت من طلبك فان المرفق لا يشابه طلبك لذا هذه المحاولة لطريقتين الاستعلام الاول : اذا كان الباركود كامل ونريد استخراج الوزن الاستعلام الثاني : اذا كان الموجود الوزن وجزء من الباركود ونريد الباركود الكامل Root220.rar

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

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي

مقارنة اختلاف البيانات بين جدولين اعزائي الكرام السلام عليكم ورحمة الله وبركاته هذا البرنامج تم تصميميه بالكود والوحدات النمطية لعمل المقارنة بين الاختلافات التي وقعت في البيانات المدخله بين الجدولين وهذان الجدولين نقول جدلا ان الجدول الاول BaseTable هو الموجود لديك في قاعدة البيانات وقد تم تزويدك او حصلت على جدول احدث به بيانات محدثه وليكن مثلا VaryingTableعلما بأن هذين الجدولين لهم نفس الحقول ونفس التنسيق ومتطابقين تماما عدى ان هناك تعديل في بعض المعلومات داخل الحقول فتخيل انك تريد مقارنة 100000 مائة الف سجل دفعة واحده او اكثر من ذلك بالتأكيد لن تستطيع تتبع كل سجل ومعرفة الاختلافات في الكلمات لذا تم عمل التالي : 1. تم انشاء جدول جديد بإسم BaseTable يعني الجدول الاساسي ( هذا للتجربه فقط وتستطيع تغييره بما لديك من اسم للجدول في قاعدة بياناتك ) 2. تم تعبئة الجدول بالبيانات وتم حفظه 3. تم انشاء جدول اخر او تم استيراده من اي قاعدة اخرى له نفس الحقول والتنسيق للجدول السابق وكان اسمه VaryingTable ( هذا للتجربه فقط وتستطيع تغييره بما لديك من اسم للجدول في قاعدة بياناتك ) 4. تم عمل استعلام بإسم qryBase معلوماته مأخوذه من الجدول الاول لغرض ترتيب البيانات فقط 5. تم عمل استعلام بإسم qryVarying معلوماته مأخوذه من الجدول الثاني لغرض ترتيب البيانات فقط 6. تم انشاء وحدة نمطية Module1 لاستخراج ومقارنة الاخطاء بين الجدولين وربطهم بالاستعلام الاول بحيث ينتج لدينا جدول جديد يسمى جدول المتناقضات الاول TableDiscrepancies وبه حقل واحد فقط يظهر فيه العمليات التي حدثت للجدولين من اضافة او تعديل او حذف . 7. تم انشاء وحدة نمطية Module2 لاستخراج ومقارنة الاخطاء بين الجدولين وربطهم بالاستعلام الثاني بحيث ينتج لدينا جدول جديد يسمى جدول المتناقضات الثاني TableDiscrepancies2 وهذا الجدول اكثر تفصيلا من الاول حيث يحتوي على اربعة حقول بها تفاصيل العمليات على الجدولين. لهذا سوف اترككم تستمتعون بهذا الكود والقاعدة ككل لمعرفة الخفايا داخل الوحدات النمطية والتطبيق عليها بالاضافة والحذف في الجدول الاول والثاني مع ملاحظة انه سينشأ لديك جدول جديد اذا تم ضغط رز تطبيق الكود بالوحدة النمطية الاولى وتستطيع مشاهدة الجدول الجديد وكذلك بالنسبة لزر الامر الثاني في النموذج سينتج عنه جدول جديد سيظهر لك به تفاصيل اكثر وبعد مشاهدة الاختلافات تستطيع حذف الجدولين الجديدين وهما TableDiscrepancies و TableDiscrepancies2 CompareTwoTables.rar