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

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

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب بمعادلة تم سحبها إلى آخر عمود في الشيت... بن علية الارقام معكوسة.rar

السلام عليكم جرب اخي المرفق Workbook1.zip

اسمحو لي بالمشاركة =IF(COLUMN()>COUNTA(5:5);"";INDIRECT(ADDRESS(5;COUNTA(5:5)+2-COLUMN())))

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

أخي كرار يمكن حل مشكلة بطريفة أخرى و هي :إضافة هذا الكود في الحدث عند الفتح Application.SetOption " behavior entering field", 2 بحث.rar

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

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

السلام عليكم استعمل اخي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 And Target.Row > 2 Then If IsDate(Target.Value) = True Then For i = 1 To 9 Target.Offset(, i) = DateAdd("m", i, Target.Value) Next End If End If End Sub عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

أخي الكريم وائل شعبان حسب طلبك وملفك المرفق إليك الكود التالي (رغم أنني أعلم أن الموضوع ما زال غير مكتمل أركان التوضيح الكامل وأعلم أن هناك توابع نظراً لقصور التوضيح) .. واوعى تزعل من كلامي .. Sub Search_Using_Arrays() Dim Arr, Temp, I As Long Const strWord As String = "التجربة" Arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord End If Next I Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى وحشتونى كتير والله ارفق لكم ثلاثة امثله مفتوحه المصدر منقوله للامانه وان شاء الله ابو اسيل الغالى يتفحصها كويس ويعملها لينا دروس نستفاد منها اكتر BankManagementSystem.VB.net ChatApplication.VB.net WebBrowser.VB.net تمنياتى لكم بالتوفيق وجزاكم الله كل خير

أخي الكريم أحمد الحمد لله أن تم طلبك على خير ، يرجى تغيير اسم الظهور للغة العربية الأخوة الكرام عبد السلام وسليم بارك الله فيكما وجزيتما خيراً على هذه المعادلات الرائعة والجميلة ، زادكما الله علماً وحلماً تقبلوا تحياتي

بعد اذن اخي صديقي بن علية هذه المعادلة (تسجب من البسار الى اليمين) =INDEX($B$5:$H$5,COLUMNS(B5:$H$5))

بعد اذن اخي غبد السلام معادلة اخرى مطلوب بحث عن رقم الخلية salim.rar

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر ما شاء الله لا قوة إلا بالله ...رائع وعصري... تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته

شكرا لاخونا صالح حمادي وبعد اذنه استبدل الرقم الظاهر في آخر الكود : الرقم 2 للذهاب الى أخر الحقل الرقم 1 للذهاب الى اول الحقل الرقم صفر لتحديد الحقل بالكامل ولزيادة المعلومات وربط المتجانسات : هنــــا وهنـــــا

جرب هذا الكود :كلمة السر Salim هذا الكود يسمح لك بتحديد الخلية التي تحتوي غلى معادلة فقط (دون اي اجراءات اخرى مسح /تعديل /تلوين ...الخ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="Salim" If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With ActiveSheet.Protect Password:="Salim" End If End Sub

السلام عليكم ميزة رائعة جزاكم الله خيراً أخي العزيز الزباري..والشكر موصول للأخ العزيز محمد الريفي الذي عرض لنا طريقة الـ Flash Fill تقبل تحياتي العطرة والسلام عليكم.

نسخ التنسيق السلام عليكم ورحمة الله وبركاته إخوتي الكرام مجرد ومضة : كيف ننسخ التنسيق ونلصقه في عمود أو صف؟ نحدد الخلية المراد نسخ تنسيقها ثم نضغط Click ثم Ctrl+Shift+سهم للأسفل أو الأعلى عندما ترغب لصقها في عمود حسب موقع الخلية من العمود. أو Ctrl+Shift+سهم لليمين أو اليسار عندما ترغب لصقها في صف حسب موقع الخلية من الصف. ويمكننا أيضاً نسخ التنسيق بضغطتين لاستخدام لصقه عدة مرات أو في خلايا متفرقة أرجو أن يثري إخوتي الموضوع بما لديهم من علمٍ يخص نسخ التنسيق ولصقه. والسلام عليكم ورحمة الله وبركاته.

السلام عليكم ورحمة الله وبركاته ..إخوتي الكرام أخي الكريم تيبازي ...جزاكم الله خيراً على الكلمات الطيبة وعلى حسن الظن بإخوانكم أما إخوتي عبد العزيزو الخليفة الأول فقد قدم كل منهم اعتذاره في حينه وهذا دليل على صفاء السريرة .. وكل ابن آدم خطاء ...وكما أسلفت كانوا رجاعين للحق وقد اعتذروا عما بدر منهم في حينه ..ولذلك التمس لإخوانك العذر واعتبر أنه وكأن شيئاً من ذلك لم يكن وابنِ علاقات طيبة معهم لأنهم نِعمَ الصحبة ...والسلام عليكم

اسمحولى اشاركم اخى الكريم عند فتح قاعدة البيانات وجدت الاتى قمت انت وضع قيمة لمتغيرات لم تصرح للبرنامج بانهم متغيرات مسبقا فقمنا بالتصريح عنهم كانهم متغيرات رقمية ثانيا وجدنا انه من الصعوبة نسخ رقم المادة من جدولها ثم بعد ذلك لصقها فى النموذج الفرعى قمنا بالتعويض عن ذلك بمربع تحرير وسرد به رقم المادة ليسهل عليك الاختيار واننا نجد هذا خطا ايضا فكيف بك الحال اذا كنت تمتلك 1000 قطعة هل ستحفظ ارقامهم كلهم . ولكن لك ما طلبت اما بالنسبة للمشكله فكود اخونا كرار صحيح زلكن تم وضعه فى بعد تحديث حقل الكمية هذه قاعدة بيانات بها نموذج fbillcr فقط قم بنسخه ولصقه فى قاعدة بياناتك السيد elsayed.rar

السلام عليكم جزاكم الله خيرا على الاقتراحات و التشجيع و بارك الله فيكم تم مراجعة الاخطاء وتم الاصلاح و لله الحمد لكن لم أجد الرسالة و لم أتمكن من لتحويل الى أوفيس 2003 أعطتنى رسالة و الملف بعد التعديلاتVBALibrary.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اليوم فيديو مميز هيفيد كتير جدا من اعضاء المنتدى وخصوصا كل من يعمل فى مجال المرتبات والماليات وهو كيفية عمل مفردات مرتب لموظف باستخدام الدالة vlookup اتمنى من الله عزو جل ان ينال اعجابكم https://youtu.be/TXTWaMOKtTI

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

الاخوة الكرام مرفق ملف هو عبارة عن كشف حساب للعمليات البنكيه مثل الشبكه السعوديه و الفيزا والماستر كارد .... المشكله التي ظهرت حاليا ان البنك قام بالخصم علي فرعين من الشركه عند اجراء عمليه شبكه سعوديه نسبه 0.7% وفي الفرعين الاخرين نسبه 0.8% في عمود اسمه المخصوم يتم تحويل الخصم الي قيمه وعند المراجعه يوجد فرق بين كشف البنك وكشف الشركه يوجد معادله if وهي تقوم بخصم نسبه 0.7% عند وجود الشبكه السعوديه لكل الفروع وخصم 2% للفيزا والماستركارد المطلوب ان اجعل المعادله تخصم 0.7% عند تحقق شرطين معا تواجد اehab.rarسم الفرع مع الشبكه السعوديه ويخصم نسبه 0.8% عند تواجد اسم الفروع الاخري وهم 2و4 وشكرا لكم جميعا

الله يسعدكم يارب ويوفقكم و يفرج همكم شكرا لكم جميعا ً وبارك في جهودكم

اضغطي Alt+ F11 للدخول لمحرر الأكواد دا رابط ضروري الإطلاع عليه لمعرفة البدايات في التعامل مع الأكواد من هنا

بارك الله فيك أخي الحبيب عبد العزيز البسكري وجزيت خيراً موضوعاتك مميزة ومتميزة .. لا حرمنا الله منك تقبل وافر تقديري واحترامي

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

جزاكم الله خيرا

#,##0.00;-#,##0.00;""

اقدم لك تحياتي وتبركاتي

=SUBSTITUTE(ADDRESS(MAX(IF(N4=($A$1:$H$12);ROW($A$1:$H$12);0));MAX(IF(N4=($A$1:$H$12);COLUMN($A$1:$H$12);0)));"$";"") مطلوب بحث عن رقم الخلية.rar

مبروك الترقية أخي الفاضل أبو مصطفى

ترقية مستحقة الف مبروك شكرا لادارة الموقع

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

شكرا لك اخى الكريم وسدد الله خطاك

مبارك عليك اخى الكريم ووفقك الله وسدد خطاك

وعليكم السلام حياك الله أبوعبدالرحمن هل تريد المتبقي من الأقساط أم عدد الأقساط الكلي ؟ لم تذكر ما هي النتيجة المتوقعة في المثال الذي بالمرفق (اسم الزبون : هدى ) جرب المرفق عدد الاقساط1.rar

و عليكم السلام و رحمة الله و بركاته ... جرب هذا الكود و وافني بالنتيجة DoCmd.GoToRecord , , acNext DoCmd.GoToControl "اسم المادة" تستطيع وضعه بعد تحديث الحقل الذي تريد

و عليكم السلام و رحمة الله و بركاته ... جرب هذا الكود Private Sub names_AfterUpdate() Me.Text20 = DLookup("[id]", "emp", "[emp_name]='" & names & "'") End Sub

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

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

اضافة رائعغة لبرنامج الورد تمكنك من كتابة كل الرموز الرياضية باللغة العربية word tools.zip