بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'د'.
تم العثور علي 5 نتائج
-
السلام عليكم ورحمة الله وبركاته أساتذتي وسادتي الكرام حفظكم الله قمت بتحويل جيمع المعادلات في الصفحة إلى أكواد ولكن يلزمني أن أضغط على زر أضافة المعادلات ثلاث مرات متتالية حتى تتم العمليات الحسابية بشكل مكتمل هل هنالك حل لهذه المشكلة أو أنني سوف أضطر إلى أستحداث نفس الكود ثلاث مرات بإسماء مختلفة ثم أستدعائهم من الكود الأول. المرفق: تعديل في كود إضافة المعادلات.rar أبو أنس
-
السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل حفظكم الله الرابط أسفل يحوي مشاركة للأستاذ الفاضل محمد يحياوي حفظه الله لمنع أضافة أوراق جديدة. أرجو اضافة إلى الكود نفسه أمر منع نسخ الاوراق. http://www.officena....اق كما أرجو توجيهي إلى كود يقوم بعدم تنشيط خيارات النسخ وألادراج عند الضغط على أسم الورقة بالزر الأيمن على ما أظن أن هذا الكود موجود في المنتدى ولكني لم أستطع أن اهتدي له من خلال عملية البحث جزاكم الله كل خير أبو أنس
-
السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ارجو ان تفيدوني عن امكانية فتح برنامج اكسس 2003 باصدار اخر يعني الابقاء على 2003 فاذا تغير الاصدار لايفتح البرنامج بأية حال من الاحوال شكرا لتعاونكم -
السلام عليكم ورحمة الله وبركاته المطلوب حفظكم الله كود يقوم بمسح علامة أكس من الخلية المجاورة للعمود H اذا تحقق شرط أن الاسم الموجود في العمود H موجود أيضاً في العمود J طبعاً الأسماء في العمود J متغيرة وليست ثابته والله الموفق والمستعان وجزاكم الله كل خير أبو أنس مسح قيمة خلية بناءاً على شرط.rar
-
تحية طيبه أخواني الكرام .. يتطلب علمي رماقبة حثيثه لأسعار الشركات في الاسواق العالمية , مما يستوجب علي اجادة التعامل مع الأكسيل على وجه الخصوص , و الحمد لله أولاً , أخراً , لقد تمكنت منه إلى درجة كبيره بعد مساعدة الجميع في هذا المنتدى الذي تقف الكلمات قاصره عند وصفه ! أخواني , أجد صعوبه بالغه في عملية أستيراد البيانات بالطريقة التقليدية لأسعار الشركات من مواقع الأنترنت , لأن البيانات تنتشر في صفحة الأكسيل بطريقة يصعب معها التعامل ! أستمر بحثي عن حل حتى وجدت هذا الكود المذهل حقيقية , و الي يجلب رقم بحد ذات من صفحة كامله عن طريق داله أسمها 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), "
