أ / محمد صالح

يمكنك الكتابة في الحقول بأي لغة تريد ولكن يتم قبلها تغيير لغة النظام إلى اللغة المطلوبة فكيف تكتب انجليزي مثلا ولغة النظام عربي اللهم إلا إذا استعملت keycode في حدث مثل keydown

اقتراح جميل شوف ايه المطلوب في سوق العمل عندك وإن شاء الله نقوم به جميعا

نعم انا ألفتها بعد تنحي مبارك مباشرة راجيا أن يصلح الله أحوالنا جميعا

بعد إذن أخي محمد ابو عبد الله وإذا كنت تريد التصدير لنفس الملف يمكنك استبدال هذا السطر في كود التصدير ExpEX = CurrentProject.Path & "\" & "tbl_Items.XLSX" بالتالي ExpEX = Me.FilePath.Value طبعا بشرط أن يتم تحديد الملف بزر استعراض اولا والا يكون اسم الملف فارغا بالتوفيق

يمكنك استعمال هذا الشرط ضع في المصفوفة shArr اسماء الشيتات التي ترغب البحث فيها وغير كود for each x الى shArr = array("sheet1","sheet2","sheet3") For Each x In ThisWorkbook.Worksheets if UBound(Filter(shArr, x.name)) > -1 then ss = x.Cells(Rows.Count, 2).End(xlUp).Row For Each C In x.Range("c3:c" & ss) b = InStr(C, TextBox19) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(C.Row, 1).Value ListBox1.List(k, 1) = x.Cells(C.Row, 2).Value ListBox1.List(k, 2) = x.Cells(C.Row, 3).Value ListBox1.List(k, 3) = x.Cells(C.Row, 4).Value ListBox1.List(k, 4) = x.Cells(C.Row, 5).Value ListBox1.List(k, 5) = x.Cells(C.Row, 6).Value ListBox1.List(k, 6) = x.Cells(C.Row, 7).Value ListBox1.List(k, 7) = x.Cells(C.Row, 8).Value ListBox1.List(k, 8) = x.Cells(C.Row, 9).Value ListBox1.List(k, 9) = x.Cells(C.Row, 10).Value ListBox1.List(k, 10) = x.Cells(C.Row, 11).Value ListBox1.List(k, 11) = x.Cells(C.Row, 12).Value ListBox1.List(k, 12) = x.Cells(C.Row, 13).Value ListBox1.List(k, 13) = x.Cells(C.Row, 14).Value ListBox1.List(k, 14) = x.Cells(C.Row, 15).Value ListBox1.List(k, 15) = x.Cells(C.Row, 16).Value ListBox1.List(k, 16) = x.Cells(C.Row, 17).Value ListBox1.List(k, 17) = x.Cells(C.Row, 18).Value k = k + 1 End If Next C end if Next x بالتوفيق

بعد استعمال البحث في المنتدى ستجد الكثير إن شاء الله تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=progress bar&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

هل الموجود في المدة المحددة تاريخ واحد ام اكثر من تاريخ؟؟

لتحويل المعادلة الى كود يمكنك استعمال هذا الإجراء With Range("e3") .Formula = "put your formula here" .Value = .Value End With ويمكنك تغيير النطاق كما تشاء بالتوفيق

اذا كنت لا ترغب في رفع عينة من ملفك توضح المطلوب فهذه النتائج تفيدك بإذن الله Showing results for 'datedif'. - أوفيسنا (officena.net)

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

شكرا لكلماتك الطيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

جرب ترحيل قيمة مربع النص بدلا من النص Range("a1").value = me.textbox1.value مع التأكد من تنسيق الخلية التي يتم الترحيل إليها عام او رقم وبالنسبة لموضوع تسريع التنفيذ فيجب معرفة الكود المستعمل اولا بالتوفيق

أخي الكريم Gamor هذا كود بسيط يمكنك استعماله وتوظيفه كما تشاء الأخ الفاضل gelani يرجع هذا لاستعمالك نظام تشغيل 64 بت تم وضع نفس الملف لنسخة 64 في المشاركة الأولى الصديق الكريم. ابوخليل كلامك صحيح جدا ولكن كان هذا هو المتاح في عام 2009 تحياتي

شكرا لدعمكم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

ذكريات جميلة من 2009 شكرا جزيلا لكل من دعم وشجع بالكلمة الطيبة ومشاركة المعلومة مع جميع الأصدقاء وتذكر دائما لو بخل بها غيرك ما وصلت إليك

شكرا لكل من يدعم ويشجع بالكلمة الطيبة ومشاركة المعلومة مع جميع المهتمين

يمكنك تجربة هذه المعادلة في الخلية E2 =IF(B2>=A$2,SUMIF(B:B,B2,D:D),"") ارجو ان يكون هذا هو المطلوب

ما الذي يكون مساويا للمتوسط السعر ام مجموع النسب؟

ربما يكون المطلوب عد الطلاب الحاصلين على أكثر من المتوسط وليس جمع النسب المئوية

حسب فهمي للمطلوب تم جعل صفحة الطباعة صفحة واحدة ويتم استدعاء باقي الصفحات بكتابة رقم الصفحة في الخلية E1 تم تلوين الخلايا التي وضع معادلات فيها ويمكنك زيادة عدد سجلات (صفوف) الصفحة وذلك باستبدال رقم 11 في المعادلات بالعدد المطلوب ونسخ المعادلات إلى الصف المطلوب لأسفل بالتوفيق ترحيل المجاميع.xlsx

شكرا لكلماتك الطيبة المهم أن نتعلم من الإجابات

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

لعمل هذا الأمر يجب وضع التصنيف في قائمة التحقق من الصحة حتى لا تختلف الاختيارات ومصدرها الخلايا في العمود G وتم وضع المعادلة التالية في الخلية E4 =IF(A4=G$1,C4/D4,D4/C4) ويمكنك سحبها لاسفل بالتوفيق معدل سيارات.xlsx

شكرا لكلماتكم الطيبة ويسعدني أن أذكر لكم أنه تم تطوير الفكرة لتعمل من عام 2017 حتى عام 2025 على هذا الرابط في موقعي المتواضع