الوافي

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

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

حقيقه فكره جداً جداً جداً رائعه .. المشكله أني لست عبقري و إلا و الله سارعت في الحل ! في إنتظار فطاحلة المنتدى الرائع

عفواُ يا اخوان .. هذا هو الملف الذي يوجد فيه الداله و الكود المطلوب توضيحه وشكراً

تحية طيبه أخواني الكرام .. يتطلب علمي رماقبة حثيثه لأسعار الشركات في الاسواق العالمية , مما يستوجب علي اجادة التعامل مع الأكسيل على وجه الخصوص , و الحمد لله أولاً , أخراً , لقد تمكنت منه إلى درجة كبيره بعد مساعدة الجميع في هذا المنتدى الذي تقف الكلمات قاصره عند وصفه ! أخواني , أجد صعوبه بالغه في عملية أستيراد البيانات بالطريقة التقليدية لأسعار الشركات من مواقع الأنترنت , لأن البيانات تنتشر في صفحة الأكسيل بطريقة يصعب معها التعامل ! أستمر بحثي عن حل حتى وجدت هذا الكود المذهل حقيقية , و الي يجلب رقم بحد ذات من صفحة كامله عن طريق داله أسمها GetPrice توضع في الصفحه على الطريقة : ( ( رمز الشركة ) GetPrice = ) ثم يجلب لك السعر .. الكود هو : Public Function GetPrice(Ticker As String) As Double With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://uk.finance.yahoo.com/q?s=" & Ticker .send Do: DoEvents: Loop Until .ReadyState = 4 GetPrice = Split(Split(.responsetext, "yfs_l84_" & LCase(Ticker) & """>")(1), "

حقيقة يا استاذي aah_aah2008 الفاضل أنك مبدع .. كفيت و وفيت , و ألف شكر لك ,,

أستاذي الفاضل أبو أسامه .. أشكر لك مرورك الكريم ,, و ماذا بخصوص تلك الصعوبات التي واجهتني , أنا متحمس جداً لحلها .. أنتظر ردك , تقبل فائق إحترامي لشخصكم الكريم ,,

السلام عليكم ورحمة الله وبركاته , أسعد الله أوقاتكم بكل خير ومسره ,, لدي اليوم ملف من تصميمي ( محاولة فقط ) , فكرته كالتالي : الفكره : نقل صورة موجوده في ملف على سطح المكتب أسمه picture إلى Userforme المشكله التي واجهتني حقيقه مجموعة من المشاكل , ألخصها في التالي : 1 - وجدت صعوبه في وضع قائمة منسدله في الـ Userforme بأسماء الصور الموجوده في الملف المسمى picture 2 - وجدة طريقة وضعت فيها الـ Image1 بحيث يكون الحجم أوتوماتيكي حتى يتلائم و حجم الصورة آين كان , المشكله أن الـ Userforme نفسه لم أجد له نفس الخاصيه , مما جعل جزء كبير جداً من الصوره يختفي ! أتمنى من الجميع أن يساعدني في تجربتي , وفقكم الباري ,, شكراً جزيلاً .. ملاحظات مهم قبل فتح الملف المرفق : 1 - يجب وضع الملف المسمى ( picture ) على سطح المكتب و إلا فلن يعمل الملف . 2 - إذا كانت لغة جهاز الكمبيوتر لديك هي اللغة الإنجليزية فلن يعمل الملف و يجب التعديل في هذا الكود : pic = "C:\Documents and Settings\l\ÓØÍ ÇáãßÊÈ\picture\" & x & ".jpg" أجدد شكري للجميع ,, ___________4_.rar

تحية عطره للجميع .. حقيقه يا أخواني الأفاضل أنا أبحث عن userform يمكن أن أحمل عليه صوره موجوده في صفحة , هناك أفكار مشابهه وهي تقوم بوضع رسم بياني موجود في صفحة ما في userform حاولت مراراً أن أعدل في الكثير من الأكواد التي تشابه فكرتي ففشلت !! فهل من منقذ يا أيها الأفذاذ ؟؟ في المرفقات ملف أكسل فيه userform غريب حبتين .. أتمنى أن ينال إستحسانكم , علماً بأني قد وجدته عبر أحد المواقع الأجنبيه في رحلتي الطويلة عن ضالتي !! شكراً لتقبلكم جميعا ,, كل الود SheetOnForm.rar

الله يثيبك يا أستاذي الفاضل خابور خير و جعلك من صوام الشهر الفضيل و قوامه و أعاده عليك باليمن و المسرات و شق الله لك درباً إلى جناته

اخي الفاضل .. ضع الملف إن تمكنت في المرفقات حتى تنكشف المشكله و سيتم إضافة الشركات ..

أستاذي الفاضل خبور خير .. قالت العرب : من علمني حرفاً كنت له عبداً أشكرك يا أستاذي من صميم قلبي على هذه الأجابه و فضولي هنا يدفعني أكثر و أكثر , فهل من الممكن التعامل مع الفورم أخي الفاضل كتعاملي مع أي صفحه أتعامل معها على الشاشه بحيث يمكن تصغير الفورم أو تكبيره عن طريق أيقونات موجوده بجوار علامة الأكس ( الإغلاق ) في إلى اليمين من الفورم ؟ شكراً لك , و دوماً متشوقاً لردك .. تقبل التحية

ما شاء الله تبارك الرحمن .. عمل رائع و فيه من الإتقان ما فيه , الله يزيدك من علمية أخي الفاضل هل لي بطلب صغير يدفني فيه الفضول للتعلم .. هل يمكن شرك الماكرو المرفق في المشارك حيث أني أجد في فهمه صعوبه و أشكرك من صميم قلبي !

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

السلام عليكم ورحمة الله وبركاته ... أريد أن أستفسر من الأفضال الخبراء في هذا المنتدى المبارك , ولكن قبل الأستفسار أقدم لككم هذا التوضيح للطلب : لنفترض أن لدي خليه ما ( ولتكن A1 مثلاً ) و ليكون فيها القيمة التاليه : 12546 الأستفسار : هل يمكن صنع كود يقوم بتغير الرقم الثالث ( مثلاً ) في الخلية A1 إلى الرقم 9 مثلاً ؟ مثال أخر : لو أفترضت أن الخليه B1 فيها الأسم التالي : خبور خير الأستفسار : هل يمكن أيضاً صنع كود يتعامل مع محتوى الخليه ويغير الحرف الخامس بها إلى الحرف ( ص ) مثلاً ؟