اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

اخب ابو احمد

السطرين اللذان اضفتهما هما امتداد للموديول الذي وضعته

بصراحة مبدع كعادتك اخي ابوعبدالله

غاب عني الموديل الذي اضفته ههههههههه

شكراً لك اخي على مجهودك

قام بنشر

في خدمتك ابو احمد

الله يرفع شانك اخي ابوعبدالله

لي استفسار بسيط

عند تصغير البرنامج الى شريط المهام ومحاولة فتح ملف اكسل اخر لا استطيع فما الحل استاذي العزيز

قام بنشر (معدل)

اخي ابو احمد

من الصعب فتح ملف اخر مع ملفي لانني اصلا اتعامل مع اخفاء الملف اصلا واظهار الفورم فقط وعند رغبتي في استخدام الملف او التعديل عليه

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

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

اولا عليك مسح الكود بالكامل الموجود في زر الامر المذكور اعلاه

وفتح this workbook وهي صفحه الاكواد الخاصه ومسح الاوامر الموجوده به بالكامل واستخدام التالي

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Application.DisplayFullScreen = False

ActiveWorkbook.Application.CommandBars("full screen").Visible = True

ActiveWorkbook.Application.CommandBars("worksheet menu bar").Enabled = True

ActiveWorkbook.Application.CommandBars("standard").Visible = True

ActiveWorkbook.Application.CommandBars("formatting").Visible = True

ActiveWorkbook.Application.CommandBars("full screen").Visible = True

ActiveWorkbook.Application.DisplayStatusBar = True

ActiveWorkbook.Application.DisplayFormulaBar = True

End Sub
وايضا هذا
Private Sub Workbook_Open()

Sheet1.Activate

ActiveWorkbook.Application.DisplayFullScreen = False

ActiveWorkbook.Application.CommandBars("full screen").Visible = False

ActiveWorkbook.Application.CommandBars("worksheet menu bar").Enabled = False

ActiveWorkbook.Application.CommandBars("standard").Visible = False

ActiveWorkbook.Application.CommandBars("formatting").Visible = False

ActiveWorkbook.Application.CommandBars("full screen").Visible = False

ActiveWorkbook.Application.DisplayStatusBar = False

ActiveWorkbook.Application.DisplayFormulaBar = False

UserForm1.Show 0

End Sub

ولكن شي اكيد انك تعلمه انه اذا فتحت ملف اخر مع ملفي انا سيظهر لك الملف الذي فتحته بخاصيات الاخفاء في الكواد اعلاه

فلا تستطيع وقتها التعامل مع ملفك انت من اظهار التنسيقات مثل menu bar , وغيرها من التنسيقات.

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

تم تعديل بواسطه احمد حمور-ابوعبدالله
قام بنشر (معدل)

الرجاء لمن اهتم بالموضوع واستخدم البرنامج ان يقوم بما يلي :

وضع الكود التالي في ListBox1_DblClick وهو

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If CheckBox6.Value = True Then     

CommandButton1.Visible = True

ElseIf CheckBox2.Value = True Or CheckBox3.Value = True Or CheckBox4.Value = True Or CheckBox5.Value = True Then

CommandButton1.Visible = False

End If

End Sub

وهذا خاص بعدم ظهور زر امر الاتعديل في حالات التعديل من بحث الارقام

فقط يظهر رز التعديل عند استخدام بحث الاسماء( ضروري جدا )

=======================================================================================

تم تعديل بواسطه احمد حمور-ابوعبدالله
قام بنشر

وهذا خاص بعدم ظهور زر امر الاتعديل في حالات التعديل من بحث الارقام

فقط يظهر رز التعديل عند استخدام بحث الاسماء( ضروري جدا )

انا عندي ما يتظهر خانات التعديل الا بعد البحث بالاسماء والضغط على الاسم فقط

اخي ابوعبدالله عندي طلب (اقتراح )انا بحاجته في عملي على البرنامج((((شاهد المرفق))))

2- هل يمكن اضافة خانات بيانات جديدة

اقتراح.rar

قام بنشر

اخي ابو احمد

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

هذا ما قصدت

وبالنسبة للمرفق

لم اشاهده بعد

قام بنشر

بالفعل اخي ماقلته صحيح وشكراً على تنبيهي لانه حدث معي وقمت بالكتابة على البيانات بعد ظهورها عندم قمت بالبحث عنها باستخدام الارقام ولكن لم يتغير شي وعند الضغط على زر الحفظ تم حفظ البيانات وعند البحث مرة اخرى كانت هذه البيانات ناقصة حيث حذفت اكتر من خانه

قام بنشر

ابو احمد

هذا هو الحل لاقتراحك

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

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

باسم PHONEBOOK

وبعدها قم بالغاء الفورم القديم المسمى ب USERFORM1

PHONE BOOK 1.rar

قام بنشر

يبدو اني لم اوفق في الشرح

المطلوب ليس تن يحدث التغيير في المسميات عند ضغط زر تغيير اللغة وانما عند تغيير نوع البحث من شخصي الى حكومي تتغير مسميات التكت بوكسات الاتية ((الاسم الكامل الرقم الارضي ......الخ تتحول الى مسميات اخرى مثل ((الهاتف الارضي التحويل الاول التحويل الثاني .....الخ)))

كما انه عند العودة للبحث الشخصي تعود المسميات كما كانت

اعذرني اخي ابوعبدالله ولكن اتمنى ان نتساعد في تطوير هذا البرنامج الاكثر من رائع والعملي والذي افادني جداً في عملى

قام بنشر

اخي ابو احمد

انا شخصيا عاجبني اهتمامك بالموضوع

ولكن احتاج الى التوضيح اكثر لانني مش فاهم بصراحه وين لعبة التغيير التي تريدها

حاول ان ترسلها لي مشروحه باستفاضه

مع الشكر الجزيل

قام بنشر
مجهود عظيم جزاك الله خيرا

حياك الله اخي اشرف

===============================================

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

واظن ان طلبك يا ابو احمد موجود بالمرفق

PHONE BOOK.rar

  • Like 1
قام بنشر (معدل)

اخي ابو عبدالله شاهد المرفق ((بعد ان قمت بالتعديل عليه مستخدماً طريقتك اسمح لي على اقتباسها منك))

قم بالخطوات التاليه

1. في البحث الشخصي ابحث بالاسم وضع اي حرف

2. وخانة البحث عن الاسم مفتوحة غير نوع البحث الى حكومي ولاحظ التغيير في مسميات الخانات

3. غير نوع البحث الى تجاري ولاحظ التغيير

هذا ما قصدته اخي ابوعبدالله ((ارجو ابداء الراي))

سوال هل يمكن زيادة عدد الخانات ((عددا الان 8 وهي 1. الاسم الكامل 2. موبايل1 3. موبايل2 الى العنوان فهل يمكن زيادة خانتين على الاقل

PHONE BOOK1.rar

تم تعديل بواسطه ولد المجرب
قام بنشر
اخي ابو عبدالله شاهد المرفق ((بعد ان قمت بالتعديل عليه مستخدماً طريقتك اسمح لي على اقتباسها منك))

قم بالخطوات التاليه

1. في البحث الشخصي ابحث بالاسم وضع اي حرف

2. وخانة البحث عن الاسم مفتوحة غير نوع البحث الى حكومي ولاحظ التغيير في مسميات الخانات

3. غير نوع البحث الى تجاري ولاحظ التغيير

هذا ما قصدته اخي ابوعبدالله ((ارجو ابداء الراي))

سوال هل يمكن زيادة عدد الخانات ((عددا الان 8 وهي 1. الاسم الكامل 2. موبايل1 3. موبايل2 الى العنوان فهل يمكن زيادة خانتين على الاقل

يا ابو احمد

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

احلى شئ هنا انك نفذت انت ما تريد برؤيتك انت

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

بالتوفيق

قام بنشر

بالنسبة للكود الذي استخدمه في هذا العمل لا يمكن ان اضيف اكثر من ثمانية اسطر

وقد جربتها مرارا وتكرارا دون فائده

فارجوا ان تقبل بالامر الواقع او تقود بالاستغناء والتبديل بين عناوين الاعمده الثمانيه

قام بنشر

ااخي ابو عبدالله

السلام عليكم

سوال؟؟؟

كيف يمكن تغيير فورمات الاعمدة في الListebox وكذلك في جدول البيانات حتي يتمكن عرض رقمين عشريين فقط بعد الفاصلة في حال تم استخدام معادلات في البرنامج

((اخي العزيز انا بالاضافة الى ارقام الهواتف استخدمت البرنامج (بعد اذن حضرتك)بما يتناسب مع شغلي فاستخدمتهه لبيان العمر ومدة العمل وغيرها ولكن الخانات تظهر جميع الارقام بعد الفاصلة العشرية مع العلم انه تم عمل فورمات للخلايا لاظهار رقمين فقط بعد الفاصلة ولكن دون جدوى .

فماهو الحل من وجهة نظرك !!

ابواحمد

قام بنشر

ابو احمد المحترم

الموضوع ان شاء الله بسيط جدا جدا جدا

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

وكل ما يتعلق من تعديلات

لانني لا استطيع ان اجيبك دون رؤية الملف

قام بنشر

استاذي ابو عبدالله

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

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

PHONE Book1.rar

قام بنشر

اخي ابو احمد تحيه طيبه وبعد

اعذرني على التأخير في الرد وذلك لاسباب مهمه منها :

اولا انشغالي جدا في عملي ولو ان طلبك ابسط من البساطه نفسها وسهل جدا ولكن لم اتمكن من فتح النت ابد

ثانيا كنت متمنيا عندما عملت هذا البرنامج ان يكون كما هو دون تعديلات لانني عملته حسب تصوري وحسب مضمونه

ولم اكن اريد ان اغير به شيئا وكما ان الهدف من وضعه هنا للاستفاده منه

وما خشيته من التعديلات التي تتطلبها ان تؤثر على مضمون البرنامج وتؤثر على من يريد استخدامه لاحقا

فتاره يراه كاملا وتاره يراه به نقص وتاره يحتار في اختيار اي من الملفات التي يعتقدها الاصح وغيرها الكثير

التي قد تضعفه حقا ، فما تمنيته ان شخصيا ان اكتفي بالردود وليس بالتعديلات لانه باعتقادي يؤدي الهدف منه تماما كدليل هاتف

ومع العلم انني ارسلت الموضوع سابقا كدليل هاتف ولكن الاضافه التي رغبت بها هنا في هذا البرنامج هي الكيبورد داخل الفورم.

====================================================================================================================

ولكن نظرا لتواصلك معي في الردود فقد ادرجت لك في المرفق ما طلبت بخصوص خانتيين عشريتتين بعد الفاصله

=====================================================================================================================

بالنسبة للكود الذي استخدمه في هذا العمل لا يمكن ان اضيف اكثر من ثمانية اسطر

وقد جربتها مرارا وتكرارا دون فائده

فارجوا ان تقبل بالامر الواقع او تقود بالاستغناء والتبديل بين عناوين الاعمده الثمانيه

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

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

لانه بنظري يحمل في مضمونه 60 او 70% من العمل لانع يستخدم في التعديل وفي المشاهده في صناديق الادخال فلا يمكن الاستغناء عنه

==============================================================================================================

وارجوا ان لا تغضب مني بخصوص ردي فلا اقصد والله الا خصوصية البرنامج بمضمونه والهدف منه

PHONE Book1.rar

قام بنشر (معدل)
اخي ابو احمد تحيه طيبه وبعد

حياك الله استاذي العزيز

ثانيا كنت متمنيا عندما عملت هذا البرنامج ان يكون كما هو دون تعديلات لانني عملته حسب تصوري وحسب مضمونه

ولم اكن اريد ان اغير به شيئا وكما ان الهدف من وضعه هنا للاستفاده منه

وما خشيته من التعديلات التي تتطلبها ان تؤثر على مضمون البرنامج وتؤثر على من يريد استخدامه لاحقا

فتاره يراه كاملا وتاره يراه به نقص وتاره يحتار في اختيار اي من الملفات التي يعتقدها الاصح وغيرها الكثير

التي قد تضعفه حقا ، فما تمنيته ان شخصيا ان اكتفي بالردود وليس بالتعديلات لانه باعتقادي يؤدي الهدف منه تماما كدليل هاتف

ومع العلم انني ارسلت الموضوع سابقا كدليل هاتف ولكن الاضافه التي رغبت بها هنا في هذا البرنامج هي الكيبورد داخل الفورم.

انا لم اكون اريد تغيير مضمون البرنامج ولكن حاولت الاستفادة منه في امور اخرى (لها علاقة بعملي ) غير دليل الهاتف ولم اكن اعلم بان ذلك سيغضبك استاذي العزيز وخصوصاً تواصلك معي فاعتقدت بانه يمكن تطوير البرنامج الى الافضل فاعذرني . صحيح ان ما اطلبه قد يغيير مضمون البرنامج من دليل هاتف ولكن كل ما كنت اتمناه ان يتم الاستفادة من الفكرة ((الرائعة )) في البرنامج الى اكثر من مجرد دليل للهاتف لذا اكرر اسفي.

.

وارجوا ان لا تغضب مني بخصوص ردي فلا اقصد والله الا خصوصية البرنامج بمضمونه والهدف منه

بالعكس استاذي الفاضل فالاختلاف في الراي لا يفسد للود قضية كما يقول المثل

ابو احمد

تم تعديل بواسطه ولد المجرب

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information