محمد طاهر

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

السؤال غير واضح أقترح شرح كيف تضيف الصور و ماذا يحدث عندما تحاول ذلك

أخي العزيز بعد فتح الملف المحتوي علي الكود اضغط ALT + F11 لتري الكود أما عن عدم امكانية اضافة ال add-in فحرب عملها ثانية من الملف المحتوي علي الكود اختر حفظ باسم ثم اختار النوع ADD-IN سيتم حفظ الملف فى المكان الافتراضي للاضافات سمه بالاسم الذي تريد ثم اذهب الي…

iNSERT MOVIES & SOUND SOUND FROM FILE

نعم استخدم COPY & pASTE بين البرنامجين

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

لتحديث الجدول قف فى اي مكان من الجدول ثم انقر بالزر الايمن ثم اختار refresh و طبعا يمكن ذلك بالكود رجاء مراحعة الماكروهات فى هاذا الموضوع http://www.arabteam2000.com/vb/showthread....&threadid=27415

أولا عذرا علي دمج الموضوعان و لكن أعتقد أنه من الافضل أن تكون المناقشة فى مكان واحد لا أخفيكم سرا أني بدأ قلقي يزداد من تحري دقة الملفات المستخدمة فقبل أن نمضي قدما ، أود حصر الحديث حول هذه النقطة فمثلا http://www.geocities.com/islamic_ebook/ موقع يصعب الاعتما…

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

و طبعا اذا أردت طباعة أول 20 تستخدم الكود الثالث مع استبدال ActiveWorkbook.Worksheets.Count ب 20 أما ان كانو متفرقين فعليك باول طريقتين ، مع كتابة السطرين لكل شيت أو بالاصح نسخ السطرين 20 مرة مع تغيير اسم أو رقم الشيت مع تحياتي

يمكن عمل ذلك باختيار الشيت ثم طباعته و يكون الاختيار باسم الشيت كما فى الكود الاول أو رقمه كما فى الكود الثاني و هما لطباعة الثلاث شيتات فى الملف أما الكود الاخير فهو لطباعة جميع أوراق العمل مع ملاحظة أن يكون فى الورقة أي بيان قابل للطباعة ( ليست خالية ) Sub P…

http://www.arabteam2000.com/vb/showthread....ht=%CF%C7%E1%C9 http://www.arabteam2000.com/vb/showthread....ht=%CF%C7%E1%C9

هذا مثال بسيط جدا أعددته بناء علي طلب من أحد الاشخاص و هو يحوي طريقتين لجمع القيم الموجبة و السالبة بين مجموعة قيم علي حدة الاولي بفصلها فى عمودين باستخدام IF ثم الجمع هي باللون الاصفر فى المثال و الثانية باستخدام SUMIF مباشرة و هي باللون الازرق فىالمثال و هو …

أهلا وسهلا بك في المنتدي و ان شاء الله تجد ما تريد و بعد الترحيب رجاء مراجعة قواعد طرح الاسئلة المتبعة فى المنتدي و المثبتة أعلي القسم لكي تعم الفائدة و منها طرح كل سؤال فى موضوع منفصل و أن يكون العنوان يدل بوضوح علي محتوي الموضوع و ملاحظة علي الماشي السؤال ال…

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

ملاحظة : تم تعديل الكود فى المشاركة الاولي بنقل الكود الي موديول و استدعاؤه بالنسب للمشاركة الاخيرة ، كلمة السر هلي 1234 و القيمة الافتراضية التي تظهر عند طلب كلمة السر هي 123 و لكن كلمة السر الناجحة هي 1234

يمكن اضافة كلمة السر الي الكود Sub Pr1() ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Sub Pr2() x = InputBox("please enter PAssword '1234'", "Password", 123) If x <> 1234 Then MsgBox "Sorry You are not Allow…

اصنع زر امر كما فعلت فى الزر الاول ثم غير الكود به الي x = InputBox("please enter PAssword '123'", "Password", 123) If x <> 123 Then MsgBox "Sorry !!! " Exit Sub End If ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

يعنب البيانات فى اكسس و تريدها فى اكسيل أم العكس اذا كانت الحالة الثانية فيتم ذلك عن كريق التعامل مع ملف الاكسيل جدول رتبط من داخل الاكسس أما استدعاء بيانات الاكسس فى الاكسيل فمن قائمة data import external data import data Msaccess Database و اختار الجدول ثم ح…

أنزل المثال المرفق من شريط القوائم اختار مجموعة ال visual basic اضغط علي زر التصميم انقر نقرا مذدوجا علي الزر لتري الكود أو اضغط ALT+F11 لتري الكود الخاص بكل زر حيث Private Sub Potectit_Click() هو الروتين الفرعي الخاص باجراء الضغط علي الزر المسمي protectit Pri…