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

السلام عليكم -يمكنك استخدام هذه المعادلة =IF(VLOOKUP($B14,$B$3:$G$9,2,0)="ح","ح",INDEX($I$3:$I$9,MATCH(C3,J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء1 .xlsx

السلام عليكم اتفضل يا باش مهندس @Eng.Qassim اولا حمل التطبيق الاتى وقم بتنصيبه على الحاسوب https://drive.google.com/uc?id=1xHo6J688Vox4u9zwLzNbZUE1Mm1-9Vp4&export=download بعد ذلك جرب قاعدة البيانات الاتية Test.accdb

الأستاذ الفاضل / Ali Mohamed Ali دمت لنا معلما؛ وحفظكم الله من كل مكروه وسوء؛ وبارك الله لنا في علمك ونفعنا به

بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 2 عند الإنتقال لعمود أخر وبالتوفيق ان شاء الله =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,2,0)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) واذا كنت لا تريد تغيير الرقم كلما سحبت المعادلة لعمود جديد فيمكنك استخدام هذه المعادلة مباشرة دون تعديل رقم العمود =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,MATCH(C$2,ورقة1!$B$2:$G$2,0),FALSE)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء 3 .xlsx

نعم هو اعرابي يقضي وقته في شعب الجبال مع غنيماته.. وفي المساء يبهرنا بعلمه

السلام عليكم شوف هذا التعديل بالنسبة للصوت سوف نحتاج الى برنامج خارجي وللاسف لم يعمل مع اللغة العربية ساحاول بقدر ما استطيع وان شاءالله نجد الحل. تحياتي Google TranslateTest2.accdb

وعليكم السلام ورحمة الله وبركاته أخي العوام 🙂 نعم يوجد ،، ولكن لصياغة الكود تحتاج لمزيد من المعطيات ،، أسماء الجداول والنماذج والحقول التي ستلحق منها وإليها ، وووو .. وستختصر كل ذلك بإرفاق ملف للتطبيق عليه 😉👌🏼

السلام عليكم - كود بل المعادلات كود بل المعادلات.xlsm

تفضل nabilali2021.rar اسف جدا استاذي ..لم ارى مشاركتك

السلام عليكم ..اذا كان فهمي صحيح ..يمكنك استخدام هذه الدالة =IFERROR(VLOOKUP($G$1;$I$2:M500;1;FALSE);"")

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

شكرا استاذ عبد الفتاح لمساعده حضرتك

https://drive.google.com/file/d/1SGcBrfP4xkaciCbS5Pc74Epvl8-5kDuC/view?usp=drivesdk طبعا لان حجم الملف كبير اضفت لكم رابط تحميل من درايف في التعليق

استخدم الكود التالي بعد تحديث رمز المشروع وامسح البيانات القديمة...سيعيد اليك ترقيم المستخلص مع كل رمز مشروع جديد Me.رقم_المستخلص = Nz(DMax("[رقم المستخلص]", "المستخلص", "[رمز_المشروع]='" & [رمز_المشروع] & "'"), 0) + 1 انظر لو كانت اسماء الحقول بالانكليزي رجاء اجعلوها بالانكليزي ..لانها تلخبط الوضع Me.ContractorNub = Nz(DMax("[ContractorNub]", "Contractors", "projectNub='" & [projectNub] & "'"), 0) + 1

السلام عليكم جرب الملف المرفق . باضافة كمبو بوكس للعمود C بالاختيار يقوم بملء الكمبو بوكي الاخر بناءا على اختيارك ..ثم يقوم بالحساب بناء على الاختيار ComboBox.xlsm

اعتقد اني فهمتك الان جرب هذا التعديل واستبدله بالكود السابق في حدث تهيئة اليوزرفورم Private Sub UserForm_Initialize() Dim i As Long Dim not_matched As String not_matched = "cust" For i = 2 To 1000 If Range("c" & i) = not_matched Then If WorksheetFunction.CountIfs(Range("D2:D" & i), Range("D" & i), Range("C2:C" & i), not_matched) = 1 Then Me.Combobox1.AddItem Range("D" & i) End If End If Next i End Sub

الشكر لله الذي وفقنا جميعا

شكرا استاذنا الكريم

وعليكم السلام-تفضل على الرغم انك لم تقم برفع الملف .. قيمكنك اضافة هذا السطر بحدث Open Sheets("الرئيسية").Select

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

وعليكم السلام 🙂 في لوحة الخصائص ومن Other الخيار Cycle تختار السجل الحالي

اسف اخي الكريم نسيت الفانك الصق هذا الفانك في النموذج ..... Public Function IsFileLocked(PathName As String) As Boolean On Error GoTo ErrHandler Dim i As Integer If Len(Dir$(PathName)) Then i = FreeFile() Open PathName For Random Access Read Write Lock Read Write As #i Lock i Unlock i Close i Else Err.Raise 53 End If ExitProc: On Error GoTo 0 Exit Function ErrHandler: Select Case Err.Number Case 70 IsFileLocked = True Case Else End Select Resume ExitProc Resume End Function

استاذ محمد شكرا لمرورك الكريم وعلى المعلومة المفيدة جدا جزاك الله خيرا تحياتي لك

وعليكم السلام تفضل أخي الكريم المصنف1.xlsm

احدف بياناتك قي الشيت الثاني ابتداء من BI1 Sub test() Dim r As Range Sheets("sheet2").UsedRange.Clear With Sheets("sheet1") Set r = .[t1:t2] With .Range("t3", .Range("t" & Rows.Count).End(xlUp)).Resize(, 8) r(2).Formula = "=countblank(" & .Rows(2).Range("c1").Resize(, 6).Address(0, 0) & ")<6" .AdvancedFilter 2, r, Sheets("sheet2").Cells(61) End With r.Clear End With End Sub

يمكنك استعمال هذه المعادلة في المكان الذي تريد ظهور قائمة التليفونات بها =IFERROR(INDEX($B:$B,SMALL(IF(($E:$E="السبت")*($D:$D=""),ROW($E:$E)),ROW()-2)),"") مع سحب المعادلة لأسفل للحصول على باقي الأرقام بالتوفيق

عليكم السلام ورحمة الله وبركاته الأمر hide يستعمل في إخفاء النموذج فقط وليس إغلاقه كاملا وهذا يعني إمكاية استعمال جميع المتغيرات والكائنات المستعملة في النموذج الأمر unload يستعمل في إعلاف النموذج كاملا فلا يمكن استعمال أي من متغيراته أو كائناته ويمكن استعمال الأمرين من داخل النموذج me.hide unload me أو من خارجه userform1.hide unload userform1 أما end فلا علاقة لها بالنموذج وإغلاقه فهي تستعمل للتعبير عن نهاية بعض الأوامر مثل End [Function | Sub | With | Select | Type | Enum | If ] أما exit فتستعمل للخروج من بعض الأوامر مثل Exit [ Do | For | Function | Select | Sub ] بالتوفيق

لا أعتقد أن هذا يتم بمعادلة يمكنك استعمال هذا الكود في حدث تغيير الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 And Target.Column < 6 Then Range("f" & Target.Row) = Date End Sub كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود في الناحية اليمنى مع حفظ الملف بامتداد يدعم الأكواد مثل xls أو xlsb أو xlsm بالتوفيق

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

أخي الكريم كابون يبدو أنك لم تقرأ جيداً المشاركات رقم 5 و 6 و 6 في هذا الموضوع فقد كان الحل مع مشكلة مثل مشكلتك وضع كود التحجيم قبل كود التكبير أنا فتحت النموذج الخص بك ولم أجد فيه اي مشاكل تم تحجيم النموذج حسب دقة شاشتي 1280 * 1024 ولا يوجد مشكلة سوى أنك استعملت شرائط التمرير يعني وأنت تصمم النموذج ضيقت حدود النموذج عن محتوياته هذا بالإضافة لوضع كود التحجيم قبل كود التكبير جرب وأخبرني بالنتيجة

أخي الكريم برجاء توضيح مشكلتك أكثر وإرفاق الملف الذي حدثت معه المشكلة مع توضيح دقة الشاشة التي تم تصميمه فيها

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

أكرمك الله أخي الكريم أبا خليل هذا بعض ما عندكم

لا أدري ما الخلل عندك فالكود يعمل معي على نماذج بها نماذج فرعية وبها قوائم وأزرار وتسميات ومعظم أنواع عناصر التحكم ولكن جرب أن تستدعي دالة التحجيم resizefrom Me, 1024, 768 قبل أمر التكبير DoCmd.Maximize ...... للعلم تم تعديل الدالة للتحكم في حجم خط عنصر التحكم الذي يحتوي على نصوص ليتناسب مع تغيير حجم العنصر ودقة الشاشة

أخي الكريم الكود وظيفته هي قراءة دقة الشاشة لدى المستخدم ومقارنتها بأفضل دقة وهي المحددة منك في استدعاء الدالة resizefrom Me, 1024, 768 ثم إذا كانت غير المحددة منك يتم تغيير حجم النموذج وكل عناصره بما يتناسب مع دقة الشاشة الموجودة بجهاز المستخدم سواء بتكبير حجم النموذج إذا كانت دقته أعلى من المحددة في الكود أو بتصغيره إذا كانت دقة أصغر من المحددة في الكود أما بالنسبة للمسافات بين العناصر فهي أيضا تمت مراعاتها حيث يتم تحديد موضوع العنصر في النموذج بناء على دقة الشاشة ...... ويبدأ الكود ب wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth ويعني معدل العرض يساوي ناتج قمة عرض شاشة المستخدم على أفضل عرض (المحدد في استدعاء الدالة) وكذلك معدل الارتفاع ثم frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate وتعني تغيير عرض النموذج إلى عرض النموذج الأصلي مضروباً في معدل العرض (المحسوب سابقاً) وكذلك تغيير ارتفاع النموذج ثم Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate Next وتعني أنه يتم تغيير موضع كل عنصر تحكم في النموذج إلى موضعه الجديد الناتج عن ضرب مكانه الأصلي في معدل العرض أو الارتفاع وتم تغيير ما يلي مكانه بالنسبة لأعلى النموذج ومكانه بالنسبة ليسار النموذج وعرضه وارتفاع هذا هو شرح الدالة وكيفية عملها ........ ولكن ما معنى نموذج يملأ الشاشة؟؟

شكرا لك أخي الكريم برجاء استخدام البحث قبل كتابة أي موضوع جديد http://www.officena.net/ib/index.php?showtopic=38279

أخي الكريم إذا استعملت البحث في أوفيسنا ستجد روائع في هذا المجال هذا الرابط واحد منها http://www.officena....showtopic=31297 وأنا بطبعي أحب الاختصار فقمت بعمل كود مختصر يقوم بنفس الغرض إن شاء الله فقط ضع في موديول الكود التالي Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي resizefrom Me, 800, 600 حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج) وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير جرب وأخبرني بالنتيجة

شكرا لك أخي دغيدي ولكن يبدو أن الرابط به خلل وهذا رابط آخر لك أخي الكريم http://www.kutub.inf.../search?q=excel وهذا رابط آخر http://www.kutub.info/books/search?q=%D8%A7%D9%83%D8%B3%D9%84 أتمنى أن يفيدك

يا ريت مزيد من التوضيح