بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
6,205 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
101
حمادة عمر last won the day on أبريل 24 2017
حمادة عمر had the most liked content!
السمعه بالموقع
2,240 Excellentعن العضو حمادة عمر
- تاريخ الميلاد 09 ينا, 1982
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
محاسب
-
البلد
المنوفية - جمهورية مصر العربية
-
الإهتمامات
اعشق الاكسيل والتعامل مع الهارد وير والكمبيوتروالش
اخر الزوار
11,295 زياره للملف الشخصي
-
فلاح الجبوري started following حمادة عمر
-
الصادق ـ ح started following حمادة عمر
-
alaّa mohammad started following حمادة عمر
-
Reda Mohammad started following حمادة عمر
-
الفارس محمد رجب started following حمادة عمر
-
فورم شرح كيفية كتابة سورة الاخلاص على الاكسل
حمادة عمر replied to مجدى يونس's topic in منتدى الاكسيل Excel
بارك الله فيك استاذنا الكريم -
abdallahm32122@gmail.com started following حمادة عمر
-
اكرم السيد started following حمادة عمر
-
كود ماكرو يقوم بنسخ الصف row بجميع محتوياته ومعادلاته
حمادة عمر replied to S0bhy's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الكريم / S0bhy بارك الله فيك الملف المرفق منك لم اتمكن من فك الضغط الخاص به ولكن اليك المرفق اظن به ما تريد ... شاهد المرفق واشعرنا بالنتائج ( قم بالوقوق علي الصف الذي تريد نسخه بمعادلاته وتنسيقاته في اي خليه فيه ثم اضغط علي الزر الاحمر الموجود بالملف ستظهر لك نافذة تتطلب منك عدد الصفوف المراد اضافتها قم بوضع العدد الذي تريد اضافته ثم اضغط موافق ستتم الاضافة ) تقبل خالص تحياتي نسخ واضافة الصفوف المطلوبه بمعادلاتها وتنسيقاته.xls -
السلام عليكم الاخ الكريم / اياد م .. بارك الله فيك تقبل خالص تحياتي اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف ) واليك الملف التالي قم بتجربته واخبارنا بالنتائج تقبل خالص تحياتي غلف الملف بعد مدة من ترك ملف غير نشط.xls
-
فورم ترحيل بيانات للشيت المطلوب عن طريق ال MultiPage
حمادة عمر replied to مجدى يونس's topic in منتدى الاكسيل Excel
بارك الله فيك استاذنا القدير الحبيب / مجدي يونس تقبل خالص تقديري واحترامي لشخصكم الكريم جزاك الله خيرا -
شاهد اخ الكريم الروابط التالية وايضا هذ الرابط ان شاء الله بهم ما تريد تماماً اخي الكريم تقبل خالص تحياتي
-
تفضل المرفق اخي الكريم فتح خانه ترحيل البيانات+.rar
-
برنامج إدارة المشتريات والمبيعات والمخازن
حمادة عمر replied to Ali Mohamed Ali's topic in منتدى الاكسيل Excel
-
برجاء ارفاق ملف كمثال اخي الكريم ليتم العمل عليه
-
برجاء ارفاق ملف كمثال اخي الكريم ليتم العمل عليه
-
قم اخي الكريم بارفاق ملف كمثال لما تريد لان كل ملف يختلف عن الآخر في متطلباته ولكن كنت قد قمت بتنفيذ هذا الطلب لاحد الاخوة من فترة ليست بالقصيرة ولكني لا اتذكر رابط الموضوع ولكن كان له تقريبا نفس طلبك وتم تنفيذه بالطريقة التي حددها ( استخدم زر اضافة حساب ... وشاهد الفورم 2 ) اظن ان بهم ما تريد ... جرب الملف واخبرنا بالنتيجة تقبل خالص تحياتي Copy of المجد1.rar
-
ما هو تعديل الخطأ الموجود في هذا الكود
حمادة عمر replied to Ahmed mordy's topic in منتدى الاكسيل Excel
قم اخي الكريم باستبدال الكود الموجود في هذا المودل بالكامل بالكود التالي وان شاء الله سيعمل معك الملف .. ولم اتمكن في ضبطه بصورة نهائية لان ملفك به اكواد أخري مرتبطه بشيتات غير موجودة اظن انك قمت بحذفها قبل رفع الملف وهي بالطبع تسبب لدي مشكلة جرب علي ملفك واشعرنا بالنتيجة مع اني انصحك بتغيير نظام الويندوز لديك الي 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 -
جزاك الله خيرا اخي الكريم تقبل خالص تحياتي