أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
وليد 99999 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة تعديل معادلة صفيف اكسيل اسئله واجابات


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





تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم

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



02-05-2020 04:07 مساء
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 454
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 2
يتابعونه : 9
قوة السمعة : 846
عدد الإجابات: 8
 offline 

السلام عليكم أساتذة وأعضاء المنتدى الأوفياء

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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


 
 
  فورم مواقيت الصلاة.xlsb   تحميل xlsb مرات التحميل :(8)
الحجم :(41.319) KB


02-05-2020 04:50 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
وعليكم السلام أخي مهند وكل عام وأنت بخير
هلا حددت المشكلة بالضبط أو المطلوب بشيء من الدقة ...؟ وضح ما توصلت إليه من أكواد والنقطة التي تعثرت بها ليستطيع الأعضاء تقديم المساعدة المطلوبة.

03-05-2020 11:24 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
ممكن تفاصيل أكثر .. أين أوقات الصلاة التي تريد عرضها ؟ هل هي بورقة العمل ؟ أم تريد جلبها من الموقع ..؟ !!

03-05-2020 11:32 صباحا
مشاهدة مشاركة منفردة [3]
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 454
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 2
يتابعونه : 9
قوة السمعة : 846
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
بارك الله فيك استاذى الكريم ولكنى لم اتوصل الى الأن الى الأكواد التى تمكنى وتساعدنى فى عرض اوقات الصلاة كما ترى بالفورم الأصلى .. ياريت لو هناك اى مساعدة ,جزاكم الله كل خير
جزاك الله كل خير استاذ ياسر --بالفعل اريد جلبها من الموقع , بارك الله فيك

03-05-2020 11:51 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
الروابط الخاصة بكل دولة وكل مدينة مرتبطة برقم ID ..أي أنه لكل دولة رقم ولكل مدينة رقم .. لابد من وضع تلك البيانات بورقة عمل بحيث تتمكن من تتبع الروابط

03-05-2020 12:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
الموضوع كبير إلى حد ما لذا يجب تناول الموضوع نقطة نقطة أخي مهند ..
فلنبدأ أولاً بجلب البيانات الخاصة بكل دولة وبكل مدينة بالأكواد لأن عمل ذلك بشكل يدوي قد يستغرق وقت طويل .. وقد لا يكون بالدقة الكافية
أنا أحاول الآن عمل كود لجلب الدول والأرقام المرتبطة بها ..

03-05-2020 04:47 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصميم فورم مواقــيت الصـلاة لجمـيع مـدن العالـم
أخي الكريم مهند ..
تفضل الكود التالي (وهو كود يحتاج لتفعيل بعض المكتبات من خلال قائمة Tools ثم References) والمكتبات هي Microsoft HTML Object Library ومكتبة Microsoft XML, v6.0
الكود سيعمل على ورقة العمل النشطة لذا قم بتنشيط ورقة عمل فارغة تماماً ثم نفذ الكود (الكود ستنفذه لمرة واحدة وبعد ذلك تستخدم تلك البيانات في الفورم) ..
سيقوم الكود بجلب الدول وبجوار كل دولة الرقم المرتبط بها (هذا سيكون في الصف الأول) ، وتحت اسم كل دولة المدن التابعة لها وأرقام الـ ID المرتبطة بكل مدينة في هذه الدول

وأخيراً إليك الكود
Sub Test()
    Const sURL As String = "https://www.masrawy.com/Islameyat/Prayer-Times"
    Dim v, html As MSHTML.HTMLDocument, ws As Worksheet, post As Object, sID As String, nURL As String, i As Long, c As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set html = GetHTML(sURL)
    Set post = html.querySelectorAll("div .wrapperDropdown[tabindex='1'] li")
    c = 1
            
    With post
        For i = 0 To .Length - 1
            ws.Cells(1, c).Value = .Item(i).innerText
            sID = .Item(i).getElementsByTagName("a")(0).getAttribute("countryid")
            ws.Cells(1, c + 1).Value = sID
            nURL = "https://www.masrawy.com/Islameyat/GetCityList?countryId=" & sID
            v = GetCities(nURL)
            ws.Cells(2, c).Resize(UBound(v, 1), UBound(v, 2)).Value = v
            c = c + 2
        Next i
    End With
End Sub

Function GetCities(ByVal sURL As String)
    Dim html As MSHTML.HTMLDocument, post As Object, i As Long
    Set html = GetHTML(sURL)
    Set post = html.querySelectorAll("#ulCityList li")
    With post
        ReDim a(1 To .Length, 1 To 2)
        For i = 0 To .Length - 1
            a(i + 1, 1) = .Item(i).innerText
            a(i + 1, 2) = .Item(i).getElementsByTagName("a")(0).getAttribute("cityid")
        Next i
    End With
    GetCities = a
End Function

Function GetHTML(ByVal sURL As String) As HTMLDocument
    Dim http As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument
    Set http = New MSXML2.XMLHTTP60
    Set html = New MSHTML.HTMLDocument
    With http
        .Open "Get", sURL, False
        .send
        html.body.innerHTML = .responseText
    End With
    Set GetHTML = html
End Function




الكلمات الدلالية
تصميم ، فورم ، مواقــيت ، الصـلاة ، لجمـيع ، مـدن ، العالـم ،


 










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

الساعة الآن 10:54 صباحا