اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

 

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

 

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

 

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

 

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

 

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

 

المرفق 2010

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

 

G.png

 

 

p86.png

  • Like 3
قام بنشر

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

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

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

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

تقبل تحياتي

  • Like 1
قام بنشر

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

استاذنا الفاضل والعلامة عبدالله باقشير

جزاك الله عنا كل خير وجعل اعمالك في ميزان حسناتك

تقبل مروري

قام بنشر

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

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

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

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

تقبل تحياتي

 

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

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

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

قام بنشر

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

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

قام بنشر

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

 

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

 

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

 

 

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

 

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

 

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

 

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...
قام بنشر

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

 

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

 

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

 

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

 

.......

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

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

قام بنشر

السلام عليكم

 

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

 

 

فمازلت بانتظار ردك بارك الله فيك ... 

 

جزاك الله خير

قام بنشر

السلام عليكم 

 

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

 

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

 

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

 

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

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

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

 

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

 

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

 

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

 

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

 

على افتراض ان لدي ثلاث ورقات ( ورقة 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