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

الردود الموصى بها

قام بنشر

أخي الحبيب طالب العلم

بالنسبة للذبابة دي عجبها الموضوع فقررت إنها تذاكر معاك ..اديها فرصتها لربما تكون معينا لك على كتابة الأكواد فيما بعد

بالنسبة للصداع فدا طبيعي لأني رغاي كتير وإنت عارف الرغي بيسبب صداع ..

تقبل تحياتي

  • Like 2
قام بنشر

صراحة الجو برد فكله قافل عليه الباب خوفاً من إنه ياخد لطشة برد :yes:

ربنا يستر على الجميع ، واللي عنده برد ربنا يشفيه :rol:

إن شاء الله نواصل قريباً الحلقات :wink2:

قام بنشر

ما شاء الله تبارك الله  رررررررررررررررائع و الاروع الروح العالية 

 

 

طلبات يا باشا 

 

1- ان تجعل بجانبك اخوك الصغير  او ابنك  الصغير  وتقوله  ابغي اعلمك ...................... 

 

ليه  اخلي ابنك الصغير  بجانب  ..؟؟

 

لان الاطفال  يسالون عن اشياء لا تخطر لك على بال  ... وقد تكون بديهية  جدا   لك ولكنها كبيره امام اعينهم 

 

 

اعتبرني  اخوك الصغير  او ابنك   اللعاااااااااااب   

 

 

وبطلب  او ل طلب 

 

ان  تسهب في التفصيل المملك  لكل فقرة ...

 

ان تدعم  المشاركة  بمقاطع متحركة  +  صور ثابته 

 

شكر لك  وبارك الله  في وقتك  وعلمك

  • Like 1
قام بنشر

أخي الحبيب أبو سليمان

أهلا بك في عالم عبد التواب ... وإن شاء المولى تستفيد وتفيد

وبالنسبة للشرح أنا بحاول بقدر الإمكان تكون المعلومة بسيطة .. وإذا تعثرت في أي جزئية اسأل براحتك ...اسأل مرة واتنين و4 ..بس مش أكتر من 4 ، عشان الناس متملش

تقبل تحياتي

قام بنشر

انا  طبقت الدرس الاول  ونجحت 100%

 

ولكن حاولت اتابع الدرس الثاني 

 

واتقفل المخ  نهائي   غير قابل للفتح مره ثانية ... ولا حتى باستخدام المطرقة و المفك .... 

 

 

ايش العمل  ؟؟؟؟

 

 

-----------

 

يبدولي السبب  هو انك تكتب كلمة انجليزية  ترجمة لمعنى العربي  للكلام الي تشرحة 

 

وبرايي انه يلخبط الموضوع 

 

فلو تم الشرح بالعربي   وادراج  الكلمات الانجليزية  الخاصة بالاكواد  كان افضل 

 

 

....

 

 

 

انا قلت لك من الاول  لابد تخلي احد الاخوه الصغار بجانبك  لان قدرتي  لا تتعدى قدره  الطفل ... فاحتاج الى الشرح  باستخدام  كل الحواس 

 

 

( السمع   عبر مقاطع متحركة  -  البصر عبر الصور - والقوالب و الاكواد عبر  الكتابة  )

 

 

ياليت يتم التطبيق  على  برنامج  يكون مختصر  ثم  نبداء بزيادة  الاوامر شيئا  فشيئا ...

 

محبكم / اخوكم ابو سليمان

  • Like 1
قام بنشر

 السلام عليكم ...استاذنا طولت الغيبة علينا ..اسال الله ان تكون بخير ... و الا تتركنا خلف الباب دون الدخول الى بقية العالم البرمجي .. اعلم اننا محبطون .. بكسر الباء .. و لكن لعلك تبذر بذرة للمستقبل ... و هذه عادة العباقرة .. ان ينتظروا ثمرة عملهم الآجلة و اذكرك  "عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم"

قام بنشر

الأخ الفاضل سلامي غنام

مشكور على مرورك العطر ، وأرجو أن تكون قد استفدت من الحلقات بإذن الله
الأخ حمددي

أشكرك على كلماتك المشجعة وعلى حديث المصطفى صلى الله عليه وسلم وأسأل الله أن يكون العمل لوجهه خالصا ، وإن شاء الله نستكمل الحلقات ، لكني مشغول قليلا في الامتحانات وفي مكتبة الصرح في حقيقة الأمر حيث أنها مكملة لما نقوم به.
الأخت الفاضلة شيماء

وجزيت خيراً ، وأهلاً بك تلميذة معنا وأقصد معنا فأنا تلميذ مثلكم أتعلم وأنقل ما أتعلمه بأسلوبي فقط - هذا كل ما أفعله - وإن شاء الله انتظروا المزيد مع كل ما هو جديد ومفيد

تقبلوا تحياتي

  • Like 1
قام بنشر

ايه موضوع "مكتبة الصرح" دى يا استاذ ... انا اتخضيت من الاسم ... نورنى .. لانك قلته ..........كاننا عارفينه  :eek2:

قام بنشر

أخي الحبيب

فيه بالمنتدى موضوع مستقل .. لمشروع كبير بدأ من فترة وما زال العمل مستمراً بعون الله

وهو عبارة عن تجميعة كبيرة لأكواد مختلفة مع الشرح بقدر الإمكان ...

وهو نواة مكتبة كبيرة إن شاء الله بحيث تكون مصدر للباحث أو المتعلم أو المبرمج .. أي أنه سيكون شامل لكل الفئات التي يمكن أن تتعامل مع المكتبة

وهذا رابط آخر إصدار للمكتبة ..

مع العلم أن الرابط ليس ثابت إذ أن المكتبة متجددة ، فبنزول إصدار جديد قم بحذف القديم وتحميل الجديد دائماً لأن الإصدار الجديد فيه القديم ومعه أكواد جديدة

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=87305

أرجو أن تطلع عليه ولو فيه أية ملاحظات يرجى التنويه عنها

قام بنشر

ارجو ان تضيف الكود التالي الى المكتبة

لك حرية الاختيار بالتسمية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:e5")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
 Application.EnableEvents = False

If Target.Value = "x" Then
      Target.Value = ""
  Else
      Target.Value = "x"
  End If
End If
Application.EnableEvents = True

End Sub

قام بنشر (معدل)

الله اكبر

ما اجمل وما اروع طريقة الشرح وتوصيل المعلومة 

والله انت اخدت بايدي فعلا وازلت الرهبة من البرمجة عندي من اول سطر في شرحك

وادعو الله لك بالتوفيق والسداد والنجاح ان يجعل عملك خالصا لوجهه تعالى ويبارك لك في وقتك وجهدك وعملك ومالك

اخي الحبيب اشكرك مرة تانية 

نفع الله بك وبعلمك

تم تعديل بواسطه الوووو
  • Like 1
قام بنشر

صديقي ياسر

 

اليك هذا الكود لعله يصلح للمكتبة

انه يحدد لك الخلايا في عامود معين 

 

من اول خلية غير فارغة الى اخر خلية بردو غير فارغة  و الفراغات بينهما

Sub SelectAllInColumn()
'ÊÍÏíÏ ÚÇãæÏ ãä Çæá ÎáíÉ ÛíÑ ÝÇÑÛÉ Çáì ÇÎÑ ÎáíÉ ÛíÑ ÝÇÑÛÉ
'                  ÈãÇ ÝíåÇ ÇáÝÑÇÛÇÊ ÈíäåãÇ
    If Not IsEmpty(Cells(1, ActiveCell.Column)) Then
             Set Firstcell = Cells(1, ActiveCell.Column)
    Else
             Set Firstcell = Cells(1, ActiveCell.Column).End(xlDown)
    End If
    ''''''''''''''''''''''''''''''''''''''''''''
   If Not IsEmpty(Cells(Rows.Count, ActiveCell.Column)) Then
             Set Lastcell = Cells(Cells(Rows.Count, ActiveCell.Column))
    Else
             Set Lastcell = Cells(Rows.Count, ActiveCell.Column).End(xlUp)
    End If
    '''''''''''''''''''''''''''''
        If Firstcell.Row = Rows.Count Then
        Firstcell.Select
        
    Else
        Range(Firstcell, Lastcell).Select
    End If
End Sub

قام بنشر

أخي الحبيب سليم

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

جزاكم الله خير الجزاء

قام بنشر

السلام عليكم

انا بقالى شهر بحاول اتعلم المايكرو فى الاكسيل والحقيقة كل مبقرا فى اى كتاب او شرح بحس نفسى بتوه والموضوع صعب

انهرضه اول مرة احسن انى ممكن اتعلم وطبعا الفضل ليك لانك بسطت الموضوع بشكل لذيذ وفى نفس الوقت اسلوب عملى

انا لسه فى بداية الطريقة والله اعلم هكمل ولا لا بس ده ميمنعش انى اقولك جزاك الله كل الخير عن كل انسان هيتعلم منك ولو حرف وربنا يجعله فى ميزان حسناتك

  • Like 1
قام بنشر

الأخ الحبيب أبو سليمان

جزيت خيرا على دعواتك الطيبة ومرورك العطر

الأخ عبده اللي إن شاء الله مكمل

مشكور على مرورك الطيب وإن شاء الله تكمل معانا وتفيد وتستفيد ..

تقبلوا تحياتي

قام بنشر

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

  • Like 1
قام بنشر

دلوقتى اان عندى مشكلة وارجو الرد فى جميع الخلايا التى بها دوال بكون مقرب الارقام العشرية الى اقرب رقمين وعند الجمع لهذة الخلايا يكون الاكسل مجمع ليا على اربع ارقام عشرية ارجوا الاهتمام والرد وشكرااااااااا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information