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

نجوم المشاركات

  1. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      11

    • Posts

      3,254


  2. صلاح جبر

    صلاح جبر

    02 الأعضاء


    • نقاط

      9

    • Posts

      63


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      6

    • Posts

      8,723


  4. الحلبي

    الحلبي

    04 عضو فضي


    • نقاط

      5

    • Posts

      750


Popular Content

Showing content with the highest reputation on 05 فبر, 2020 in all areas

  1. وعليكم السلام تعقيبا على كلام استاذي القدير @احمد الفلاحجي يمكن الحل بواسطة الدخول على ملف ثم معلومات ضغط واصلاح الملف لا ادري اذا جربت هذا الحل او لا يمكن ايضا نقل كافة الملفات الى قاعدة بيانات جديدة اذا كانت معطوبة هذة الحلين الذي في بالي شدتني هذة العبارة لماذا لا تستخدم الرابط الباتش فقط دون الصورة ويمكنك عمل ذلك بواسطة بعض الاكواد التي تقوم بهذا العمل اليك مثال بسيط على ذلك من مشروعي القائم علية الان هو للمحصلين ستجد ملف قاعدة البيانات + مجلد ImagMhs المجلد وستجد زر في صورة الهوية بثلاث نقاط ... عند النقر علية سيمح لك باضافة صورة وستجد الصورة ظهرت على النموذج اذا نقرت على الصورة ستحذف اما اذا نقرت على المسار فسيقوم بفتح الصورة لك تحياتي مثال الصور.rar
    4 points
  2. أهلا @عبق الرياحيين بدلي هذا السطر listBoxWorksheets.RowSource = objWsh.Name بهذا listBoxWorksheets.AddItem objWsh.Name Import Excel.zip
    3 points
  3. استاذ/ @صلاح جبر مثال جميل عن حفظ الصورة واجمل مافيه انه يحفظ الصورة باسم الموظف (المحصل) وايضا فتح الصورة في مستعرض الصور كلام جميل جدا لكن استاذي الفاضل / تعالى هنا كيف تكون جديد وانت بهذه الخبرة الكبيرة حاسة الاستشعار عندى تقول اشياء ثانية (قريبا خبير جديد) واستاذي ومعملنا الكبير / @احمد الفلاحجي يشهد بذلك ولا ايه يا ابو بسملة ربنا يبارك فيك استاذنا / صلاح جبر *** جزاك الله كل خير وجعله في ميزان حسناتك
    2 points
  4. اتفضل هذا الموضوع لاخى العزيز @sandanet اطلع عليه بدقه وان شاء الله يحل لك مشكلتك وربنا يعينك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    2 points
  5. في الخلية D12 هذه المعادلة واسحب يساراً اذا ادخلت بالخطأ في العامود الثاني اي قيمة غير عددية تحصل على فراغ =IF(COUNTA($D$6:$D$10)+COUNT($E$6:$E$10)=10,CHOOSE(COLUMNS($A$1:A1),"المجموع",SUM($E$6:$E$10)),"") المف مرفق Example.xls
    2 points
  6. السلام عليكم اخي العزيز @nacer_alger من الافضل ارفاق مثال لغرض التعديل 1- اعرض النموذج في وضع التصميم - ثم اضغط على راس النموذج الفرعي -من خصائص النموذج - اختر التنسيق - ومن التنسيق قم يتغيير طريقة العرض الافتراضية (من ورقة بيانات الى نموذج مفرد او نماذج مستمرة) . 2- من صورة قم بتغيير الخلفية للنموذج تحياتي ملف مرفق فيه نموذج فرعي تم تغيير الخلفيه له db1.rar db2.rar
    2 points
  7. تم معالجة الامر بالكامل Sub fil_Profname() Application.ScreenUpdating = False Dim p As Worksheet, T As Worksheet, G As Worksheet Dim x%, xx%, m%, how_many%, r%, i%, y%, mun%: num = 1 Dim resl As Range, F_rg As Range Dim Mth As Range, arr(), cel As Range Dim D_arr() Set p = Sheets("P"): Set T = Sheets("T") Set G = Sheets("GHIAB") Set resl = G.Range("a5").CurrentRegion r = resl.Rows.Count If r > 1 Then resl.Offset(1).Resize(r - 1).Clear x = 4: m = 6 Do Until p.Range("a" & x) = vbNullString '====================================== how_many = Application.CountIf(p.Range("D" & x).Resize(, 500), "Ok") If how_many = 0 Then GoTo Next_x Set Mth = G.Range("P12:P23").Find(G.Range("P5")).Offset(, 1) first = Application.Match(Mth, p.Cells(500, "d").Resize(, 250), 0) + 3 y = Application.CountIf(p.Rows(500), Mth) For Each cel In p.Cells(3, first).Resize(, y) If Month(cel) = Mth And UCase(cel.Offset(x - 3)) = "OK" Then ReDim Preserve arr(1 To num) ReDim Preserve D_arr(1 To num) arr(num) = CDate(cel) D_arr(num) = cel.Offset(-1) num = num + 1 End If Next If num > 1 Then G.Cells(m, 1).Resize(num - 1) = Application.Transpose(arr) G.Cells(m, 2).Resize(num - 1) = Application.Transpose(D_arr) For i = 1 To num - 1 G.Cells(m + i - 1, 3) = p.Cells(x, 1) G.Cells(m + i - 1, 4) = p.Cells(x, 2) G.Cells(m + i - 1, 5) = p.Cells(x, 3) Next m = m + num - 1 End If Erase arr: Erase D_arr: num = 1 Next_x: x = x + 1 Loop Set resl = G.Range("a5").CurrentRegion r = resl.Rows.Count If r = 1 Then Exit Sub Set resl = resl.Offset(1).Resize(r - 1) With resl .InsertIndent 1 .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 End With MADDA Application.ScreenUpdating = True End Sub '================================ Sub MADDA() Dim T As Worksheet, G As Worksheet Dim x%, xx%, m%, r1% Dim F_rg As Range Set T = Sheets("T") Set G = Sheets("GHIAB") x = 6: m = 6 Do Until G.Range("A" & x) = vbNullString xx = T.Rows(1).Find(G.Range("B" & x)).Column Set F_rg = T.Columns(1).Find(G.Range("C" & x), lookat:=1) If F_rg Is Nothing Then GoTo Next_x r1 = F_rg.Row G.Cells(m, 6).Resize(, 8).Value = _ T.Cells(r1, xx).Resize(, 8).Value m = m + 1 Next_x: x = x + 1 Loop End Sub الملف medSalim_Final.xlsm
    2 points
  8. اخى / @alix24028 المشكلة كانت بسيطة جدا وهى في النموذج الفرعى فى الحقل Device_Name هذا الحقل يقرأ بياناته من نموذج فرعى فقط ولكن الان بعد وضعه في نموذج رئيسى يلزم ان يقرا من الرئيسى ثم الفرعى غيرت فى استعلام الحقل نفسه واضفت له اسم النموذج الرئيسى orderf
    2 points
  9. اليكم الدرس التاسع لشرح برنامج الاكسيل من الرابط التالى https://youtu.be/khRj307MPug ملف شرح الدرس التاسع لشرح الاكسيل.rar
    2 points
  10. اخي الكريم @حلبي لقد اخجلتني بكلامك ( اشكرك كثيرا على هذا الاطراء لا زلت ارى نفسي طالب علم ولم اصل الى الخبرة بعد 🙂 اشكرك استاذي : @احمد الفلاحجي اتعلم منك الكثير وانت دوما سباقا تحياتي لكم
    1 point
  11. جزاك الله كل خير اخي الفاضل احمد وسلامتك من القصور دائما سباق للخير اشكرك
    1 point
  12. اتفضل اخى ان شاء الله يكون ما طلبت واعذرنى ان قصرت تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Ù�ثاÙ�.rar
    1 point
  13. اخى الحبيب محمد @حلبي نعم اخى @صلاح جبر بما انه عضو جديد بموقعنا الحبيب اوفيسنا لاكن اجابته جميله ومميزه وكذلك بعض الاخوان الجدد اشهد لهم بالعلم والعمل الجيد جزاهم الله خيرا ويستاهلون لق خبراء وان شاء الله اراهم خبراء بقسمنا الغالى الاكسيس واتعلم منهم الكثير جزاهم الله خيرا هم وجميع اخوانى واساتذتى والذين تعلمت واتعلم من الى الان احبكم فالله
    1 point
  14. الف شكر لحضراتكم جميعا بجرب بكره وان شاءالله تكون النتائج كويسه ربنا يجازيك خيرا
    1 point
  15. جزاك الله كل خير اخى زجزا الله خيرا اخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم بارك الله فيك اخى احبكم فالله
    1 point
  16. اخى العزيز @صلاح جبر ادعونى باخ فلا تناسبنى كلمه استاذ واننى فخور ان اكون اخ لكم جميعا فالله جزاك الله خيرا على مشاركتك واحب مشاركتكم اخوانى فاننى طالم علم مبتدء اتعلم منكم الكثير اخوانى واساتذتى جزاكم الله خيرا المشكله الان انه قد تم تخزين الصور بالقاعده والقاعده بلغت حجمها ولم تعد تقبل داتا فالحل الوحيد انه يحدث قاعده بياناته وقبل اى تحديث يجب اخذ نسخه احتياطيه لحين استقرار الوضع بالنسخه المحدثه لعدم وجود اى مشاكل بعد التحديث فالحل الاخير لاخى العزيز @sandanet اراه مناسابا بتعديل الصور وتخزينها لحين تحديث قاعده البيانات بشكل عملى وسليم وندعو الله ان يكون هذا الحل يصحح له الامور الحاليه لتفادى اى مشاكل بالعمل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
    1 point
  17. كان الله في عونك استاذ احمد على ظغط العمل الذي تعاني منه ولكن ما اقوم به هو بعض من رد الجميل لمن سبوقنا وعلمونا حتى وصلنا الى مستوى جيد ولا اضن انني استطيع مجارتهم فانني ارى من بعض الشكر نقل علمهم الى من كانو في السابق مثلنا وكنا لا نفقه شي في الاكسس تقبل خالص التحية والاحترام وايضا للاستاذ محمود ادريس
    1 point
  18. والله الان بحثت وسارفق لك بعض المواضيع حتى اجد ما اشرت اليك به ولعل الله ييسرها ان شاء الله بفضله وكرمه ويجب عليك اخى الفاضل ذكر طريقه تخزينك للصور بقاعده بياناتك تقبل تحياتى وان شاء الله اعثر لك على الرابط
    1 point
  19. السلام عليكم لقد قمت بالتعديل على المثال الأخير للأستاذ @خالد سيسكو ستجد به ما تطلب، مع غموض الغاية من نسخ عمود إلى إكسل بدلاً من تصدير ملف بالكامل. أتمنى أن تصل إلى مبتغاك من خلاله. استيراد وتصدير اكسيل2.accdb
    1 point
  20. اخى الفاضل الجميع يفضل ارفاق صور بمجلد قاعده البيانات وارفاق الرابط لها بالسجل وليس اضافه الصور نفسها ويوجود موضوعات كثير تتكلم بهذا الخصوص لعدم تكبير قاعده البيانات بسرعه سيتوجب عليك الان اعاده ضبط برنامجك من اول وجديد وعلى ما اذكر انى رائيت موضوع يتكلم عن شىء افضل سوف ابحث عنه وارفقه لك ان شاء الله ان لم يسبقنى احد اخواننا واساتذتنا بارفاقه ربنا معاك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  21. اهلا بك القاعدة مضغوطة بملف رار لانها لم تتحمل للموقع بسبب الحجم اذا لم يكن لديك ملف ضغط الرار يمكنك تحميلة من الموقع الرسمي https://www.win-rar.com/download.html?L=0 تحياتي لك
    1 point
  22. دائماً سباق استاذ @احمد الفلاحجي الكود يعمل معي بشكل صحيح ولم ادرِ ما المشكلة عندة تحياتي لكم
    1 point
  23. تمام التمام ألف شكر مع تحياتي أستاذ سليم
    1 point
  24. السلام عليكم اساتذه الاعزاء في هذا المنتدى الجميل قمت بالبحث في المنتدى ووجدت هذا الملف لعمل قائمة منسدلة وحاولت تغيير فيها وتطبيقها على ملف العمل ولم انجح( هل يمكن عمل مثلها بدون ادراج كومبوبكس) وقمت باضافة كود لترحيل البيانات من صفحه الى اخرى واريد تعديل للكود باضافه تاريخ الحاسبه قبل البيانات المرحلة في كل يوم يتم فيه ترحيل البيانات / مع إمكانية إستدعاء بيانات الاسم عند كتابته اواختياره من القائمة المنسدلة في المستقبل الشرح مفصل داخل الملف مع جزيل الشكر لجهود الجميع تعديل كود ترحيل وادخال كود قائمة منسدلة .xls
    1 point
  25. السلام عليكم إذا لم تكن مقسمة فكل ما يلزم لنسخها هو مايلزم لنسخ أي ملف آخر: انسخ قاعدة البيانات بـ Control + C وألصقها بـ Control + V أو من اختيارات القائمة التي تظهر عند نقر زر الفأرة الأيمن. بعدها افتح قاعدة البيانات واضغط على تمكين الماكرو من النطاق الأصفر في أعلى النموذج. وستعمل إن شاء الله. أعتذر على الإطالة بالشرح والقصد هو التأكيد على سهولة العملية.
    1 point
  26. السلام عليكم جميعا عملت نموذج مستقل (Main_DeviceF) فيه حقلين كمبو بوكس عندما اختار (Work_Type) يظهر لي القائمه الخاصه في حقل (Device_Name) والعمليه ماشيه تمام المشكله اين عندما عملت نموذج (OrderF) رئيسي ووضعت فيه نموذج فرعي نموذج (Main_DeviceF) وهذا اللي عليه الكلام عندما افتح النموذج الرئيسي (OrderF) وادخل القيمه حقل (Work_Type) هذا يعمل المشكله عندما افتح حقل الكمبوبوكس الخاص (Device_Name) لا تظهر الخيارات مع خالص شكري انظر المرفق Daily Report V02.accdb
    1 point
  27. اخي تفضل هذا التعديل ليس من تخصصي البرمجة ولكن قمت ببعض التعديل لعله يفي بالغرض Private Sub Workbook_Open() Dim I As Long, LR As Long Dim N As String LR = ورقة1.Range("b" & Rows.Count).End(xlUp).Row For I = 4 To LR If Cells(I, 3) = Cells(I, 3).Value Then N = Cells(I, 2).Text Cells(I, 3).Interior.ColorIndex = 3 Cells(I, 3).Font.ColorIndex = 2 Cells(I, 3).Font.Bold = True MsgBox ("اليوم /" & " " & Date - Cells(I, 3).Value & _ vbCrLf & " " & "هو تاريخ استحقاق الاستاد / " & " " & N & _ vbCrLf & " " & " الساعة الان" & " " & Left(Format(Now(), "HH:MM AM/PM"), 6) & IIf(Format(Now(), "HH:MM") >= 13, "صباحا", "مساء")), 64, "التاريخ والتوقيت" Else Cells(I, 3).Interior.ColorIndex = xlNone Cells(I, 3).Font.ColorIndex = xlAutomatic Cells(I, 3).Font.Bold = False End If Next I End Sub
    1 point
  28. شكرا جزيلا اخي الفاضل تمت بحمد الله
    1 point
  29. تفضل التجربة على الفورم انا اعمل على اوفيس 2013 test2.rar
    1 point
  30. انا عندي 2016 وغير موجوده طيب هل يمكن تنفيذها علي الفورم ؟
    1 point
  31. بارك الله فيك اخي الكريم ممتااااااااز ولاول مره اعرف ان في كود و شروط في الجداول لكن نوع الحقل غير موجود عندي في الاوفيس هل هو اختلاف الاوفيس ام خاصيه يمكن اكتسابها علي الجهاز
    1 point
  32. تفضل اخي المطلوب كود1 اول ثلاثة حروف من اليسار كود2 اول ثلاثة حروف من اليمين test.rar
    1 point
  33. كل الشكر والتقدير لحضرتك على المساعده ارجو من الله ان يجزيك كل الخير استادى الفاضل على محمد كل الشكر لك
    1 point
  34. وعليكم السلام-تفضل 2021 IN المشتريات.xlsx
    1 point
  35. عندي شغال ما في مشاكل شاهد الصورة المرفقة
    1 point
  36. لكي لا يستغرق المتصفح وقتا طويلا فى اعادة فتح صفحات الانترنت ، يقوم بتخزين بعض محتويات الصفحات بدلا من تنزيلها فى كل مرة و هذا يطلق عليه الكاش او المعلومات المخزنة و افراغ الكاش يعني حذف هذه المحفوظات و هو يختلف بحسب المتصفح مثلا فى متصفح جوجل كروم الخطوات كما فى الصورة التالية: و يمكن اختصارها ب CTR+Shift+Delete و لكن يفضل اتباع الخطوات لتختار الخيارات الداخلية ، مثل الاحتفاظ بكلمات السر او الاعدادت او النماذج ، فى حالتنا الأهم هو خيار Coockies و Cashed images and files و Hosted app data او يمكنك اختيار كل الخيارات اذا لم يكن لديك مشكلة فى اعادة ادخال بيانات مثل كلمة السر و اسم المستخدم مثلا كما يفيد فى كثير من الاحيان عمل هارد ريفريش CTR+F5 كحل مبدئي وسيط لتنشيط الصفحة و لكن فى حالتنا يجب افراغ الكاش
    1 point
  37. عموما نحن نحاول ايصال معلومه صحيحه فقط فى قواعد البيانات من حيث قرئنا وتعلمنا ولك الاختيار ضع فى حدث عند الفتح للنموذج Call عدد_الاطفال_AfterUpdate تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  38. أستيكا أين الضغط على الإعجاب ؟!!! 💙
    1 point
  39. تفضل هذا هو المطلوب بالفعل-جرب بنفسك الكمبوبوكس1.xlsm
    1 point
  40. عليكم السلام ورحمة الله و بركاتة تفضل اخى الكريم لك ما طلبت Copy of With Holding Tax_The _2019.xlsm
    1 point
  41. كيف تريد المساعدة والملف(الكود) محمي بكلمة مرور
    1 point
  42. وعليكم السلام ورحمة الله العلاقات مهمة جدا وابسط مثال ممكن اقوله هو الاب> الابناء هناك جدول رئيسي > وجدول فرعي هناك مخزون > هناك حركة مخزون فاذا كان المخزون هو الرئيسي فيجب ان يكون فريد من نوعه وترتبط الحركة بشكل كامل مع المخزون فلو افترضنا ان لدي اربع مخازن اريد اعرف كم كل مخزون بقي فية من الاصناف او ماهي خركة المبيع الخاصة به فانني اعرف بواسطة العلاقات وقد قمت بالتعديل على قاعدة البيانات وعملت ربط للجدولين المذكور في المشاركة السؤال الثاني تحويل الحقل % Utilisation من رقم الى محسوب وقم بعملية الحسابات كمثل الالة الحاسبة monitoring.rar
    1 point
  43. وعليكم السلام جرب الكود كالتالى On Error Resume Next Dim FF As String FF = Me.IstisnaContracts Application.FollowHyperlink FF ,,true واخبرنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  44. السلام عليكم تم اضافة ملف لاحد الاخوة بالموقع الى البرنامج حدد ماتريد اختيارة للتصدير الى اكسيل انظر للملف المرفق تحياتي استيراد وتصدير اكسيل.rar
    1 point
  45. هذا الذي استطعت فعله أستاذ أحمد لعل الإخوة في المنتدى يجدون لك الحل بإذن الله تعالى .
    1 point
  46. احسنت :احمد الفلاحجي " ابو بسملة " جزاكم الله كل خير 😎😎
    1 point
  47. اخى قاصد هتغير فالمعيار بدل * الى % ALike "%" & [Forms]![FoormBook]![Text2] & "%" والموضوعان التاليان للمراجعه تمنياتى لك وللجميع بالتوفيق تجربة البحث.rar
    1 point
  48. دورة تدريبية فى القراءة الفعالة - فهرس مواضيع الدورة - اضغط هنـــــا السلام عليكم و رحمة الله و بركاته تحية طيبة و بعد، بسم الله الرحمن الرحيم لنبدأ بمراجعة ما تعرضنا له حتى الان: - منع التلفظ أثناء القراءة - تقليل الوقفات و تحريك عينيك بانتظام - لا تتردد أو تعود الى الخلف أثناء القراءة. - توسيع دائرة النظر و كل ما سبق يمكنك تنفيذ التدريبات المشار إليها أو البحث على الانترنت عن تدريبات له أو حتى اختراع تدريبات جديدة تناسبك طالما تفهم المغزى من التدريب و تلاحظ مما سبق أننا بدأنا بالأشياء العملية البسيطة ، مع أن هناك جانب آخر مهم و هو المنهجيات و الاستراتيجيات الخاصة بالقراءة الفعالة و القراءة السريعة ، و التي سنعرض لها فى حينه باذن الله تعالى ، و لكن فى هذا الحلقة سنكمل كما بدأنا على نفس خط الأشياء العملية البسيطة التي يمكن لنا الحرص عليها أو تجنبها و التي لها تأثير كبير على سرعة و فعالية القراءة ، و سنعرض اليوم الى دليل توجيه العينين. دليل توجيه العينين. هناك من القراء من يستخدم إصبعه أو قلم كدليل بصري عند القراءة ، و الكثير منا قد ينظر الى من يفعل ذلك على أنه نقص فى الذكاء و عدم دراية ، و نقول فى بالنا ماله يقرأ مثل الطفل الصغير. اذا هل الطفل الصغير أو من يستخدم اصبعه كدليل بصري أثناء القراءة من الكبار مخطيء حيث أنه بذلك يقلل سرعته و درجة استيعابه ، أم أنه مصيب و أن ذلك أدعي الي التركيز و الاستيعاب؟ شاهد الفيديو التالي و مرة أخري إن كان موقع اليوتيوب لا يفتح لديك فلا تقلق فسنقوم بشرح التجربة فيما يلي: اطلب من زميل او صديق ان يشاركك هذا التمرين ، اجلسا على كرسيين متقابلين و بينكما مسافة حوالى 60 سم و اطلب منه ان يرسم او يتتبع دائرة تخيلية بعينيه على بعد 30 سم إمام عينيه ، و نصف قطرها حوالى 45 سم و قم بمراقبة حركة عينيه و هي تدور على محيط الدائرة ، ثم تبادلا الأدوار. و الآن تبادلا المعلومات حول ما رآه كل منكما و عما شعره كل منكما أثناء تتبع الدائرة المتخيلة. و الان سنكرر التمرين مع تقديم مساعدة للطرف الآخر فى تتبع الدائرة عن طريق السبابة ، أي تحرك أصبعك على محيط الدائرة و يتتبع هو إصبعك بعينيه ، و لاحظ أيضا حركة العينين ، ثم تبادلا الأدوار و الآن أيضا تبادلا المعلومات حول ما رآه كل منكما و أيضا عما شعره كل منكما أثناء تتبع الدائرة المتخيلة فى ظل وجود الدليل أغلب الناس سيكتشفون أن تتبع الدليل يؤدي إلى حركة أكثر انتظاما و سلاسة و أكثر راحة للعين ، على عكس حالة عدم وجود الدليل فالحركة ليست سلسلة و إنما هي اقرب لشكل هندسي متعرج و هناك درجة إجهاد أكبر للعين. نخلص من ذلك الى أن العين فى حاجة إلى دليل لتكون أكثر كفاءة و راحة ، و أن الطفل الصغير الذى أشرنا إليه فى المقدمة كان على حق. و الآن ما هي الطريقة المثلى لاستخدام الدليل: من الأفضل استخدام شيء طويل و رفع مثل القلم الرصاص او إبرة التريكو أو عصا الأكل الصيني و ذلك أفضل من اليد حيث أن اليد و الأصبع تحجب جزء من مجال رؤيتك . و عن أفضل حركة للدليل ، ليس من الأفضل أن تحرك الدليل يمينا و يسارا و لكن ضعه فى منتصف السطر و حركه بسهولة إلى أسفل و لا تحاول افتعال نقله و إنما دع عقلك يوجهه . فهذا يوضح ما قد يساء فهمه من أن القراء السريعين يقرئون منتصف السطر فقط ، و إنما الحقيقة أنهم يستخدمون الدليل فى الإشارة إلى منتصف السطر ، بينما تقرأ العينان السطر بأكمله. السبب فيما سبق أن الدليل يساعد على تقليل الجهد الذي تقوم به العين و على استمرار تركيز العقل ، كما يوفر سرعة ثابتة أثناء القراءة و يزيد من مقدار الاستيعاب. أيضا هناك من يفضل استخدام ورقة ملونه أو مسطرة و تحريكها لأسفل أثناء القراءة و هذا يفيد نوعا ما و لكن ما سبق قد يكون أكثر فاعلية ، عموما جرب و اختار المناسب لك . و لن يستغرق الأمر أكثر من ساعة حتى تعيد صقل هذه المهارة. أما عن القراءة مباشرة على شاشة الحاسب الآلي، فيمكن استخدام الماوس كدليل بصري ، أو استخدام التظليل و قد وجدت التظليل مفيدا جدا بصورة ملحوظة ، و انا استخدمه كالتالي: فى حالة الانترنت: قم بتظليل الموضوع من اسفل الى أعلي ثم ابدأ بالنزول بالماوس تدريجيا ليكون التظليل دائما تحت السطر الذى تقرأه فى حالة المستدات : كملفات الوورد مثلا ، ابدأ التظليل ايضا من أسفل الى أعلي ، ثم استخدم الماوس كالسابق ، أو استخدم السهم المتجه لأسفل مع الاستمرار فى ضغط شيفت جرب ما سبق و باذن الله ستشعر بفرق ملحوظ و هذا هو تمريننا لهذا اليوم ، احضر دليلك و ابدأ فى التدرب على القراءة باستخدام الدليل. و الى اللقاء فى الحلقة القادمة بإذن الله تعالى. دورة تدريبية فى القراءة الفعالة - فهرس مواضيع الدورة - اضغط هنـــــا
    1 point
×
×
  • اضف...

Important Information