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

حمادة عمر

المشرفين السابقين
  • Posts

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

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

  • Days Won

    101

Community Answers

  1. حمادة عمر's post in اريد معرفة كيفية حماية الاشكال المدرجه (shapes) فى الاكسيل من التعديل was marked as the answer   
    السلام عليكم
    الاخ الكريم / محمدعشره
    بارك الله فيك
    علي حسب علمي اخي الكريم انه اذا قمت بعمل حماية للشيت لا يمكنك تحريك الاشكال
    او حذفها او التعديل فيها
    شاهد المرفق به زر تم ربطة ارتباط تشهبي ( هايبر لينك )
    ولا يمكنك تحريكه او حذفه او التعديل عليه
    جرب واخبرني بالنتيجة
    او قم بارفاق الملف المقصود للوقوف علي الخطأ
    تقبل خالص تحياتي
     
     
    حماية الاشكال.rar
  2. حمادة عمر's post in التاريخ الهجري was marked as the answer   
    السلام عليكم

    الاخ الفاضل / wella1405
    ابحث عن تقويم ام القري للعلامة القدير ( خبور خير )
    او ابحث في المنتدي عن التاريخ الهجري واليك بعض من هذه الروابط علها تفي بالغرض

    http://www.officena....showtopic=37455
    http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
    http://www.officena.net/ib/index.php?showtopic=44388&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
    http://www.officena.net/ib/index.php?showtopic=43268&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
    http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
    http://www.officena.net/ib/index.php?showtopic=42631&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
  3. حمادة عمر's post in اريد نقل ورقة اكسيل من ملف الي ملف اخر بكل الدوال وبنفس الخصائص was marked as the answer   
    السلام عليكم
    الاخ الكريم
    اما ان تكون الصفحة التي نسختها بها معادلات مرتبطة مع صفحات في المصنف الآخر او ارتباطات تشعبية
    او الأكيد ان هناك كود او ماكروهات موجودة بالملف السابق فيجب عليك نقلها الي الملف الجديد ايضا لتعمل معك دون الحاجة للملف الآخر
    عسي الله ان ينفع بإجابتي .... الي أن يأتيك رد احد خبراؤنا العظام
    جزاك الله خيرا
  4. حمادة عمر's post in ما هو تعديل الخطأ الموجود في هذا الكود was marked as the answer   
    قم اخي الكريم باستبدال الكود الموجود في هذا المودل بالكامل بالكود التالي
    وان شاء الله سيعمل معك الملف .. ولم اتمكن في ضبطه بصورة نهائية لان ملفك به اكواد أخري مرتبطه بشيتات غير موجودة
    اظن انك قمت بحذفها قبل رفع الملف وهي بالطبع تسبب لدي مشكلة جرب علي ملفك واشعرنا بالنتيجة
    مع اني انصحك بتغيير نظام الويندوز لديك الي 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
  5. حمادة عمر's post in كود ماكرو يقوم بنسخ الصف row بجميع محتوياته ومعادلاته was marked as the answer   
    السلام عليكم 
    الاخ الكريم / S0bhy    بارك الله فيك 
    الملف المرفق منك لم اتمكن من فك الضغط الخاص به 
    ولكن اليك المرفق اظن به ما تريد ... شاهد المرفق واشعرنا بالنتائج 
    ( قم بالوقوق علي الصف الذي تريد نسخه بمعادلاته وتنسيقاته في اي خليه فيه ثم اضغط علي الزر الاحمر الموجود بالملف 
    ستظهر لك نافذة تتطلب منك عدد الصفوف المراد اضافتها قم بوضع العدد الذي تريد اضافته ثم اضغط موافق ستتم الاضافة ) 
    تقبل خالص تحياتي 
     
     
     
     
    نسخ واضافة الصفوف المطلوبه بمعادلاتها وتنسيقاته.xls
  6. حمادة عمر's post in كود لقفل ملف الاكسل بعد الخمول was marked as the answer   
    السلام عليكم 
    الاخ الكريم / اياد م    .. بارك الله فيك 
    تقبل خالص تحياتي 
    اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا 
    ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف ) 
    واليك الملف التالي قم بتجربته واخبارنا بالنتائج 
    تقبل خالص تحياتي 
     
     
    غلف الملف بعد مدة من ترك ملف غير نشط.xls
  7. حمادة عمر's post in عند الكتابة في textebox الفورم تظهر الكتابة مباشرة في الخلية من دون زر ادخال ؟ was marked as the answer   
    اخي الكريم 
    استخدم هذا الامر 
    Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1
    ,G;L HGA;V 
  8. حمادة عمر's post in تغير التاريخ في خلية بشرط مشكلة بسيطة was marked as the answer   
    السلام عليكم
    اخي الكريم
    من الافضل دائما عن تقديم اي سؤال ان يتم اضافة مرفق كمثال لما تريده فهو يجعل لطلب اوضح
    ليمكن للكثير مساعدتك
    شاهد المرفق علي حسب فهمي لطلبك وفي المرفق
    ( اختار من القائمة في العمود A  واضغط انتر او قم بالخروج من الخلية بالاسهم وشاهد النتيجة في العمود B )
    ان شاء الله يفي بطلبك
    تقبل خالص تحياتي
     
    HAMADA OMAR-DATE.rar
  9. حمادة عمر's post in اداة جديدة في الاكسل was marked as the answer   
    الاخ الكريم / محمود ربيع
    بارك الله فيك
    الاخ والاستاذ / شوقي ربيع ... جزاه الله خيراً
    له موضوع مستفيض في هذه الآداه واظن انه لم يترك عنها شيئاً واظن انه سيفيدك كما تريد
    واليك رابط الموضوع
    تقبل خالص تحياتي
     
  10. حمادة عمر's post in المساعدة في تعديل الكود was marked as the answer   
    لتنفيذ طلبك اخي الكريم
    قم باستبدال السطر التالي الموجود في الكود لديك وهو
    Set ws = Worksheets("بيانات") بالسطر التالي
    Set ws = ActiveSheet جرب واشعرنا بالنتائج
    تقبل خالص تحياتي
  11. حمادة عمر's post in تقسيم الاسم من 3 تكستات الي 26 تكست بوكس حرف حرف .. التوضيح بالموضوع ؟؟ was marked as the answer   
    السلام عليكم
    الاخ الفاضلة / سما محمد
    بارك الله فيكي
    استخدمي هذا الكود في حدث UserForm_MouseMove  اي النتيجة بالتكستات الصغيرة
    ستظهر لكي بعد تحريك الماوس علي الفورم
    واليكي الكود والملف المرفق به الحل
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox30.Value = TextBox1.Value + TextBox2.Value + TextBox3.Value TextBox4.Value = Mid(TextBox30, 1, 1) TextBox5.Value = Mid(TextBox30, 2, 1) TextBox7.Value = Mid(TextBox30, 3, 1) TextBox6.Value = Mid(TextBox30, 4, 1) TextBox9.Value = Mid(TextBox30, 5, 1) TextBox8.Value = Mid(TextBox30, 6, 1) TextBox11.Value = Mid(TextBox30, 7, 1) TextBox10.Value = Mid(TextBox30, 8, 1) TextBox12.Value = Mid(TextBox30, 9, 1) TextBox13.Value = Mid(TextBox30, 10, 1) TextBox15.Value = Mid(TextBox30, 11, 1) TextBox14.Value = Mid(TextBox30, 12, 1) TextBox17.Value = Mid(TextBox30, 13, 1) TextBox16.Value = Mid(TextBox30, 14, 1) TextBox19.Value = Mid(TextBox30, 15, 1) TextBox18.Value = Mid(TextBox30, 16, 1) TextBox20.Value = Mid(TextBox30, 17, 1) TextBox21.Value = Mid(TextBox30, 18, 1) TextBox23.Value = Mid(TextBox30, 19, 1) TextBox22.Value = Mid(TextBox30, 20, 1) TextBox24.Value = Mid(TextBox30, 21, 1) TextBox25.Value = Mid(TextBox30, 22, 1) TextBox27.Value = Mid(TextBox30, 23, 1) TextBox26.Value = Mid(TextBox30, 24, 1) TextBox29.Value = Mid(TextBox30, 25, 1) TextBox28.Value = Mid(TextBox30, 26, 1) End Sub  
    فصل حروف الاسم لتكستات بوكس حرف حرف.rar
     
  12. حمادة عمر's post in دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. ( الجزء الأول ) !! خطوة خطوة was marked as the answer   
    الدروس من الدرس الرابع ... الي ... الدرس السادس
     
    كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar  
    الدروس من الدرس السابع ... الي ... الدرس التاسع
     
    المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar  
    الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر
    تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar  
    أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء
    تقبلوا خالص تحياتي
  13. حمادة عمر's post in مطلوب تكرار لاخر الشيت بواسطة الكود was marked as the answer   
    تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله
    وشاهد البيانات في الصف رقم 520 -521 -522 - 523
    تقبل خالص تحياتي
     
     
    نقل اسماء الزبائن والكود -sama.rar
  14. حمادة عمر's post in محتاج برنامج او اى حاجة تفتحلى ملف اكسيل مقفول برقم سرى was marked as the answer   
    السلام عليكم
    الاخوة الكرام الاعزاء
    هذا الموضوع مخالف اخواني الكرام لقواعد المشاركات
    احتراما لحقوق صاحب الملف المغلق
    وموضوع فتح ملف اكسيل مغلق برقم سري اعرف انه ليس بالصعب عليكم اعضاء المنتدي الكرام
    ولكن هذه بينكم وبين ربكم
     
    والاخ  /    alaaelyan
    بارك الله فيك
    من الافضل ان تقوم بتصميم برنامجك بنفسك او البحث هنا في المنتدي عما يناسبك
    حيث ان الملف مادام مغلق برقم سري فان صاحبه لا يريد ان يستخدمه احد الا من خلاله
    واحتراما لحقوق الملكية والفكرية
    سيتم غلق هذا الموضوع عند هذا الحد
     
    ==========
    الادارة
    ==========
  15. حمادة عمر's post in مساعدة في كتابة كود فورم للبحث والتعديل was marked as the answer   
    السلام عليكم
    الاخ الكريم / A.El Sheikh
    بارك الله فيك
    وبعد اذن اخي الحبيب /  طلعت محمد حسن ... جزاه الله خيرا
    شاهد اخي المرفق الكريم
    ان شاء الله به طلبك ... علي حسب فهمي لطلبك
    تقبل خالص تحياتي
     
     
    items-SAMA.rar
  16. حمادة عمر's post in [استفسار] بخصوص حماية ورقة العمل was marked as the answer   
    السلام عليكم
    الأخ الكريم / مصطفى أبو ملك
    بارك الله فيك
    كل شخص يري افضل حماية لملفه بالطريقة التي تناسبه
    فالبعض ( الذين لديهم خبرة ) لا يوجد لديهم ما يسمي بأن الملف محمي حيث من السهل كسر حمايته
                                      وخصوصا بعد كود الاستاذ / ياسر خليل -- الخاص بكسر الحماية  ( مخلاش باقي حاجه )
                                      علي الرابط http://www.officena.net/ib/index.php?showtopic=60289
    والبعض ( المبتدئين ) اقل نوع من انواع الحماية يكون مثل السد العالي بالنسبة لهم
    والآخرين ( المتوسطين ) يتم خداعهم ببعض الطرق والخدع المتعددة
     
    وافضل طريقة لحماية الملف ( من وجهة نظري الفقيرة ) هو جعل ملف الاكسيل تنفيذي
    مع استخدام الكود المشار اليه في الرابط الموجود في المشاركة رقم 2
     
    وبشكل أوضح يكون مثل البرنامج الموجود علي الرابط
    http://www.officena.net/ib/index.php?showtopic=56375
    للأخوين القديرين  ( ضاحي الغريب - شوقي ربيع )
    تقبل خالص تحياتي
  17. حمادة عمر's post in المساعدة في تفعيل خاصية الطباعة والتعديل في الفورم was marked as the answer   
    السلام عليكم
    الاخ الكريم / عاشق الاسلام
    بارك الله فيك
    بعد اذن اخي الحبيب /  أبوســـارة1973  ... بارك الله فيه
     
    اليك هذا الحل لعله يكون المطلوب ... حيث تم تنفيذ الطلب علي وجه السرعه
    فعذرا لوجود اي خطأ في فهمي لطلبك
     
    تقبلوا خالص تحياتي
     
     
    تعديل وطباعة في الفورم عن طريق البحث في الليست.rar
  18. حمادة عمر's post in شرح تحويل لغة الواجه من عربى الى انجليزى was marked as the answer   
    السلام عليكم
    الاخ الكريم /  ۩◊۩ أبو حنين ۩◊۩
    بارك الله فيك
    الموضوع ليس به اي طريقة سوي ان صاحب الموضوع الخاص بكأس العالم
    قد قام بكتابة كل المطلوب لبيانات ملفه ب 3 لغات الموجودة فيه وذلك في الورقة رقم 2  ( Feuil2 )
     
    ويتم استدعاء الكلمات والجمل بناءا علي الاختيار من الكومبوبكس الخاص باختيار اللغة ليتم تحويل كل البيانات للغة المطلوبة
    وذلك باستخدام الدوال العادية مثلا  دالة INDEX
     
    ارجو ان تكون قد اتضحت الفكرة
    وان اردت ارسل لك  هذا الشيت الموجود في هذا الملف
    تقبل خالص تحياتي
  19. حمادة عمر's post in اضهار الخلايا بالفورم was marked as the answer   
    شاهد المرفق التالي ... ان شاء الله به طلبك
    تقبل خالص تحياتي
     
    افتح الفورم واكتب القيمة المطلوبة في تكست بوكس 2 و 3 .... ثم اضغط الزر الموجود بالفورم
    وشاهد النتيجة
    او مزيد من التوضيح
     
    اضهار الخلايا بالفورم11.rar
  20. حمادة عمر's post in أريد عمل زر لتشغيل كود was marked as the answer   
    ع السريع ..
    شاهد هذا التعديل البيسط جدا علي الزر في الصفحة الرئيسية
     
    mohammed.rar
  21. حمادة عمر's post in الوصول الي الخلايا المرتبطه باوراق عمل في مستندات اخري was marked as the answer   
    السلام عليكم
    الاخ الكريم /  احمد ابوزيزو
     
    شاهد الرابط التالي
    http://www.officena.net/ib/index.php?showtopic=46419&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
     
    او
     
    http://www.officena.net/ib/index.php?showtopic=45893&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
     
    ان شاء الله تجد به طلبك ... علي حسب فهمي للطلب
    تقبل خالص تحياتي
  22. حمادة عمر's post in طلب كـود لاستـدعــاء فـاتــورة من جدول المشتريـات الى userform was marked as the answer   
    السلام عليكم
    الاخ الكريم / انسان
    بارك الله فيك
    اليك اخي الكريم ما طلبته ...
    كل ما عليك هو اختيار رقم الفاتورة التي تريد الاستعلام عنها من القائمة في الكومبوبكس
    واي تعديل او استفسار او طلب ... معك دائما باذن الله
     
    ** الكود الموجود بالمرفق به شرح لكل سطر فيه بالتفصيل ( الكود المستخدم ..كود باقشيري كاملا )
    ولكن تم التعديل عليه ليتناسب مع ملفك
    حيث قمت باستخدام الاكواد الموجودة في موضوعي ( ان اردت الاستزادة وتعلم الطريقة )
     
    طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة
     
    تقبل خالص تحياتي
     
    طلب كود استدعاء بيانات فاتورة.rar
  23. حمادة عمر's post in ظهور قيمة خلية في فورم was marked as the answer   
    بارك الله فيكم
    تقبلوا خالص تحياتي
  24. حمادة عمر's post in جمع تلقائي في التكست بوكس was marked as the answer   
    السلام عليكم
    الاخ الحبيب / أحمد فؤاد
    بارك الله فيك
    بالفعل كما ااشار اخونا الحبيب /  إبراهيم ابوليله
    ارفاق ملف يوضح المطلوب كما تريد
    ولحين ارفاق الملف
     
    شاهد الرابط التالي المشاركة رقم 39
    http://www.officena.net/ib/index.php?showtopic=46420&page=2
     
    وايضا نفس الموضوع المشاركة رقم 61
    http://www.officena.net/ib/index.php?showtopic=46420&page=4
     
    بها بعض الاكواد المتعلقة بهذا الشأن مع شرح الاكواد في المرفقات الموجودة بهما
     
    تقبلوا خالص تحياتي
  25. حمادة عمر's post in تنفيذ الكود مع وجود حمايه للشيتات was marked as the answer   
    السلام عليكم
    الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩
    بارك الله فيك
    بعد اذن اخي الفاضل /  وليد فتحي ... جزاه الله خيرا
    استخدم التعديل التالي علي الكود الخاص بك لتنفيذ طلبك
    Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i '============================= For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i '============================= Application.ScreenUpdating = True Sheets("عام").Select End Sub وان شاء الله سينفع معك
    او قم بوضع ملف كمثال للعمل عليه
    تقبل خالص تحياتي
    وجرب علي المرفقات
     
     
     
    تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات.rar
×
×
  • اضف...

Important Information