اذهب الي المحتوي
أوفيسنا

م/ مغترب

02 الأعضاء
  • Posts

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

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

مشاركات المكتوبه بواسطه م/ مغترب

  1. السلام عليكم ورحمة الله و بركاته

     

    أنا مستخدم جديد للأوتلوك  وعندي سؤالين  لاهل الخبرة

     

    س1/  

    عند القيام بإرسال رسالة لاي شخص  مثلا aaa@gmail.com   يقوم الاوتلوك بحفظ الايميل  ، فاول ما اقوم بإرسال رسالة اخرى لشخص أخر يبدأ ب حرف a  يظهر الايميل السابق  و انا لا اريده ان يظهر  اريد اخفاء او حذف بعض الايميلات نهائيا ؟

     

    س2/

    كيف اجعل الاوتلوك أن يفرز الرسائل المستلمة و المرسلة حسب الايميل المستلم او  المرسل الى مجلدات مخصصه ؟

     

     

    وشكرا

    • Like 5
  2. الأخ الكريم / مغترب

    السلام عليكم ورحمة الله وبركاته

    صاحب الفيديو رفع الملف والكود ولكن اللينكات لا تعمل

    علي أية حال

    قمت بتصميم ملف مشابه مع بعض التحسينات يمكن أن يفيدك

     

    أخ حمادة  شكرا على ردك

     

    لكن 

    استطيع المسح  و استطيع الكتابة فوق الخلية الغير فارغة

    اريد منع العمليتين السابقتين ان امكن

     

    وشكرا

  3. السلام عليكم

     

    وأنا اتصفح فيديوهات اليوتيوب الخاصة بالاكسيل و جدت  هذا الفيديو  الخاص بالحماية لكن لا يوجد شرح  ولم نستطع تحميل الكود

     

    http://www.youtube.com/watch?v=laoOfVtwPXg

     

    هل ممكن من المبرمجين شرحه

     

    بارك الله فيكم

  4. السلام عليكم ورحمة الله وبركاته

     

    سؤال

     

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

     

    إذا تم نقل الملف الى جهاز اخر  و تكون نسبة الامان مرتفعة   لا يعمل  فتفشل كل البرمجة

     

    هل ممكن عمل كود  بأن تعمل البرمجة وخفض مستوى الامان مباشرة أي يعمل على اي جهاز بمجرد فتحة

     

     

    أرجو ان تكون وصلت الفكرة

     

    وشكرا

  5. السلام عليكم و رحمة الله و بركاته

     

    لأهل الخبرة

     

    اريد طريقة تمنع نسخ الملف او سحبه خارج الشبكة ؟

     

    حاولت منع نسخ الملفات الموجوده على الشبكة  لكنها لم تنفع معي

     

    هل هنالك طريقة لمنع سحبها خارج ملف المشاركة و نسخها

     

     

    وشكرا

  6. السلام عليكم ورحمة الله وبركاته

     طلب تعديل على كود الترحيل بحيث   لا يرحل كامل الاعمدة بل  اعمدة مخصصة

    الكود يعمل تماما ويرحل كامل الصف بناءا على اسم الورقة + عمود Z

     

    انا اريد ان ارحل  مثلا عمود A و c و F  بناءا على اسم الورقة + عمود Z

    التعديل على ما هو ملون باللون الاحمر على ما اظن

    نرجو المساعده بالتعديل

    Dim S As String
    Dim R As Integer, RR As Integer, c As Integer, CC As Integer
    S = ActiveSheet.Name
    Application.ScreenUpdating = False
    Range("A10:Z500").ClearContents
    With æÑÞÉ1
        For R = 2 To .Range("Z500").End(xlUp).Row
            
            If .Cells(R, "z") = S Then
                
                RR = RR + 1
                For c = 1 To 25
                 
                    CC = Choose(c, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)

                              Cells(RR + 9, c) = .Cells(R, CC)
                Next c
            End If
        Next R
    End With
    Application.ScreenUpdating = True
    End Sub

  7. السلام عليكم ورحمة الله وبركاته

     

    الى الأخوة الأعزاء الكرام

     

    س/1

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

     

    س/2

     

     كود او معادلة  بحيث  عند وصول التاريخ الى 1/1/2014   او 1/1/1435   مثلا  أن ينبهني بلون او رسالة

    حاولت  لكن يجب ان ادخله يدوي فيتغيير اللون بناءا على الشرط    لكن  أريده اوتوماتيكيا يتغير التاريخ كل يوم بناءا عى الجهاز دالة =TODAY()  وعند وصوله الى التاريخ المحدد بالكود ان ينبهني بساعة معينه  اي الساعة التاسعة يظهر الرسالة او التنبية

     

    س3/

     

    عندي 3 طلاب   A1:A3  و عند وضع كلمة الاول في B2 مثلا   ان ينتقل الصف الى الاعلى  اي يتم ترتيب الصفوف تلقائيا بناءا على العمو B   الاول الثاني الثالث ......   مباشرة

     

     

    وشكرا وبارك الله فيكم و بمجهودكم

  8. السلام عليكم ورحمة الله وبركاته

     

     

    وجدت هذا الملف  للأستاذ / أحمد فضيلة 

    لترحيل

    وكنت أريد نسخه الى ملف اخر

    لكن المشكلة ان الخطأ يظهر دائما عند نسخه الى ملف جديد

    For R = 2 To .Range("AG20000").End(xlUp).Row

     

    ممكن من الاخوة شرح سبب الخطأ و كيفية التصحيح

    مع العلم حاولت على عدة ملفات  لكن نفس الخطأ

     

    تم إرفاق نفس ملف الأستاذ / أحمد فضيلة

     

    وشكرا للجميع

    كود نقل بيانات مباشرة بدون رز امر.rar

    post-100995-0-87548400-1376862063_thumb.

  9. السلام عليكم ورحمة الله و بركاته

     

    استاذنا الكبير /  عبدالله باقشير

     

    هل عرفت قصدي من الصورتين

     

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

    كيف اغير في البرمجة

    وشكرا

    post-100995-0-39121500-1376262427_thumb.

    post-100995-0-81641500-1376263336_thumb.

  10. السلام عليكم ورحمة الله وبركاته

     ظهور خطأ بعد الانتهاء من البرمجة و عملها تماما   لكن لم اعرف سببه

    تم ارفاق صورة

     

    ثم يتم النقل إلى

    Module

    UserForm1.Show
    End Sub

     

    ولا اغير شي

     

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

     

     

    ماهو السبب

     

    هل يوجد ملف خاص بأرقام الاخطاء و حلولها

     

     

     

     

    post-100995-0-64831500-1376086093_thumb.

    • Like 2
  11. السلام عليكم

    من الواضح ان الخطأ في الجملة

    For i = 4 To Sheets("sheets1").ER
    
    

    الاستاذ / ابو حنين 

    كيف اجعله يفهمها   بأنها الى اخر الصفحة

    ارفقت الملف

    فقط تصحيح الخطأ

    انا مبرمجه الى اكثر من عمود اذا نظرت الى البرمجة

    وشكرا لك

     

     

    111.rar

  12. السلام عليكم ورحمة الله وبركاته

     

    قمت بنقل ماكرو من ملف الى اخر 

    لكن ظهر عندي خطأ  ولم اعرف سببه

    مع العلم ان راس الجدول يبدأ من A3 اما البيانات تبدأ من  الخلية  A4 الى نهاية الصفحة

     

     

    Private Sub ComboBox2_Change()
      Application.ScreenUpdating = False
       Sheets("Sheet1").Select

           For i = 4 To Sheets("Sheet1").ER

     

    وتم وضع في خصائص ComboBox2  

    ROWS A4:A1048576

     

     

     

    وشكرا

    post-100995-0-66797600-1376016738_thumb.

    • Like 1
  13. أخي العزيز / key_ro

    رجاء الاطلاع على المرفق .

    تحياتي

    أبو عبدالله

    السلام عليكم

    أستاذنا / عبد الله

    أنا اريد ان اضيف اكثر من Label  و  TextBoxوهذا سهل

    هل ممكن ان نجعل Label  في الفورم ان يأخذ اسم العمود بالتدريج مباشرة بدلا من دخولي الى البرمجة و اضافة الاسم يدويا

    اي اجعل الجدول من  5 اعمدة مثلا     الاسم - الترتيب - الصف - الدرجة - اسم الاب

    لكن Label و TextBox في الفورم 6     فاول ما اضيف اسم للعمود 6 بالجدول  اريده ان يظهر بالفورم

     

     

    ارجو ان تكون وصلت فكرتي

    وشكرا

×
×
  • اضف...

Important Information