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

عشاق الإكسل هل سمعت عن المتغيرات في البرمجة؟ اكيد نعم. هل سمعت عن استعمال المتغيرات في المعادلات؟؟!!! اجب بنفسك في الردود بمناسبة إعادة فتح المساجد للصلاة، هديتي حصريا لكل عشاق الحديث في برنامج ميكروسوفت اكسل ms excel 365، شرح دالة let الجديدة. طريقة الاشتراك في office insider. ما الجديد في اكسل 2020 excel 2020. استعمال المتغيرات في المعادلات. شروط تسميه المتغيرات في لغات البرمجة. امثله على excel let function من البسيط الى المعقد. وغيرها الكثير ...... اكتشفها بنفسك. وبالنسبة لرابط الملف المستعمل في الشرح، وملف الريجيستري الذي يتيح لك الاشتراك في office insider. سيتم وضع الرابط بناء على التفاعل مع الموضوع والفيديو بالتعليق والمشاركة. هل جزاء الإحسان إلا الإحسان؟؟!!!

انظر للمرفق طبعا فكرة الكود اذا حدث تغير في السعر تأخذ السعر الجديد واذا لم يجد سعر جديد يأخد السعر الاخير ...... جرب ووافنا weekprices.accdb

وعليكم السلام ورحمة الله وبركاته استبدل كود التحديث بهذا الكود وأعلمنا بالنتيجة Me.proprice = Nz(DLookup("[weekpricef]![price]", "[weekpricef]", "[Forms]![salebill].[billfooter subform]![productname] = [weekpricef]![productname]and forms![salebill]![billdate] between [weekpricef]![from]and [weekpricef]![to]"), DLookup("[weekpricef]![price]", "[weekpricef]", "[Forms]![salebill].[billfooter subform]![productname] = [weekpricef]![productname]"))

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

دليل حسابات كامل

السلام عليك لدي جدولين اريد انشئ استعلام او نموذج يظهر لي جميع بيانات الجدولين يفضل عن طريق انشاء جدول صلة New Microsoft Access قاعدة بيانات.accdb

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

وعليكم السلام-الأمر ليس بهذه البساطة , عليك بتتبع الخطوات والإرشادات كما بفيديو الأستاذة ساجدة العزاوى , لها منا كل المعزة و الإحترام وبارك الله فيها كيفية اضافة و ريجستر month view-date and time picker اكسل vba ساجدة العزاوي register

عملت لك استعلام توحيد حتى لو ما في أي صلة بين الجدولين اتمنى ان يكون هذا طلبك New Microsoft Access قاعدة بيانات.accdb

شكرا لدعمك استاذ @هانى محمد يبدو أن حضرتك مش متابع

UserForm TextBox MaxLength.xls

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

تفضل اخي العزيز ارجو ان يكون طلبك حسب فهمي weekprices1.rar

في حدث عند تغيير التحديد Worksheet_SelectionChange ضع كود تغيير اللغة إذا كان رقم العمود الحالي كذا اجعل اللغة كذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then LoadKeyboardLayout "00000401", 1 'Arabic Else LoadKeyboardLayout "00000409", 1 'English End If End Sub مع إضافة كود دالة تغيير لغة لوحة المفاتيح في موديول منفصل #If Win64 Then Declare PtrSafe Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If خالص دعواتي بالتوفيق

بعد اذن صديقي الرائد هذا الماكرو وزيادة في اثراء الموضوع (كود من سطر واحد) Option Explicit Private Sub UserForm_Initialize() Me.ComboBox1.List = _ Application.Transpose _ ([index(text(date(1,row(1:12),1),"[$-801]mmmm"),)]) End Sub أو اذا كنت تريده على الشيت Sub fill_combo() Sheets("sheet1").OLEObjects("My_Combo").Object.List = _ [index(text(date(1,row(1:12),1),"[$-801]mmmm"),)] End Sub الملف مرفق Month_series_For_Userform.xlsm

السلام عليكم ورحمة الله تفضل المطلوب في المرفق... Microsoft Excel Worksheet جديد.xlsx

تم تصحيح الاخطاء Reservation Form (111) (1).xlsm

اخي حربي هذا تشخيص المشكلة بعد النقاش : الاداة مسجلة تمام والذي يؤكد ذلك نزولها مع الفيجول بيسك 6 وظهورها في قائمة المراجع !! الحل : قم بتنزيل سيرفيس باك 6 للفيجول بيسك 6 ومن هنا http://www.microsoft.com/en-us/download/details.aspx?id=24417 بالنسبة للكود السابق : هو مستخدم نفس الاداة والتي بها المشكلة !! المشكلة الان هي توافق الاداة مع win 7 !! بالتوفيق

السلام عليكم الخطوات اعمل الشهادة التي تريدها ثم ادخل المعلومات المطلوبة للكود وسيعمل الملف مع اي ملف شهادات ************************************************ ملحوظة : اذا ادخلت في خلايا الشهادة رقم معين وتريده ان يتكرر في كل الشهادات (بدون تسلسل) ادخله كصيغة نصيه مثلا: العام الدراسي ="2009 /2010" والعكس صحيح لو اردت رقم تسلسلي للشهادات في خلية معينة في الشهادة ابتداءا من الرقم 1 ادخل الرقم 1 في الخلية تريدها في الشهادة ستجد في الشهادة الثانية 2 وفي الثالثة 3 وهكذا تباعا *********************************************** المعلومات المطلوبة اعلى الكود : '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 13 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ اذا تم ادخال المطلوب بالشكل الصحيح سيعمل الكود على اي ملف تفضلوا المرفق شهادات جديد.rar