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

يوزر فورم


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

السلام عليكم

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

 

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

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