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

احمدزمان

أوفيسنا
  • Posts

    4,385
  • تاريخ الانضمام

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

  • Days Won

    12

Community Answers

  1. احمدزمان's post in ترحيل البيانات was marked as the answer   
    السلام عليكم و رحمة الله وبركاته

    اخي جمال

    في المرفق

    تم تعديل كامل ورقة خامس

    سوف تكون البيانات متتالية في الورقة بدون فواصل
    عند الطباعة سوف يظهر الصفوف الخمسة الأولى في كل ورقة

    تم اضافة ورقة وهذه الورقة مهمة لتحديد درجات النجاح لكل مادة
    من خلال هذه الورقة يتم تحديد النجاح و الرسوب لكل مادة - يمكنك تغيير الدرجة متى تشاء - وسوف تتغير النتائج حسب تغيير الدرجة فورا

    تم تحديد الناجحو الراسب
    تم تحديد مواد الرسوب

    ويبقى نقل البيانات غدا ان شاء الله تعالى

    مع التحية و التقدير

    ____________.rar
  2. احمدزمان's post in بحث وترحيل ب AdvancedFilter was marked as the answer   
    السلام عليكم

    المرفق به ملفين
    ملف اكسل بة مثال الطريقة الأخرى للبحث في ورقة جديدة مع استخراج جميع النتائج (من اعداد الأستاذ ابوتامر)
    ملف وورد به شرح كامل مع الصور عن طريقة عمل صفحة بداية وعمل ماكرو و تحرير الماكرو و طريقة الحفظ بالماكرو وغير ذلك (للأستاذ القدير هادي سالم)
    الملف الثاني ضروري جدا قرائته كاملا وسوف يغنيك عن الكثير من الأسئلة في الماكرو

    مع التحية





    saerch.rar
  3. احمدزمان's post in الدوال الشرطية was marked as the answer   
    و هكذا افضل

    New_Microsoft_Excel_Worksheet.rar
  4. احمدزمان's post in البحث بمدلول شرطين was marked as the answer   
    اخي الفاضل

    لقد تم وضع الحل ب 3 طرق مختلف
    وتم تجربته وهو شغال 100×100

    ولقد تم وضعة في موضوع جديد لتعم الفائدة على الجميع

    اضغط هنا للوصول الى الموضوع وبة الحل المطلوب

    http://www.officena.net/ib/index.php?s=&am...st&p=125447

    مع التحية و التقدير

  5. احمدزمان's post in دالة تمنع تكرار قيمة معينة بشرط ...... was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    اخي الفاضل

    الملف المرفق هو 2007 ولم استطع التعامل معه

    ولكن لدي هذا الملف المرفق
    تم استخدام valdation التحقق من صحة

    جرب الأعمدة السبعة الأولى

    آمل ان يكون هذا المطلوب


    _____________________20.rar
  6. احمدزمان's post in ترحيل فاتوره was marked as the answer   
    السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏السبت‏، 29‏/12‏/1429هـ. الموافق ‏27‏/12‏/08م


    استاذي aah_aah2008

    الف الف شكر وتقدير
    جزاك الله كل خير

    وهذه فكرة اخرى ارجو ان تنال رضاكم

    Invoice2.rar
  7. احمدزمان's post in إستخراج اكبر قيمة was marked as the answer   
    السلام عليكم و رحمة الله وبركاته

    هذا ماتعلمته من

    الأستاذ الفاضل ابو تامر لإستخراج اكبر قيمة متغير عن طريق صفيفة

    والأستاذ الفاضل خبور من دروس الترحيل

    شاهد المرفق
    آمل ان يكون به ماتريد

    slr.rar
  8. احمدزمان's post in مطلوب معادلة بحث عن قيمة وتجميع النتائج was marked as the answer   
    شاهد الملف المرفق

    حول نفس الموضوع

    هو قديم جدا
    و
    ولكن به افكار قد تنفعك مثل
    تحديد قيمة ادنى قيمة لليومية بحيث لاتنقص عنها
    تحديد قيمة الكيلو الزائد
    تحديد مقدار الكيلو الزائد لليوم

    وغير ذلك


    ________AG_c3.rar
  9. احمدزمان's post in الجمع بشريطين was marked as the answer   
    السلام عليكم و رحمة الله وبركاتهكل عام و انتم بخير

    اخي الفاضل

    جرب المرفق ان شاء الله هو المطلوب

    _______11.rar
  10. احمدزمان's post in فرز بشروط was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    بعد اذن استاذنا القدير ابو تامر

    تم تعديل الكود ليشمل الفرز عمود الأسماء كما هو في الطلب

    الملف المرفق

    Test.rar
  11. احمدزمان's post in ملف بحث was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    بعد اذنك استاذي الفاضل هادي

    الأخ علي
    كما ذكرت لك سابقا
    ولكن تم عمل حل مؤقة الى ان تصل الى ماتريد بالضبض

    نظام استعلام بواسطة كود تعلمته من استاذي الفاضل ابو تامر
    شاهد المرفق
    تم اضافة ورقة استعلام سوف تستخرج لك كل ماتريد سواء كان اسم سائق او وجهه او محطة انطلاق او غير ذلك

    _______112.rar
  12. احمدزمان's post in التاريخ الهجري was marked as the answer   
    السلام عليكم

    الرمز مرفق
    الرمز.rar
  13. احمدزمان's post in مشكله في البحث was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    في الخلية M1
    غير كلمة البيان الى نوع العملية
    حيث ان الجدول لا يوجد به كلمة البيان
     
    مع التحية
     
  14. احمدزمان's post in دالة للجمع التراكمى was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    ضع الدالة
    =SUM(N4;C5;K5)-SUM(G5;L5) ثم اسحبها للاسفل
    مع التحية
     
  15. احمدزمان's post in كود اضافة رقم ١ الي قيمة خلايا محدده في العمود C was marked as the answer   
    و عليكم السلام و رحمة الله وبركاته

     
    Sub Add_One() Dim FR For FR = 10 To 50 Cells(FR, 3) = Val(Cells(FR, 3)) + 1 Next MsgBox "plus 1 add to all" End Sub  
    زائد1.xlsm
  16. احمدزمان's post in الطريقة لاستدعاء خلية بدل الاعلى والادنى was marked as the answer   
    و عليكم السلام و رحمة الله و بركاته
    تقبل الله من الجميع
     
    =INDEX(D3:M3;;MATCH(MAX(D5:M5);D5:M5;0))  
    اعلى-ادنى.xlsx
  17. احمدزمان's post in نقل البيانات من ملف يحتوي على شيتات الى ملف اخر في شيت واحد was marked as the answer   
    اخي عبدالله كللامك مظبوط
    يوجد خطاء تم تعديله
    و كان الخطاء في الحلقة الدائرية للتاكد من خلو الخلية الهدف من اي بيانات للكتابه بها
    سامحنا ... كل ابن آدم خطاء
    البرنامج.xlsm
  18. احمدزمان's post in استخلاص بيانات وفقاً لتاريخ معين was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    بالاضافة الى حل اخي الفاضل عبدالله جزاه الله خيرا
    هذا حل آخر بطريقة اخرى
    مع التحية
    test01.xlsx
  19. احمدزمان's post in مطلوب كود ترحيل بيانات was marked as the answer   
    العفو
    تم اضافة المسح للخلايا المرحلة
    تم التعديل
    المصنف1.xlsm
  20. احمدزمان's post in معادلة لإحضار بين تاريخين was marked as the answer   
    و عليكم السلام و رحمة الله وبركاته
    بعد اذن الاستاذ نذار
    اخي ابو جاسم
    هذا حل بطريقة اخرى
    تم اضافة عمود AM في ورقة المارينا لجلب البيانات الى ورقة تقرير
    شاهد المرفق
    غير التاريخ تظهر النتائج
    و لكم تحياتي
    june (1).xlsx
  21. احمدزمان's post in ترتيب جدول بحسب التاريخ الهجري was marked as the answer   
    الله يكرمك و يوسع عليك
    تم عمل الكود وهو يعمل بالترتيب التالي
    فرز و تيب البيانات حسب العمود L التاريخ و الوقت
    تثبيت قيم التاريخ و اليوم بحيث تصبح بدون دوال
    اضافة الدوال للصفوف التي ليس بها دوال
    Dim ER, RN1 As Range ActiveWindow.ScrollRow = 6 Range("A5:O6000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal For Each RN1 In Range("L5:M6000") If RN1.HasFormula And RN1 <> "" Then _ RN1 = RN1.Value Next Range("L3:M3").Copy ER = Application.CountA(Range("A:A")) + 9 For FR = 5 To ER If Cells(FR, 12) = "" Then _ Cells(FR, 12).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next 'FR Application.CutCopyMode = False مع التحية
    Export--TAAM1.xls
  22. احمدزمان's post in طريقة اضافة بحث بجزء من الاسم او اللقب was marked as the answer   
    السلام عليكم و رحمة الله وبركاته
    بعد اذن الاخ هشام
    في الملف المرفق
    اكتب اي جزء من الاسم الذي تريدة
    سوف تعمل التصفية تلقائيا على استخراج المطلوب
    Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then Dim ER, FF, RN1 As Range ER = ActiveSheet.UsedRange.Rows.Count + 9 Set RN1 = Range("A9:V" & ER) FF = Range("B5").Text If FF = "" Then RN1.AutoFilter Field:=2 Else FF = "*" & FF & "*" RN1.AutoFilter Field:=2, Criteria1:=FF, Operator:=xlOr, _ Criteria2:="=" End If Range("B5").Select End If End Sub حساب عدد ايام العمل (1).xlsm
  23. احمدزمان's post in الفرق بين تاريخين هجرين لعمل مكافاة نهاية الخدمة was marked as the answer   
    السلام عليكم و رحمة الله
    شاهد المرفق و طبق منه ماتريد
    هو ملف حملته سابقا من الموقع هنا
    دالة حساب العمر حسب تاريخ اليوم.xls
  24. احمدزمان's post in المساعده على اضافه فلتره بالاسم was marked as the answer   
    مرفق الملف مع الاكواد
    كود لمسح كامل النموذج
    اضغط على الفرشاة للتنظيف
    Range("J2:M2").ClearContents Range("A8") = "" Range("B8") = "" Range("C8") = "" Range("E8") = "" Range("B11:H319").ClearContents ActiveWindow.LargeScroll Down:=-99 كود للبحث
    اضغط على البحث
    تم اضافة خلايا جانبيه مع بعض الدوال لعمل الكود للبحث
    Dim TC, RN1 As Range, RN2 As Range, RN3 As Range Range("J2:M2").ClearContents For TC = 10 To 13 If Cells(3, TC) = "" Then GoTo 9 Else Cells(2, TC) = Cells(3, TC).Value End If 9 Next 'tr Set RN1 = Sheets("DATA").Range("B5:J55555") Set RN2 = Sheets("Dates").Range("J1:M2") Set RN3 = Sheets("Dates").Range("B10:H555") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False انظر المرفق
    N BANK.xlsm
  25. احمدزمان's post in كود حفظ البيانات was marked as the answer   
    السلام عليكم ... جرب
    يومية امريكية وميزان مراجعة.xlsm
×
×
  • اضف...

Important Information