نفا

شكراً جزيلاً على هذا العمل

وآمل الاستمرار

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

اخي العزيز خبور خير يا ريت تشرح لي وش عملت

Dim R As Integer, Last As Integer تعريف المتغير

With ورقة2 في الورقة الثانية

Last = .Range("B" & .Rows.Count).End(xlUp).Row + 1

For R = 1 To 15

.Range("B" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 3)

.Range("Q" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 7)

Next R

.Range("A" & Last).Value = Last - 3

End With

End Sub

Sub KH_Clear_A()

Dim R As Integer

For R = 1 To 15

ورقة1.Cells((R * 2) + 2, 3).ClearContents

ورقة1.Cells((R * 2) + 2, 7).ClearContents

Next R

End Sub

Sub KH_Clear()

Dim Last As Integer

With ورقة2

Last = .Range("B" & .Rows.Count).End(xlUp).Row + 4

.Range("A4:AE" & Last).ClearContents

End With

End Sub

اريد ترجمة حرفية لهذا المايكروا الله يعطيك العافية

اخي العزيز مبدع مبدع مبدع

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

يا ريت تعطيني ترجمة كاملة لما عملت حتى استفيد ويستفيد الآخرين

تحياتي

انت بالفعل مبدع فأكمل إبداعك بالشرح

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

اخواني وأعزائي المنتدى الغالي

ارغب في عمل برنامج صغير لبيانات الموظفين لدينا بالعمل

هو عبارة عن ثلاث ورقات

الورقة الأولى إدخال بيانات الموظف

هي عبارة عن إعطاء رقم تسلسل جديد للموظف وتعبئة بياناته وبمجرد الضغط على زر يقوم بالحفظ في ورقة بيانات الموظفين

الورقة الثانية مكان حفظ البيانات

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

مرفق الملف للتعديل

____________________.rar

شكراً جزيلاً على المعلومة

لم افهم قصدك ولكن حسب علمي

يجب ان تكون جيمع أوراق العمل في نفس المجلد حتى تعمل الروابط بشكل جيد عندك

المقصود في عمل اي موقع يجب ان تحدد مجلد واحد فقط تضع فيه جميع أوراق العمل والفلاشات

اين الاخوان

على الاقل عطونا خبر انكم ما تعرفون

اخوي مزلزل الله يعطيك العافية على الاقل حاولت معي

مصطفى كمال / مبدع شكراً لك على الف شكر

ولكن هل تصلح هذه الطريقة للتحويل من اليمين لليسار إلى اليسار لليمين

تحياتي

عندي مشكلة كانت في اكسل 2002 بسيطة الحل اليمين لليسار وتحل المشكلة في الرسوم البيانية

لكن في اكسل 2003 لا تعمل هذه الخاصية فكيف احول الرسوم من اليسار لليمين إلى اليمين لليسار

الرجاء الإجابة على هذا التسؤال

الرسوم اليانية

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

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

وبعد الانتهاء اخذت نسخة من العمل وشغلتها على جهاز آخر ووجدت إن الإعدادات تغيرات مثلاً

الصورة فوق الكتابة

الجداول فوق الجدول ولا يخرج من الآخر إلا القليل

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

السؤال كيف اجعل الإعدادت تعمل على جميع الاجهزة دون اللجوء إلى تصغير حجم سطح المكتب

الموضوع مستعجل ارجو المســــــــــــــــــــــــــــــاعدة

مشكور عزيزي كنا نقفل عن هذه النقطة

تحياتي لك و للسائل

اخواني واعزائي منتدى أوفسنا الكبار

كنت اعمل رسوم بينانية على أوفس 2000 وكنت اريد الرسم البياني من اليسار إلى اليمين وكنت اذهب إلى

أدوات ـ خيارات ـ ومن ثم اليمن لليسار

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

بحثت عن اليمني لليسار في أوفس 2003 ولم اجده ولا اعرف كيف احول الرسم البياني

ارجو لمن لديه العلم اخباري بذلك وحتى تعم الفائدة

تحياتي

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

هل لك ان ترفع الكتاب مباشرة على المنتدى

الف شكر لكم اعزائي على التجاوب معي وانتم الأول على المستوى العربي في مجال التعليم

لقد توصلت بفضل جهودكم إلى المطلوب وقد افهمتمون هذه الدالة الجميلة واختصار الكثير من الوقت

دمتم لنا اخي asmo200666 فخر لهذا المنتدى والصرح العظيم

شكراً

بقي لي ان اعرف كيف احول الارقام إلى حروف حيث انه في الإجازة تحتاج إلى عدد وتحويله إلى كتابة

كنت استخدم الدالة الشرطية وارغب في تغيرها لأنها كثير ما تحتاج إلى تعديل

=IF(D20=5;"خمسة أيام ";IF(D20=10;"عشرة أيام ";IF(D20=11;"إحدى عشر يوماًً";IF(D20=12;"إثنا عشر يوماًً";IF(D20=13;"ثلاثة عشر يوماً";IF(D20=14;"أربعة عشر يوماً";IF(D20=15;"خمسة عشر يوماً";IF(D20=16;"ستة عشر يوماًً";"الرجاء أدخل الرقم كتابة "))))))))

وتعتبر طويلة ولا تحقق جميع الارقام

ثم قرأت في احد الموضيع كيفية التحويل بدالة B_Only(A2;1;0;2

فلم يتجاوب الجهاز عندي وبحثت عنها داخل الدوال ولم اجدها وكذلك

No_TOTEXT

أخي العزيز

حاولت إرفاق الملف ولكن لا يسمح لي بالرفع

في حال لم تفهم أي نقطة من النقاط ارجو الكتابة لي وشكراً لك على التجاوب

نقطة هامة

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

آمل التجاوب معي

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

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

السلام عليكم اخواني وأعزائي

ارغب في أن احترف الإكسل ولكن للإسف لغتي في الفيجول بسك رديئة ولست ضعيفة ولكن فيكم الخير والبركة في المساعدة

اعمل على برنامج للعمل لشئون الموظفين يغنينا عن كتابة بينات الموظفين في كل نموذج حيث ان الموظف الذي أرغب في تعبئة بياناته في أي نموذج اكتب رقم ملف الموظف فتخرج البيانات التي ارغب انا بها في النموذج

عندي ورقة عمل فيها جميع بيانات الموظفين وهي الورقة رقم واحد واسميتها بيانات الموظفين

الأوراق الاخرى فيها النماذج جاهزة ومفرقة من البيانات

فهل هناك طريق اختار بها رقم ملف الموظف مثلاً فيخرج في النموذج جزء من الينات للموظف وليس جميعها

مثال 1:

رقم الملف الاسم مسمى الوظيفة رقم الحاسب رقم السجل المدني الجنسية المؤهل العلمي رقم الحفيظة ..... إلخ

وفي النموذج اطلب فقط الاسم ومسمى الوظفية ورقم الحاسب والسجل المدني والجنسية .

عملت البرنامج بالتصفية لرقم الملف في الورقة 1

في الورقة 2 النموذج في خلية الاسم كتب = ورقة 1!الخلية الموجود بها الاسم

هل هناك طريقة أخرى . لا استطيع إرفاق الملف

لذا آمل ان تســــــــــــــــــــــــــاعدوني يا أهل الخير