ياسر خليل أبو البراء

السلام عليكم ورحمة الله وبركاته إخواني الكرام ومع كل ما هو جديد ومفيد في عالم الإكسيل اللامحدود الإمكانيات .. أقدم لكم موضوع بسيط ، وقد يكون مفيد ألا وهو تحميل أو نسخ صورة من الانترنت إلى ملف الإكسيل .. الكود بهذا الشكل : Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub Sub Test() '[A3] يقوم الكود بتحميل صورة إلى الخلية Call GetShapeFromWeb("http://www.officena.net/ib/public/style_images/master/logo.png", Sheet1.Range("A3")) End Sub يقوم الكود بلصق الصورة إلى النطاق المحدد (الخلية المحددة على سبيل المثال في المرفق هي الخلية A3) يعتمد الكود على عنوان الصورة المراد إدراجها URL الخاص بالصورة ، ويمكنك الحصول عليه عن طريق الكليك يمين على الصورة ثم ستجد الأمر Copy Image Location أي نسخ مسار الصورة .. ويتم وضع المسار في الكود :rol: أترككم مع الملف المرفق .. كان معكم أخوكم أبو البراء من معرض أوفيسنا للأعمال الفنية دمتم بود Copy Picture From Web To Excel.rar

أخي الحبيب يرجى توضيح المطلوب بدلاً من الكود !

الحمد لله أن تم المطلوب على خير ومشكور على اختيارك للمشاركة كأفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل ودي واحترامي وتحياتي وورودي :fff:

مشكور على مرورك العطر ومجاملتك الرقيقة أخي محمد وبعدين الموضوع بسيط مفيهوش إبداع .. الإبداع عندك إنت في الموضوع الخاص بيك http://www.officena.net/ib/index.php?showtopic=61010 هو دا الشغل الاحترافي تقبل تحياتي

أخي الفاضل قيس حبيب ليلى إذا أعجبتك الإجابة فيرجى تحديدها كأفضل إجابة ليظهر الموضوع منتهي

الأخ الحبيب محمد الريفي أم عنايات موجودة على هذا الرابط ..الموضوع قريب من بعضه شوية من بعيد http://www.officena.net/ib/index.php?showtopic=60932&hl= تقبل تحياتي

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

الأخ الفاضل الساهر ----------------- إليك الكود التالي في حدث ورقة العمل لعله يكون المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, 2).End(xlUp).Row If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B6:C6")) Is Nothing Then With ActiveSheet .AutoFilterMode = False With .Range("B8:C" & LR) .AutoFilter Field:=1, Criteria1:=">=" & Range("B6").Value, Operator:=xlAnd .AutoFilter Field:=2, Criteria1:=">=" & Range("C6").Value, Operator:=xlAnd End With End With End If End Sub وأخيراً لا تنسى أن تحدد الإجابة كأفضل إجابة في حالة أن تم حل المسألة تقبل تحياتي :fff: AutoFilter Automatically YasserKhalil.rar

الأخ الفاضل يرجى تغيير اسمك للغة العربية لسهولة التواصل جرب الملف التالي تم عمل قائمة منسدلة اختار منها رقم العملية سيتم نقلك إليها وعند الانتقال للورقة الأخرى يمكنك الرجوع إلى الورقة الرئيسية بمجرد النقر المزدوج داخل أي خلية في العمود G دا الكود الأول في حدث ورقة العمل الأولى Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Long If Target.Cells.CountLarge > 1 Then Exit Sub On Error Resume Next If Not Intersect(Target, Range("H3")) Is Nothing Then Sheet2.Activate X = Application.WorksheetFunction.Match(Sheet1.Range("H3").Value, Sheet2.Columns("G:G"), 0) Sheet2.Cells(X, "G").Select End If End Sub ودا الكود الثاني في حدث ورقة العمل الثانية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Columns("G:G")) Is Nothing Then Sheet1.Activate End If End Sub تقبل تحياتي ولا تنسى التوجيهات (حدد أفضل إجابة ليظهر الموضوع منتهي ومجاب) Hyperlink Formula YasserKhalil V2.rar

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

ممكن مزيد من التوضيح هل الفرز لكل عمود على حدا أم أن العمودين مرتبطين ببعضهما؟ لو ممكن ترفق شكل النتائج المتوقعة من عملية الفرز ..

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

الطريقة مرفقة في الملف المرفق عبارة عن معادلة لعمل اللازم ادرس المعادلة وشوف إزاي اتعملت ..

أخي الامتداد بصيغة XLS .. ومرفق في المشاركة الأولى ملف به الكود .. يمكنك تعديل مسار الملف واسمه فقط في الكود

أخي وحبيبي في الله مختار جزاكم الله خير الجزاء في الدنيا والآخرة ونفع بكم ورزقكم من حيث لا تحتسب هو دا الكلام يا كبير تسلم وتعيش وتاكل قراقيش (ولا مفيش في الصعيد منه)

أخي ايهاب أسفل المشاركات تجد كلمة "تحديد كأفضل إجابة" شوف المشاركة رقم 5 وحددها ليظهر الموضوع مجاب

أخي الحبيب غسان جزيت خيراً على الموضوع وبارك الله فيك ولكنه غير مجاني فهو تجريبي فقط

طالما أن الموضوع انتهى يرجى الالتزام بالتوجيهات واختيار أفضل إجابة تقبل تحياتي

وجزيت بمثله أخي الفاضل يرجى الإطلاع على موضوع التوجيهات لمعرفة قواعد المنتدى http://www.officena.net/ib/index.php?showtopic=60147 تقبل تحياتي

في العمود F هتلاقي معادلة فيها رقمين 1 و 2 غيرهم وخليهم 1 و 4 .. وبعدين اسحب المعادلة لحد آخر الأسماء ، بس بشرط يكون كل الأسماء المسجلة لديك مكونة من 4 ولا تنسى للمرة الثانية أن تحدد أفضل إجابة حتى ينتهي الموضوع ، ويا ريت لو فيه طلبات أخرى اطرحها في موضوع مستقل

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

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

لاحظت في الكود الذي أرفقته إنك اشتغلت على العمود الأول .. أنا كنت معتقد إنه ملوش لازمة عموما وضح بقا الشروط باستفاااااااااااااااااضة عشان نحاول نظبطها

جرب الدالة بهذا الشكل Function CHANGE_STATUS(status As String, ENGAZ As Double, MONQDIA As Double) As String Fark = MONQDIA - ENGAZ If Fark <= 0.2 Or ENGAZ > MONQDIA Then CHANGE_STATUS = "منتظمة" ElseIf Fark > 0.2 And Not MONQDIA > 1 And Not ENGAZ >= 0.9 Then CHANGE_STATUS = "متأخرة" ElseIf ENGAZ < 0.9 And MONQDIA >= 1 Then CHANGE_STATUS = "متعثرة" ElseIf ENGAZ >= 0.9 And ENGAZ <= 1 Then CHANGE_STATUS = "جاري الانتهاء منها": Exit Function Else: CHANGE_STATUS = status End If End Function ويا ريت تضع شروط بشكل أعمق حتى تتضح الصورة الكلية !! لأن فيه تداخل بين الشروط ممكن تقسم الشروط بالنسب من تحت لفوق من النسبة الأصغر للأكبر

جرب في المعادلة Subtotal أن تغير رقم 9 إلى 109 ... كيف يتم حساب الديون ..؟ وهل لفلترة التاريخ دخل بالأمر ؟ أم أن موضوع الفلترة منفصل ؟ يرجى التفصيل والتوضيح