طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة

[الصاوي حسن]

الاخ  العزيز / حماده عمر

 

جزاك الله كل خير على سرعة الرد والاهتمام

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

 

دمتم شمس فضل لاينالها كسوف , وضياء بدر لايناله خسوف

 

 

 

 

أوفيسيني جديد .....

[حمادة عمر]

السلام عليكم

الاخ الكريم / alsawy_hassan

 

بارك الله فيك

والحمد لله انه قد امكني مساعدتك كما ينبغي لك

ونحن جميعا هنا لخدمة بعضنا البعض

وننتظر اولي ابداعاتك وبرامجك باذن الله بعد ذلك

ودائما اي استفساار او طلب كلنا في الخدمة

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

[جلال محمد]

أخي حمادة

السلام عليكم

تعبت من كثرة المحاولات ولم اتوصل الي الحل النهائي . فهل توصلت الي شيئ ؟ 

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

ولكن لا يتم تغير الاسم الا بعد الضغط علي زر ادخال الدرجات مرتين

فهل من حل لكي يقوم بتغير الاسم من ضغطة واحدة

تحياتي لك

[جلال محمد]

أخي حمادة

السلام عليكم

تعبت من كثرة المحاولات ولم اتوصل الي الحل النهائي . فهل توصلت الي شيئ ؟ 

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

ولكن لا يتم تغير الاسم الا بعد الضغط علي زر ادخال الدرجات مرتين

فهل من حل لكي يقوم بتغير الاسم من ضغطة واحدة

تحياتي لك

أعمالـــــــــ السنة.rar

[جلال محمد]

أخي حمادة

بعد اذن حضرتك سوف أقوم بعرض الملف في موضوع مستقل 

يمكن اجد حلا عند بعض الأخوه

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

[khalidsoliman]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / جلال محمد

 

بارك الله فيك

حسنا ستفعل اخي الكريم فان طرح الموضوع في موضوع مستقل سيعطي المزيد من النتائج

حيث ان الكود لا يضبط معلي ولعل احد الاساتذه يقدم الحل الافضل

اقدم لك اعتذاري عن التأخير نظرا لانني في مأمورية عمل هذه الايام

وان شاء الله سأعمل جاهدا علي تلبية طلبك

جزاك الله خير

[حمادة عمر]

السلام عليكم

الاخ الكريم / khalidsoliman

 

بارك الله فيك

مرور شرف لي وارجو ان يكون الموضوع قد افادك

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

[جلال محمد]

بارك الله فيك اخي حمادة

انا أعلم جيدا انك لم تقصر وأراعي تماما ظروفك

أعانك الله

وان شاء الله تعود من المأمورية بخير وسلام

ومنتظر فكرتك في الملف ..... عندما تعود ان شاء الله

تحياتي لك

[حمادة عمر]

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

[سما محمد]

استاذنا الفاضل : حمادة عمر

رااائع وجميل مليون مرة

من اجمل المواضيع التي رأيتها في المنتدي

لقد تعلمت منك الكثير

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

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سما محمد

 

بارك الله فيكي

وجزاكي الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / جلال محمد

 

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

للتسهيل عليهم

وقد تم حل موضوع الاخ جلال  في موضوع منفصل

وقدم له الاخ / حسين العصلوجي .. حل رااائع اقدمه لكم

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

 

أعمالـــــــــ السنة_H.rar

[حمادة عمر]

بسم الله الرحمن الرحيم

اقـــــــــدم لكـــــــــــــم اخـــــــوانــــي فهــــــرس كـــامــــل للمــوضــــوع

 

((((    الدرس الاول    ))))

في المشاركة رقم 1#

عمل شاشة التسجيل

http://www.officena.net/ib/index.php?showtopic=45637

 

((((    الدرس الثاني   ))))

في المشاركة رقم 38#       والمشاركة رقم 39#

بعض الاضافات علي الشاشة لكفاءة عملها

http://www.officena.net/ib/index.php?showtopic=45637&page=2

 

((((    الدرس الثالث    ))))

في المشاركة رقم 54#

طريقة عمل استعلام في نفس الفورم 

http://www.officena.net/ib/index.php?showtopic=45637&page=3

 

((((    الدرس الرابع    ))))

 

في المشاركة رقم 86#      والمشاركة رقم 87#

طريقة عمل زر للتعديل بعد عمل استعلام

http://www.officena.net/ib/index.php?showtopic=45637&page=5

 

المشاركة رقم 101#

شرح الماكرو كامل ولتعامل مع الخلايا في الاكسيل ودالة IF و ....

http://www.officena.net/ib/index.php?showtopic=45637&page=6

 

((((    الدرس الخامس    ))))

في المشاركة رقم 116#

طريقة عمل زر للحذف  بعد عمل استعلام

http://www.officena.net/ib/index.php?showtopic=45637&page=6

تم تعديل مارس 12, 2013 بواسطه حمادة عمر

[جلال محمد]

اخي الكريم حمادة

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

وجعل الله اعمالك في موازين حسناتك يوم القيامة

[حمادة عمر]

السلام عليكم

الاخ الكريم / جلال محمد

 

بارك الله فيك

ولك مني اجمل تحيه

وجزيل شكري وامتناني لمرورك

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

[محمد جلال]

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

[smsmman]

جزاك الله خيرا يا استاذنا ..

 

 

iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

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

[صابر حمزه]

صابر حمزه قال فى 02 مارس 2013 - 21:44 :

بسم الله ماشاء الله عليك

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

 

الاخ الكريم / صابر حمزه

فهمت قصدك انت تقصد في شرح الفيديو .... صح

اقوم بتسريعها فقط ليكون اقل وقت ممكن في التسجيل

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

حيث انه كلما زاد وقت الفيديو ... زاحد حجم الملف

وسوف اراعي ذلك مستقبلا حتي لو قمت بتقسيم ملف الفيديو علي اكثر من ملف

 

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

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

 

فعلا اخى هذا هو قصدى لنى مبتدى واحاول التطبيق خطوه خطوه

فلك كل التقدير

[حمادة عمر]

السلام عليكم

الاخ الكريم / Mohamed14

 

بارك الله فيك

اسعدني ردك كثيرا حيث اسعد عندما يستفيد اي شخص من موضوع لي

ومعكم دائما باذن الله

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / smsmman

 

اولا شكرا جزيلا لك

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

وهو من الاساس بهذا الشكل التالي :

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

فهو سطر بسيط  للعثور علي آخر صف فارغ ليتم تسجيل البيانات الجديده به  في الشيت المختار الترحيل او التسجيل فيه

ومعناه جزء جزء كما يلي :

قمنا في بداية هذا الكود بوضع بعض التعريفات او المتغيرات فكان   iRow   هكذا ( في بداية الكود ) وضعه كمتغير بالشكل التالي :

Dim iRow As Long

ويجب علينا بعد ذلك ( بطريقة بسيطة ) تعريف هذا المتغير ليفهم الكود المقصود منه ألا وهو ( آخر صف به بيانات ) ونقوم فيه بشرح ذلك لمحرر الاكواد vba ليقوم الكود بعمله

حيث نقول ان  :

آخر صف به بيانات يساوي .... او نعريفه علي انه ....   كذا

وهو في هذا السطر تم كما يلي ( خطوة .. خطوة ) :

ws.

 

  هذا الجزء السابق من السطر المقصود يعني الشيت المحدد الذي تم تعريفه في بدايه الكود كمتغير ايضا وتم وضع معناه بعد ذلك علي انه شيت 2

.Cells(Rows.Count, 1)

وهذا الجزء السابق من السطر المقصود يعني تحديد العمود رقم 1 في الشيت اي العمود A

.End(xlUp).Offset(1, 0).Row

وهذا الجزء السابق من السطر المقصود يعني الي نهاية صفحة الاكسيل ( شيت 2 ) مع استخدام داله Offset

 

وبذلك يكون هذا السطر معناه كاملا

 

المتغير المقصود = آخر صف به بيانات في العمود الاول A

 

ملاحظة :  لعمل هذا السطر عدة طرق وبصيغ مختلفه ولكني كما ذكرت في جميع الدروس اخترت اسهل الاكواد لتنفيذ المطلوب

ارجو ان اكون قد وفقت في الشرح ... ومعك دائما في اي استفسار في اي وقت

اعتذر عن الاطاله  .... ولكني اردت ايضاح الشرح

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / صابر حمزه

 

بارك الله فيك

واي استفسار او اعادة للشرح او اي شئ غير واضح ... علي استعداد تام لشرحه

ومعلش بقا المرة دي .... وسيتم ملاحظة ذلك فيما بعد فعلا

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

[صابر حمزه]

  الاخ الفاضل  Honored Members

 

عندى سؤال  هل من الضرورى عمل جميع الخطوات المشروحه فى 1و2و 3 على ملف العمل اقصد كلها فى مرة واحده ام من الممكن تجزاتها او العمل دون تقيد

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

وشكرا

book.rar

book1.rar

تم تعديل مارس 15, 2013 بواسطه صابر حمزه

[حمادة عمر]

السلام عليكم

الاخ الكريم / صابر حمزه

 

بارك الله فيك

اولا :  اوضح لك اخي الكريم ان اسمي / حمادة عمر  والاسم الذي وضعته انت هو رتبتي في المنتدي Honored Members   اي عضو شرف (( عقبالك ونبارك لك علي الترقية باذن الله )

 

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

ولكن لن يكتمل عمل الزر الذي ستقوم به ويعطيك النتيجة المرجوة منه الا بعد انتهاء تصميمه وكوده بالطبع

 

اما بخصوصو الرسالة التي تظهر معك ... فعلي ما اعتقد ان مستوي امان الماكرو لديك عالي او عالي جدا

قم بتخفيض مستوي الامان الي منخفض

واليك المرفق التالي يوضح الطريقة لتخفيض مستوي الامان في اكسيل 2003 حيث اظن انك تعمل عليه ( تبعا للصورة المرفقة )

وان كان غير 2003 اخبرني وسأرسل لك الطريقة للاصدار الذي تريده

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

 

طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل2003.rar

[صابر حمزه]

السلام عليكم

الاخ الكريم / صابر حمزه

 

بارك الله فيك

اولا :  اوضح لك اخي الكريم ان اسمي / حمادة عمر  والاسم الذي وضعته انت هو رتبتي في المنتدي Honored Members   اي عضو شرف (( عقبالك ونبارك لك علي الترقية باذن الله )

 

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

ولكن لن يكتمل عمل الزر الذي ستقوم به ويعطيك النتيجة المرجوة منه الا بعد انتهاء تصميمه وكوده بالطبع

 

اما بخصوصو الرسالة التي تظهر معك ... فعلي ما اعتقد ان مستوي امان الماكرو لديك عالي او عالي جدا

قم بتخفيض مستوي الامان الي منخفض

واليك المرفق التالي يوضح الطريقة لتخفيض مستوي الامان في اكسيل 2003 حيث اظن انك تعمل عليه ( تبعا للصورة المرفقة )

وان كان غير 2003 اخبرني وسأرسل لك الطريقة للاصدار الذي تريده

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

 

طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل2003.rar

 

اخى الكريم  حماده عمر

انا فى غايت الخجل منك ولاكن عزرى انى مبتدى  ولك كل التقدير والاحترام

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

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