بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
6205 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
101
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو حمادة عمر
-
كيفية تصميم تقرير متعدد الأعمدة
حمادة عمر replied to على عبد التواب الجندى's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الحبيب / احمد عبد الناصر بارك الله فيك مجهود جبار ... واكود رااائعة اكواد متقنة بحق جمعة مباركة جزاك الله خيرا -
من أجمل أعمالى الخاصة ( جمال عبد السميع )
حمادة عمر replied to جمال عبد السميع's topic in منتدى الاكسيل Excel
السلام عليكم الاستاذ العملاق / جمال عبد السميع ملك المعادلات بالفعل ملف جميل جدا ... والاجمل هو انه من اعمالك الخاصة وروعة معادلاته ... وتنسيقة الشرطي ... والامكانيات والدقة الموجودة فيها وهو يحتاج لدراسة جادة بالفعل كما اخبرتنا ... للتعرف علي جميع مزاياه الحقيقة فهو في البداية يظهر كملف عادي .... ولكنه قمة من الابداع والتفاني في التصميم جزاك الله خيرا -
الكود لا يستطيغ إيجاد الملف المطلوب
حمادة عمر replied to Mohammed Farid's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الكريم / Mohammed Farid بارك الله فيك موضوعك لا يوضح اي شئ يرجي ارفاق الملفين الموجود بهم الكود كمرفقات ليتم مساعدتك حيث ان طلبك الآن مبهم .... ولا يعطي الفرصة لاحد لمساعدتك او قم علي الاقل بوضع الكود الذي تقصدة وان شاء الله ستجد العون من الجميع جزاك الله خيرا -
السلام عليكم الاخ الحبيب / احمد عبد الناصر بارك الله فيك تعديل جميل .... لقد اخبرتك سابقا انك متخصص في الليست بوكس مبروك خبيرنا المعتمد الجديد علي الترقية المستحقة والي المزيد من التقدم جمعة مباركة جزاك الله خيرا
-
لارفاق ملف اخي الكريم يجب عليك اولا ضغطة باحد برامج ضغط الملفات Winrar او winzip وشاهد الرابط التالي به الطريقة فيديو لطريقة رفع الملفات للمنتدي ارجو ان يفيدك http://www.officena.net/ib/index.php?showtopic=44625
-
السلام عليكم الاخ الكريم / admbrk بارك الله فيك اي مكتب بريد تعمل انت به .... فأنا اعمل بمنطقة بريد جنوب المنوفية ============================ الطريقة اسهل مما تتصور قم بالدخول علي ملف الورد ... ثم قم بنسخ الكل مرة واحدة باستخدام ctrl + A ثم قم بلصق البيانات في صفحة اكسيل .... ستظهر البيانات في عمود واحد ظلل العمود المطلوب تقسيم الجمل فيه اذهب الى data ثم الى Text to cloumns ثم اختر next ثم اختر التقسيم على اساس ترك مسافة بين الكلمات space ثم finish وهكذا سينقسم الاسم الى عدد الاقسام بعدد المسافات بين كل اسم والاسم الذي يليه هناك ملاحظة مهمة عليك باضافة اعمدة 5 او 6 اعمدة لكي لايتم الغاء ماتحتويه الاعمدة التي تلي الاسم ====================== شاهد المرفق جزاك الله خيرا مكاتب البريد.rar
-
بارك الله فيك معلومات مفيدة وقيمة
-
تعريفات لجهاز ديسك توب
حمادة عمر replied to أبو محمد أشرف's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم الاستاذ الغالي / احمد فضيله بارك الله فيك دائما في عون الجميع بالفعل رد وحل وبرنامج رااائع من شخص ارووووووع جزاك الله خيرا -
السلام عليكم الاخ الكريم / مهيب الحمادي بارك الله فيك لفك حماية ورقة اكسيل هناك برامج لعمل ذلك وطرق اخري كثيرة ولكن اقدم لك كود يعمل علي فك حماية ورقة الاكسيل ويتم استخدام الكود التالي بالطريقة التالية : ماعليك سوى عمل التالي : 1 / - فتح الملف الذي تريد فك الحماية الخاصة بة . 2 / - الضغط على مفتاح Alt + F 11 . 3 / - بعد ذلك تظهر لك نافذة Microsoft Visual Basic من قائمة Insert نختار Module . 4 / - تظهر بعد ذلك نافذة Module ماعلينا سوى نسخ ولصق اومر البرنامج الموجودة في الملف المرفق وبعد ذلك نقوم بأغلق نافذة Microsoft Visual basic . 5 / - بعد ذلك يظهر لنا ملف الاكسل الخاص بنا نذهب الى قائمة عرض > وحدات ميكرو > عرض وحدات الميكرو . نقوم بتحديد الميكرو الخاص بنا ومن ثم عمل لة Run او يتم النقر علية مرتين . بعد نتظر فترة من الزمن تعتمد على خصائص الجهاز الخاص بك . بعد ذلك تظهر رسالة تفيد ان كلمة السر هي ************ . قم بأغلاق الرسالة ومن ثم ستلاحظ ان الورقة اصبحت غير محمية . او قم بارفاق الملف للعمل عليه .... وفي انتظار ردك .... هل نجحت الطريقة ام لا Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub جزاك الله خيرا
-
بارك الله فيك الاستاذ والاخ العزيز / تومي محمد دائما تقدم معلومات مفيدة وجميله جزاك الله خيرا
-
اعتقد ان هذا هو الصواب وفي انتظار رد الاستاذ / تومي محمد
-
تهنئة بالترقية للاخ احمد عبد الناصر والاخ عمرو
حمادة عمر replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الحبيب / احمد عبد الناصر الف مليون مبروك علي الترقية المستحقة ويارب مزيد من التقدم ... اكثر وأكثر الاخ الحبيب / عمرو_ الف مليون مبروك علي الترقية المستحقة ومزيد من التقدم في كل مجالات الحياة ولكن هذا يزيد من مسئوليتكم ... في هذا الصرح العملاق تجاه اعضاء ورواد هذا المنتدي اعانكم الله علي ذلك جزاكم الله خيرا -
السلام عليكم الاستاذ العملاق / رجب جاويش بارك الله فيك واجمل ما في رودود حضرتك هو تواجدك بيننا ولو بشكل قليل فردودك دائما تسير في طريق الابداع ولا خلاف علي ذلك ولكنني اسعد عندما اري رد لسيادتكم في اي موضوع هذه الايام كان الله في عونكم جزاك الله خيرا