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

(منتدى الأكسس) الموضوع:فتح مجلد بواسطة: (startnet) :: (منتدى البرامج) الموضوع:تحميل برنامج Avast Free Antivirus مجانا بواسطة: (كوكب البرامج) :: (منتدى الأكسس) الموضوع:تهنئة بمناسبة عيد الفطر المبارك 2017 بواسطة: (startnet) :: (منتدى الأكسس) الموضوع:مشكلة غريبة جننتنى بواسطة: (startnet) :: (منتدى Microsoft Visual Basic) الموضوع:بنك اكواد المحيط العربي بواسطة: (عبدالعزيز بيروني) :: (منتدى Microsoft Visual Basic) الموضوع:مجاناً - مشروع تخرج نظام المبيعات source code بواسطة: (عبدالعزيز بيروني) :: (قسم الاعلانات) الموضوع:شقق للبيع تمليك جميع احياء مدينة العبور عروس المدن الجديدة للاستلام الفورى بواسطة: (جمعة عللام) :: (قسم الاعلانات) الموضوع:مطلوب اراضى للبيع او مشاركات او ادوار نعلية ونكمتة مبان بواسطة: (جمعة عللام) :: (أخبار التكنولوجيا) الموضوع:شركة تنظيف منازل بابها والرياض0554487606 بواسطة: (فرسان الوادي) :: (قسم الاعلانات) الموضوع:للبيع شقة تمليك حدائق القبة ش بور سعيد مباشرةل بواسطة: (جمعة عللام) :: (قسم الاعلانات) الموضوع:شقق للبيع بمدينة نصر الحى السابع تاصية للاستلام الفورى 155م 150م 125م بواسطة: (جمعة عللام) :: (قسم الاعلانات) الموضوع:شقق للبيع بمدينة نصر الحى السابع تاصية للاستلام الفورى 155م 150م 125م بواسطة: (جمعة عللام) :: (منتدى البرامج) الموضوع:شهادات الايلتس للبيع في قطر 00962790574474 معتمد بواسطة: (ايلتس او توفل) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:شهادات الايلتس للبيع في الكويت 00962790574474 معتمد بواسطة: (ايلتس او توفل) :: (منتدى الكتب الالكترونية) الموضوع:شهادات ايلتس معتمدة للبيع في سلطنة عمان 00962790574474 بواسطة: (ايلتس او توفل) :: (قسم الاعلانات) الموضوع:للبيع شقق مدينة نصر حى الواحة الحى العاشر 160 م بواسطة: (جمعة عللام) :: (قسم الاعلانات) الموضوع:شهادة ايلتس او توفل معتمدة للبيع في السعودية 00962790574474 اصلي بواسطة: (ايلتس او توفل) :: (أخبار التكنولوجيا) الموضوع:شهادة ايلتس او توفل للبيع معتمدة في الاماررات 00962790574474 اصلي بواسطة: (ايلتس او توفل) :: (قسم الاعلانات) الموضوع:الشركه الدوليه للانشاء وادارة المشروعات نقوم البناء بالتنفيذ والتشطيب بواسطة: (جمعة عللام) :: (منتدى الأبحاث) الموضوع:صور مشبات امريكيه بواسطة: (مصطفى خميس)


راديو القرآن

المواضيع المثبته: (منتدى Microsoft Excel) الموضوع:تعالوا نتعلم - دروس في الإكسيل بواسطة: (وائل مراد) :: (منتدى Microsoft Visual Basic) الموضوع:دروس صوت وصورة للربط بين اسكيوال سيرفر والفجوال بيسيك بواسطة: (wael abed) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى الوورد والباور بوينت) الموضوع:مكتبة الوورد بواسطة: (ramies) :: (منتدى ADO.NET العام) الموضوع:الكامل في قواعد البيانات مع VB.net بواسطة: (المهندس عدي) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:نبذة مختصرة عن تعريف تقنية أجاكس بواسطة: (عبدالله جابر شقليه) :: (القسم المفتوح) الموضوع:قصص الأنبياء عليهم السلام .جميعا بواسطة: (غزاوية أصيلة) :: (منتدى Microsoft SQL Server) الموضوع:SQL SERVER vs ORACLE بواسطة: (m.atassi) :: (منتدى برمجة الجرافكس) الموضوع:الجزء الثانى من دروس تعلم GDI بواسطة: (alaa gomaa) :: (قسم النسخ والتحويل) الموضوع:برنامج تحويل قواعد البيانات العظيم بواسطة: (arabsboy) :: (منتدى برمجة الشبكات في بيئة الدوت نت) الموضوع:عمل برنامج بسيط مع قاعدة بيانات اكسس على شبكة محلية بواسطة: (allnsh 3) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:أساسيات تصميم الشبكات بواسطة: (مرحبا الساع) :: (منتدى Borland Delphi) الموضوع:تحويل الأرقام إلى نص بواسطة: (مهند عبادي) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:ارشيف جميع البرامج التى صنعها اعضاء قسم الدوت نت بواسطة: (alaa gomaa) :: (منتدى مبرمجي ASP) الموضوع:Compact An Access Database File From ASP بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:دروس بالفيديو في VB.NET 2005 بواسطة: (HnHn) :: (قسم الـ portable) الموضوع:أفضل برامج مفيدة للكمبيوتر وتعمل Portable اي بدون تنصيب بواسطة: (أبو ليان) :: (قسم الدروس و الدورات) الموضوع:تعلم معي البرمجة بالفيجوال بيسك .. بواسطة: (كوثــــــــــــر) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:تعرف على تقنية Oracle APEX بواسطة: (وليد القدسي) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:تفقيط الأرقام للغة العربية تحت بيئة oracle pl sql بواسطة: (adnan_som)

عدد الصفحات : 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:26 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

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