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

وعليكم السلام .. ليس هناك داعى لكل هذا -تفضل هذا برنامج لأستاذنا الكبير ابو خليل به طلبك , بارك الله فيك ,واعلم يقيناً ان المنتدى دائماً تعليمى وليس لتقديم البرامج الجاهزة شجرة عائلة _ شجرة حسابات

وعليكم السلام-تم ضبط وعمل المطلوب بالكود وتجربته بالفعل على الطابعة ويعمل بكل كفاءة ملحوظة : عليك بعدم العبث بأبعاد الصفحات او محاولة تغييرها وهذا هو الكود المستخدم فى ذلك Private Sub Do_It() Application.ScreenUpdating = False With Sheets("قطاعات") a_max = .Cells(.Rows.Count, "A").End(xlUp).Row b_max = a_max prows = 45 a = 5 Do a = a + prows Loop Until a + 45 >= a_max .Rows(a_max + 1 & ":" & a_max + 3).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(a_max + 1, "A") b_max = b_max + 3 For aa = a To 5 + prows Step -prows .Rows(aa & ":" & aa + 2).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Range("A1:F3").Copy Destination:=.Cells(aa, "A") b_max = b_max + 3 Next aa .PageSetup.PrintArea = "A1:F" & b_max .PrintOut For a = 5 + prows To a_max Step prows .Rows(a & ":" & a + 2).Delete shift:=xlUp Next a .Rows(a_max + 1 & ":" & a_max + 3).Delete shift:=xlUp .PageSetup.PrintArea = "A1:F" & a_max End With Application.ScreenUpdating = True End Sub 1اعتماد مستندات.xls

وعليكم السلام-لك ما طلبت اخفاء صفوف1.xlsm

بعد اذنك باش مهندس الاكسل هذه المعادلة ربما تضيف شيئاً ما =A3&" "&CHAR(177)&" "&B3

العملية هنا صارت أسهل مرفق الملف بعد تجهيز المعادلة المطلوبة تحياتي دمج عمودين على التوالي مع ترتيب الارقام من الاصغر للأكبر.xlsx

من الأفضل انك وضعك ملف اكسل ووضح فيه الشكل للبيانات وأيضا كتبت القيم المتوقعة عموما مرفق ما فهمته من طلبكحساب نسبة الخطأ.xlsx وبالتوفيق

قمت بتبديلها في مكان واحد فقط و يجب تيديلها اينما وجدت تم تشغيل اليوزر Book_Mhmd .xlsm

أحسنت استاذ محمد عمل هائل بارك الله فيك وزادك الله من فضله

وعليكم السلام-ضع هذا الكود فى حدث Thisworkbook Private Sub Workbook_Open() UserForm1.Show End Sub Backup of work2.xlsm

أحسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

وعليكم السلام -تفضل ملف قيم لما تريد List All files from Folder and Sub-folders in Excel Workbook File_Manager.xlsm وهذا ملف اخر Open Excel files in a folder [VBA] List-all-files-in-a-folder.xlsm وهذا الرابط من داخل المنتدى أيضاً سيفيدك للأستاذ محمد صالح شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba

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

أحسنت استاذ ابو خليل عمل رائع بارك الله فيك وزادك الله من فضله ورحم الله والديك ووسع الله فى رزقك وأكرمك الله فى الدارين

بارك الله فيك أستاذنا الكريم ابو خليل وجزاك الله كل خير

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

وعليكم السلام-كان عليك استخدام خاصية البحث فى المنتدى فبه طلبك -تفضل كود دمج عدة شيتات اكسيل منفصلة بشيت واحد

بارك الله فيك استاذ عبدالله وجزاك الله كل خير وعود حميد وحمد الله على السلامة وحشتنا كتير

وعليكم السلام-فقط عليك استخدام هذه المعادلة =IFERROR(VLOOKUP($L11,الجدول1,6,0),"") الفلزات1.xlsx

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

السلام عليكم برنامج صغير اهداء لكم ايداع ... سحب .... رصيد يومي وأولا بأول مفتوح المصدر للتعديل عليه رصيد الصندوق والبنك.accdb

فيديووووووو جديد جديد كيفية فصل بيانات عمود إلى عدة أعمدة بعض برامج بتخرج منها بيانات بتبقى في عمود وللاسف عايزين نشتغل على البيانات ونفصلها على اعمدة ونعمل شوية تقارير مطلوبة مننا ... حرفية جميلة وبسيطة هانعمل بيها المطلوب مننا https://www.youtube.com/watch?v=RyXvKPrxAzc حرفية سريعة لفصل بيانات من عمود إلى عدة اعمدة.rar

اتبع الشرح فالرابط التالى ووافنا بالنتيجه لحل هذه المشكله الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق

طيب جرب الان عما اشرح لك New1.accdb

جرب اضغط على الزر F9 اذا مشي الحال اقول لك ما العمل

طيب جرب الان New1.accdb

ا حسام يستحيل تقليص وضم الجداول لان كل جدول مساحته كبيره وعند ضمه سيصل الجدول الواحد الى 2 جيجا وتقفل القاعده تمام كما تعلم حالا

XFD هو اخر عامود في في صفجة الاكسل و هل تريد اكثر من 16384 رقم متسلسل

هل ممكن التعديل على قاعدة البيانات كاختصار عدد الجداول ام لا

تفضل أخي محمد بعد ضغط على زر "بحث" و عرض فواتير اضغط على زر جديد في اعلى يسار نموذج كهرباء.mdb

بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

السلام عليكم اخي هل توجد طريقة عند اضافة مستخدم مثل اسم المستخدم جديد عمار قام بتسجيل بياناته وسجل بلال مستخدم جديد وسجل بيانه اخي عند دخول عمار لم تظهر بيانات بلال اخي اريد تسجيل جميع البيانات بجدول واحد وليس كل مستخدم جدول

تفضل اخي العزيز ارجو ان يكون طلبك My New App-10.rar

جزاك الله خيرا اخى واستاذى @husamwahab 💐 اتفضل اخى @محمد التميمي جرب ووافنا بالنتيجه بالتوفيق 33(1).accdb

مشاركة مع اخي واستاذي الفلاحجى 44.rar

السلام عليكم موضوع مثير وكبير، كنت أود تحضير منشور له، ولم يتح لي. معادلات إكسل الفريدة وتتسيقات خلاياه السهلة مما يفتقد وبشدة مع الأكسس، وكما تفضل الأستاذ @محمد أبوعبدالله باختصار هناك طريقتان لاستخدام معادلات إكسل في الأكسس الأولى من خلال : Creatobject وذلك ببناء كود فيجوال بيزك يستخدم صيغ إكسل. هذا رابط يقريب الفكرة مع الأسف لم يسعفني البحث بإيجاد رابط قديم واضح في هذا المجال. https://sfmagazine.com/post-entry/april-2018-access-using-excels-pmt-function-in-access/ أو بإضافة مكتبات إكسل كمرجع من محرر أوامر VBA هذا رابط لتقريب الفكرة. https://stackoverflow.com/questions/1776001/ceiling-function-in-access الطريقة الثانية باستخدام VBA بعمل ورقة إكسل ونسخ البيانات إلى هذه الورقة لتقوم بالعملية الحسابية المطلوبة ثم إعادة نسخهاللأكسس وقد استخدمتها لتحويل التاريخ من ميلادي إلى هجري مستفيداً من تنسيقات إكسل الفريدة. واستفدت من مكتبات إكسل بدوال التقريب مميزة كما تفضل الأستاذ محمد. وغيرها الكثير... بالتوفيق.

السلام عليكم نفسها نفسها لا لكن يمكن عمل ما هو افضل بالتأكيد فمثلاً دالة ceiling غير موجودة في اكسيس وبديلها في الاكسيس Round ويمكن تطويعها اكثر من ceiling او انشاء الدالة من الاساس لكن ستجد الموضوع كثيرا ممتع اكثر من الاكسيل ابدأ على بركة الله وستجد يد العون من الجميع باذن الله تحياتي

اخي الكريم الحقل لديك من نوع رقم والطريقة الصحيحة لوضعه كمعيار كالتالي [FROM_IN_ARA]=" & [FROM_IN_ARA] وليس كما وضعته بين علامتي تنصيص [FROM_IN_ARA]=" & "[FROM_IN_ARA]" الحقيقة لم افهم المشكلة التي ظهرت معك في المرفق الاخير الذي وضعته لك تحياتي

يمكنك عمل ذللك بـ: nested if و لكن عند اضافة الشيتات تضظر دائما اللى تغييير المعادلات باضافة الاوراق الجديدة كما أانه في حال بيانات كثييرة تكون الاستتجابة بظيئة. تفضل هدا الكود اسرع و يعمل مهما اضفت من صفحات جديدة. ضع فقط الارقام التي تريد في العمود A في ششيت البحث ثم اضغط جلب. Sub bring() Dim ash As Worksheet Dim sh As Worksheet Dim cell As Range Dim lrw As Integer Set ash = Sheets("search") ash.Range("b2:e1000").ClearContents For Each sh In ThisWorkbook.Sheets If sh.Name <> ash.Name Then For Each cell In sh.Range("a2:a1000") lrw = ash.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lrw If cell = ash.Cells(i, 1) Then ash.Cells(i, 2) = cell.Offset(, 1) ash.Cells(i, 3) = cell.Offset(, 2) ash.Cells(i, 4) = cell.Offset(, 3) ash.Cells(i, 5) = cell.Offset(, 4) End If Next i Next cell End If Next sh End Sub جلب بيانات من الشيتات.xlsb

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

تفضل اعتقد هذا ما تريده على حسب ما فهمت Private Sub ListFind_Change() Dim i As Long With ListFind For i = .ListCount - 1 To 0 Step -1 Debug.Print i, ListFind.List(i, 0) If ListFind.List(i, 0) <> "" Then .ListIndex = i Exit For End If Next i End With End Sub تفعيل اخر صف في اللست بوكس.xls

عمل ممتاز استاذ عبدالله بارك الله فيك وزادك الله من فضله

شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة inputbox with password mask.xls

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

وعليكم السلام -يمكنك استخدام معادلة المصفوفة(Ctrl+Shift+Enter) فى الخلية J4 =INDEX($B$5:$B$9,MATCH(1,MMULT(--($C$5:$F$9=$K$4),TRANSPOSE(COLUMN($C$5:$F$9)^0)),0)) code departement1.xlsx

جزاك الله كل خير الى الأمام دائماً

التعامل مع بيانات الويب من خلال FTP: إستقبال بيانات من موقع معين سوف نقوم في هذا الدرس إن شاء الله بشرح طريقة جلب بيانات من الويب من دون اللجوء إلى المتصفح تنبيه: في هذا المجال ليس لدي أي خبرة و قد أعتمدت على البحث في الويب لجمع المعلومات. فلربما أخطئ في ذكر أحد المصطلحات لذلك من لديه دراية بهذا الموضوع و راني أخطئ فالرجاء أن يصوبني. بروتوكول FTP: FTP هي اختصار لمجموعة كلمات File Transfer Protocol، وهي تعني بروتوكول نقل الملفات، وهذه الخدمة هي إحدى تطبيقات TCP/IP التي تجعل من الممكن نقل الملفات بين أجهزة الحاسب الآلي المختلفة و المرتبطة بشبكة الإنترنت. ينقسم نقل الملفات إلى نوعين: 1 ـ تنزيل الملفات Download: وهو جلب الملفات من الكمبيوتر المضيف Host إلى جهازك المحلي Local. و نستخدم الأمر Get 2 ـ رفع الملفات Uplaod: وهو إرسال الملفات من جهازك المحلي Local إلى الجهاز الخادم Host. و نستخدم الأمر Put - كل طلب يرسل Request يتم من خلاله استقبال رد Response أوامر FTP: هذه بعض الأوامر المستخدمة في بروتوكول FTP و التي سنحتاجها أو سنعمل عليها. 1-Post: يستخدم لارسال معلومات من المستخدم مثال: إنشاء موضوع جديد أو تسجيل الدخول كل هذا عبر Post Request 2-Get: يستخدم هذا الأمر لتنزيل ملف ما من جهاز الخادم أو عرض صورة أو صفحة. مثال: أقوم بإرسال طلب و استقبل ردًا Response يحتوي على أكواد html للصفحة 3-Put: يستخدم لرفع الملفات إلى جهاز الخادم 4-Open: يستخدم لإنشاء إتصال جديد مع الخادم 6-Close: يستخدم لإنهاء الإتصال مع جهاز الخادم مثال تطبيقي: سوف نستخدم هذا الموقع: https://uk.investing.com/rates-bonds/financial-futures سوف نقوم بإستيراد بيانات جدول من هذه الصفحة إلى جدول موجود في الملف و قد ربطه بمربعات نص لنلاحظ تنزيل البيانات هذا الكود المستخدم: Dim html As HTMLDocument, hTable As HTMLTable Dim Url As String Url = "https://uk.investing.com/rates-bonds/financial-futures" Set html = New HTMLDocument With CreateObject("MSXML2.XMLHTTP") .Open "GET", Url, False .send html.body.innerHTML = .responseText End With Set hTable = html.getElementById("cr1") For i = 1 To hTable.rows.length - 1 DoCmd.GoToRecord , , acNewRec Me.id = hTable.rows(i).cells(1).innerText Me.dd = hTable.rows(i).cells(2).innerText Me.t1 = hTable.rows(i).cells(3).innerText Me.t2 = hTable.rows(i).cells(4).innerText Me.t3 = hTable.rows(i).cells(5).innerText Me.t4 = hTable.rows(i).cells(6).innerText Me.t5 = hTable.rows(i).cells(7).innerText Me.t6 = hTable.rows(i).cells(8).innerText Next i شرح الكود: تعريف كائنات html Dim html As HTMLDocument, hTable As HTMLTable إنشاء إتصال جديد عبر السرفر MSXML2.XMLHTTP و إرسال الطلب: With CreateObject("MSXML2.XMLHTTP") .Open "GET", Url, False .send إستقبال الرد على شكل صفحة html: html.body.innerHTML = .responseText استخراج البيانات من الجدول الموجود في الرد الذي استقبلناه وقد قمنا بشرح التعامل مع الجداول في الجزء الأول بالتفصيل: Set hTable = html.getElementById("cr1") For i = 1 To hTable.rows.length - 1 DoCmd.GoToRecord , , acNewRec Me.id = hTable.rows(i).cells(1).innerText Me.dd = hTable.rows(i).cells(2).innerText Me.t1 = hTable.rows(i).cells(3).innerText Me.t2 = hTable.rows(i).cells(4).innerText Me.t3 = hTable.rows(i).cells(5).innerText Me.t4 = hTable.rows(i).cells(6).innerText Me.t5 = hTable.rows(i).cells(7).innerText Me.t6 = hTable.rows(i).cells(8).innerText Next i استخدام ftp.rar

وهذا الأمر طبعا فى غاية البساطة تقوم بتحديد ما تشاء من الخلايا التى تحتاج ان تظهر القيم السالبة فيها ب صفر وبعد ذلك تعمل كليك يمين وتختار Format Cells ثم تضغط على Custom وبعد ذلك تكتب هذا التنسيق #,##0;"0" ثم ok -كما بالصورة

السلام عليكم الأستاذ / نبيل عبد الهادى الواضح حضرتك أرفقت ملف عن طريق الخطأ حيث أن الكود المرفق غير المطلوب على العموم بعد إذن حضرتك هذا ملف به كود يفى بالغرض المطلوب Test11.rar

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

السلام عليكم ورحمة الله وبركاته ارجو ان يكون المطلوب في المثال المرفق تحياتي vlookup partial match4.rar