اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو

السلام عليكم ورحمة الله وبركاته أهلاً بكم إخواني وأحبابي في الله ... أقدم لكم اليوم النشرة الجوية من داخل الأجواء الإكس ..



01-02-2018 05:33 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 

السلام عليكم ورحمة الله وبركاته

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

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

بعد تنفيذ الكود ستحصل على حالة الطقس لمدة خمسة أيام بالشكل التالي
MTU1NjcyMQ4141Logo

لتنفيذ الموضوع قم بنسخ الكود التالي وضعه في موديول عادي 
'References: Microsoft WinHTTP Services, version 5.1 / Microsoft XML, v6.0

Sub Weather_Forecast()
    Dim ws          As Worksheet
    Dim req         As New XMLHTTP
    Dim resp        As New DOMDocument
    Dim wthr        As IXMLDOMNode
    Dim c           As Range
    Dim shp         As Shape
    Dim sCty        As String
    Dim imageURL    As String
    Dim imageFile   As String
    Dim sFolder     As String
    Dim i           As Long
    Dim x           As Long
    Dim y           As Long
    
    sCty = InputBox("Type Your City", "ExcelEgy", "Matrouh")
    If sCty = vbNullString Then Exit Sub
    
    req.Open "GET", "http://api.worldweatheronline.com/premium/v1/weather.ashx?key=847c47b19e264f7f8ea152835181601&q=" & sCty & "&format=xml&num_of_days=5", False
    req.send
    resp.LoadXML req.responseText
    
    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        With ws
            .DisplayRightToLeft = False
            .Range("A1").Resize(4).Value = Application.Transpose(Array("Date", "Day", "High Temp.", "Low Temp."))
            For Each shp In ws.Shapes
                shp.Delete
            Next shp
        End With
    
        For Each wthr In resp.getElementsByTagName("weather")
            i = i + 1
    
            ws.Range("B1:F1").Cells(1, i).Value = wthr.SelectNodes("date")(0).Text
            ws.Range("B2:F2").Formula = "=TEXT(WEEKDAY(B1,1),""dddd"")"
            ws.Range("B4:F4").Cells(1, i).Value = wthr.SelectNodes("maxtempC")(0).Text
            ws.Range("B5:F5").Cells(1, i).Value = wthr.SelectNodes("mintempC")(0).Text
            
            Set c = ws.Range("B3:F3").Cells(1, i)
            Set shp = ws.Shapes.AddShape(msoShapeRectangle, c.Left, c.Top, c.Width, c.Height)
    
            imageURL = wthr.SelectNodes("hourly").Item(4).Text
            x = InStr(1, imageURL, "http")
            y = InStr(1, imageURL, ".png")
            imageURL = Mid(imageURL, x, (y + 4) - x)
            imageFile = Right(imageURL, Len(imageURL) - InStrRev(imageURL, "/"))
    
            sFolder = Environ("USERPROFILE") & "\Desktop\" & "\Weather Icons\"
            If Len(Dir(sFolder, vbDirectory)) = 0 Then MkDir sFolder
    
            Save_Image imageURL, imageFile, sFolder
            shp.Fill.UserPicture sFolder & imageFile
        Next wthr
        
        With ws
            With .Range("A1").CurrentRegion
                .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
            End With
            .Columns(1).ColumnWidth = 13: .Columns("B:F").ColumnWidth = 11.5
            .Rows(3).RowHeight = 60
            .Range("A1, A2, A4, A5").RowHeight = 19
        End With
    Application.ScreenUpdating = True
End Sub

Sub Save_Image(ImgUrl As String, imageFile As String, sFolder As String)
    Dim oHTTP       As Object
    Dim oStream     As Object

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2

    Set oHTTP = CreateObject("msxml2.XMLHTTP")
    oHTTP.Open "GET", ImgUrl, False
    oHTTP.send

    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = adTypeBinary
    oStream.Open

    oStream.write oHTTP.ResponseBody
    oStream.savetofile sFolder & imageFile, adSaveCreateOverWrite

    Set oStream = Nothing
    Set oHTTP = Nothing
End Sub


يقوم الكود بسؤالك أولاً عن اسم المدينة التي تريد أن تعرف حالة الطقس لها وذلك من خلال صندوق إدخال i*nputBox ثم يقوم بالذهاب لموقع worldweatheronline ثم يجلب حالة الطقس لمدة 5 أيام بالاعتماد على الـ API ، ويمكن الحصول على كود الـ API بالتسجيل المجاني في الموقع .. ثم أخيراً يظهر الكود النتائج لحالة الطقس في ورقة العمل بشكل يسهل عليك تتبع حالة الطقس

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

** ملحوظة : تحميل الملف المرفق غير إجباري ، ولكنه يدعم صاحب الموضوع ، وإذا أردت عدم تحميل الملف المرفق فقم باتباع الخطوات في الموضوع ولن تحتاج في هذه الحالة إلى ملف مرفق

أسألكم الدعاء ، وجزاكم الله خيراً

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: محمد أبو عبدو، Eslam Abdullah، عبدالجيد، زياد عبد الجليل، مالك ماريه، علي الرويلي، ostazmas، belkacem، kby، بكار للأبد،





01-02-2018 06:20 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1059
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6286
الاعجاب : 1777
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
جزاك الله خيرا استاذى ياسر
عمل جميل ،دائما مبدع فى عملك
142
 

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،




01-02-2018 06:24 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
وجزيت خيراً أخي الحبيب إسلام ومشكور على مرورك العطر والمشرف بالموضوع

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




01-02-2018 06:47 مساء
مشاهدة مشاركة منفردة [3]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 309
الاعجاب : 148
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
بارك الله فيك أستاذنا الفاضل وجزاك الله عنا خير الجزاء
وجعل هذا العمل الطيب في ميزان حسناتك ، وكتبه الله لك صدقة جارية

أثارت هذه المشاركة إعجاب: عبدالجيد، YasserKhalil،




01-02-2018 07:17 مساء
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 808
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 460
قوة السمعة : 5550
الاعجاب : 1465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
جميلة الفكرة
بس معروفة يعني النشرة الجوية تخصص الجنس الناعم مينفعشي تخش على شغلهم ياعم ياسر
كدا مش هنشوف نشرة تاني
لو مش مصدق كلامي ابحث على جوجل في الصور اكتب النشرة الجوية بس خلاص 63121

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد، YasserKhalil،


توقيع :Yasser Elaraby
663013020



01-02-2018 07:56 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 371
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 247
قوة السمعة : 2498
الاعجاب : 632
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
أخى الحبيب / أبو البراء
باحث دائما عن المعرفة لتنشرها للغير
بارك الله فيك ورفع شأنك وزادك علما
تقبل تحياتى

 

أثارت هذه المشاركة إعجاب: YasserKhalil،




01-02-2018 08:17 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
بارك الله فيكم إخواني الكرام وجزاكم الله خيراً .. مشكور على مروركم العطر بالموضوع

أعربي : دي نشرة جوية في الإكسيل والجنس الناعم ملوش في الإكسيل smile

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




01-02-2018 08:20 مساء
مشاهدة مشاركة منفردة [7]
مالك ماريه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 65
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 16
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
ماشاء الله اخى الحبيب عمل رائع

أثارت هذه المشاركة إعجاب: YasserKhalil،




01-02-2018 08:26 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
مشكور على مرورك العطر أخي الكريم مالك .. تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: malik،




28-02-2018 09:09 مساء
مشاهدة مشاركة منفردة [9]
kby
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 39
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-1-1971
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 22
الاعجاب : 1
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
جزاك الله كل الخير أحي الفاضل ....





28-02-2018 09:22 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
وجزيت خيراً أخي الكريم بمثل ما دعوت لي
وأهلاً بك في المنتدى ونورت بين إخوانك





01-03-2018 04:51 مساء
مشاهدة مشاركة منفردة [11]
بكار للأبد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 190
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 1098
الاعجاب : 276
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
موضوع متميز كالعادة من إنسان شديد التميز - بارك الله فيك

أثارت هذه المشاركة إعجاب: YasserKhalil،




02-03-2018 07:37 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12452
الاعجاب : 4539
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو
تسلم أخي الغالي بكار ومشكور على كلماتك الطيبة 
تقبل وافر تقديري واحترامي







الكلمات الدلالية
الآن ، نشرة ، الطقس ، الإكسيلية ، لمعرفة ، حالة ، الجو ،


 







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



الساعة الآن 05:34 مساء

أعلن هنا
أعلن هنا
أعلن هنا