خواطر إكسيلية

[عبد العزيز البسكري]

" محمّد حسن المحمّد "

بإذن الله .. نحن دومًا بانتظار جديدك  سيّدي القدير المحترم

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

أخي الحبيب عبد العزيز أعزكم الله ...إن شاء الله تعالى ولكنني لا أمتلك إنترنت على الحاسب إلا وقت العمل .وضغط العمل أرهقني .

حتى أنني أقول اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن سهلا ( الحزن:الصعب) 

أما الخيمة التي تؤوينا تتسرب منها الماء من أطرافها مما زادني ضيقا.اتصالي بكم بها عبر الهاتف الذي لا يفي بالغرض.

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

[ياسر خليل أبو البراء]

أخي وحبيبي في الله أبو يوسف

أعانكم الله على البلاء الذي ابتلاكم الله به .. ولا أملك لكم إلا الدعاء لكم أن يفرج الله عنكم ما ابتلاكم به .. وصبراً فمهما طال الليل لابد من بزوغ الفجر

 

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

أقدم لكم دالة من دوال الإكسيل وما يقابلها في محرر الأكواد

الدالة هي CHAR : لمعرفة الحرف أو الرمز المقابل لرقم معين

افتح ملف إكسيل وضع الرقم 1 في الخلية A1 وضع الرقم 2 في الخلية A2 ثم .. حدد الخليتين معاً وقم بسحب الخليتين من مقبض السحب .. واسحب الأرقام حتى الصف 255

أي اكتب الأرقام من 1 إلى 255

في الخلية B1 اكتب المعادلة التالية :

=CHAR(A1)

ثم قم بسجب المعادلة إلى آخر النطاق أي إلى الخلية B255

ستلاحظ وجود علامات ورموز وحروف في العمود الثاني ..هذا يدعى جدول الأسكي ASCII ..

على سبيل المثال الأرقام من 0 إلى 9 تأخد الأرقام في جدول الأسكي من 48 إلى 57

الأرقام من 65 إلى 90 الحروف الإنجليزية الكبيرة

الأرقام من 97 إلى 122 الحروف الإنجليزية الصغيرة

الرقم 10 يمثل سطر جديد

الرقم 32 يمثل المسافة (التي تؤخذ بالمسطرة يا باشمهندس)

الرقم 44 يمثل الفاصلة ,

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

الدالة المقابلة للدالة CHAR في محرر الأكواد هي الدالة CHR

مثال تطبيقي للاستفادة من الدالة :

أنشيء ورقة عمل جديدة وضع النص التالي بهذا الشكل في الخلية A1

Yasser,Ahmed,Khalil,Salem,Baraa

غير ارتفاع الصف وخليه 100 لتكون الأسماء واضحة أمامك

الفاصلة تفصل بين الأسماء بفاصلة .. والمطلوب أن توضع الأسماء في نفس الخلية في أسطر متتالية أي تكون بهذا الشكل:

قم بوضع الكود التالي في موديول ..

Sub UseCHR()
    Dim str As String
    str = Range("A1").Value
    str = Replace(str, Chr(44), Chr(10))
    Range("A1").Value = str
End Sub

يتم تعريف المتغير من النوع النصي باسم str ليحمل قيمة الخلية A1 وفي السطر الثالث يتم استبدال الفاصلة Chr(44) بسطر جديد Chr(10) ..بكل بساطة

بالتالي أصبح لدينا المتغير الجديد تم فيه استبدال الفاصلة بسطر جديد ..

في السطر الأخير يمكنك وضع قيمة المتغير في نفس الخلية A1 أو يمكنك وضعها في خلية جديدة كما ترغب

أرجو أن تكون الخاطرة قد أعجبتكم

تقبلوا وافر تقديري واحترامي

 

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم و أستاذي القدير " محمّد حسن المحمّد " لا يمكنني سوى القول :

إنّ مع العسر يسرَا

الشّكر كل الشكر موصول لأستاذنا المحترم " ياسر خليل أبو البراء " على الدّعم الفعّال للموضوع و المساهمة المميّزة

جزاكما الله خيرًا و زادكما من علمه و فضله

فائق إحتراماتي لكما

 

[محمد حسن المحمد]

إخوتي الكرام أساتذتي وأحبتي

سعادة وأيما سعادة أن أرى موضوعا مبهرا ورائعا وجديدا بالنسبة لي من أخ حبيب أبو البراء وتجاوب رائع من أخ حبيب عبد العزيز ...

حقيقة ..يعجز لساني وتتلعثم كلماتي أمام هذا الأمر العظيم الذي أعتبره محبة ووفاء حيث كان يمكنه تقديمه ضمن عمل مستقل....

أبو البراء فضلك كبير وخيرك بإذن الله غزير...أحبكم في الله وأرجو لكم دوام التقدم والعطاء

استعرت الوردة من أخي عبد العزيز فهو كريم ونحن نستأهل.والسلام عليكم.

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

كمساهمة منّي في إثراء المواضيع المميّزة الرّائعة و الثّمينة من طرفك أستاذي القدير " محمد حسن المحمّد " و من طرف جميع الأساتذة الأفاضل المساهمين بهذا الموضوع فعاليّةً أو تشجيعًا طيّبًا

جزاكم الله خيرًا و زادكم من علمه و فضله ..

بهذا الملف المرفق في المشاركة أدناه ..

قمت بكتابة اسم  في الخليّة A1 .. ثم أشّرت بالماوس في بداية العمل على هذه الخليّة

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

الحقيقيّة لما يشير له السّهمان .. فقلت بنفسي الصّورة أكثر تعبيرًا من الكلمات :

قمت بالتّأشير على الخانة المشار إليها بالسّهم ثم اتّبعتُ .. الآتي :

قمت الاآن بالتّأشير على المربّع المشار إليه بالسّهم ..ثم أكملتُ الآتي :

قمت باختيار الخلية التي ستكون بداية العمل .. مثلاً D1.. ثم الضغط على ..إنهاء ..

 

و النّتيجة ..تجزئة الخلية A1 على عدة خلايا ..مثلما تشير له الصّورة

فائق أحتراماتي

 

تجزئة الكلمة .rar

تم تعديل ديسمبر 3, 2015 بواسطه عبد العزيز البسكري

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

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

التسمية الافتراضية لما ذكرت

1. بيانات - النص إلى أعمدة
2. معالج تحويل النص إلى أعمدة -(الاختيار العلوي): محدد  - السهم الآخر: التالي
3. الخطوة الثانية:أشرت إلى (مسافة)
4. الخطوة الثالثة: أشرت إلى عام ...تحديد الوجهة
5. ثم إنهاء.

فائق احترامي وشكري ومحبتي لكم جميعا

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته إخوتي الكرام

خاطرة استقيتها من دروس أستاذنا الجليل يحيى حسين 

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

قدم لنا الأستاذ يحيى مشكورا كودا يظهر هذه القوائم بأسلوب رائع كتب الكود ولم يكتب مكان الحدث أهو في حدث المصنف أو الورقة سأكتب لكم إياه بحدث الورقة لأنني جربته فكان ناجحا كما يلي:لايوجد زر كتابة الأكواد على الهاتف للأسف

Private Sub Worksheet_SelectionChange(ByVal Target As Rang)

Application.CommandBars("built-in menus").ShowPopup

End Sub

أرجو أن ينال إعجابكم والشكر الجزيل للأستاذ الكريم يحيى حسين الذي ذكرنا بنسائم الماضي الجميل 

والسلام عليكم.

 

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

ألف شكر أستاذي القدير " محمد حسن المحمّد " على الكود أكثر من الرّائع الذي يظهر القائمة المنسدلة بشكل عمودي جذّاب .. تميّز جديد

الشكر موصول للأستاذ الفاضل " يحيى حسين "

جزاكما الله خيرًا و زادكما من علمه و فضله

للتّنوية أستاذي القدير .. كقاعدة عامّة .. أينما وجدت كلمة WorkSheet ..لا تتردّد .. فالكود يكون إلزاميًا في حدث الورقة

فائق إحتراماتي

 

[محمد حسن المحمد]

السلام عليكم أخي عبد العزيز

أشكرك على التنويه

للتّنوية أستاذي القدير .. كقاعدة عامّة .. أينما وجدت كلمة WorkSheet ..لا تتردّد .. فالكود يكون إلزاميًافي حدث الورقة

لكنه لم يكتب مكان الحدث قطعا فقمت بوضعه ضمن حدث المصنف ثم في حدث الورقة حتى رأيت القوائم بشكل عمودي 

والسلام عليكم.

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أستاذي القدير .. كنتُ أقصد أنّ الأستاذ " يحيى حسين " نعتبرهُ قد كتبَ مكان الحدث بمجرّد رؤية الكلمة WorkSheet في هذا الكود :

فائق إحتراماتي لكما

[محمد حسن المحمد]

12 ساعات مضت, عبد العزيز البسكري said:

السّلام عليكم و رحمة الله و بركاته

أستاذي القدير .. كنتُ أقصد أنّ الأستاذ " يحيى حسين " نعتبرهُ قد كتبَ مكان الحدث بمجرّد رؤية الكلمة WorkSheet في هذا الكود :

فائق إحتراماتي لكما

 

تقبل تحياتي العطرة أخي الحبيب عبد العزيز.

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[عبد العزيز البسكري]

بارك الله فيك على التّجاوب الطيّب أستاذي القدير ...

[محمد حسن المحمد]

12 ساعات مضت, عبد العزيز البسكري said:

بارك الله فيك على التّجاوب الطيّب أستاذي القدير ...

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

شكرا جزيلا والسلام عليكم.

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[ياسر خليل أبو البراء]

أبي الحبيب أبو يوسف

لما توقفت عن الخواطر الإكسيلية ؟

أرجو ألا تتوقف وتواصل إبداعاتك ونشاطك بالموضوع

تقبل وافر تقديري واحترامي

[محمد حسن المحمد]

32 دقائق مضت, ياسر خليل أبو البراء said:

أبي الحبيب أبو يوسف

لما توقفت عن الخواطر الإكسيلية ؟

أرجو ألا تتوقف وتواصل إبداعاتك ونشاطك بالموضوع

تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته

الحقيقة نحن في الشهر 12 من العام وتعلم خصوصية هذا الشهر بالنسبة للمحاسبين . وأنا  ضمن مؤسسة قريبة من شركة تعهدات ومقاولات ومواد بناء  فيها محاسب واحد وهو العبد الفقير الذي يراسلكم

أحياناً أتمنى أن ساعات العمل مثل ساعات الصيف حيث الرحابة والسعة والدفء....سأقترح تغيير رأس السنة ليكون صيفاً...فما قولك؟!!.

تم تعديل ديسمبر 23, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

خطر لي أن أسأل إخوتي علماء الإكسيل الكرام كيف لي أن أضع التاريخ بتنسيق معين واضح ضمن عدة

 بيانات في خلية جمعتها الدالة CONCATENATE

 أقدم لكم هذا الطلب مع المرفق أدناه لتقوموا - فضلاً لا أمراً - بمساعدتي الضرورية به تقبلوا تحياتي العطرة

 والسلام عليكم

إيصال قبض.rar

[ياسر خليل أبو البراء]

أبي الحبيب أبو يوسف

جرب التعديل التالي عله يفي بالغرض

=CONCATENATE([@[نقد/
شيك]]," ",[@المصرف]," ",[@[رقم الشيك]],"-",TEXT([@[تاريخ الشيك]],"yyyy/mm/dd"))

تقبل وافر تقديري واحترامي

 

[محمد حسن المحمد]

13 دقائق مضت, ياسر خليل أبو البراء said:

أبي الحبيب أبو يوسف

جرب التعديل التالي عله يفي بالغرض

=CONCATENATE([@[نقد/
شيك]]," ",[@المصرف]," ",[@[رقم الشيك]],"-",TEXT([@[تاريخ الشيك]],"yyyy/mm/dd"))

تقبل وافر تقديري واحترامي

 

السلام عليكم ورحمة الله وبركاته

أخي الحبيب ياسر خليل أبو البراء جزاكم الله خيراً حل أروع من الرائع 

كلمات الشكر عاجزة أمام اهتمامكم واستجابتكم السريعة

وافر شكري ومحبتي وتقديري

والسلام عليكم

[ياسر خليل أبو البراء]

وعليكم السلام أبي الحبيب أبو يوسف

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

الأروع دائماً هو اختيارك لكلمات الرد التي نعجز عن الرد عليها بمثلها

تقبل تحياتي

[محمد حسن المحمد]

5 دقائق مضت, ياسر خليل أبو البراء said:

أدام الله المحبة والمودة بيننا

الأروع دائماً هو اختيارك لكلمات الرد التي نعجز عن الرد عليها بمثلها

 

والسلام عليكم ورحمة الله وبركاته.

آمين ...عندما نتعامل مع الطيب والعطر لا يمكننا أن نقول إلا ما قلنا جزاكم الله خيراً.. فأنتم جلساء الخير.وقد ذكر نبينا محمد صلى الله عليه وسلم:

(( إِنَّمَا مَثَلُ الجليس الصالحُ والجليسُ السوءِ كحامِلِ المسك، ونافخِ الكِيْرِ فحاملُ المسك: إِما أن يُحْذِيَكَ، وإِما أن تبتاع منه، وإِمَّا أن تجِدَ منه ريحا طيِّبة، ونافخُ الكير: إِما أن يَحرقَ ثِيَابَكَ، وإِما أن تجد منه ريحا خبيثَة ))

[أخرجه البخاري ومسلم عن أبي موسى الأشعري]

والسلام عليكم ورحمة الله وبركاته.

[محمد حسن المحمد]

=CONCATENATE(Table174[[#This Row];[نقد/
شيك]];" ";Table174[[#This Row];[المصرف]];" ";IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"رقم";"");Table174[[#This Row];[رقم الشيك]];IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"تاريخ";"");IF(Table174[[#This Row];[تاريخ الشيك]]<>"";TEXT(Table174[[#This Row];[تاريخ الشيك]];"yyyy/mm/dd");""))

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

لأنها دون كتابة تاريخ يكتب افتراضياً تاريخ  00-01-1900 

عسى أن يستفيد الآخرون ممن يطلعون على المشاركة ..والسلام عليكم.

تم تعديل ديسمبر 24, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

 

إخوتي الكرام أحببت أن آخذ رأيكم بتنسيق الخلايا حيث يمكننا عرضها مثل أدوات اليوزر فورم بشكل يظهر قريباً من ثلاثي الأبعاد بارزاً أو غائراً

 

لا تؤاخذونني ولكن محبة بكم وبمساهماتكم ...صحيح أنه ليس على مستوى أطروحاتكم ولكن أرى أنه يلزمنا لتظهر أوراقنا الإلكترونية بأبهى حلة

 

والسلام عليكم

 

تنسيق خلايا.rar

تم تعديل ديسمبر 26, 2015 بواسطه محمد حسن المحمد
تم مسح الكتابة بالرسام.

[ياسر خليل أبو البراء]

أبي الحبيب أبو يوسف

بارك الله فيك ..شكلك فنان تشكيلي (تشكيلي غير تشكي لي .. !!)

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

تقبل وافر حبي وتقديري

 

[محمد حسن المحمد]

15 ساعات مضت, ياسر خليل أبو البراء said:

أبي الحبيب أبو يوسف

بارك الله فيك ..شكلك فنان تشكيلي (تشكيلي غير تشكي لي .. !!)

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

تقبل وافر حبي وتقديري

 

السلام عليكم ورحمة الله وبركاته

 

أخي الحبيب ياسر أبو البراء مروركم شرف لي أخذت برأيكم وآخذ بنصيحتكم 

أما عن التنسيقات فهي ضرورة وهذا حديث شريف يرينا التكامل بين حسن المظهر وطيب المخبر:

حديث ابي موسى الأشعري حين قال للنبي  (لو علمت أنك 
تستمع لحبرته لك تحبيرا) في الرد على قول النبي  حين قال:لو 
رأيتني وأنا أستمع لقراءتك البارحة   

والسلام عليكم ورحمة الله وبركاته.

تم تعديل ديسمبر 26, 2015 بواسطه محمد حسن المحمد