اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
  • Posts

    4,029
  • تاريخ الانضمام

  • Days Won

    151

أ / محمد صالح last won the day on أغسطس 22

أ / محمد صالح had the most liked content!

السمعه بالموقع

3,626 Excellent

عن العضو أ / محمد صالح

  • تاريخ الميلاد 01 ينا, 1977

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم أول (أ) لغة عربية
  • البلد
    مصر - البحيرة - إيتاي البارود
  • الإهتمامات
    برمجة الاكسيس والفيجوال بيزيك والاكسيل والمواقع

وسائل التواصل

  • MSN
    ostaz_mas@hotmail.com
  • Website URL
    https://www.mr-mas.com
  • Yahoo
    ostaz_mas
  • Skype
    ostaz_mas

اخر الزوار

14,971 زياره للملف الشخصي
  1. أخي الكريم حسب فهمي للمطلوب ضع هذه المعادلة في الخلية B26 =SUMPRODUCT(B6:B22,$Y$6:$Y$22) بالتوفيق
  2. الرسالة معناها ان الملف مرتبط بملفات اخرى ويسالك عن تحديث البيانات من الملفات المصدر أو عدم التحديث
  3. طالما لا يمكن جلب البيانات بصورة طبيعية من الاكسل جرب استعمال هذا الكود Sub mas_getdata() Dim IE As Object, clip As Object Sheet1.Range("a1").CurrentRegion.ClearContents Set IE = CreateObject("InternetExplorer.Application") IE.Visible = 1 IE.Navigate "https://www.saudiexchange.sa/wps/portal/tadawul/market-participants/issuers/issuers-directory/company-details/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zi_Tx8nD0MLIy83V1DjA0czVx8nYP8PI0MDAz0I4EKzBEKDEJDLYEKjJ0DA11MjQzcTfW99KPSc_KTIGZllJQUWKkaqBqUJKYklpfmqBroRyXn5xYk5lUGV-Ym5QMVGRkYG-iHEzK1IDsop6zSUREAbm86Ww!!/#chart_tab2" Do While IE.ReadyState = 4: DoEvents: Loop Application.Wait DateAdd("s", 15, Now) 'tools - references - microsoft forms 2.0 Set clip = New DataObject clip.SetText "<table>" & IE.document.getelementbyid("adjustedPerformanceView").innerHTML & "</table>" clip.PutInClipboard Sheet1.Range("A1").Select Sheet1.PasteSpecial "Unicode Text" Sheet1.Range("A1").Select IE.Quit Set IE = Nothing MsgBox "Done by mr-mas.com" End Sub وهو لفتح انترنت اكسبلورر والانتقال للرابط ثم الانتظار 15 ثانية حتى يتم تحميل الجدول ثم نسخ الجدول للشيت بالتوفيق mas get data from web.xlsb
  4. هل يعمل هذا الرابط على انترنت اكسبلورر؟ إذا كان يعمل بصورة طبيعية أرسل الرابط حيث يمكن فتح الرابط في انترنت اكسبلورر وقراءة محتويات الجدول ونقلها إلى الشيت بالكود
  5. يا ريت توضح أكتر المطلوب لأن الملفين متطابقين يختلفان فقط في سنة نهاية الاقامة 2 / 7 / 2023 بدلا من 2 / 7 / 2022 وهكذا
  6. جهد مشكور أستاذ محمد هشام ولكني أقترح على الأخ صاحب السؤال أن يعيد هيكلة ملفه ليتوافق مع قواعد البيانات حتى يسهل استخراج المعلومات منه لذا أقترح مثلا أن يكون بهذه الصورة بالتوفيق
  7. الدالة indirect هدفها هو تحويل نطاق مكتوب على شكل نص إلى نطاق وقد تم تمرير اسم الشيت الموجود في الخلية j6 وبعده ! وبعده النطاق المطلوب البحث فيه
  8. عليكم السلام جرب وضع هذه المعادلة في الخلية L6 =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق
  9. حسب فهمي للمطلوب تم إضافة خلية تكتب فيها عدد الشهور وبناء عليها يتم كتابة تاريخ النهاية ويتم حساب رصيد آخر المدة في هذا التاريخ بالتوفيق جلب اكبر واصغر قيمة لتاريخ.xls
  10. بعد إذن أخي الكريم @محي الدين ابو البشر يمكنك استعمال هذه المعادلة =SUM(COUNTIF(INDIRECT({"$F$4:$F$12","$J$4:$J$12","$N$4:$N$12"}),"<40")) مع ملاحظة القوسين المعقوفين وعلامات التنصيص حول كل نطاق بالتوفيق
  11. جرب استعمال هذi المعادلة في الخلية B10 =IF($C$3+ROW()-10>=$C$3+$C$6,"",$C$3+ROW()-10) مع سحب المعادلة لأسفل بالتوفيق
  12. لقد قلت لحضرتك يمكنك توظيفه وليس مجرد وضعه في اكوادك والتوظيف هو أن تخزن هذا المسار في متغير وتستعمل هذا المتغير في مسار حفظ ملفات ال PDF أكوادك غير واضحة لي وإلا كنت من البداية وظفته لك بالتوفيق
  13. كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 5 Then Range("e" & Target.Row).Value = Now() End Sub ويعني أنه إذا تم التعديل في العمود الثاني ( B ) وبعد الصف الخامس يتم وضع الوقت والتاريخ في الخلية E لنفس الصف ويمكن توسيع العمود E وتغيير تنسيق الوقت والتاريخ بالتنسيق المطلوب بالتوفيق
  14. إن شاء الله يكون هذا هو المطلوب تم إنشاء معادلة للصف الأول ومعادلة للصف من الثاني إلى 99 نظرا لأن الترقيم لديك تنسيقه 00 وطبعا يمكن زيادته بزيادة عدد الأصفار بالتوفيق إنشاء تسلسل بالمعادلات.xlsx
×
×
  • اضف...

Important Information