اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

علي السحيب

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    991

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

كل منشورات العضو علي السحيب

  1. علي السحيب
    الكود مطبق فقط على العمودين الأوليين فقط .. ولكني قمت بتلوين العمود الثالث عن طريق الخطأ .. وهو غير داخل ضمن نطاق الكود.
  2. علي السحيب
    أخي عمر .. لا أدري بماذا أعلق على هذا الإبداع المتواصل .. والتميز المستمر ..
  3. علي السحيب
    Target.Column .. يحدد رقم العمود الذي تقع به الخلية التي تكتب بها. Target.Row .. يحدد رقم الصف الذي تقع به الخلية التي تكتب بها. والسطر الثالث يحدد أرقام الأعمدة والصفوف المُراد تفجير الحدث منها عند تحرير أي من خلاياها.
  4. علي السحيب
    أيضاً لإستخدام الدالة VLOOKUP عن طريق الكود راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13916
  5. علي السحيب
    إضافة جديدة عن طريق الكود .. إستبدال الصفر بـ 966 والعكس، شاهد المرفق، _________________966_______.rar
  6. علي السحيب
    إضغط بالزر الأيمن على القائمة المنسدلة وأختر خصائص أو Properties ثم أبحث عن LinkedCell .. وستجدها.
  7. علي السحيب
    شاهد المرفق، _________________________________________________________.rar
  8. علي السحيب
    غريبة .. عند نسخ خلية من صفحة إلى أخرى .. يتم لصقها بجميع خصائصها
  9. علي السحيب
    الكود التالي يعمل فقط في المجال A1:C10 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 3 And Target.Row < 11 Then Me.Unprotect "ali" Target.Cells.Locked = True Target.Cells.FormulaHidden = True Me.Protect "ali" End If End Sub شاهد المرفق، _________________________________________.rar
  10. علي السحيب
    راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13038
  11. علي السحيب
    راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13038
  12. علي السحيب
    يكون ذلك من خلال الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) TC = Target.Column TR = Target.Row If TC = 2 Or TC = 3 And TR > 2 And TR < 10 Then [E13] = Application.WorksheetFunction.SumProduct([B3:B9], [C3:C9]) End If End Sub شاهد المرفق، SUMPRODUCT_In_VBA.rar
  13. علي السحيب
    إني بشغف أنتظر هذا الإنجاز الرائع .. والحلم الذي أصبح تحققه شبه مستحيل .. ولكن مع شريط أوفيسنا للأدوات الذكية .. أصبح تحققه وشيكاً. فشكراً لك أخي تامر على هذا الإنجاز العظيم .. والخدمات الجليلة التي تقدمها لأعضاء منتدانا الغالي.
  14. علي السحيب
    من القائمة Tools أو أدوات أختر Options أو خيارات .. ثم من التبويب Edit أو تحرير .. ستجد هناك ثالث مر بع من الأسفل مكتوب بجانبة Ask to update automatic links .. أو طلب تحديث الارتباطات .. قم بإزالة علامة الصح من أمام ذلك المربع. وعندها لين يتم خروج تلك الرسالة.
  15. علي السحيب
    شاهد المرفق، __________________________________.rar
  16. علي السحيب
    شاهد المرفق، ____________________________.rar
  17. علي السحيب
    شكراً لكم جميعاً .. تم إجراء تعديل بسيط على الملف المرفق في مشاركتي السابقة .. وهو إلغاء خروج رسالة عندما تكون الخلية أو الخلايا المُختارة جميعها .. لا تحتوي على بيانات. لمن أحب يمكنه إعادة تحميل الملف من جديد.
  18. علي السحيب
    المشكلة كانت في أسماء أوراق العمل .. أسماء الأوراق في الملف تختلف عن الموجودة في الكود. تم التعديل .. شاهد المرفق، Book1.rar
  19. علي السحيب
    شاهد المرفق .. exchanger.rar
  20. علي السحيب
    شاهد المرفق، _______________________________2.rar
  21. علي السحيب
    شاهد المرفق، Book11.rar
  22. علي السحيب
    بنفس الطريقة التي ذكرها الأخ هادي سالم
  23. علي السحيب
    أهم حاجة أنك وصلت إلى حل لمشكلتك أخي الكريم .. سواء من هنا أو من أي منتدى آخر.
  24. علي السحيب
    بعض الدوال المُستخدمة ليس أساسية وينبغي عليك إضافتها ويكون ذلك عبر الخطوات التالية: إذهب إلى القائمة أدوات Tools .. ثم أختر (إضافات) أو Add-Ins .. وقم بوضع علامة صح في المربع الأول وهو Analysis ToolPak .. ثم إضغط OK أو موافق .. ثم أغلق الملف وأفتحه من جديد.
  25. علي السحيب
    عدد وتقوم مقامها الدالة COUNTA .. تقوم بحساب جميع الخلايا الغير فارغة .. سواء كانت تحتوي على أرقام أو حروف أو غيرها. أما عدد الأرقام والتي تقوم مقامها الدالة COUNT .. فهي تقوم بحساب عدد الخلايا التي تحتوي على أرقام فقط. جرى التعديل المطلوب على الكود .. شاهد المرفق، ____________________________________.rar
×
×
  • اضف...

Important Information

  I accept