عبدالله باقشير

السلام عليكم Tag مكان متاح مع اغلب الكائنات لتخزين اي معلومة فيه Evaluate خاصية لتحويل المعادلة الى قيم او قيمة واحدة حسب ناتج المعادلة يعني مثل خاصية الاسماء في الاكسل عمل الكود يقوم بحفظ المعادلة في Tag ثم يقوم بتحويلها الى قيمة .في مكان كتابتها

السلام عليكم هناك حلين اختر احداهما الاول: تحول الارقام في العمود N الى قيم في ورقة Data الثاني: غير معادلة المعيار التي في الخلية O2 في ورقة قوائم بهذه المعادلة =AND(IF(LEN($C$1);Data!M4=$C$1;TRUE);IF(LEN($G$1);VALUE(Data!N4)=$G$1;TRUE)) تحياتي

السلام عليكم هذه للسنة =SUMPRODUCT(N(YEAR(B4:B31)=1980)) وهذه للشهر =SUMPRODUCT(N(MONTH(B4:B31)=1)) تحياتي

اضف الكود التالي Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True With Me.TextBox1 .Value = .Tag End With End Sub تحياتي

اعذرني...... لم افهم ماذا تريد بالضبط

وعليكم السلام ورحمة الله وبركاته وتقبل الله صيامكم وقيامكم بمزيد من الأجر والثواب...وكل عام وانتم بخير الدالة VALUE من الدوال النصية وهي موجودة عندي في 2003 و 2010 لا ادري لماذا هي غير موجودة عندك ؟؟ تحياتي لشحصكم الكريم

وعليكم السلام ورحمة الله وبركاته الدالة VALUE من الدوال النصية وهذه تعليمات الدالة من تعليمات دوال الاكسل الوصف تحويل السلسلة النصية التي تمثل أحد الأرقام إلى رقم. بناء الجملة VALUE(text)يحتوي بناء جملة الدالة VALUE على الوسيطات (وسيطة: قيمة توفّر معلومات لإجراء ما، أو حدث، أو أسلوب، أو خاصية، أو دالة، أو برنامج جزئي.) التالية: Text (النص) مطلوبة. النص الموجود بين علامات اقتباس أو مرجع لخلية تحتوي على النص الذي ترغب في تحويله. ملاحظات يمكن أن يكون Text أي من التنسيقات الثابتة للأرقام، أو التواريخ، أو الأوقات التي يتعرف عليها Microsoft Excel. إذا لم تكن text بأي من هذه التنسيقات، ترجع VALUE قيمة الخطأ #VALUE!. أنت لست بحاجة إلى استخدام الدالة VALUE في إحدى الصيغ حيث يحوّل Microsoft Excel النص تلقائياً إلى أرقام عند الضرورة. تتوفر هذه الدالة للتوافق مع برامج جداول البيانات الأخرى.

السلام عليكم جرب التالي Private Sub CommandButton1_Click() [a1] = Me.TextBox1.Tag End Sub Private Sub TextBox1_AfterUpdate() On Error GoTo 1 With Me.TextBox1 .Tag = .Value .Value = Evaluate(CStr(.Value)) End With 1 End Sub تحياتي

السلام عليكم كل عام وانتم بخير الشكر واصل لجميع المشاركين.....حفظكم الله معادلة الاخ الفاضل محمد عبد الغني اوحت لي هذه المعادلة البسيطة =VALUE(TRIM(SUBSTITUTE(B2;CHAR(160);""))) ارجوا ان فيها الفائدة تحياتي

جزااك الله خيرا تفضل جرب هذا Private Sub TextBox1_AfterUpdate() On Error GoTo 1 Me.TextBox1 = Evaluate(CStr(Me.TextBox1)) 1 End Sub مع العلم انه يمكنك وضع المعادلة بدون استخدام علامة المساوى "=" يعني ممكن تكتب 6*8 تحياتي BBBB.rar

جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row If Not Intersect(Target, Range("A1:C" & LR)) Is Nothing Then LR = LR - 9 If LR <= 0 Then LR = 1 Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value Range("I1").Resize(10, 1).Value = Cells(LR, "B").Resize(10, 1).Value Range("J1").Resize(10, 1).Value = Cells(LR, "C").Resize(10, 1).Value End If End Sub

السلام عليكم ضف السطرين هذه للكود تحت السطر السابق الخاص بالععمود A .Range("I1").Resize(10, 1).Value = Cells(LR, "B").Resize(10, 1).Value .Range("J1").Resize(10, 1).Value = Cells(LR, "C").Resize(10, 1).Value تحياتي

السلام عليكم جرب الكود التالي مع ملاخظة انه يتم وضعة في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F8:F12")) Is Nothing Then Cells(Target.Row, "G").ClearContents End If End Sub المرفق 2010 تحياتي example1+.rar

السلام عليكم جرب هذه المرفق 2003 AAAAA.rar

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

السلام عليكم شاهد المرفق 2003 فورم لاستبدال كلمات فى صفحات محددة22.rar

السلام عليكم جزاكم الله خير وكل عام و انتم بخير

آلَسِلَآمً عٌلَيِکْمً وٌرحًمًة آلَلَهّ وٌبًرکْآتٌهّ يِسِـرنِي وٌيِسِـعٌدٍنِي أنِ أتٌـقُدٍمً لَکْمً بًخِـآلَصّ آلَتٌـهّـآنِيِ وٌآلَتٌـبًريِکْآتٌ بًمًنِآسِـبًةً شُـهّـر رمًضًـآنِ آلَمًبًآرك أعٌآدٍهّ آلَلَهّ عٌلَيِنِآ وٌعٌلَيِکْمً آعٌوٌآمًآً مًدٍيِدٍة وٌأنِتٌـمً تٌـلَبًسِـوٌنِ لَبًآسِ آلَصّـحًة وٌآلَعٌآفُـيِة. ‏​‏​‏​‏​‏​‏​‏​‏​‏​‏​‏ الْلَّھُم أَهِلَّه عَلّيْنَا بِالْأَمْنّ وَالإِيْمَانَ وَالْسَّلامَةِ وَالْإِسْلَامَ وَالْعَوْن عَلَى الْصَّلاة وَالصِّيَام وَتِلَاوَة الْقُرْآَن الْلَّھُم سَلِّمْنَا لِرَمَضَانَ وَسَلَّمَه لنا وَتَسَلَّمْه مِنّا. وكل عام و انتم بخير ... اللهم آمين .

السلام عليكم معادلة التنسيق الشرطي =AND(E$2>=$B3;E$2<=$C3) شاهد المرفق 2010 نموذج مخطط الإجازة.rar

جزاكم الله خيرا وكل عام وانتم بخير

أخى الفاضل / يسري محمد أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق ثانيا : العنوان الذي وضعته مخالف لقواعد المشاركة لذا تم تغييره وارجوا الانتباه لهذه النقطة مستقبلا حتى لا يتعرض الموضوع للاغلاق قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم جزاكم الله خيرا هكذا تقدر تعرف رقم اي زر تضغط عليه Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) MsgBox KeyAscii End Sub جرب واشعرنا بالنتيجة تحياتي

جرب هذا Private Sub Worksheet_Calculate() Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row - 9 If LR <= 0 Then LR = 1 With ورقة2 .Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value End With End Sub تحياتي

تقصد ان التغيير يجدث للقيم التي في العمود A طيب وكيف يتم التغيير هل يدويا او بمعادلة ؟؟

السلام عليكم جرب هذا وهو يعمل بالزر Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row - 9 If LR <= 0 Then LR = 1 With ورقة2 .Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value .Select End With End Sub اذا اردته تلقائي حدد في اي حدث تريده تحياتي