نجوم المشاركات

السادة / أعضاء منتديات أوفيسنا التعليمية الموقرين السلام عليكم ورحمه الله وبركاته بالمرفقات (( هدية )) بريمج العيادة الطبية الإصدار الأول التجريبى ملف تنفيذى أى بإمتداد exe لا يحتاج الى خفض أمان الماكرو لكى يعمل يرجى تجربتة وإبداء الملاحظات من قبل كل مهتم وتقبلوا منى وافر الاحترام والتقدير بريمج العيادة الطبية الإصدار الأول32 بت.rar

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

السلام عليكم تفضل أخى Book123.rar

1. سيبك من ده دلوقتي 2. ميزة الاكسس هو مصمم الاستعلامات ، استفيد منه ، لأنه جدا قوي ، و أحد اسرار الاستعلام ، ما تعمل كل شئ في استعلام واحد ، وانما تهيئ استعلام لإستعلام آخر (كما في مثالك اعلاه ، وكما في المثال التالي): http://www.officena.net/ib/topic/67637-جمع-حقول/?do=findComment&comment=440543 هي قاعدة البيانات ايه؟ 1. ادخال بيانات ، 2. بحث وتصفية البيانات (استعلام) ، 3. إظهار النتائج. فالاستعلام هو اهم شئ تقدر تستفيد منه في الاكسس ، وحتى لما نستعمل الكود ، نستخدم الاستعلام للسجلات اللي نريدها (يعني نجهز السجلات اولا بالاستعلام) ، ثم نكمل الباقي بالكود ، والذي هو أبطأ بكثير في عمله من الاستعلام جعفر

تفضل يا باش مهندس الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

وبارك الله فيك اخي كرار بالتوفيق

شكرا اخوي عبدالرحمن على الملاحظة يبدوا ان هذه هي مشكلة اخونا عبدالله قدور

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

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

ايش رأيك في مثال موسع أكثر نستطيع ان نعمل قاعدة التحقق من الصحة في كود ، مثلا: اعمل حقل اسمه int_No ، وعلى حدث "الحالي" للنموذج ، استعمل كود مثل هذا: Private Sub Form_Current() If Day(Date) <= 5 Then Me.int_No.ValidationRule = "is null or <=5" ElseIf Day(Date) <= 10 Then Me.int_No.ValidationRule = "<=10" ElseIf Day(Date) <= 15 Then Me.int_No.ValidationRule = "isnumeric([int_No])=true" ElseIf Day(Date) <= 20 Then Me.int_No.ValidationRule = "isnumeric([int_No])=false" ElseIf Day(Date) <= 25 Then Me.int_No.ValidationRule = "between 15 and 30" Else Me.int_No.ValidationRule = "between 1 and 14" End If End Sub . فحسب يوم الشهر ، تتغير قاعدة التحقق من الصحة مرونة تامّه ، مو مثل الجدول جعفر

أخي الحبيب رجب جاويش بارك الله فيك وجزتي خيراً على حلولك الجميلة مجرد سؤال : لما قمت بكتابة أكواد في حدث كل ورقة عمل على حدا .. ما رأيك بإزالة كل الأكواد في حدث كل أوراق العمل ووضع الكود التالي في حدث المصنف Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = [B4].Address Then Application.EnableEvents = False Sheets("1").[B4] = Target.Value Sheets("2").[B4] = Target.Value Sheets("3").[B4] = Target.Value Application.EnableEvents = True End If End Sub تقبل وافر تقديري واحترامي

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

السلام عليكم أفضل تحية لأخى الحبيب ياسر على فتح موضوعات تفيد الجميع وتفتح نقاشات جميلة تعود بالنفع على جميع الأعضاء بالنسبة لهذ الموضوع ( اخفاء جميع الأعمدة ما عدا أعمدة محددة ) الكود الذى قدمه أخى المبدع سليم هو أبسط كود يقوم بعمل المطلوب فعلا ولكن لاثراء الموضوع هذه فكرة أخرى وفيها يتم تحديد الأعمدة المراد عدم اخفاءها عن طريق الماوس داخل inputBox وفى حالة تحديد أعمدة غير متجاورة يستخدم مفتاح CTRL أثناء التحديد Sub ragab() Dim Rng As Range On Error Resume Next Application.DisplayAlerts = False Set Rng = Application.InputBox(Prompt:="قم بتحديد الأعمدة التى لا تريد اخفاءها عن طريق الماوس وعند اختيار أعمدة غير متجاورة اضغط مفتاح Ctrl أثناء التحديد", Title:="اخفاء مخصص", Type:=8) Application.DisplayAlerts = True If Rng Is Nothing Then Exit Sub Columns.Hidden = True Rng.EntireColumn.Hidden = False End Sub

حياك الله اخي الكريم شاهد المرفق شاهد حدث في الحالي للنموذج وحدث بعد التحديث لحقل birthdate بإمكانك اخفاء حقل calculate فيما بعد بالتوفيق Tccst.rar

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

يمكن استخدام طريقة تغيير خاصية قابل للتعديل وبالقيمة =نعم ! مع افتراض ان الخاصية تاخذ القيمة لا عند تحميل النموذج فعند تحميل النموذج يكون الحدث وعند التحميل للنموذج Me.AllowEdits = False وعند الضغط على الزر يكون الحدث Me.AllowEdits = true وهنا يظهر استفسار : ماذا بعد التعديل في النموذج هل يتم عودة عدم السماح بالتعديل ام يظل التعديل متاح ؟ فاذا يعود الاقفال اكتب الحدث التالي وعند بعد التحديث للنموذج Me.AllowEdits = False هنا اصبح السناريو : عند تحميل النموذج اول مرة غير متاح .... عند النقر على الزر متاح ... بعد التعديل يعود عدم السماح بالتوفيق

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

الرجاء مساعدتي لاني تعبت من كثرة البحث اريد اخفاء شاشة اكسيس وقد قراءت عشرات المواضيع عن الموضوع في هذا المنتدى وفي غيره ولم استطع معرفة الطريقة يا ريت احد يساعدني ملاحظات / قراءت انه لازم تكون الخصائص pop up = yes ولم اعرف اساسا اين اجد هذه الخصائص

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

معي تمام اكسس 2013 وويندوز 7 وهنا ولعل به فائدة بالتوفيق

كأن شكلك مو راضي ميه الميه ، قول اللي في خاطرك يا ريس جعفر

جزاك الله كل خير استاذ سعيد ... المرفقات شغالة 100 % وندوز 7 انكليزي اوفس 2010 عربي

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

حياكم الله اخواني وشكرا على مشاركتكم جميعا الاستاذ محمد عصام ابا جودي .. اولا ربنا يبارك لك في الجيجاوات اللي عندك هههههه شوف السطر هذا بالنسبة لرقم الهارد ... وبالنسبة للماذر بورد ... خلينا نشوف باقي المشاركات لنتبين الموضوع اكثر .. Set obj_Drive = obj_FSO.GetDrive("c:\") الاستاذ جندبي الاستاذ خليل والاستاذ رضا ماقصرتوا ومشكورين على المشاركة وربينا يوفقنا ويوفقكم جيمع الأستاذ ابو خليل ... بالنسبة لرقم المعالج انا حصل لي نفس الموضوع واليوم تحديدا ... ومع ثلاثة اجهزة ولكن توقعت ان الخطاء مني انا عند اخذ بيانات الأجهزة لأني كنت مستعجل .. وكنت مأجل ذكره الى ان اتأكد .. والحمد لله انك أكدت الموضوع . وعموما ... بالإمكان استخدام الثلاثة .... كشروط .. وهذا ما استخدمه انا .. شكرا لكم وبالتوفيق للجميع

أخى الكريم // عبد العزيز البسكرى بارك الله فيكم وزادكم الله من فضله ومن علمه بداية بالنسبة لمربع الحوار بها إختيارين أينعم وهى لتجبر المستخدم على إدخال اسم الحاله ( المريض ) لكى أجبره على استخدام البريمج ليس إلا ومن ثم يمكنك بعد ادخال الاسم يظهر لك مربع حوار يمكنك من خلاله التراجع عن الإدخال أى ادخال اسم المريض ( الحاله ) أما بالنسبة للملف التنفيذى فهو للعلم ليس له فائدة غير أنه يمكنك من التعامل مع الملف الذى به أكواد بدون الحاجه الى خفض أمان الماكرو فالأكواد التى بالملف هى تمنع المستخدم من استخدام زر ESC وكذلك من الدخول الى محرر الأكواد اى تمنعك من استخدام زري ( ALT+F11 ) وطبعا يمكن التحايل عليها بكل سهوله حيث أننى لم أضع باسوورد لمحرر الأكواد والطريقة سهله وهى بتحميل ملف من موقع ( DoneEx ) وهى نسخة تجريبية لمدة 30 يوم ويمكنك شراؤها من الموقع رابط الموقع http://doneex.com/excel-compiler/ أو طبعا بعد تحميلها من الممكن كسر المدة وهى تقوم بعد تسطيبها بإضافة قائمة جديدة بالاكسل بإسمها ومن خلالها تقوم بتحويل الملف الى ملف تنفيذى وتختار صورة لجعلها أيقونه للملف وتقبل منى وافر الاحترام والتقدير

السلام عليكم انا لا خبرة لي في هذا الموضوع ، ولكنه احد المواضيع المتداولة كثيرا ، Form Resizer انت في الواقع تريد: https://www.fmsinc.com/microsoftaccess/controls/components/form-resizer/index.html الاكسس 2010 له طريقة تستطيع ان تكبر/تصغر احجام حقول معينة في حال تكبير/تصغير الشاشة ، عن طريقة Anchoring ، مثل حقل Notes في الرابط التالي: http://www.appliedoffice.net/news/2009-may/access.html وهنا امثلة يمكن انزالها لتكبير/تصغير النموذج كاملا: http://jamiessoftware.esy.es/resizeform/afr.zip http://jamiessoftware.esy.es/articles/resolution.html http://www.databasejournal.com/features/msaccess/article.php/3689226/Auto-Resize-Access-Subforms.htm جعفر

اخوي الفاضل ابا جودى قم بسترداد الوحده النمطيه والنموذج وقم بتعديل من النموذج علي نعم او لا وغيرها من هناك ثم ضع كلمه Dialog.Box في اول اكوادك العادية في النموذج وللافادة اكثر راجع رابط اخوي جعفر اعزة الله عند هذا السطر How to use it Download the demo database below and copy (drag & drop) the following into your application وهو الخاص بكيفيه الاستخدام والتي لم انتبه لها من قبل شكرا وسامحني علي رقاقه اللغه في الشرح

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

شكر........ خاص لمجهودك الرائع مشكور................................................... اخي فاضل جعلها الله في ميزان حسناتك سعيد صواب

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

بالنسبة الى الامر Nz ، انظر الطريقة الصحيحة لإستعماله: جعفر

انظر هنا موضوع للسيد جمال

العفو بالتوفيق

حياك الله اختي الكريمة الق نظرة على الرابط http://www.officena.net/ib/topic/34968-اظهار-المكرر-فقط-تمت-الإجابة/ بالتوفيق

بسم الله ما شاء الله عليك أخي الحبيب الزباري موضوع بسيط جداً لكنه في غاية الروعة والجمال ، وجماله يكمن في بساطته حيث أن الكثير ممن يتعاملون مع الإكسيل لا يعرفون استخدامات الدالة ولا يعرفون البارامترات المستخدمة .. من ثم تأتي الصورة لتعبر بشكل جميل عن استخدام الدالة ومعرفة البارامترات الخاصة بها تقبل وافر تقديري واحترامي

لا توجد صورة ولا يوجد مرفق جعفر

أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, YES UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function

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

بسم الله الرحمن الرحيم اليوم سنقوم بشرح طريقة ربط الفيجوال بيسك بالإكسيل اولا نعمل مشروع جديد عبارة عن فورم وواحد كمبوبوكس وسته تكست وثمانية ليبل وخمس أزرار وملف اكسيل بامتدادxlsx واسمه aseel امتداده اظن لا يدعم وحدات الماكرو بس عادي مع الفيجوال شغال بنفس ترتيب الشكل الاتي: خلصنا الشكل السابق ندخل علي الشغل الجديد بقي كلنا أكيد سمعنا عن المتغيرات وكلنا تعاملنا معاها قبل ما نشوف المتغيرات الفيجوال عشان نربطه بالإكسيل لازم له مراجع ومتغيرات عامة على مستوى المشروع بأكمله إيه الكلام دا بيتعمل ازاي المرجع دا ولا بنجيبه منين شوفو معايا الصور بعد الخطوات دي ياترى بنعرف نضيف موديول زي ما بنضيف فورم جديد كدا اللي بيعرف يضيف اللي مش عارف ينزل للصورة معايا ويشوف ايه البيانات دي يامعلمين دي بقي المتغيرات العامة اللي بنقول عليها وبتكون علي مستوى المشروع بأكمله يعني لازم تتحط في موديول ولتبسيط الكلام اللي فوق دا بطريقة سهلة اول سطر Public YXL As New Excel.Application YXL دا متغير يشير الى برنامج الاكسيل نفسه بمعنى عندما نريد ان نكتب في الاكسيل Application. Visible = False نكتبه كدا YXL. Visible = False اكيد وصلت الفكرة ولو مش وصلت نكمل مثال كمان المتغير ونظيره في الإكسيل YWB= Workbook YSheet= Worksheet YRng= Range اكيد الامور اصبحت سهلة كدا أي كود في الإكسيل نستبدل المذكورين في أعلاه بنظره في الإكسيل وسيعمل الكود بإذن الله يعني مش هتخترع اكواد جديدة هي نفس القديمة بس تعديلات طفيفه المهم الكل يكون عمل الفورم والموديول والاداوت كما ذكرت سابقا بالترتيب الموجود عشان الاكواد متتبدلش مع الادوات نيجي بقي للاكواد Private Sub Combo1_Click() 'جدا الكمبوبوكس ومنه بيتم جلب البيانات بمعلومية الرقم والكود طبعا مفيهوش جديد نفس اكواد الاكسل With YSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row For iRow = 6 To LastRow If .Cells(iRow, 2) = Combo1.Text Then Text1.Text = .Cells(iRow, 2) Text2.Text = .Cells(iRow, 3) Text3.Text = .Cells(iRow, 4) Text4.Text = .Cells(iRow, 5) Text5.Text = .Cells(iRow, 6) Text6.Text = .Cells(iRow, 7) End If Next End With End Sub Private Sub Command1_Click() Dim lstrow As Long 'ودا كود ترحيل البيانات ونفس الشئ مش جديد كل اللي اتغير اللي ذكرنااه If Text1.Text = "" Then MsgBox "íÌÈ ÇÏÎÇá ÌãíÚ ÇáÈíÇäÇÊ" Else lstrow = YSheet.Range("b20000").End(xlUp).Row + 1 YSheet.Cells(lstrow, "b").Value = Text1.Text YSheet.Cells(lstrow, "c").Value = Text2.Text YSheet.Cells(lstrow, "d").Value = Text3.Text YSheet.Cells(lstrow, "e").Value = Text4.Text YSheet.Cells(lstrow, "f").Value = Text5.Text YSheet.Cells(lstrow, "g").Value = Text6.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox ("ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ") End If End Sub Private Sub Command2_Click() 'ودا كود اظهار برنامج الاكسيل بردو غيرنا اللي اشرنا ليه فقط YXL.Visible = True End Sub Private Sub Command3_Click() ' ودا لاخفاء برنامج الاكسل YXL.Visible = False End Sub Private Sub Command4_Click() 'لحفظ البرنامج المفروض المتغير يكون شغال بس مش عارف سبب المشكلة ايه حاليا فقلت اجرب الكود العادي اشتغل تمام مشي حالك 'åäÇ ãÔ ÚÇÑÝ ÇáãÊÛíÑ åäÇ ÞÝÔ ãÚÇíÇ æãÔ ÚÇíÒ íÍÝÙ ÞáÊ ÇÌÑÈ ÇáßæÏ ÇáÚÇÏí ÇÔÊÛá ÞáÊ Òí ÇáÝá 'YWB.save ActiveWorkbook.save End Sub Private Sub Command5_Click() 'وطبعاخروج YXL.Quit Set YXL = Nothing End End Sub Private Sub Form_Load() 'هنا بنستدعي ملف الاكسيل من نفس مسار البرنامج بتاعنا ونفتحه YXL.Workbooks.Open App.Path & "/aseel.xlsx" 'اخفاء البرنامج بعد فتحه طبعا YXL.Visible = False 'هنا بقي قولنا له ان يخلي Ysheet دي تبقى الشيت الاول والاكس شيت تبقي الشيت التاني Set YSheet = YXL.Worksheets(1) Set XSheet = YXL.Worksheets(2) عادي ليبل وبياخد بياناته من خليه معينه Label7.Caption = YSheet.Range("a1").Value Label8.Caption = YSheet.Range("a2").Value With Combo1 'ودا ا لكمبوبوكس بندرج فيه بيانات الصف b For Each Data In YSheet.Range("b6:b" & YSheet.Cells(Rows.Count, "b").End(xlUp).Row) .AddItem Data Next End With End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ودا بقي عشان لما تدوس علي علامة الاكس فوق ميخرجشي من البرنامج ويسيب ملف الاكسيل مفتوح ومخفى '' YXL.Quit Set YXL = Nothing End End Sub وبكدا نكون انتهينا من وضع الاكواد اظن الكل واخد باله انه مفيش جديد وهو دا بالتحديد مفيش جديد كل اللي عملناه واحد تايه وعرفنا السكه خلاص وبعدين محدش ينسى يعمل ملف اكسيل اه بعد دا كله يجي حد يقولي البرنامج مش شغال ليه اقوله فين ملف الاكسيل بعد الاطلاع علي البرنامج هيجي واحد يقولي ايه القلب الجميل اللي علي الفورم دا اللي مكان السهم اهو دا من ضمن اللمسات الجمالية وبيتعمل ازاي يامعلم الشرح بسيط ف الصورة معلش بدل ما اكتب الماوس كتبت الموس شغال بقى اعذروني انا بعمل الشرح في وقت قياسي وانا شغال مرفق البرنامج ومعاه القلب عشان تعملوه مكان السهم يارب اكون وصلت المعلومة صح واي خطأ منى فدا لجهلى اعذروني منتظر الردود علي فكرة الدرس دا تقريبا بنسبة كبيرة يعتبرحصرى لمنتدى اوفيسنا انا بحثت عن ربط الفيجوال بالاكسيل كثيرا وكثيرا وكود من هنا وكود من هنا حتى اكتملت الصورة امامي وتوصلت لهذا والحمد لله مع تحياتي ياسر العربي يتبع ربط الفيجوال بالاكسل.rar

اخي وحبيبي في الله ياسر خليل أبو البراء الجواب بيبان من عنوانه . نحن لن ننظر للمخرجات حتى نقيم البرنامج يكفى انه يحمل اسمك ..وده معناه كبير جدا جدا ويدل على عبقريه وتميز تحياتي وحبى وتقديري لشخصكم الكريم

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

حبيبى يا ابوالبراء هههههههههههههههههه حلو اكسلجى دى ههههههههههههههههههه ممكن حد يفتكرها اسرنجاتى هههههههههههههههههههههههه يا عم والله ما عندى وقت هنا فى الغربه برجع البيت الساعه 7 مطحون من الشغل ومهنتى بتعامل مع ارقام يعنى برجع مدروخ برنامج ايه والله ما بعت كله هدايا والله والله كنت هبصيها ليك وسالتهم على فيزا قالو والله مفيش هما عايزين حد من هنا لان مفيش فيز والله نفسى اسوقلك واخد 30 % ههههههههههههههه بس لما انزل مصر لان هنا مش هينفع انا لو مكانك اعمل مركز تدريب ودورات باسكندريه أيه رائيك فى الفكره يالا وانا هدعمك

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

اكتب هذه المعادلة مقابل اول خلية و اسحب نزولاً =COUNTIF(A$3:A3,A3)

السلام عليكم ورحمة الله وبركاته 6 صيغ عن البحث عن اخر قيمة او نص فى عمود حتى مع وجود فراغات تم تناول هذا الموضوع فى العديد من المواقع واليكم افكارى المتواضعه فى هذه الحاله تقبلو تحياتى لاتنسونا بصالح دعاؤكم اخر قيمة - 3.rar

السلام عليكم أخي سالم بالنسبة للكود UserName=InputBox (Prompt:="Please enter your name") تقوم هذه الدالة بالسماح للمستخدم بإدخال نص ما ومن ثم تخزين هذا المتغير في المتغير UserName ثم استخدام هذا المتغير في الكود ، مثلاً في المثال السابق يمكن إظهار رسالة ترحيب للمستخدم استناداً إلى المتغير الذي تم تخزينه MsgBox "Hello " & UserName إليكم ملف مرفق به الشرح أخوكم أبو البراء InputBox.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني؟ أرجو أن تكونوا بخير وأن تستفيدوا مما أضعه هاهنا إليكم الجزء الرابع أخوكم أبو البراء ChapterOne_4.rar

إخواني نسيت الواجب مش اللي أنا حاحله ، طبعاً اللي إنت حتحلوه!!!! * من ضوء ما درست قم بعمل دالة UDF تقوم بحساب مساحة الدائرة وأعطها الاسم CircleArea * قم بشرح مبسط لهذا الكود: Set Report = Worksheets("Sheet1").Range("A1:E10") Report.Select Range("b1").Activate Range("E10").Value = "Khalil" X = Range("E10").Value MsgBox X

السلام عليكم إخواني الكرام أخي أحمد يعقوب مشكور على المرور الكريم وفي انتظار التفاعل معنا في هذه الدورة فنحن في حاجة إليك منورنا يا باشا أخي خالد القدس اهضم كويس عشان اللي جاي ميكبسش على العقل ويخليه يهنج!!! أخي جودة أنا بدأت ولو لم أستمر فليستمر غيري وليكن أنت أو أي عضو بالمنتدى المهم ألا يغلق الموضوع حتى نطمئن إلى أننا وصلنا إلى مرحلة متقدمة أخي أبو عبد الرحمن بالله عليك وحدة وحدة الموضوع محتاج تأني وتروي أنا عارف إنك مستعجل وأنا مستعجل وكل الأعضاء مستعجاين ، بس متنساش إن الدورة للذين هم في مرحلة الحبو ( أمثالي) إليكم إخواني الجزء الثاني من الفصل الأول ، وقد رفعته بالتنسيقين 2003 و 2007 أخوكم أبو البراء ChapterOne_2.rar ChapterOne_B.rar