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

(قسم الاعلانات) الموضوع:افضل شركة ترميم منازل بالرياض شركة فرصة بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:شركة فرصة تخزين اثاث وتخزين عفش بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة عزل فوم ركن البناء بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة تخزين اثاث بالرياض بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة نقل اثاث وعفش بالرياض بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة كشف تسربات المياة بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة لعزل الخزانات بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركه مكافحه حشرات ورش مبيدات بواسطة: (fast2trans) :: (قسم الاعلانات) الموضوع:افضل شركة تنظيف منازل بواسطة: (fast2trans) :: (أخبار التكنولوجيا) الموضوع:التقرير لشهرى يناير و فبراير توصيات الفوركس من النخبة بواسطة: (النخبة للعملات) :: (أخبار التكنولوجيا) الموضوع:التقرير لشهرى يناير و فبراير توصيات الفوركس من 0 بواسطة: (النخبة للعملات) :: (قسم الاعلانات) الموضوع:مصنع ألواح الخليج - تكنو بوند بواسطة: (tbond) :: (منتدى الأكسس) الموضوع:تفعيل القوائم المنسدلة بواسطة: (د.كاف يار) :: (قسم الاعلانات) الموضوع:شركة تنظيف بواسطة: (السيد اسامة) :: (أخبار التكنولوجيا) الموضوع:برنامج محاسبة بواسطة: (لمياء حمود) :: (قسم الاعلانات) الموضوع:دورة القيادة الفعالة لفريق العمل عالى الأداء بواسطة: (جيت واى للتدريب) :: (منتدى Microsoft Excel) الموضوع:تطبق الكود على كامل الشته بواسطة: (nmshan1) :: (منتدى الأكسس) الموضوع:كيفية ادخال رقم من comand الى txtbox بواسطة: (startnet) :: (منتدى الأكسس) الموضوع:الطرح التراكمي بالعمود بواسطة: (startnet) :: (قسم الاعلانات) الموضوع:فى دورة التسويق الإلكترونى بواسطة: (جيت واى للتدريب)


راديو القرآن

المواضيع المثبته: (منتدى Borland Delphi) الموضوع:أحفظ برامجك الديلفاوية من أذي العابثين باستخدام رقم الهارد (محترفين) بواسطة: (Hadyabady) :: (منتدى الكتب الالكترونية) الموضوع:كتاب كامل من جزئين يشرح access وبالتفصيل وقواعد البيانات وبالتفصيل بواسطة: (m.i.a.r) :: (القسم المفتوح) الموضوع:شاهد واشكر ربك على نعمة الاسلام بواسطة: (غزاوية أصيلة) :: (منتدى مبرمجي ASP) الموضوع:دورة احترافيه لبناء منتدى على asp بواسطة: (عبدالله جابر شقليه) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:موسوعة كتب واسطوانات تعليم الشبكات Networking بواسطة: (مرحبا الساع) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ما هي أوراكل وماتعرف عنها بواسطة: (وليد القدسي) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:البدء مع ASP.NET AJAX بواسطة: (يوسف جميل جادالله) :: (منتدى البرامج) الموضوع:شروط وضع المواضيع في قسم البرامج بواسطة: (kkarem55) :: (منتدى ADO.NET العام) الموضوع:البدء مع ADO.NET بواسطة: (HnHn) :: (منتدى مبرمجي ASP) الموضوع:Compact An Access Database File From ASP بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي لغة جافا JAVA) الموضوع:درس : الاستثناءات في جافا Exceptions بواسطة: (nardien28) :: (منتدى تحليل و تصميم نظم المعلومات) الموضوع:تحليل كامل لبرنامج حسابات بواسطة: (الشجرة الطيبة) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:دورة قواعد البيانات (( اوراكل للمبتدئين )) بواسطة: (السند العربي) :: (منتدى برمجة الألعاب) الموضوع:برنامج رائع لتصميم الألعاب بواسطة: (mjxp) :: (منتدى Microsoft Visual Basic) الموضوع:يرجى الإنتباه لجميع الأعضاء الجدد بواسطة: (zoubicom) :: (منتدى Microsoft Visual Basic) الموضوع:برنامج الحسابات مع الكود بواسطة: (د.أنس عباس) :: (منتدى تصميم صفحات الويب) الموضوع:أرشيف المواضيع المميزة بواسطة: (alanees) :: (قسم التعاميم والشكاوي) الموضوع:ماسنجر المحيط العربي بواسطة: (يوسف جميل جادالله) :: (قسم التعاميم والشكاوي) الموضوع:الرتب في المنتدى بواسطة: (عبدالله جابر شقليه) :: (منتدى Microsoft SQL Server) الموضوع:تابعوا دروس sql2000 بواسطة: (dody)

عدد الصفحات : 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   > » إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,08:49 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

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