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

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

قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

قم بالدخول علي خصائص الفورم وقم بازالة الكلمة الموجودة امام الخيار

pictuer

كما في الصورة المرفقة وسيتم ازالة الخلفية التي تم وضعها للفورم

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

 

ازالة الصورة من الفورم.rar

قام بنشر

واريد اكواد مختلفة لااوامر مثل التنسيق وغيرة من الاوامر لاادراجها علي شاشة البرنامج الرئيسية واخفاء القوائم والتابات لاني استعمل كود full screen فيخفي لي كل شي من الادوات والاهم ايظا اريد كود لاظهار شريط الحالة غند تفغيل كود الشاشة الكاملة

قام بنشر

واريد اكواد مختلفة لااوامر مثل التنسيق وغيرة من الاوامر لاادراجها علي شاشة البرنامج الرئيسية واخفاء القوائم والتابات لاني استعمل كود full screen فيخفي لي كل شي من الادوات والاهم ايظا اريد كود لاظهار شريط الحالة غند تفغيل كود الشاشة الكاملة

قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

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

وما تريد عمله بالضبط في الشاشة الرئيسية خاصتك

ونحن جميعا معك باذن الله

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

قام بنشر

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

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

ما اريدة الان اكواد لاوامر مثل معاينة قبل الطباعة

كود لتنسيق الخلايا

وهكذا

المطلوب بشكل عام كيف انشئ كود يحتوي علي احد اوامر الاعدادات والتنسيقات في تابات الاكسيل 2010

وارجو الاهتمام والرد

وشكرا ،،

قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

حاول ارفاق ملف فقد كانت لدي هذه المشكلة وهي تحل من احد الازرار الموجودة بجوار

الزر الذي تختار منه الملفات للرفع .... حاول مرة اخري حيث ان ارفاق ملف يوضح المطلوب

بشكل اسهل واسرع

 

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

وبخصوص كود معاينة قبل الطباعة  .... استخدم الكود التالي

 

Sub HAMADA()
Cells.EntireRow.Hidden = False
    Sheets("Sheet1").PageSetup.PrintArea = "A2:D25"
    Sheets("Sheet1").PrintPreview
End Sub

وفي الجزء

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

"A2:D25"

وفي الجزء .... ضع اسم الشيت الذي تريده للمعاينه

("Sheet1")

 

وفي انتظار ارفاق ملف يوضح به المطلوب او توضيحا اكثر

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

قام بنشر

1-كود المعاينة ممتاز

2-مرفق ملف المستخدم هو wzالباسورد هو 214

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

 

مثال.rar

  • Like 1
قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

استخدم الاكواد التالية فيما يخص التنسيقات وكذلك اعداد الصفحة

اما بخصوص تابات البيانات وتابه الصيغ فمعذرة ... لا افهم ما هو المقصود بهم .. رجاء مزيد من التوضيح

اليك اخي الكريم الاكواد هنا وفي الملف المرفق

Sub sama1()
'طباعة
Application.Dialogs(xlDialogPrint).Show
End Sub
'==============================================================
Sub sama2()
'محاذاة
Application.Dialogs(xlDialogctrl + xlDialogAlignment).Show
End Sub
'==============================================================
Sub sama3()
'رقم
Application.Dialogs(xlDialogctrl + xlDialogFormatNumber).Show
End Sub
'==============================================================
Sub sama4()
'الخط
Application.Dialogs(xlDialogctrl + xlDialogActiveCellFont).Show
End Sub
'==============================================================
Sub sama5()
'الحدود
Application.Dialogs(xlDialogctrl + xlDialogBorder).Show
End Sub
'==============================================================
Sub sama6()
'التظليل
Application.Dialogs(xlDialogctrl + xlDialogPatterns).Show
End Sub
'==============================================================
Sub sama7()
'اعدادات الصفحة
Application.Dialogs(xlDialogctrl + xlDialogPageSetup).Show
End Sub


 

واليك الملف المرفق

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

 

 

اوامر في ازرار.rar

قام بنشر

ممتاز

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

علي هيئة هذة الاكواد

السلام عليكم

الاخ الكريم / وليد زقزوق

 

اوامر الاكسيل لا حصر لها

والمهم فيها بالنسبة لك غير مهم بالنسبة للآخرين فهي لكل شخص حسب احتياجاته

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

ونحن جميعاً معك باذن الله

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

قام بنشر

اوامر القص والنسخ واللصق واللصق بكل انواعة

تنسيق الخلايا تابة الارقام

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

التنسيق الشرطي

الفرز والبحث والاستبدال

اتكلم عن تابة ادراجاو insertفي اوفيس 2010 اريد كل اوامر هذا التابة

تغير اتجاة الورقة يمين/ويسار

امر fxلاادراج معادلة

امر الحساب الان للتبديل بين التلقلئي واليدوي

التحقق من الصحة والتجميع وفك التجميع

حماية ومشاركة المصنف

امر تكبير وتصغير

تجميد الاجزاء

العرض جنبا الي جنب ومزامنة العرض من عدمة

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

اطلت عليك اخي حمادة ولكني اردت ان افصل ما اريدة

وشكرا

قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

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

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

 

واليك اخي الكريم ملف به بعض الاوامر الاخري التي طلبتها

 

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

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

 

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

 

اوامر في ازرار.rar

 

شرح عمل اوامر بنفسك للأزرار.rar

قام بنشر

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

ولم اقصد ان اصقل عليك وسوف اشاهد الفيديو لعلة يكون مفيد لي

قام بنشر

السلام عليكم

الاخ الكريم / وليد زقزوق

 

لم اقصد ما فهمته انك قد اثقلت علي فكلنا هنا لخدمة بعضنا البعض

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

 

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

علي كيفية فعل ذلك بطريقة سهلة

 

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

واخيرا دائما في خدمتك باذن الله

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

  • 2 years later...
قام بنشر (معدل)

السلام عليكم ورحمة الله أنا عضو جديد بالمنتدى

كما انني جديد ايضا باستخدام اليوزر فورم (مبتدئ يعني )

و قد صممت استبيان الكتروني من خلال اليوزر فورم و أريد ارسال

هذا الاستبيان بعد ملئه عن طريق الايميل

فهل يوجد كود يسمح لي بمثل هذه العملية

 

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

تم تعديل بواسطه adnan camauo
  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information