قواعد المشاركة في المنتدى

(منتدى الأكسس) الموضوع:تمكين وعدم تمكين مربع نص خاص بالرقم بواسطة: (أبو بيبو) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:تعلم كيفية فك ضغط ملف WinRAR بواسطة: (Abu Ehab) :: (منتدى الأكسس) الموضوع:بخصوص الشجرة TreeView بواسطة: (د.كاف يار) :: (منتدى ADO.NET العام) الموضوع:خدمات مجانية -تأجيرشقق و فيلات مفروشة وايجار سيارات في مصر 00201126266000 بواسطة: (جوجو عمل) :: (قسم الاعلانات) الموضوع:ساهم في مشروع تشجيع القراءة الان بواسطة: (korossama) :: (منتدى الأكسس) الموضوع:برنامج نادي صحي كمال اجسام بواسطة: (startnet) :: (قسم الاعلانات) الموضوع:سيارات ديهاتسو مستعملة للبيع بحالة الفابريكة بواسطة: (ديزاينر ديزاينر) :: (قسم الاعلانات) الموضوع:سيارات جاجور مستعملة للبيع بواسطة: (ديزاينر ديزاينر) :: (قسم الاعلانات) الموضوع:سيارات بنتلي مستعملة للبيع بواسطة: (ديزاينر ديزاينر) :: (قسم الاعلانات) الموضوع:بنامكس لأعمال الرخام الصناعي والمغاسل بواسطة: (حسن ابراهيم) :: (قسم الإنترنت) الموضوع:تصميم وبرمجة تطبيقات الهواتف الذكية بواسطة: (موشن جرافيك) :: (قسم الاعلانات) الموضوع:نصائح عامة بواسطة: (كوين) :: (منتدى الأكسس) الموضوع:الباركود بواسطة: (startnet) :: (منتدى ال Cisco) الموضوع:ccna 1 final examen بواسطة: (even2017) :: (منتدى الأكسس) الموضوع:طلب كود تشغيل عدة استعلامات بواسطة: (د.كاف يار) :: (قسم الاعلانات) الموضوع:رحلتي لزراعة الشعر في تركيا بواسطة: (فادي لبناني) :: (قسم الاعلانات) الموضوع:شقق مفروشة للايجار بأفضل المستويات والاسعار بالقاهرة الصور 00201227389733 بواسطة: (دنيامحمد) :: (قسم الاعلانات) الموضوع:طريقة تنظيف الموكيت بواسطة: (سجيات) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:Abu Ehab Pie Chart Control بواسطة: (Abu Ehab) :: (قسم الخدمات) الموضوع:تصميم وبرمجة تطبيقات الهواتف الذكية بواسطة: (موشن جرافيك)


راديو القرآن

المواضيع المثبته: (منتدى Microsoft Excel) الموضوع:شرح الفيجوال بيزيك للمتوسطين vba بواسطة: (hs889) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:دورة تحزيم البرامج Setup & Deployment Applications by VS 2008 بواسطة: (Max Bayne) :: (منتدى برمجة الألعاب) الموضوع:برنامج رائع لتصميم الألعاب بواسطة: (mjxp) :: (قسم الـ portable) الموضوع:برنامج اكسترا لرفع الصور بواسطة: (kkarem55) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:DECODE SQL STATMENT بواسطة: (mshaqalaih) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:أساسيات تصميم الشبكات بواسطة: (مرحبا الساع) :: (قسم الدروس و الدورات) الموضوع:دروس فيديو للمهندس عدي لتعليم فيجوال بيسك دوت نت بواسطة: (المهندس عدي) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ما هي أوراكل وماتعرف عنها بواسطة: (وليد القدسي) :: (منتدى الوورد والباور بوينت) الموضوع:مكتبة الباور بوينت بواسطة: (ramies) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:ارشيف جميع البرامج التى صنعها اعضاء قسم الدوت نت بواسطة: (alaa gomaa) :: (منتدى Microsoft Visual Basic) الموضوع:يرجى الإنتباه لجميع الأعضاء الجدد بواسطة: (zoubicom) :: (منتدى تصميم صفحات الويب) الموضوع:الجافا سكريبت في كتاب بواسطة: (amricost) :: (منتدى ADO.NET العام) الموضوع:البدء مع ADO.NET بواسطة: (HnHn) :: (منتدى برمجة الجرافكس) الموضوع:الجزء الاول من دروس تعلم GDI بواسطة: (alaa gomaa) :: (قسم الدعم الفني) الموضوع:هل تريد التحكم بجهازك كأنك محترف بواسطة: (ياسر جمال) :: (القسم المفتوح) الموضوع:شاهد واشكر ربك على نعمة الاسلام بواسطة: (غزاوية أصيلة) :: (منتدى مبرمجي ASP) الموضوع:شرح كود موقع شؤون الموظفين النسخة الأولى بواسطة: (alanees) :: (منتدى التصميم والجرافيكس) الموضوع:الكتابة باللغة العربية في برنامج فلاش بواسطة: (مبرمجة فلسطينية) :: (منتدى برمجة التقارير) الموضوع:اصنع تقريرك في اقل من دقيقه واستغني عن الكريستال ريبورت بواسطة: (mero_make) :: (كتب عن VB.NET) الموضوع:كتب VB.NET عربي بواسطة: (عبد الرحمن)

عدد الصفحات : 4  1  2  3  4   > » إضافة رد إضافة موضوع جديد

> أكواد جاهزة للإستخدام في اكسل ( ماكروات ),أكواد فيجوال بيسك, ماكروات, اضافات مفيدة
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالجمعة,19/جمادى الثانية/1430 هـ,09:22 صباحاً
المشاركة #1

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



السلام عليكم

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

بنبلش على بركة الله مع أول كود 
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,19/جمادى الثانية/1430 هـ,09:25 صباحاً
المشاركة #2

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



كود لتلوين الخلية الفعالة ( اللي بنكون واقفين عندها )




من خلال هالماكرو, رح تتلون الخلية اللي بنكون واقفين عليها ( الخلية الفعالة ) باللون الأصفر ( يتم تغيير اللون من خلال تغيير قيمة اللون في الكود ) وطبعاً لما بتختار غير خلية رح تتلون الخلية الجديدة مباشرة ويزال التلوين عن القديمة, هالماكرو مفيد للأشخاص اللي بيكون عندهم حجم كبير من البيانات الموجودة في صفحة واحدة وبالتالي بيهمهم إنو يعرفوا مكان الخلية الفعالة, سيئة هالكود إنه يزيل الألوان الموجودة في الصفحة.

الكود:
 اقتباس
[ALIGN=LEFT]
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 6 ' yellow - change as needed
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target
End Sub

من الرابط أدناه فيك اتحمل بإذن الله مثال جاهز لهذا الكود.

http://www.4shared.com/file/111388756/4b48e90c/highlight_active_cell_with_yellow_color.html



للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,20/جمادى الثانية/1430 هـ,04:12 مساءً
المشاركة #3

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 69
سجل في:الجمعة,05/ربيع الثاني/1429 هـ,02:15 صباحاً
الدولة:مصر
رقم العضوية: 51277



كود جميل
بارك الله فيك
منتظرين الكثير من هذه الأكواد الرائعة
دمتم بكل الخير


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,20/جمادى الثانية/1430 هـ,04:22 مساءً
المشاركة #4

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



السلام عليكم

أهلاً بك أخي الكريم, الأكواد سأضيفها تباعاً بإذن الله القدير فتوكل على الله.
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,20/جمادى الثانية/1430 هـ,04:40 مساءً
المشاركة #5

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



السلام عليكم,
أعتذر إليكم أخوتي وأخواتي بالله لظهور الكود في المشاركة الأولى من هذا الموضوع بهذا الشكل المخزي, حيث أنني كنت قد نسقت الكود ولكن عدلت بعدها على المشاركة, ولم أنتبه إلى أني قد أثرت بتنسيق الكود.
عموماً ها أنا اعيد كتابة الكود بتنسيق صحيح ليكون مفهوماً ممن يهتم بهكذا أكواد.

 كود


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 6

Set OldCell = Target


End Sub


للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,20/جمادى الثانية/1430 هـ,05:56 مساءً
المشاركة #6

مشرف منتدى Microsoft Excel
الرتبة في المنتدى:لواء

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 1728
سجل في:الثلاثاء,10/محرم/1430 هـ,10:31 صباحاً
الدولة:مصر
رقم العضوية: 73488



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


--------------------

ومن يتق الله يجعل له مخرجا ويرزقه من حيث لا يحتسب ومن يتوكل على الله فهو حسبه
((كن مع الله ولا تبالي))


بريدى الخاص بالمنتدى ( للتواصل ) imramies@arabmoheet.net
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,21/جمادى الثانية/1430 هـ,05:33 صباحاً
المشاركة #7

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



السلا م عليكم

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

عنما أكون جاهزاً لهكذا أمر بإذن الله, سأضعه هنا ليستفيد منه الجميع إن شاء الله
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالثلاثاء,23/جمادى الثانية/1430 هـ,01:28 مساءً
المشاركة #8

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



السلام عليكم

اليوم رح أحكي عن مكان اضافة الكود. مانو مطلوب منك إن تكون ذو خبرة مرتفعة باكسل ليكون لتتعامل مع الأكواد, فأنت ستستخدم الأكواد ولن تكتبها, واستخدام الأكواد مثله مثل استخدام أي دالة موجودة أصلاً باكسل. سأشرح اليوم أين تضع الكود ( طبعاً بشكل عام إذ دائماً هناك استثناءات ) من حيث المبدأ, الكود اللي بنضيفه, سيتعرف عليه اكسل فقط لما بيكون مكان التخزين لهالكود مفتوح أما إذا مغلق فماتتوقع إنو اكسل رح يتذكر الكود, وبالتالي إما نخزن الكود بمكان بيفتحه اكسل ديماً, أو نعمل ملف اكسل, بنخصصه لوضع هذه الأكواد وبالتالي لما بنا نستخدمها, بنفتح هالصفحة وبالتالي رح يتعرف اكسل ع الكود. الآن, لما بتنزل اكسل ع كمبيوترك لأول مرة, وتفتح اكسل, رح يكون في صفحة مخفية اسمها personal بتشتغل كل ما شغلنا اكسل, بس لأنها مخفية مابنشوفها, هاد أفضل مكان لتخزن فيه الأكواد كون اكسل بيشغل هالملف فور اقلاعه, بس أحياناً مثل مارح انشوف هلا بجهازي, هالصفحة محذوفة بسبب برنامج منزله مع اكسل, مافي مشكل, مثل ماحكيت من شوي, بخزن الكود بملف مخصص للأكواد, وبالتالي لما بدي استخدم هالأكواد, بشغل هالملف, ولما بخلص بغلقه. خلونا مع الشرح المصور. الشرح رح يكون على كود سأضيفه بعد قليل بإذن الله.











ملاحظة, بالكود الأول اللي أضفته في هذا الموضوع, مكان الكود كان مختلفاً عن الصورة السابقة, كما في الصورة التالية,



في المشاركة التالية سأتكلم عن الكود الذي أضفته الآن بإذن الله
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالثلاثاء,23/جمادى الثانية/1430 هـ,01:38 مساءً
المشاركة #9

مشرف سابق لمنتدى الإكسل
الرتبة في المنتدى:عقيد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 964
سجل في:الثلاثاء,02/جمادى الثانية/1430 هـ,08:05 مساءً
الدولة:سوريا
رقم العضوية: 87433



سأضيف كود مهم جداً للبعض, حيث أنه خلال عملنا كثيراً مانصادف بيانات من أكثر من نوع في خلية واحدة ( أرقام وأحرف ) وبالتالي نريد حذف الأرقام أو الأحرف.

هذا الكود ببساطة يقوم بذلك.

نبدأ بنص الكود

 كود
Option Explicit

Function AlphaNum1(txt As String, Optional numOnly As Boolean = True) As String
'same result as AlphaNum2
With CreateObject("VBScript.RegExp")
.Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")
.Global = True
AlphaNum1 = .Replace(txt, "")
End With
End Function





دعونا مع صور الكود وكيفية استخدامه, ثم صفحة اكسل فيها الكود. بالتوفيق بإذن الله العزيز الحكيم













وأخيراً صفحة اكسل فيها الكود مضاف للتشغيل والتجربة مباشرة

http://www.4shared.com/file/112252747/48cd0536/delete_letters_from_cell.html

بالتوفيق والرضى من الله




للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالثلاثاء,23/جمادى الثانية/1430 هـ,04:08 مساءً
المشاركة #10

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 43
سجل في:الأربعاء,05/ذو الحجة/1429 هـ,03:48 صباحاً
الدولة:مصر
رقم العضوية: 70642



الموضوع مفيد جدا لجميع مستخدمي الأكسل

جزاك الله عنا كل خير


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

عدد الصفحات : 4  1  2  3  4   > » إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,11:10 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)