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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



01-02-2018 05:33 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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 XMLHTTP60
    Dim resp        As New DOMDocument60
    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=11111&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 بالتسجيل المجاني في الموقع .. ثم أخيراً يظهر الكود النتائج لحالة الطقس في ورقة العمل بشكل يسهل عليك تتبع حالة الطقس

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

في الملف المرفق يوجد السطر التالي
req.Open "GET", "http://api.worldweatheronline.com/premium/v1/weather.ashx?key=11111&q=" & sCty & "&format=xml&num_of_days=5", False

قم باستبدال 1111 بالـ API الخاص بك وللحصول على API اذهب للرابط التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
ثم سجل عن طريق جوجل أو سجل في الموقع لتحصل على API مجاني صالح لمدة شهرين


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

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


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





01-02-2018 06:20 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو Weather Forecast In VBA
جزاك الله خيرا استاذى ياسر
عمل جميل ،دائما مبدع فى عملك
142
 





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





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





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



توقيع :Yasser Elaraby
663013020



01-02-2018 07:56 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو Weather Forecast In VBA
أخى الحبيب / أبو البراء
باحث دائما عن المعرفة لتنشرها للغير
بارك الله فيك ورفع شأنك وزادك علما
تقبل تحياتى

 





01-02-2018 08:17 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو Weather Forecast In VBA
بارك الله فيكم إخواني الكرام وجزاكم الله خيراً .. مشكور على مروركم العطر بالموضوع

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





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





01-02-2018 08:26 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو Weather Forecast In VBA
مشكور على مرورك العطر أخي الكريم مالك .. تقبل وافر تقديري واحترامي





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





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





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





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







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


 







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



الساعة الآن 02:56 صباحا

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