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

السلام عليكم و رحمة الله ربما تقصد هذا Sub TrData() Dim ws As Worksheet, sh As Worksheet Dim LR As Long, x As Integer Dim a As Double, Knd As String Dim C As Range Set sh = Sheets("Search") Set ws = Sheets("Data") a = sh.Range("A1"): Knd = sh.Range("B1") LR = ws.Range("A" & Rows.Count).End(3).Row For Each C In sh.Range("A3:A22") On Error Resume Next x = WorksheetFunction.Match(C, ws.Range("C1:X1"), 0) If ws.Cells(1, x + 2) = C.Value Then ws.Cells(LR + 1, 1) = Knd ws.Cells(LR + 1, 2) = a ws.Cells(LR + 1, x + 2) = C.Offset(0, 1) End If Next End Sub

Private Sub CommandButton1_Click() On Error Resume Next Dim v As Integer, lr, i ListBox1.Clear With Sheets("بيان") lr = .Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lr If .Cells(i, 1).Offset(0, 3) <> 0 And .Cells(i, 1).Offset(0, 4) And .Cells(i, 1).Offset(0, 4) <> 0 Then If Sheets("بيان").Cells(i, 1).Offset(0, 0) >= CDate(ComboBox1.Text) Then If Sheets("بيان").Cells(i, 1).Offset(0, 1) = ComboBox2.Text Then If Sheets("بيان").Cells(i, 1).Offset(0, 0) <= CDate(ComboBox3.Text) Then ListBox1.AddItem Sheets("بيان").Cells(i, 1).Value ListBox1.List(v, 1) = Format(Sheets("بيان").Cells(i, 0).Offset(0, 0).Value, "YYYY/MM/DD") ListBox1.List(v, 2) = Sheets("بيان").Cells(i, 1).Offset(0, 1).Value ListBox1.List(v, 3) = Sheets("بيان").Cells(i, 1).Offset(0, 2).Value ListBox1.List(v, 5) = Sheets("بيان").Cells(i, 1).Offset(0, 4).Value v = v + 1 End If End If End If End If Next End Sub

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

بسم الله الرحمن الرحيم الحمد لله رب العالمين، والصلاة والسلام على أشرف المرسلين، سيدنا محمد وعلى آله وصحبه والتابعين. تظل منتديات اوفيسنا علي مدار السنوات من تاريخ ولادتها ونشأتها الي اليوم وهي رمز للعطاء بلا حدود حملت علي عاتقها رسالة ذات هدف وهي مشاركة الخبرات والتعلم معظمنا بدانا كسائلين للمساعدة في معلومة ما حتي وصلنا الي داعمين فاتحين قلوبنا لكل مبتغى مساعدة من خلال المشاركات تعلمنا وعلمنا يمكن معظم الفرسان الذي بدأت معهم انقطعوا عن المنتدي لظروف الحياة ومنهم من وافتهم المنية لكن اعمالهم واطروحتهم باقية تذكرنا بهم لندعو لهم بالرحمة وانا عن نفسي انقطعت كثيرا عن المشاركة لظروف صحية لكن اتابع من بعيد .الشكر لهم جمعيا م محمد طاهر المؤسس – عبدالله باقشير – شوقي ربيع – رجب جاويش –احمد فضيلة – ياسر خليل – حمادة عمر – مجدي يونس – جمال الدغيدي – نارت ليبزو – عبدالله المجرب.........والكثيرون مع حفظ الالقاب بارك الله فيهم جمعيا وفي كل عائلة اوفيسنا من اعضاء وفريق عمل . وبعد: فيسعدني أن أشارك المنتدى ببرنامج ادارة اشتراكات IPTV كان طلب لاحد الاخوة علي الخاص سائلين الله تعالى أن ينفع بما فيه من افكار لاستخدام خصائص الفورم الديناميكية وادارتها بشكل سلس . وما توفيقنا إلا بالله عليه توكلنا وإليه ننيب. شرح بسيط للبرنامج اولا : شاشة الدخول اضافة عدد غير محدود من المستخدمين . تحديد صلاحية المستخدم . حفظ كلمة المرور . عرض كلمة المرور. تقييد الدخول 3 محاولات للدخول الغير صحيح . تقرير عن الدخول لكل مستخدم مع الوقت والتاريخ . التحكم في الخيارات من خلال الفورم تبويب (User). ثانيا يوزالفورم كالتالي يحتوي علي العديد والعديد من المهام والوظائف - اضافة مشترك جديد -البحث عن مشترك بمعلومية الرقم التسلسلي او الاسم - تقارير متنوعة - شاشة مساعدة لشرح البرنامج - ادارة المستخدمين والصلاحيات. التبويب الأول ( تبويب جديد ) ادراج تاريخ اليوم بوالرقم التسلسلي شكل تلقائي - الاختيار من قائمة نوع الاشتراك وتعبئة تاريخ البداية والنهاية والسعر بشكل تلقائي - شروط اجبار المستخدم علي ادخال الييانات. التبويب الثاني (البحث ) - امكانية البحث بمعلومية الرقم التسلسلي أو اسم العميل . - اظهار حالة الاشتراك نشط او غير نشط - رسالة تنبيه علي انتهاء الاشتراك خلال ال5 ايام الاخيرة لنهاية الاشتراك. - تعديل بيانات الاشتراك (كلمة المرور - المستخدم - الماك - رقم الهاتف ) - امكانية تجديد الاشتراك. عند ظهور علامة الواتس بالضغط عليها ينتقل البرنامج لارسال رسالة للمشترك بقرب موعد انتهاء الاشتراك وبعد الارسال تظهر رسالة تفيد نجاح الارسال مع اداراج تاريخ الارسال التبويب الثالث (التقارير) تقارير بكافة الاشتراكات . تقرير بالاشتراكات النشطة. تقرير بالاشتراكات المنتهية . تقرير بالاشتراكات حسب الشهر . تقرير التنبيه علي انتهاء الاشتراك خلال ال5 ايام الاخيرة. كشف حساب عميل . طباعة اي تقرير. التبويب الرابع (ادارة الاشتراكات) اضافة اشتراك جديد مع السعر البحث وتعديل اي اشتراك التبويب الخامس (المساعدة) وفيه شرح لتبويبات وظائف البرنامج التبويب السادس (المستخدمين) ولا يمكن الوصول الي التقرير الا اذا كان الدخول ادمن مع المطالبة بادخال الباس ورد نفسها نفس باس ورد الدخول للبرنامج تقرير عن عمليات الدخول لكل مستخدم بالوقت والتاريخ والصلاحية والتي تظهر اسفل افورم. اضافة مستخدم جديد وتحديد صلاحياته البحث وتعديل مستخدم حالي. البرنامج بالمرفقات كلمة المرور الافتراضية 1234 المستخدم Dahy يعمل فقط علي 32bit ZAD IPTV Subscription.xlsm

شكراً جزيلاً استاذي الكريم الان تمام 100 % شكراً .

وعليكم السلام ورحمة الله تعالى وبركاته ..تفضل اخي Sub cherche() Dim plage As Range, add As Range Dim X As Long, Y As Long Dim cellule As Variant Set plage = Range("E8:E1000") Set cellule = Range("k4") ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1, Criteria1:=Feuil1.Range("k4").Value Set SearchRange = Range("E8:E1000") Set Findrow = SearchRange.Find(cellule, LookIn:=xlValues, lookat:=xlWhole) If Findrow Is Nothing Then MsgBox "الاسم غير موجود" Else X = Findrow.Row Y = Findrow.Column Cells(X, Y).Select End If End Sub ملاحظة قد تم استبدال قائمة الاسماء بقائمة مطاطية مع حدف التكرار أول خلية_MH.xlsb

بنفس الطريقة DoCmd.RunSQL "insert into tbl_1 (tx,tx1) values (txt,txt2)" ------------- هنا اسماء الحقول بالجدول (tx,tx1) وهنا اسماء الحقول بالنموذج (txt,txt2) تفصل بينهم بـ , وممكن ايضا عن طريق مصدر السجلات Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("tbl_1") rs.AddNew rs!tx = Me.txt rs!tx1 = Me.txt2 rs.Update rs.Close Set rs = Nothing ------------ اسماء الحقول في الجدول rs!tx rs!tx1 اسماء الحقول في النموذج Me.txt me.txt2

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

طيب اخي الكريم ..... تم حل مشكلتين لديك وهي : - البحث في حقلين - مشكل الرمز * بقية مشكلة الحماية والاستيراد من ملف الاكسل ... ( افرد لها موضوعين مستقلين ) بارك الله فيك .................... استخدم الكود التالي :::::::: If IsNull(Me.searchtext) Or Me.searchtext = "*" Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub End If a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True Me.RecordSource = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area], [Coverage Area] & "" "" & [GOV] AS D FROM [On air 4G info sites] WHERE ((([Coverage Area] & "" "" & [GOV]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));"

السلام عليكم ..الاصدقاء الاكارم تحية طيبة هل يوجد برنامج او اداة او طريقة لعمل تقارير في اكسل مثل التقارير الموجودة في اكسس ؟ البيانات لدي كما في الصورة 1 ارغب في انشاء تقرير لتظهر كما في الصورة 2 ( بعيدا عن بويفت تيبل )

شكرا لك جدا تم حل هذه مشكله

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

لك كل الشكر أخي والله هذه المشكلة أرقتني كثيرا سؤال بسيط هل يمكن أن أضيف عدة أصناف في النموذج الفرعي تلقائياً

تمام الان وضحت الرؤية واسفر الصبحُ لذي عينين بالتوفيق اخي واستاذي د.محمد تحياتي وتقديري 🌹

انظر للصورة المرفق وملفك بعد التعديل فاتورة.accdb

تكرم عينك أخي الكريم بعمود رقم الكارتون ضع هذه المعادلة ، ثم اسحب نزولاً =IF(B2="";"";VLOOKUP(B2;CHOOSE({1,2};المشتريات!$B$2:$B$1000;المشتريات!$A$2:$A$1000);2;0)) وبحقل التفاصيل ضع هذه المعادلة ، واسحب نزولاً. =IF(B2="";"";VLOOKUP(B2;المشتريات!$B$2:$C$1000;2;0)) على أن تضع الترميز الذي تريد بما يوافق ورقة المشتريات لتعمل هذه المعادلات تقبل تحياتي. U.194 PL for BAS.xlsx

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

وعليكم السلام هل هذا هو المطلوب؟ في ورقة المخزن بدءاً من الخلية D2 =IF(B2="";"";SUMIF(المشتريات!$B$2:$D$1000;المخزن!B2;المشتريات!$D$2:$D$1000)-SUMIF(المبيعات!$B$2:$D$1000;المخزن!B2;المبيعات!$D$2:$D$1000)) يرجى التجربة.... U.194 PL for BAS.xlsx

وعليكم السلام ورحمة الله وبركاته يمكنك فعل ذلك بطرقٍ عدة - أخي الكريم - منها الـ Pivot Table التي تسمى بالعربية الجداول المحورية ..مع أجمل الأمنيات

عمل اكتر من رائع اخى العزير هل يوجد نفس الفكره للقاعده البيانات BE

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

فعلا جيل الطيبين استاذ خالد @مبرمج متقاعد

وعليك السلام ورحمة الله وبركاته أخي محمد 🙂 إذهب لمحرر الأكود وتأكد من إضافة المكتبة التالية :

المهندس قاسم اعطاك الحل وللوصول لما اشرتم اليه ممكن تعديل بسيط بدلا من تحديد اللون نتحكم في الشفافية والفكرة تتعلق بخاصية BackStyle وهي خاصية تتيح امكانية جعل عنصر التحكم شفاف او عادي ولها قيمتان 0 شفاف 1 عادي وطالما لدينا قيمتان رقيمة فيمكن توظيفهم للوصول للمطلوب الخطوة الاولى نحجز متغير ونجعل المتغير يساوي x = Me.ActiveControl.BackStyle ثم نضع امر يقوم بالمرور على الازرار و تعديل خاصيتها الى شفاف ctl.BackStyle = 0 الخطوة الثانية نضع الشرط If x = 0 Then اي اذا كانت خاصية جميع الازار شفاف نفذ الاتي Me.ActiveControl.BackStyle = 1 Me.f1.Visible = True اجعل خاصية الزر الحالي غير شفاف واظهر النموذج الفرعي وان لم يتحقق الشرط اعكس الامر ربما لا يكون الحل الافضل ولكن اعتقد يؤدي للمطلوب بنفس فكرة العزيز قاسم او على الاقل يحفز الاخرين لتقديم افكار افضل وهذا هدف اي موقع تعليمي تحياتي

وعليكم السلام ..تفضل أخي الكريم Book1.xlsx

اخي الكريم نبهنا مرارا وتكرارا لا تستخدم خلايا مدمجة ثم كيف تستعلم او تحدف على شيء غير موجود في الاساس ثم ماذا تفعل بالصيغة بالخليةP2 في الورقة2 لان المشكلة منها ، هل هي ضرورية ؟ وهل اذا كان رقم الهوية يحتوي على فراغ يعني الكود لايقوم بشيء؟ عليك بنشر تفاصيل كاملة بدلا من طرح سؤال عشوائي !!!

السلام على جميع لااساتذة الافاضل ...اطلب من احوتي الجزائريين ان امكن برنامج التقريري العام لتسيير المؤسسة التربوية (RGF) ولكم مني جزيل الشكر

بارك الله فيك اخي ابو عيد وجزاك الله خيرا

جرب المرفق lhR27113.rar

اسعد مساك ابو البشر سعدت بردك والله الموضوع بالنسبه لي مهم واريد ابداء فيه وشكراً على الاهتمام فقط اود التوضيح الملف الان يبحث بالحقل المسمى Coverage Area طلبي هو ايضاً البحث بالحقل المسمى GOV بحيث يكون البحث بالحقلين مع بعض بحيث كتبت كلمه موجوده في احد الحقلين Coverage Area او GOV يظهر لي البحث كامل قد جربت الكود الذي مصور لشخصكم الكريم سابقاً بس ما اشتغلهذا هو الذي اطلبه اريد يبحت من الحقلين وليس حقل واحد ارجوء الافاده واسف على ازعاحك وانت اكثر شخص تعاوناً . فكره الملف ستضاف اليه معلومات بشكل اسبوع من ملف اكسل تقريباً 400 سجل بنفس تسلسل البيانات وسيتم نسخها الى الاكسس مباشره وصعب الكتابه يدوياً وستكون لي الصلاحيه من خلال الضغط على SHIFT اثناء التشغيل لفتح الجدول والااضافه . اريد الملف يتمتع بخصوصيه لااحد يستطيع يطلع بيانات الجدول فقط من خلال استخدام الفورم ومن قائمه البحث يدخل الكلمه او النص المشابه وهو يظهرها . من الاشكاليات التي ستحصل معي وسناخذها في الحسبان مستقبلاً حتى نجد حلول مناسبه كالاتي : 1- ممكن حد فاهم في الاكسيس ممكن بطريقه الضغط على الزر شفت اثناء نشغيل الملف يستطيع الوصول الى البيانات والاطلاع عليها ( ابحث عن حل لهذا الموضوع بحيث تكون الصلاحيه لي فقط بطريقه ماء استطيع الوصول الى الجدول . 2- الرمز * اثناء ادخاله في قائمه البحث يظهر لي كل المعلومات (ابحث عن حل لحجب هذا الامر ) اخي العزيز ابو البشر لاتشغل بالك بالاشكاليات ممكن فقط الكود المناسب للبحث من خلال الحقلين الموضحين وبارك الله فيك وسلمك وعافك وممنون لك اخي .