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

أبو حنــــين

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2845

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

  • Days Won

    9

 نوع المحتوي 

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

  1. أبو حنــــين
    جزاك الله خيرا و حفظك ورعاك
  2. أبو حنــــين
    جزاك الله خيرا أخي الحبيب : حمادة عمر سعدت كثيرا بمروركم العطر و كلماتكم الطيبة حفظك الله
  3. أبو حنــــين
    استعمل هذا الكود Private Sub UserForm_Activate() With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub
  4. أبو حنــــين
    السلام عليكم أخي : اسلام الشيمي أخي : عبد الله أخي : خالد القدس أخي : الشهابي جزاكم الله خيرا على المرور تقبلو تحياتي
  5. أبو حنــــين
    جزاك الله خيرا أخي الحبيب حمادة عمر على الكلمات الطيبة و على المرور تقبل تحياتي
  6. أبو حنــــين
    وجدت في المنتدى ملفين الأول : للأستاذ عماد الحسامي و الثاني للأستاذ : عبد الله باقسير فقمت بدمج الملفين مع بعض الاضافات البسيطة في الكود للحصول على ملف يصلح لبرنامج ما ملاحظة : جميع الازرار لا تعمل لانها بدون كود الشيئ الوحيد الذي يمكن التحكم فيه هو شفافية الفورم فورم.rar
  7. أبو حنــــين
    السلام عليكم الأخ الحبيب و الغائب عنا : أحمد البحيري اشتقنا لك و لابداعاتك كما ذكر اخي رجب جزاك الله خيرا و انعم عليك بالصحة و الهناء
  8. أبو حنــــين
    جزاك الله خيرا أخي أبومحمد أشرف بالفعل كما أشرت طباعة ماذا ؟ و تحديد المدى
  9. أبو حنــــين
    السلام عليكم هذا الجزئ الأول من السؤال و هو نقل من شيت الى شيت جربه و اخبرني بالنتيجة _Warehouses Muu 2013 2 نسخة.rar
  10. أبو حنــــين
    أضفت فورم اسمها فورم 5 بها بعض الخيارات و لم اقم بالنقل حتى تطلع عليها ان كان الامر كذلك سأكمل و إلا اخبرني بالتغيير الذي تريده _Warehouses Muu 2013 - نسخة.rar
  11. أبو حنــــين
    تكتب في في الزر امر insert الكود التالي Private Sub CommandButton1_Click() Dim Lr As Long, i As Integer With Sheet3 Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 10 .Cells(Lr, i) = Me.Controls("TextBox" & i) .Cells(Lr, 1) = Lr - 2 Next End With End Sub
  12. أبو حنــــين
    السلام عليكم اذا كان الامر فقط هو تغيير الاشارة في العمود H يمكنك كتابة الكود التالي في ورقة نظام مبيعات كما يلي Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long, cl As Range LR = Cells(Rows.Count, "H").End(xlUp).Row For Each cl In Range("H2:H" & LR) If cl < 0 Then cl = Abs(cl) Next End Sub
  13. أبو حنــــين
    CTRL + Q to Enable/Disable GoPhoto.it السلام عليكم اعذرني و الله لم افهم القصد الملف الذي ارسلته في آخر مشاركة لك يعمل و لا ادري اين المشكلة في هذا الملف
  14. أبو حنــــين
    السلام عليكم هل بهذه الطريقة TEST_RECIPE.rar
  15. أبو حنــــين
    اسعد الله صباحكم أخي الحبيب رجب بالخير و البركات جزاك الله خيرا على المرور و التشجيع الدائمين حفظك الله
  16. أبو حنــــين
    اخي احمد طريقة رائعة و احسن من الكود لفعاليتها الكبيرة جزاك الله خيرا
  17. أبو حنــــين
    السلام عليكم جرب اخي المرفق ecole-anas1.rar
  18. أبو حنــــين
    جزاك الله خيرا اخي أحمد و هذا لاخفاء الأعمدة مثال 2.rar
  19. أبو حنــــين
    السلام عليكم جرب اخي المرفق مثال.rar
  20. أبو حنــــين
    أخي أحمد ريان : جزاك الله خيرا على المرور و الكلمات الطيبة التي لا تصدر إلا من رجل أطيب حفظك الله ورعاك و أنعم عليك بالصحة و الهناء
  21. أبو حنــــين
    السلام عليكم ارجو ان تلقي نظرة على المرفق الذي انجزته بطريقة مغايرة بيانات 1.rar
  22. أبو حنــــين
    السلام عليكم هذ التعديل خاص بعدم السماح بتغيير سعر الشراء Classeur3.rar
  23. أبو حنــــين
    المعذرة اخي حسين لم أرى ردك إلا بعدما أرسلت ردي
  24. أبو حنــــين
    السلام عليكم جرب المرفق 555.rar
  25. أبو حنــــين
    السلام عليكم جرب أخي المرفق فاتورة.rar
×
×
  • اضف...

Important Information

  I accept