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

لابد من تزويدنا بعينة من شكل الملفات المرغوب طباعتها او جرب استخدام خاصية Shell "wiaacmgr.exe", vbNormalFocus يمكنك البحث عنها في النت في ظل غياب المعطيات الكافية ساحاول الانتقال للطلب الثاني والثالث بالنسبة لامكانية عرض بيانات جداول مختلفة والتنقل بينها على نفس الليست بوكس تفضل اخي Dim TB1, f, b, R, Z, Rng, WSData, WS, WS1, WS2() Private Sub UserForm_Initialize() If WS = "" Then Me.ComboBox1.clear For s = 1 To Sheets.Count For Each n In Sheets(s).ListObjects Me.ComboBox1.AddItem n.Name Next n Next s Me.ComboBox1.ListIndex = 0 If TB1 = "" Then TB1 = Me.ComboBox1 Else TB1 = WS WS2 = Array(1, 2, 3, 4, 5, 6) Z = Array(1, 2, 3, 4, 5, 6) R = UBound(WS2) + 1 b = UBound(Z) + 1 Me.ListBox1.ColumnCount = WSData + 1 End If ST End Sub Private Sub ComboBox1_click() TB1 = Me.ComboBox1 Select Case TB1 Case Is = "الصادر" WS2 = Array(1, 2, 3, 4, 5, 6) Z = Array(1, 2, 3, 4, 5, 6) Case Is = "الوارد" WS2 = Array(1, 2, 3, 4, 5, 6) Z = Array(1, 2, 3, 4, 5, 6) End Select WS = Me.ComboBox1 WSData = Range(TB1).Columns.Count R = UBound(WS2) + 1 b = UBound(Z) + 1 ST End Sub Sub ST() WSData = Range(TB1).Columns.Count Rng = Range(TB1).Resize(, WSData + 1).Value For i = 1 To UBound(Rng): Rng(i, WSData + 1) = i: Next i Tb_Text For i = WSData + 1 To 6: Me("textbox" & i).Visible = False: Next i For i = WSData + 1 To 6: Me("label" & i).Visible = False: Next i For i = LBound(Rng) To UBound(Rng): Rng(i, 3) = Format(Rng(i, 3), "dd/mm/yyyy"): Next i ReDim WS1(1 To UBound(Rng)) col = UBound(Rng, 2) For i = LBound(Rng) To UBound(Rng) For Each K In WS2 WS1(i) = WS1(i) & Rng(i, K) & "|" Next K WS1(i) = WS1(i) & Rng(i, col) & "|" Next i Dim TBL(): ReDim TBL(1 To UBound(Rng), 1 To WSData + 1) For i = 1 To UBound(Rng) For c = 1 To WSData: TBL(i, c) = Rng(i, c): Next c TBL(i, c) = Rng(i, WSData + 1) Next i Me.ListBox1.List = TBL Me.ListBox1.ListIndex = -1 Empty_wsData_Click Me.Text_Rech.SetFocus End Sub جاري التعديل (2).xlsm

رائع

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

'طيب لاحظ الاستعلام qry_alldata اذا كان يناسبك ... استخدمه as.accdb

وعليكم السلام ورحمة الله وبركاته ... انظر الصورة ... هل هذا ما تريد ؟؟

مع التقدير والاحترام للاستاذ قاسم وثقته في الاخ شايب الا ان الاخ شايب لا يتفق معك لا يمكن ان يضع نفسه في مصافكم فانتم خبراء واساتذة كبار يشار اليكم بالبنان وهو مزارع بسيط خبراته في زراعة الكوسى والقرع واحيانا البامية رحم الله امرا عرف قدر نفسه لبِستُ لكُلّ زمـانٍ لَـبـوسـا *** ولابَستُ صَرْفَيهِ نُعمى وبوسَى وعاشرْتُ كلَّ جَلـيسٍ بـمـا *** يُلائِمُهُ لأروقَ الـجَـلـيسـا فعنـدَ الـرُّواةِ أُديرُ الـكـلامَ *** وبينَ السُقاةِ أديرُ الكـؤوسـا وطوْراً بوعْظي أسيلُ الدّمـوعَ *** وطوْراً بلَهْوي أسُرّ النّفوسـا شايب🌹

وعليكم السلام ورحمة الله تعالى وبركاته Private Sub CommandButton1_Click() TextBox2.Value = Format(Range("A2").Value, "dd/mm/yyyy") End Sub

خالص الشكر لحضرتك مجهود يحترم ممكن اضافة تلوين خلفية البحث

أعتذر السبب هو الفرق في تنسيق التاريخ وتقويم اللغة على الجهاز قم بتغييرها فقط إلى =IF($F$10<>"";"30/"&TEXT($F$10;"mm/aaaa");"") طلبك يتمثل في كتابة اي تاريخ بالنسبة لاقتراح الاخ @أبوأحـمـد ممكن يفيدك لاكن مشكلته عند تغيير التاريخ الى شهر 2 لن يشتغل معك بالشكل الصحيح .عكس المعادلة الأولى DATE 30-2.xlsm

عمل كود تلقائي او معادلة لنقل الراسبين لورقة خاصة بيهم خالد.xlsb

السلام عليكم : الاعضاء الافاضل كل عام وانتم بخير .. بحلول شهر ذي الحجة اليكم . اداة ادراج التاريخ ... واستخدامها في الاكسل من خلال تواجدها في شريط الادوات للصفحة الرئيسية لكيفية استخدامها تابع الصور ... Datepicker.zip

السلام عليكم إخواني الكرام .. كل عام وأنتم بخير .. كل عام وأنتم إلى الله أقرب أحب أن أقدم سلسلة دروس بسيطة للمبتدئين فيما يخص القوائم المنسدلة ..راجيا من الله عزوجل أن ينتفع بها كل مسلم إليكم إخواني الجزء الأول .. إنشاء القوائم المنسدلة 1.rar إليكم إخواني الجزء الثاني وهو لا يختلف كثيرا عن الجزء الأول .. إنما هو مثال آخر تأكيدي بشكل مختلف قليلا إنشاء القوائم المنسدلة 2.rar الأخوة الكرام أقدم لكم الجزء الثالث متمنياً لكم دوام الصحة والعافية وكل عام وأنتم بخير إنشاء القوائم المنسدلة 3.rar كل عام وأنتم بخير إخواني الكرام إليكم الجزء الرابع من القوائم المنسدلة في هذا الجزء سنتناول كيفية عمل قوائم منسدلة لقوائم غير ثابتة إنشاء القوائم المنسدلة 4.rar

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً وأحسن إليكم أستاذنا الكريم @omar elhosseini على صياغة هذه الأكواد الرائعة والتي من خلالها يمكن إضافة أيتهما في النطاق الذي يتم تحديده وهذا ما كنت على يقين منه من خلال استخدام الـ VBA إلا أن ما أثار استغرابي هو استخدامكم لهما وبقيت لاحقة الملف xlsx كما هو موضح أدناه في الصورة المرفقة وافر تقديري واحترامي لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته.

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليكم برنامج خبور المحاسبي المعدل الذي قمت فيه باجراء بعض التعديلات التي اثمرها لنا تجاوبكم معي في الاصدارين الاول والثاني وكانت الاراء تنصب اساسا في التالي : اولا- الدليل المحاسبي : عملته بالشكل التالي : جدول للدليل تضبط من خلالها السلسلة الرقمية لكل اختيار من الاسم في الدليل , مثلا لو اخترنا اصول ثابتة نضبط السلسلة الرقمية لها مثلا من الرقم 11 الى الرقم 99 والبرنامج بيتعامل مع هذه السلسلة في اضافة الحسابات لهذا الاسم للعلم ان لك حرية اختيار السلسلة الاسمية والرقمية فقط ان تكون في ترتيب متسلسل داخل جدول الدليل يعني ممكن تعمل اسمان لسلسلة واحدة مثلا اصول متحركة / صناديق من 1201 الى 1500 اصول متحركة / بنوك من 1501 الى 2000 واثناء اضافتك لاي حساب سيظهر لك قائمة الاسماء التي وضعتها في جدول الدليل لاختيار الصنف الذي تريده لترتيب حساباتك في ميزان المراجعة 2- نتيجة لهذه الاضافات حذفت قائمة العملاء والموردين الموجوده في الاصدارات السابقة واضافتهم ستكون في ميزان المراجعة (الذي اصبح مكون من 1000 سجل ) حسب التسلسل الذي ستضبطه في دليلك ممكن تعمل للعملاء سلسلة رقمية وللموردين سلسلة رقمية اخرى صفحة ميزان المراجعة: تعمل التالي : 1- هي المحتوى الكلي للحسابات تظهر من خلالة جميع الحسابات متسلسلة بالضابط الدليلي مجاميع وارصدة بالعملة الرئيسية وارصدة العملات الاخرى مع تعريف للحساب اذاكان مدين اودائن واسماء العملات المستخدمة لكل حساب ويظهر فيه فرق سعر العملات التلقائي قبل المجاميع الكلية 2- تتحول اثناء استخدامك للتصفية من عمود الدليل الى كشوفات تحليلية للحسابات حسب الصنف الدليلي المختار مثلا اذا اخترت اصول ثابتة تظهر لك الحسابات المشتملة على هذا الاسم مع المجاميع والارصدة الخاصة بها ويتحول الاسم من ميزان المراجعة الى كشف تحليلي لحساب الاصول الثابتة وهكذا بالنسبة لجميع الاصناف الدليلية 3- تتحول اثناء استخدامك للتصفية من عمود العملة الى كشف بحسابات العملة المختارة. ثانيا: بالنسبة للتعديلات وهي ملاحظة الاخ تويتي يمكنك تعديل القيد مثلا: اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق يمكنك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق والعكس وطبعا لديك صفحة القيود تتكون من 200 سجل يمكنك التعديل بدون اي مشاكل لعدد السجلات في اي قيد ممكن تعدل القيد المكون من 2 سجل الى 200 سجل والعكس وهو ياخذ الترتيب التلقائي حسب رقم القيد ويمكنك التأكد من ذلك بنسخ البيانات ( وهو زر جديد) لنسخ البيانات في ملف جديد ستلاحظ الترتيب التسلسلي لبياناتك حسب الترتيب التصاعدي للقيود اضافات جديدة : 1- لا يفتح البرنامج الا باسم المستخدم وكلمة المرور اسم المستخدم " خبور" كلمة المرور"بسم الله" يمكنك بعد ذلك تعديل اسم المستخدم وكلمة المرور من زر اسم المستخدم في صفحة الاعدادات ويمكنك تعديل كلمة المرور للتعديلات من نفس الزر كلمة المرور للتعديلات "بسم الله" 2- صفحة القيود هي الصفحة التي يتم فيها التعديل واصبحت صفحة دفتر الاستاذ صفحة للتنقل السهل من القوائم لجميع الحسابات في ميزان المراجعة واختيار تواريخ اختيارية من القوائم للكشوفات ارجو من الله تعالى ان ينال رضاكم فقط لا تنسونا من الدعاء ولا تنسونا من ملاحظاتكم اخوكم خبور __________________________.rar

السلام عليكم، المرفق يحتوي على برنامج حساب العمر الذي تم طرحه مسبقاً في المنتدى .. ولكن هذه المره ليس بالتاريخ الميلادي فقط .. بل وبالتاريخ الهجري أيضاً. أتمنى أن يحوز على رضاكم، Age_Calculation.rar