ibn_egypt
-
Posts
764 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
18
Community Answers
-
ibn_egypt's post in ترحيل خلايا محددة من شيت الى شيت اخر was marked as the answer
اخى الفاضل
تفضل تم الغاء تظليل البيانات وعدم الترحيل اذا كانت بعض الخلايا فارغة وهي رقم الموظف وكود الدورة وبدايتها
تحياتي
نموذج ترشيحات العاملين للبرامج التدريبي4.rar
-
ibn_egypt's post in هل استطيع تنفيذ اكثر من 5 مايكرو بضغطة زر واحده was marked as the answer
اخى الفاضل
نعم تستطيع تنفيذ أكثر من 1000 ماكرو بضغطة زر واحدة .. كل ما عليك هو انشاء موديول جديد وليكن باسم ExecuteMacros وبداخله فقط اسطر استدعاء ما تريد من ماكرو
Call Tarheel
Call GetData
Call Tarheel2
وهكذا ... ثم اضف زر واجعل ال Assign Macro الخاص به هو هذا الماكرو ExecuteMacro
سيتم تنفيذ الماكرو واحدا تلو الآخر حسب الترتيب الذي وضعت
تحياتي
-
ibn_egypt's post in ارجو المساعده فى الليبل was marked as the answer
اخى الفاضل
انا اللى متأسف لك لم انتبه انك عامل Line Break او Enter ما بين الكلمتين .. جرب المرفق ان شاء الله ستزبط معك
تحياتي
Book1.rar
-
ibn_egypt's post in التاريخ الميلادي والهجري was marked as the answer
اخى الفاضل
جرب المرفق ... تم تغيير بسيط ويتم ارسال البريد الآن بالهجرى بغض النظر عن كون الخلية بها ميلادى .... لست في حاجة لكل هذا
تحياتي
ehab.rar
-
ibn_egypt's post in عمل متوسط حسب القيمة المدخلة was marked as the answer
اخى الفاضل
لإثراء الموضوع وبعد إذن أخى الحبيب محمد الريفي مرفق الحل بالأكواد
تحياتي
Book1.rar
-
ibn_egypt's post in هل من طريقة تمكين عجلة التمرير للفأرة was marked as the answer
اخى الفاضل
شاهد هذا الفيديو ... وتم تطبيق الكود بالملف الخاص بك وارفاق الملف بالموضوع
تحياتي
2015..rar
-
ibn_egypt's post in هل استطيع عمل ماكرو تصدير بيانات من اكسل الى ملفات نصيه was marked as the answer
اخى الفاضل
جرب الملف المرفق .. سيتم حفظ الملف على سطح المكتب بالإسم الموجود في الخلية J1
تحياتي
ExportTOtxt.rar
-
ibn_egypt's post in فلترة تقرير مبيعات بكود برمجى ( رجاء المساعدة ) was marked as the answer
اخى الفاضل م.ياسر
مرفق رابط ملف به كود آخر يقوم بعمل فلتر بناءا على اختياراتك اعتقد انه اسرع قليلا من الكود السابق الذي يعتمد على الحلقة التكرارية في وسط هذا الكم الهائل من البيانات تستغرق وقتا كما ان جعل تنسيق البيانات كجدول أيضا يجعل الملف وسط البيانات الكبيرة هذه ثقيلا
http://www.mediafire.com/download/3kr9a4qegit4l97/Report-Updated.rar
جرب والأسرع والأفضل لك اشتغل به
تحياتي
-
ibn_egypt's post in كود فرز المكرر بإجمالى مبيعاته was marked as the answer
اخى الفاضل م.ياسر
جزانا الله واياك كل خير، شاهد الملف المرفق
تحياتي
فرز المكرر بإجمالى مبيعاته.rar
-
ibn_egypt's post in مساء الخير ارجو المساعده was marked as the answer
اخى الفاضل
مشكلتك وجود مسافة زائدة في اسم الشيت حيث ان اسم الشيت هو " NEW GRIEVANCE" هناك مسافة بعد حرف ال E الأخير، ولتصحيح الخطأ إما أن تقم بإزالتها يدويا .. او تغير في سطر الكود لتجعله هكذا
tsheet = Trim(ActiveSheet.Name) مرفق ملفك بعد التعديل
تحياتي
Grievance 4.rar
-
ibn_egypt's post in ارسال رساله الي الايميل بانتهاء المده was marked as the answer
اخى الفاضل
تفضل الملف المرفق .. لربما به طلبك .. وعذرا للتأخير
تحياتي
ehab.rar
-
ibn_egypt's post in طلب مساعده كيف انسخ داله لجميع ملفات الاكسل ؟ مبتدء was marked as the answer
اخى الفاضل
أولا هتفتح ملف اكسل جديد وتدخل على محرر الأكواد VBA بالضغط على ALT+F11 هتعمل موديول جديد وتلصق فيه الدالة بتاعتك "الكود السابق" ...
ثانيا هتعمل حفظ باسم عادى جدا وقم بتسمية الملف باى اسم تريده ولكن يفضل باللغة الانجليزية .. اهم شئ انك تختار نوع الملف Excel Add-in xlam واحفظها في اى مكان على جهاز
واقفل الملف
ثالثا افتح ملف اكسل جديد او اى ملف اكسل لديك واختر ملف .. خيارات ... الوظائف الإضافية ... زر انتقال بالاسفل ... ثم اختر استعراض سيفتح اطار اختار الدالة التى قمت بحفظها على جهازك ثم موافق... الآن الدالة اصبحت مدمجة لاى ملف اكسل بجهازك
اعتذر عن عدم التوضيح بالصور
جرب ولو فيه شئ أخبرنا به
تحياتي
-
ibn_egypt's post in مساعده ( تنسيق تلقائي) was marked as the answer
اخى الفاضل
حل اخر لربما يروق لك
تحياتي
تنسيق تلقائي.rar
-
ibn_egypt's post in ماهو افضل برنامج لإضافة ملف فلاش الى الاكسل was marked as the answer
اخى الفاضل
لا أعرف سبب المشكلة تحديدا ولكن أولاً يفضل أن تجعل المسميات بالإنجليزية سواء المجلد الذي به ملف الفلاش أو اسم الملف نفسه اجعله بالإنجليزية ... ثانيا لاحظت في الملف المرفق انك لم تضع اسم الملف في نهاية المسار في الخاصية Movie تأكد انه بهذا الشكل
C:\Users\Ibn_Egypt\Desktop\Flash\officena.swf انا بعد ما عملت كده اشتغل عندي كويس جدا .. لكن انا اعمل على اصدار 2010 >>> ان لم يعمل عندك بعد التعديلات السابقة خلينا نشوف التعامل مع الاصدار نفسه
جرب وأخبرنا كيف سارت الأمور
تحياتي
-
ibn_egypt's post in تكرار بيانات صف بعدد يتم تحديده فى خليه was marked as the answer
اخى الفاضل
مرفق ملفين الاول لحل الموضوع بالمعادلات ويتطلب هذا عمودين مساعدين تم تظليلهم باللون الأزرق .... والملف الآخر حل الموضوع بالكود .. اختر ايهما اسهل وايسر لك في العمل
تحياتي
Book1.rar
Code.rar
-
ibn_egypt's post in تعديل ع كود تاريخ was marked as the answer
اخى الفاضل أ.طارق
الكود الذي أرفقته يجعل التاريخ المكتوب بمربع النص بتنسيق DateFormt على اعتبار انك معرف ال DateFormt من البداية بهذا الشكل
Const DateFormt As String = "yyyy/MM/dd" أو بأي شكل تريده .. وليس له علاقة بجعل مربع النص لا يقبل الا تاريخ .. واذا اردت جعل مربع النص لا يقبل الا تاريخ فقط فأنا استخدم هذا الكود >> آسف لكتابة رسائل الخطأ بالإنجليزية حيث أنها بالعربية تظهر على شكل رموز غير مفهومة
Private Sub txtbdate_AfterUpdate() On Error GoTo 1 Me.txtbdate = Format(Me.txtbdate, "yyyy/MM/dd") With txtbdate If Len(.Text) <> 10 Or _ Mid(.Text, 5, 1) <> "/" Or _ Mid(.Text, 8, 1) <> "/" Then MsgBox "Date Format Should Be yyyy/MM/dd", vbOKOnly + vbInformation, "Wrong Date" Me.txtbdate.Text = "" Me.txtbdate.SetFocus GoTo 1 End If End With If Not IsDate(txtbdate) Or Mid(txtbdate, 6, 2) > 12 Then MsgBox "Please Enter Valid Date", vbOKOnly + vbCritical, "Wrong Date" Me.txtbdate.Text = "" Me.txtbdate.SetFocus GoTo 1 End If 1 End Sub ففى هذا الكود فنحن نجعل تنسيق التاريخ المكتوب من البداية ليصبح yyyy/MM/dd ....ليكون بهذا الشكل على سبيل المثال 2015/01/30
ثم نختبر التاريخ المكتوب في مربع النص اذا كان لا يساوي 10 يبقي خطأ واذا كان الرقم الخامس أو الثامن من اليسار لا يساوي / يبقي مش تاريخ ... تمام وبرضه بنرجع نختبر لو مش تاريخ او لو تاريخ ولكن الارقام بداية من 6 وبطول 2 اللى هي الاشهر اكبر من 12 يبقي تاريخ خطأ حيث ان عدد الاشهر لا تزيد عن 12
جرب ولو فيه اى استفسار اكتبه ونتناقش فيه
تحياتي
-
ibn_egypt's post in مساعدة في إظهار وإخفاء صف was marked as the answer
اخى الفاضل
جرب الملف المرفق لربما به طلبك ... ولمزيد من الافكار قم بزيارة الموضوع التالى
http://www.officena.net/ib/index.php?showtopic=57508&page=1
تحياتي
إخفاء وإظهار صف محدد بنفس المفتاح.rar
-
ibn_egypt's post in طلب بسيط ولكنه يهمني was marked as the answer
اخى الفاضل
حسب ما فهمت .. انسخ الكود التالى بأكمله والصقه اسفل الكود الموجود لديك
Private Sub UserForm_Initialize() Me.TextBox1.SetFocus End Sub تحياتي
-
ibn_egypt's post in فورم مستخدمين was marked as the answer
اخى الفاضل أ.طارق
تفضل الملف المرفق لربما به طلبك .... لن يتم الدخول الا باحدي كلمات المرور التى حددتها في الأعلى
تحياتي
login.rar
-
ibn_egypt's post in نسخ قيم الفواتير بشرط was marked as the answer
اخى الفاضل
تفضل الملف المرفق لربما به طلبك
تحياتي
copy invoices.rar
-
ibn_egypt's post in التجكم في ادخال بيانات في خلية was marked as the answer
اخى الفاضل
تفضل الملف المرفق لعل به طلبك
تحياتي
التحكم في ادخال بيانات في خلية.rar
-
ibn_egypt's post in طلب مساعدة ادراج وحذف الصفوف was marked as the answer
اخى الفاضل
حتى يتم عمل ذلك فلابد ان يكون هناك معيار لمعرفة رقم الصف الملون دائما .. فتم وضع رقم "1" في العمود AZ المخفي على نفس الصف الملون حتى يتم معرفة هذا الصف دائما ... الباقي سهل
مرفق الملف لعله المطلوب
تحياتي
ادراج وحذف صفوف.rar
-
ibn_egypt's post in طلب مساعدة يا عمالقة الاكسيل was marked as the answer
اخى الفاضل
كما تفضل أ.ياسر بالحل باستخدام الدالة المعرفة او من الممكن ان تستخدم هذه المعادلة .. مع ملاحظة انها معادلة صفيف اى لابد من الضغط CTRL+SHIFT+ENTER
=SUM(IF(FREQUENCY(IF(LEN(C1:C15)>0,MATCH(C1:C15,C1:C15,0),""), IF(LEN(C1:C15)>0,MATCH(C1:C15,C1:C15,0),""))>0,1)) مرفق الملف للتوضيح
تحياتي
المصنف1.rar
-
ibn_egypt's post in مساعدة في يوزر فورم was marked as the answer
اخى الفاضل
تفضل الملف المرفق لربما به طلبك ... الملف الأول للإضافة والبحث والتعديل والحذف
الملف الثاني للبحث والتعديل والحذف فقط دون اضافة
تحياتي
Deduction.rar
Deduction-Find&Edit.rar
-
ibn_egypt's post in لماذا لا يعمل هذا الكود أحياناً was marked as the answer
اخى الفاضل
سبحان الله انا سألتك على التنسيقات قبل ما ابدا .. انت الذي لم ترد لى خبر .. عامة مرفق الملف بالتنسيقات التى تريدها
تحياتي
Combinations Scenario For Values Summation.rar