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

حمادة عمر

أوفيسنا
  • Content count

    6,198
  • تاريخ الانضمام

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

  • Days Won

    101

حمادة عمر last won the day on April 24 2017

حمادة عمر had the most liked content!

السمعه بالموقع

2,175 Excellent

عن العضو حمادة عمر

  • الرتبه
    فريق الموقع
  • تاريخ الميلاد 09 ينا, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • بلد الإقامة
    المنوفية - جمهورية مصر العربية
  • الإهتمامات
    اعشق الاكسيل والتعامل مع الهارد وير والكمبيوتروالش

اخر الزوار

5,136 زياره للملف الشخصي
  1. شاهد اخ الكريم الروابط التالية وايضا هذ الرابط ان شاء الله بهم ما تريد تماماً اخي الكريم تقبل خالص تحياتي
  2. حمادة عمر

    خيار OptionButton

    تفضل المرفق اخي الكريم فتح خانه ترحيل البيانات+.rar
  3. حمادة عمر

    عمل زر انشاء شيت جديد

    برجاء ارفاق ملف كمثال اخي الكريم ليتم العمل عليه
  4. حمادة عمر

    عمل زر انشاء شيت جديد

    برجاء ارفاق ملف كمثال اخي الكريم ليتم العمل عليه
  5. حمادة عمر

    عمل زر انشاء شيت جديد

    قم اخي الكريم بارفاق ملف كمثال لما تريد لان كل ملف يختلف عن الآخر في متطلباته ولكن كنت قد قمت بتنفيذ هذا الطلب لاحد الاخوة من فترة ليست بالقصيرة ولكني لا اتذكر رابط الموضوع ولكن كان له تقريبا نفس طلبك وتم تنفيذه بالطريقة التي حددها ( استخدم زر اضافة حساب ... وشاهد الفورم 2 ) اظن ان بهم ما تريد ... جرب الملف واخبرنا بالنتيجة تقبل خالص تحياتي Copy of المجد1.rar
  6. قم اخي الكريم باستبدال الكود الموجود في هذا المودل بالكامل بالكود التالي وان شاء الله سيعمل معك الملف .. ولم اتمكن في ضبطه بصورة نهائية لان ملفك به اكواد أخري مرتبطه بشيتات غير موجودة اظن انك قمت بحذفها قبل رفع الملف وهي بالطبع تسبب لدي مشكلة جرب علي ملفك واشعرنا بالنتيجة مع اني انصحك بتغيير نظام الويندوز لديك الي 32 حيث ان مايكروسوف نفسها تنصح باستخدام الـ 32 عن استخدام الـ 64 تقبل خالص تحياتي Public Const ENGLISH As String = "09" Public Const ARABIC As String = "01" #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If Sub SwitchLayout(Lang As String) Dim Layouts() As Long Dim NoOfLayouts As Long Dim i As Long NoOfLayouts = GetKeyboardLayoutList(0, ByVal 0&) ReDim Layouts(NoOfLayouts) GetKeyboardLayoutList NoOfLayouts, Layouts(0) For i = 0 To NoOfLayouts - 1 If UCase(Lang) = UCase(Right(Hex(Layouts(i)), 2)) Then ActivateKeyboardLayout Layouts(i), 0 Exit For End If Next End Sub 555555+.rar
  7. حمادة عمر

    احتاج كود زر اخفاء اعمدة

    جزاك الله خيرا اخي الكريم تقبل خالص تحياتي
  8. هل الويندوز الذي عندك 32 بت أو 64 بت؟ او جرب استبدال الاسطر المظللة بالاحمر في الكود خاصتك بالاسطر التالية واشعرنا بالنتيجة #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If
  9. عذرا اخي الكريم لم اتمكن من الاطلاع علي ملفك .. لا اعلم ان ان السبب لدي ام لديك لاني لم ابحث الامر وعموما : شاهد اخي الكرم المرفق التالي قم بالضغط بالماوس في اي خلية في الشيت دبل كليك ستظهر لك الرزنامة الخاصة بالتاريخ اختار اليوم المطلوب ادخاله كتاريخ بالماوس وسيتم ادخاله وهذا الامر مطبق علي الشيت 1 بالكامل مهما كانت عدد الخلايا المطلوبة ادخال التاريخ فيها كتابة التاريخ في اي خلية.rar
  10. برجاء ارفاق ملف كمثال ليتتضح الامر بصورة اوضح ليمكن مساعدتك وهل يمكنك استخدام الاكواد لتنفيذ المطلوب لانه سيكون افضل واخف واسرع ان كان ذلك ممكنا بالنسبة لك ولملفك تقبل خالص تحياتي
  11. حمادة عمر

    المطلوب شرح الكود

    السلام عليكم الاخ الكريم / الشافعي بارك الله فيك بالنسبة للكود وشرحه لا يتتضح الا بملف كمثال ولكن لما ارسلته فهذه نبذه بسيطة في بداية الكود موجود الدالة call بالسطر Call MC وهذا السطر يعني اعطاء امر للكود باحضار الأمر او الكود او الماكرو المسمي لديك بـ MC ليتم تنفيذ الاوامر الخاصه به ثم بعد ذلك يقوم يتنفيذ الاسطر والاوامر التالية الموجودة بالكود وتقريبا اخي الكريم كل السطور بعد ذلك هي نفس الطريقة باختلاف المعادلات المطلوبة في كل سطر وكمثال .. السطر الثاني وهو كالتالي : ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value فالسطر السابق يعني في الجزء الاول ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value انه في هذ الملف ThisWorkbook في شيت العمل Worksheets المسمي بالاسم Step Up Feature اجعل النطاق او الخلية المحدد H15 وقيمتها Range("H15").Value تســــــــــــــــــــاوي = والجزء الثاني من هذا السطر بالكود له نفس المعني ولكن باختلاف الشيت والخلية المحددة اي ان هذا السطر يقصد انه اجعل الخلية H15 في الشيت Step Up Feature = الخلية D15 في الشيت المسمي Step Up Feature وهكذا بالنسبة لباقي اسطر الكود ولكن كما ذكرت باختلاف المعادلات والمطلوب منها ولكن يمكن اختصار هذه الاسطر بطرق اخري اقل واسهل من ذلك . ارجو ان اكون قد اوضحت لك الصورة كما تريد تقبل خالص تحياتي
  12. شاهد اخي الكريم الرابط التالي
  13. جرب اخي الكريم المرفق التالي ان شاء الله يفي بطلبك تقبل خالص تحياتي Book1.rar
  14. حمادة عمر

    طلب

    من الافضل ارفاق ملف كمثال لما هو مطلوب ليمكن للجميع مساعدتك تقبل خالص تحياتي
×