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

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الباب يا سمسم بس ياريت ياأبوالبراء لو فتحت الباب وكان فى حد بالحمام تقفل الباب تانى تستنا لحد ما يرجع طنطا أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات فتح الفورم على طريقة فتح الباب.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

اخي عبد العزيز اخي ابو البراء جزاكم الله خيرا

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

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

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

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

أخي عبذ العزيز عمل رائع و الفكرة اروع جزاك الله خيرا

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

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

السلام عليكم اخي العزيز طريقة بسيطة حدد العمود المراد اخفاء المعادلات فيه كليك يمين ثم format cells اذهب إلى protection واختاؤ علامة الصح في كلا المربعين ثم OK الان من الصفحة الرئيسية اختار REVIW - ثم PROTECT SHEET ممكن ان تضع كلمة سر او لا حسب ما تريد done تقبل التحيات

الف مليون مبروك

ربنا يعزك الامتحانات هاتنتهي اخر الاسبوع ان شاء الله

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

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

هذا هو الملف بعد التعديل بحث.rar

الحل هو التحايل على مربع البحث وتحريره من التركيز جرب ارسال المفتاح كما هو موضح وافدنا بالنتيجة Dim X X = text1.Text text2 = X Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & text2 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Me.text1.SetFocus SendKeys "{f2}" Else DoCmd.GoToRecord , , acNewRec End If

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

ماتقوم به الداله هو الصحيح لغويا

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

هو يقصد تقريبا كتابة المعادلات الرياضية equation موجودة في الورد 2013 وسهلة الاستخدام والمعادلات تقريبا كلها رموز وانت فقط تختار ما تريد منها يعنى لا تحتاج إلى اللغة العربية والله أعلم

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

السلام عليكم ايش رأيك في هذه الطريقة: سحب أكثر من حقل من سجل واحد في الجدول ، وهذا الرابط فيه المثال http://www.officena.net/ib/index.php?showtopic=61152&p=394338 جعفر

MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode)

مشكور على الشرح الجميل ده علما بأن الدالة دي مدوخاني من الصبح :) قياسا على اول مثال لو محتاج اول ما اكتب الكود يبحث تلقائي في جدول الاصناف على اسمه وكمان على سعره مش زي ما حضرتك ادرجت في المثال الكود 15 فقط