اذهب الي المحتوي
أوفيسنا

احمدزمان

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4386

  • تاريخ الانضمام

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

  • Days Won

    12

 نوع المحتوي 

كل منشورات العضو احمدزمان

  1. احمدزمان
    السلام عليكم و رحمة الله وبركاته طبعا لست في عبقرية اخي ابو حنين في الأكواد لكن هذا حل لعمل القائمة باستخدام التحقق من صحة وقائمة على قدر الخلايا المكتوبة DATA.rar
  2. احمدزمان
    Booننk11.rar
  3. احمدزمان
    السلام عليكم و رحمة الله وبركاته اشكر اخي احمد عبدالناصر على مساهمته جزاه الله كل خير و اعتذر على التأخير ولكن للضرورة احكام Sub rfrsh() Dim FS As Worksheet Dim TR Set FS = Sheets(ActiveSheet.Name) TR = FS.Range("Z4") + 9 'اضافة تنسيقات FS.Range("E7:O7").Copy FS.Range("E7:O" & TR).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'فرز FS.Range("E7:P" & TR).Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
  4. احمدزمان
    نعم عملت كما ذكرت وكانت النتيجة This program cannot display the webpage
  5. احمدزمان
    لا ارى ملفا اخي
  6. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي فتحت الملف على 2007 ولم يعمل صفحة ويب غير متوفرة سوف احاول غدا على 2003 يمكن يعمل شكرا لك
  7. احمدزمان
    السلام عليكم هذه الطريقة 3 في الخلية الصفراء اكتب اي اسم او حرف جزء من اي اسم ثم اذغط انتر تظهر لك النتائج اذهب للخلية الصفراء اضغط Delet لمسح محتويات الخلية واظهار كل البيانات تحياتي AUTO_F_CODEE.rar
  8. احمدزمان
    السلام عليكم و رحمة الله وبركاته كل هذا ممكن باضافة كود تحديث للورقة المرحل اليها يقوم بالتالي فرز حسب التاريخ و ممكن اضافة نسخ التنسيقات
  9. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي الصواف طلبك له عدة حلول تفضل استاذي الفاضل الباش مهندس طارق بحل = واستخدم كود اخفاء الصفوف التي لايوجد بها القيمة المطلوبة وتفضل اخي الفاضل حسين بحل = بكود التصفية المتقدمة الذي يظهر النتائج في نطاق جديد و الطريقة الثالثة = باستخدام كود التصفية التلقائية AutoFilterوهذا يقوم بعمل التصفية في نفس الجدول بحيث يمكنك الكتابة و التعديل و الطريقة الرابعة = باستخدام الدوال Search - Max - Index - match وسوف يتم استخراج النتائج في ورقة جديدة مع ملاحظة انه لايمكن التعديل في النتائج او الكتابه عليها
  10. احمدزمان
    الله يعافيك
  11. احمدزمان
    وجزاك خيرا لم افهم المقصود او المشكلة
  12. احمدزمان
    السلام عليكم و رحمة الله وبركاته شوف هذا الموضوع قد يفيدك في طلبك http://www.officena.net/ib/index.php?showtopic=38355 اخي صفوت كما ذكر اخواني الأفاضل حسين و ابو محمد انه ليس من المنطقي ان تضع كل صنف في ملف يعني كما ذكرت لديك اكثر من 250 صنف هل سوف تعمل 250 ملف على اي حال ايضا هناك عدة مواضيع في المنتدى لإدارة المخزون قد تفيدك هنا وهذا مجرد رأي قد يحتمل الصواب او الخطأ و الله اعلم
  13. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي الموسطي هو كود واحد يقوم بعمليتين الترحيل بعد عمل الجداول التي تطابق اليومية ثم تتم عملية نسخ ولصق من هذه الجداول الى اليومية مع التحية Booننk1.rar Booننk1.rar
  14. احمدزمان
    Sub To_yawmiyah_aamah() Dim FS As Worksheet, TS As Worksheet Dim R, TR Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("اليومية العامة") TR = TS.Range("Z4") For R = 9 To 25 If FS.Range("AA" & R) = False Then GoTo 9 FS.Range("AB" & R & ":AL" & R).Copy TR = TR + 1 TS.Range("E" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 9 Next R Application.CutCopyMode = False FS.Range("I9:L25").ClearContents MsgBox "تم حفظ اليومية بنجاح ---", , "الحمد لله" End Sub
  15. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي رجل الأكواد و الفورمز ابو حنين شكرا لك على مرورك الكريم جزاك الله خيرا اخي خالد القدس واحشنه من زمان ================ اخي العزيز عزيز مرفق ملف في المشاركة السابقة بعد فتحة من اشرطة الأدوات تختار التبويب بيانات تجد به التحقق من صحة البيانات تفتحة تجد به الدالة ومن مميزات التحقق من صحة انك تستطيع الإختيار بين 3 انواع من الرسائل بالإضافة الى اضافة نص الرسالة الذي تريده
  16. احمدزمان
    السلام عليكم و رحمة الله وبركاته مع التحية والتقدير لكل اخواني الذين سبقوني بردودهم الرائعة ولمزيد من الفائدة هذا حل آخر باستخدام الدوال في التحقق من صحة وبدون اكواد ويجب ان يكون التاريخ له قيمة رقمية وليس نصا مع رسالة تحذيرية للمستخدم وهذا للفائدة مع علمي ان السائل يطلب كود VB المصنف1.rar
  17. احمدزمان
    السلام عليكم و رحمة الله وبركاته جزاك الله كل خير اخي ابو خليل وجعل هذا العمل في ميزان حسناتك
  18. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي محمود خالص تحياتي وتقديري وشكري لكم اخي السائل سكاكا الجوف اضفنا بعض المميزات لورقتي الحلقات و الطلاب بحيث تقوم الورقتين باضافة اسطر تلقائيا عند الحاجة لذلك بمجرد الوقوف على الخلية الصفراء اعلى الورقة وضغط زر Delet بحث تلقائي عن اي كلمة في الورقة بادخالها في الخلية الصفراء اعلى الورقة خالص تحياتي وتقديري جمعية القرآن.rar
  19. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي الكريم عملة بعض التعديلات التي اتمنى ان تكون مفيدة عملت صفحة للحلقات وصفحة للطلاب في صفحة الطلاب بمجرد ادخال رقم الحلقة تظهر اسم الحلقة و الشيخ وضعنا في ورقة001 دوال جلب البيانات من ورقة الطلاب و و رقة الجمعيات بمجرد ادخال رقم تسلسل الطالب تظهر بياناته وبيانات الحلقة ============ تم عمل كود باضافة صفحات يقوم بالتالي نسخ الورقة الى آخر ورقة بالملف اخفاء الورقة الأصلية 001 ثم تقوم انت باضافة رقم تسلسل الطالب لكي تظهر بياناته آمل ان يفي هذا بالمطلوب اثابكم الله جمعية القرآن.rar
  20. احمدزمان
    وعليكم السلام و رحمة الله وبركاته هنالك بعض انواع من الدوال تسبب بطيء الملف ومنها دوال البحث مثل Find - sumif sumproduct وغيرها وغير ذلك ايضا تحديد مساحات العمل لأن تكبير المساحة بدون سبب يثقل عمل الدوال ومن الأفضل ارفاق مثال للملف لكي تتم افادتك بشكل افضل تحياتي وتقديري
  21. احمدزمان
    السلام عليكم و رحمة الله وبركاته اخي الكريم يعني انا فهمت جزء من المطلوب بس ياليت توضح اكثر و ان شاء الله خير و بسيطة بإذن الله
  22. احمدزمان
    السلام عليكم و رحمة الله وبركاته رائع جزاك الله خيرا
  23. احمدزمان
    وعليكم السلام و رحمة الله وبركاته ان شاء الله يكون الحل بسيط فقط اضف السطر التالي في اول الكود Dim RN as Range وجرب مع تحياتي
  24. احمدزمان
    السلام عليكم و رحمة الله وبركاته تحية طيبة لا اعرف دالة تقوم بالمطلوب ولكن ممكن كوود vb خالص تحياتي وتقديري للجميع وخاصة القائمين على المنتدى داله اضافه القيمه بشكل اتوماتيك.rar
  25. احمدزمان
    وعليكم السلام و رحمة الله وبركاته تم عدم تكرار الادخال في الحقول المحددة اعطاء رسالة بتكرار الرقم من غير منع الادخال ياستخدام التحقق من صحة تقارير ايتام بالايميل333.rar
×
×
  • اضف...

Important Information

  I accept