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

بسم الله الرحمن الرحيم نبدا اليوم باذن الله سلسلة كن محترف vba او تعليم vba للمبتدئين اولا احب ان اتوجة بالشكر لكل استاذتنا بالمنتدى واستاذن منهم فى طرح هذة السلسلة البسيطة ربما تنفع اى شخص وانا هنا ما زلت تلميذ فى مدرسة العلم منتدى اوفيسنا فارجو من حضراتكم ان تقبلوا طالب علم يعلم بعض من العلم الذى تعلمة على ايديكم والان نبدا فى شرح الجزء الاول من هذة السلسلة وسنشر باقى الاجزاء تباعا فور الانتهاء منها الجزء الاول https://youtu.be/qz-nKd39lXY

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

جميلة الفكرة وجديدة واعجبتني ويكتمل جمالها بتنفيذها تفضل هذا مثال جديد واستوردت الجدول الرئيسي مع انشاء نموذج جديد حبيت انفذ الفكرة بشكل بسيط وواضح خطوات او فكرة الحل : - انشاء مربعات نص بنفس مقاس مربعات السرد - انشاء تعبير بداخل كل مربع لجلب القيم المطلوبة من مربعات السرد - وضع خاصية التاق للمربعات المراد اظهارها واخفاؤها وباسم "aa" اذهب الى خصائص المربع ثم غير ذلك ثم خاصية العلامة - وضع كود يلف على اي عنصر تتوفر فيه الخاصية علامة= aa فيقوم باخفائها في حالة الاضافة او التعديل واظهارها في البحث سؤال : هل هذا شبيه بالذي رايته في احد البرامج كما ذكرت ؟ بالتوفيق New Microsoft Access Database (6).rar

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

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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

السلام عليكم ورحمة الله وبركاته انا بصدد الدخول في مشروع كبير لأرشفة ملفات العاملين في المصلحة التي أعمل بها وهي كثيرة ، فهل عندكم برنامج أكسيس لعمل أرشفة الكترونية وتخزين الملفات فيه وترتيبها وفهرستها . جزيل الشكر والامتنان

و عليكم السلام و رحمة الله و بركاته ... بداية نعم يمكن و بعد بحث طويل توصلت الى نتيجة انتظرني ... ان شاء الله اعود لك بمثال اعمل عليه حاليا

جرب هذا الملف (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) Book1.rar

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

السلام عليكم اساتذتي وبعد شكري الجزيل لكم وعلى حروفكم التي تنير نوراً تنير لنا طريق العلم عبدالله -كرار - رمهان حلت المشكلة وكانت بسطر بالكود زائد Me.sub_frm.SourceObject = "frm1" تحياتي لكم جميعاً

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

هذا ما يشير له الاستاذ جعفر في توقيعه ... في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، هو فائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال ، ونتعلم خبايا البرمجة

ممكن تحمل الملف هنا حاولت تحميله من الرابط الخارجي بس يطلب منى تسجيل قم بضغط الملف وحمله هنا تحياتي

السلام عليكم تفضل اخي الكريم ما قمت به التالي 1- اضفت عمود جديد باسم oldnumber 2- اضفت نموذج لاضافة التأشيرات بحيث عندما تقوم باضافة في عمود ModuleCrn ستظهر اخر تأشيرة في العمود الذي أضفته CngAndMoudel.rar

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

جرب هذا الماكرو على اساس ان البيانات تبدأ من الخلية A1 وحتى العامود D Sub InsertRowsAfter() Dim rg, MyCell, First_rg As Range Dim lr, x As Integer lr = Cells(Rows.count, 1).End(3).Row Set rg = Range("a1:a" & lr) Set First_rg = Range("a1:d1") For i = 2 To lr * 2 If Cells(i, 1).Value <> "" Then Cells(i, 1).Offset(1, 0).EntireRow.Insert End If Next x = Cells(Rows.count, 1).End(3).Row For i = 2 To x If IsEmpty(Cells(i, 1)) Then Range(Cells(i, 1), Cells(i, 4)).Value = First_rg.Value End If Next Cells(x + 2, 2) = "المجموع" t = "=SUM(D2:D" & x & ")" Cells(x + 2, 4) = Evaluate(t) End Sub

ممكن تكتب بالمعادلات "رياضيا " كيف نجد قيمة -a1

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

تسلم يدك استاذ كرار صبري _ أبو جنى على هذا الحل العبقري

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

مشكورين وجزاكم الله خيرا الحمد لله تم ايجاد الحل

هل تقصد مثلا اذا كان r= 0.76 اعطي a1=0.52 a2= 0.19 ... اذا كان هذا هو المطلوب مثلا ارى ان r في الجدول في الاسفل =1.44 ... و القيمة الموجودة في الاعلى هي 1.4 ؟؟؟

اخي العزيز ابحث في المنتدى قبل فتح موضوع جديد ... تفضل ... اعتقد ان هذا ما تريد ...

و عليكم السلام و رحمة الله و بركاته ... من رخصة أخي عبد الله ... =[ subform ]![ text1 ] انا جربتها عندي و تمام ...

تم التعديل لاحظ أن الوظيفة يتم اختيارها من القائمة المنسدلة المناطق الصفراء بها معادلات تفضل 1001B3.rar

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

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

دعنا نعمل على حقل واحد الذي هو الرتبة والحقل ال فوقه الذي هو حقل rotb اولا : مصدر بيانات النموذج هو استعلام داخلي ( ولا بد تدخل وتطلع عليه ) ليش ؟ لانه مكون من عدة جداول ( اخبرني اذا لم تتمكن من الاطاع عليه ) فالحقل الرتبة مصدره الحقل النصي الموجود في الاستعلام وهو ماخوذ من جدول الرتب بينما حقل rotb مصدر السجل الحقل الرقمي الموجود ايضا في الاستعلام وهو ماخوذ من الجدول الرئيس ايضا حقل rotb مصدر الصف فيه هو جدول الرتب فيه شي اسمه مصدر السجل ( وفي الحقول اسمه مصدر عنصر التحكم) وشي اسمه مصدر الصف ( مصدر الصف موجود فقط في القوائم والمنسدلات ) ما الومك خبس الخبش خمس عندي لك نصيحة سريعة ومفيدة لمن يريد سرعة وسهولة التعلم : اجعل تسميات الجداول والحقول بحروف انجليزية حتى تتمكن من فهم الاكواد بيسر ايضا اضطررت لاطلاع على مثالك ان انقله على حاسبة اخرى لان في حاسبتي الاصدار 2003 لذا حاول دائما ان تكون امثلتك على صيغة mdb لتمكن اكبر شريحة من الاطلاع عليها اما كيف جبتها ؟ انقر النقاط الثلاث في مصدر الصف وكما ذكرت لك مصدر الصف هو جدول الرتب

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

ما فهمت قصدك وان كنت تقصد مصدر بيانات النموذج فهو الاستعلام الفرعي الداخلي كيف تصل اليه ؟ : افتح خصائص النموذج / لسان التبويب بيانات في القيمة مصدر السجل وهي اول واحدة الى الاعلى انقر النقاط الثلاث التي على يسار القيمة ليظهر لك مصدر بيانات النموذج

أخى الفاضل بارك الله فيك تم وضع المعادلة بالفاصلة المنقوطة و تعمل بكفاءة فى اوفيس 2003

أخي الكريم جمال الخطيب .. قم بالإطلاع على الرابط التالي ، وفيه حل لمشكلتك إن شاء المولى الرابط من هنا

أخي الكريم جمال الخطيب أعتذر للتأخر في الرد على طلبك فقد كنت مشغولاً جداً ، وإليك الطلب الذي طلبته على الرابط التالي بالتفصيل الرابط من هنا

جرّب أخي الكريم إحدى الخبّوريات بالضغط على الخليّة C9 ثم الضّغط على اليوم المحدّد .. أسهل و أشْيَكْ و إنْ لمْ ترقْ لك يا رايقْ سنرى غيرها .. الرّايق.rar

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

السلام عليكم ورحمة الله منذ فترة ليست ببعيدة كنت قد عرضت برنامج بسيط وجميل وهو برنامج"دليل حسابات بعدد لانهائي من المستويات" في هذا الرابط برنامج دليل حسابات بعدد لانهائي من المستويات وكانت فكرة البرنامج جديدة وجميلة في الطرح نظراً لأنه تستطيع اضافة عدد غير محدود من الحسابات حتى لو وصل العدد الى 10000 حساب وحتى المستوى 20 وكان يوجد فيه فكرة التنقل بين الحسابات لعرضها في الفورم وذلك كما في الصورة التالية (الاسهم الخضراء التي في اسفل الصورة) ولكن كود التنقل كان بطئ بعض الشي في التنفيذ والأداء علماً الكود بالطريقة البرمجية صحيح مئة بالمئة .... ففي الملف المرفق أنشاءت فورم شبيه للصورة ولكن نريد التنقل بناء على معيارين شاهدو الملف المرفق يوجد الشرح بشكل اوضح وأجمل بارك الله فيكم الطريقة المثالية للتنقل بين الخلايا.rar

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

السّلام عليكم و رحمة الله و بركاته أخي الكريم " الرايق 2080 " كل أنواع التّواريخ بأشكالها و ألوانها موجودة بإذن الله .. أنت تأمر فقط .. وإذا لم يعجبك هذا .. غيّرناه و إذا كنت تريد الاحتفاظ بالتاريخ الهجري وحده .. إحذف هذا الجزء الملون بالأزرق و الليبل المخصصة له إحتراماتي التاريخ على الفورم هجري و ميلادي 1.rar

باذن الله يمكن ان يتم عمل ذلك ولكن اذا كنت ترغب في عمل مثل هذه الارتباطات يمكن ان ترفق المثال الذي تريده حتى يستطيع الاخوة الكرام مساعدتك

و عليكم السلام و رحمة الله و بركاته ... تفضل هذا المثال من المنتدى و شغال عندي 2010 HideWin.rar

بعد أذن اخي و صديقي العيدروس و اثراء للموضوغ هذا الكود Sub Salim_Rows() Dim Lr&, lr2& With ActiveSheet Application.ScreenUpdating = False Lr = .UsedRange.SpecialCells(xlCellTypeLastCell).Row Range("a5:a" & Lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Range("a5:a" & Lr).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete lr2 = Cells(Rows.Count, "o").End(3).Row Range("o5:o" & lr2 - 1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete Application.ScreenUpdating = True End With End Sub

السلام عليكم تفضل Sub Ali_Rows() Dim Rng As Range, Rng_a As Range Dim Lr& With ActiveSheet Application.ScreenUpdating = False Application.EnableEvents = True Lr = .UsedRange.SpecialCells(xlCellTypeLastCell).Row For Each Rng In Range(Cells(5, 1), Cells(Lr, 1)) If Rng = Empty Or Trim(.Cells(Rng.Row, 15)) = "الاجمالى" _ Or Trim(CStr(Rng)) = "دائن" Then If Not Rng Is Nothing Then If Rng_a Is Nothing Then _ Set Rng_a = Rng Else Set Rng_a = Union(Rng_a, Rng) End If Next If Not Rng_a Is Nothing Then Application.DisplayAlerts = False ''************************ Rng_a.EntireRow.Delete ''************************ Application.DisplayAlerts = True End If Set Rng = Nothing:Set Rng_a = Nothing Application.ScreenUpdating = True Application.EnableEvents = False End With End Sub

مرفق لكم احكام التجويد ( حفص ) نسأل الله أن يجزى صانع العمل خير الجزاء Tajwid.rar

1109685033.zipهذا الملف من جديد