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

اضافة نطاق الى فورم بنفس تنسيقات خلايا النطاق


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

السلام عليكم

 

اضافة نطاق الى فورم بنفس تنسيقات خلايا النطاق

 

هذا طلب لاحدهم على الرابط التالي

 

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

 

جعلته هنا لتعم الفائدة

 

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

 

المرفق 2010

اضافة نطاق الى فورم بنفس التنسيقات.rar

 

G.png

 

 

p86.png

  • Like 3
رابط هذا التعليق
شارك

استاذنا الكبير // عبدالله باقشير

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

اقل ما يقال ابداااع

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته
 
اخي الحبيب ضاحي الغريب ............حفظكم الله

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

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

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته
 
اخي الحبيب رجب جاويش ............حفظكم الله

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

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

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته
 
اخي الفاضل احمد غانم ............حفظكم الله

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

استاذنا الكبير // عبدالله باقشير

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

اقل ما يقال ابداااع

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

تقبل تحياتي

 

لم اجد اكثر من هذا القول لارد علي هذا الكود الابداعي الرائع

زادك الله من فضله ومن علمه

تقبل خالص تحياتي

رابط هذا التعليق
شارك

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

 
p11.gif


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




p86.png

رابط هذا التعليق
شارك

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

استاذنا وحبيبنا واخونا الاكبر 

 

عبدالله با قشير

 

لله درك ... وليهنئك العلم

 

اسال الله العظيم أن يفتح عليك ويزيدك من واسع فضله وكرمه

 

غفر الله لك ولوالديك واهلك وذريتك وبوأك منزلة باعالي الجنان

 

اعذر اخاك استاذي الفاضل على تأخري في الرد لانشغالي بامور منعتني من التواصل ورؤية ابداعاتك 

 

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

 

شكرا لك من الاعماق

رابط هذا التعليق
شارك

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

 

استاذي عبدالله باقشير  حفظك الله

 

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

 

 

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

 

ولكن صادفتني هذه المشكلة ...

 

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

 

voMJiM.jpg

 

 

 

 

 

فان عرضها على الفورم يكون بالشكل التالي  كما في الصورة :

 

 

 

 

5mfx78.jpg

 

 

 

 

 

والمطلوب بارك الله فيك أن تكون كما في العمود او الجدول الموجود بالورقة اي ان تكون كالصورة التالية :

 

 

 

 

 

gg6W5M.jpg

 

 

 

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

 

 

فشكرا لك من الاعماق

 

الملف مرفق بالمشاركة   موضح فيه عملية النسبة

اضافة نطاق الى فورم بنفس التنسيقات.rar

رابط هذا التعليق
شارك

السلام عليكم

 

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

 

عدل في هذا الكود كالتالي :

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
    .BackColor = MyCel.Interior.Color
    .Caption = MyCel.Text
    .TextAlign = 2
    With .Font
        .Name = MyCel.Font.Name
        .Bold = True
        .Size = MyCel.Font.Size
    End With
End With
End Sub

حيث تم تعديل هذا السطر فقط

.Caption = MyCel.Text

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

 

جزاك الله خير استاذي  عبدالله  باقشير .... والله ان الكلمات تعجز عن شكرك  لما تقدمه لنا

 

لك دعوة صادقة باذن الله في سجودي

 

.................

 

 

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

 

جزاك الله خير

تم تعديل بواسطه سك بابك
رابط هذا التعليق
شارك

السلام عليكم

 

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

 

استبدل هذا

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
    .BackColor = MyCel.Interior.Color
    .TextAlign = 2
    With .Font
        .Name = MyCel.Font.Name
        .Bold = True
        .Size = MyCel.Font.Size
    End With
    .Caption = "ع"
    .Caption = MyCel.Text
End With
End Sub

جرب واشعرنا بالنتيجة

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

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

 

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

 

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

 

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

 

.......

 

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

 

لدي تساؤل بارك الله عما سبق

 

لو كان لدي اكثر من ورقة بها جدول واريد تحديد ظهور الجداول في النموذج على حسب اسم الورقة  .. فهل من سبيل الى ذلك ..؟

 

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

 

اكرر اعتذاري للتأخري في الرد ولكثرة اسألتي وطلباتي

 

فما خلقت الاعذار إالا للكرام ( أمثال شخصكم الكريم )

 

حفظك الباري من كل سوء

 

بانتظار ردك وفقك الله 

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

رابط هذا التعليق
شارك

السلام عليكم 

 

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

 

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

 

فارجوا ان تعذر  اخاك 

 

بانتظار الحل منك بارك الله فيك

رابط هذا التعليق
شارك

السلام عليكم

يا اخي انا تركتك لتكتشف ذلك بنفسك

لان كود الجدول ممكن تستخدمه من اي ورقة

المشكلة بس في صورة الشارت بتاعك

 

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

 

جزاك الله كل خير اخي واستاذي عبدالله ....

 

يبدو أنني لم اوصل لك الفكرة كما اريد ... وهذا كله بسببي

 

استاذي الكريم طلبي موجود بالمرفق وهو ايضا 

 

تنفيذ الكود يكون عن طريق زر موجود على الفورم وليس زر بداخل ورقة اكسل ... .

 

على افتراض ان لدي ثلاث ورقات ( ورقة 1 ، ورقة 2 ، ورقة 3 ... ) وفي كل ورقة جدول  وشارت

 

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

 

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

 

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

 

جزاك الله كل خير .. وبانتظار ردك 

اضافة نطاق الى فورم بنفس التنسيقات.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