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

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

المفروض ان تضع عينة للنتائج المتوقعة على ورقة العميل للتأكد من الخلايا المرحلة والأعمدة المرحل اليها حاول تعديل الكود التالي بما يناسبك Sub test() Dim srcWS As Worksheet, dest As Worksheet Dim f As String, Lr As Long Dim a(1 To 1, 1 To 3) As Variant Set srcWS = Sheets("تسجيل") f = srcWS.Range("C8").Value On Error Resume Next Set dest = ThisWorkbook.Sheets(f) On Error GoTo 0 If dest Is Nothing Then: MsgBox "ورقة العميل '" & f & "' غير موجودة", vbExclamation: Exit Sub If srcWS.Range("C7").Value = "اجل" Then a(1, 1) = Format(Date, "dd/mm/yyyy") ' التاريخ a(1, 2) = srcWS.[C4].Value & " " & srcWS.[C5].Value 'الوصف مع الكود a(1, 3) = srcWS.[C6].Value 'سعر البيع Lr = dest.Cells(dest.Rows.Count, "B").End(xlUp).Row + 1 dest.Range(dest.Cells(Lr, "B"), dest.Cells(Lr, "D")).Value = a MsgBox "تم الترحيل بنجاح إلى ورقة العميل " & f, vbInformation End If End Sub

السلام عليكم و رحمة الله وبركاته... مع اعتذاري لعدم قراءة جميع التعليقات ( بسبب الصحة) ..شافانا الله واياكم بعض المواقع الاجنبية تستخدم عبارة ( solved) ..واظن انها عبارة فيها نوع من اللياقة ...لان بعض الاجابات قد تكون افضل وكلفت صاحبها وقتا لكن هذا يعني ان صاحب الطلب قد وجد ضالته في اجابة معينة ..اما بقية الاجابات قد يستفاد منها البعض والله المستعان..

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف فهرس منتدي الاكسيل.xlsb

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

السلام عليكم من وجهة نظري في طل ما سبق أن "تمت الاجابة" مناسب وواضح ، وفي انتظار باقي الاراء

أخونا الكريم @zero1111330566 ، وجب عليك ان تنسب أفضل إجابة للأستاذ @kkhalifa1960 صاحب الإجابة التي ناسبتك وحلت لك المشكلة ، وليس لك يا صديقي

شافاكم الله وعافاكم أستاذ @Eng.Qassim

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

تفضل استاذ @nogom .الخطوات . لأني ماعندي سكانر . افتح محرر VBA، ثم اذهب إلى: Tools > References واختر Microsoft Windows Image Acquisition Library. يتم مسح المستندات ضوئيًا باستخدام مكتبة WIA. يتم حفظ الصور في مجلد مؤقت. يتم دمج الصور إلى ملف PDF باستخدام PDFtk. يتم حفظ مسار الملف النهائي في قاعدة بيانات Access. Option Compare Database Option Explicit Sub ScanAndSavePDF() Dim scanner As WIA.Device Dim dialog As New WIA.CommonDialog Dim item As WIA.Item Dim img As WIA.ImageFile Dim imagesFolder As String Dim pdfPath As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim fileName As String Dim recordID As String Dim tempPath As String Dim i As Integer Dim imageFiles As String Dim command As String ' تحديد مسار حفظ الصور والملف PDF imagesFolder = "C:\ScannedImages\" ' قم بتعديل المسار حسب الحاجة If Dir(imagesFolder, vbDirectory) = "" Then MkDir imagesFolder tempPath = imagesFolder & "Temp\" If Dir(tempPath, vbDirectory) = "" Then MkDir tempPath ' اختيار الماسح الضوئي On Error Resume Next Set scanner = dialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False) If scanner Is Nothing Then MsgBox "لم يتم اختيار ماسح ضوئي.", vbExclamation Exit Sub End If On Error GoTo 0 ' جلب السجلات من الجدول Set db = CurrentDb Set rs = db.OpenRecordset("اسم_الجدول") ' ضع اسم الجدول هنا If rs.EOF Then MsgBox "لا توجد سجلات في الجدول.", vbExclamation Exit Sub End If Do While Not rs.EOF recordID = rs!اسم_الحقل ' ضع اسم الحقل الذي يحتوي على اسم الملف ' مسح الأوراق imageFiles = "" For i = 1 To 5 ' مسح 5 صفحات، يمكن تعديل العدد حسب الحاجة Set item = scanner.Items(1) Set img = dialog.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG) ' حفظ الصورة fileName = tempPath & "Page_" & i & ".jpg" img.SaveFile fileName imageFiles = imageFiles & Chr(34) & fileName & Chr(34) & " " Next i ' إنشاء ملف PDF باستخدام PDFtk pdfPath = imagesFolder & recordID & ".pdf" command = Chr(34) & "C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe" & Chr(34) & _ " " & imageFiles & " cat output " & Chr(34) & pdfPath & Chr(34) , C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe ,حسب مكانه عندك Shell command, vbHide ' حفظ المسار في الجدول rs.Edit rs!مسار_الملف = pdfPath ' ضع اسم الحقل الخاص بالمسار rs.Update ' تنظيف الصور المؤقتة Dim tempFile As String tempFile = Dir(tempPath & "*.jpg") Do While tempFile <> "" Kill tempPath & tempFile tempFile = Dir Loop rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم مسح الملفات وحفظها بنجاح.", vbInformation End Sub ما يجب عليك فعله: قم بتنزيل وتثبيت PDFtk Server. فهو مجاني أضف مسار PDFtk إلى الكود أو إلى متغيرات النظام. كما هو موضح بالكود اختبر الكود وتأكد من أن الصور يتم دمجها بنجاح إلى PDF.

حضرتك تقصد حاجة زي كدا

غفر الله لك ولوالديك ، وأسكن الله موتاكم وموتانا وموتى المسلمين مساكن الأنبياء والصالحين والصديقين والشهداء وحسن أولئك رفيقا .. وزادك الله من علمه وهداه وتقواه، وأغناك الله من واسع فضله، وفتح لك فتوح العارفين، وألبسك لباس الصالحين .. يارب العالمين 🙂🤲🏻🌷🌹 ما شاء الله .. قطعة فنية نسجها محترف عارف بها 😊✌ جربتها .. وهي شغالة 10/10 تبارك الرحمن .. 😎👌🏻

مرفق ملف للتجرية معادلة الرصيد.xlsx

من اقتراحاتي للتسمية : - حققت المطلوب ، او حققت الطلب - اعتمدها السائل - تم الاعتماد آمل من الاخوة اضافة ما يرونه من اسم مناسب

ظهرت مشاكل في الملف السابق وتم حلها هنا تفضل Book2معدل3.xlsm

يمكنك جلب اخر قيمة على الليست بوكس باستبدال هده السطور tb = sum1 - sum2 TextBox1.Value = Format(tb, "#,##00.00") وجعلها هكدا With Application sum3 = .Max(.Index(Me.ListBox1.List, r, 9)) ' الرصيد الختامى End With TextBox1.Value = Format(sum3, "#,##00.00") Copy of كشف حساب عميل -V4.xlsm

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

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

السلام عليكم الاخ الفاضل صالح احمد ابو يوسف افتح موضوع جديد لطلبك ولن يقصر معك الجميع كلن حسب وقته اخي ياسر خليل شاهد المرفق تقويم خاص لاادري لمن هو من ضمن الارشيف عدلنا عليه ان شاء الله يعمل معك عمل معي مع 64 بت اوفيس 2013 البحث بين تاريخين_A3.rar

بالطبع اخي مختار حسين لان الاسم خلال الفترة لم يذكر اكثر من رمره لذا لايوجد تكرار ! اما ماذكرته : يوجد خلل بسيط في كود حدث "Calendar1_Click" في الفورم المسمى "Celndr_Ali" Ali_Rep.Controls(A_Se).Value = Calendar1.Value يستبدل بالتالي لعمل عليه فورمات ليأتي بالتاريخ بالشكل الذي نريده "yyyy/mm/dd" Ali_Rep.Controls(A_Se).Value = Format(Calendar1.Value, "yyyy/mm/dd") اذهب الى كود "ListBox1_Click" في السطر الحلقة التكراريه For ii = 1 To .ListCount - 1 الصح بيكون من 0 كأول سطر في الليست بوكس كالتالي For ii = 0 To .ListCount - 1 اذهب الى خصائص فورم "Ali_Rep" وروح الى خاصية "RightToleft" قيمتها False حولها الى True ان شاء الله ستظهر كما تريد او ضيف السطر التالي في حدث "UserForm_Initialize" Me.RightToLeft = True المرفق بعد تعديل ماذكر مسبقاً البحث بين تاريخين_A2.rar

السلام عليكم المرفق الاول الشرح والاخر الملف شرح_5.rar البحث بين تاريخين_A.rar

تفضلوا قائمة منسدلة بدون أعمدة مساعدة وبدون الاستعانة بورقة العمل ، ومنقحة وبلا فراغات وبها قيم فريدة أي غير مكررة وعلاوة على كل ما سبق مرتبة أيجدياً.. إليكم الملف المرفق Unique Sorted Validation List.rar

السلام عليكم ورحمة الله أختي الكريمة إيناس، لست أدري موضع المشكل عندك ربما يكون مستوى أمان الماكرو لأن عندي الملف يعمل جيدا... المهم أعيد إرفاق الملف من جديد... وأرجو أن يعمل معك هذه المرة... أخوك بن علية الملف المرفق : قائمة بدون تكرار_2.rar

السلام عليكم ورحمة الله أعرف أن إخواني لم يبخلوا بما عندهم من فوائد... وأقدم أيضا عملا بواسطة كود يقوم بنسخ كل القائمة (الموجودة في العمود A) في العمود B ثم يرتبها ترتيبا تصاعديا وبعدها يقوم بحذف كل الأسماء المكررة في هذا العمود ثم يعاود الترتيب التصاعدي للأسماء التي بقيت وباستعمال الخاصية "التحقق من الصحة" واستعمال الدالة OFFSET فيها نقوم بتشكيل القائمة المنسدلة من العمود B انطلاقا من السطر 5... وإليكم المثال في الملف المرفق (وهو يعمل على 2007 و على 2003)... أخوكم بن علية قائمة منسدلة دون تكرار.rar