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

أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات 3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف كاملاً ببياناته 4 قيم) ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange الماكرو Option Explicit Dim Lr%, Rng As Range '========================== Sub Make_On_Top() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 With ActiveSheet .Range("z1") = Cells(3, ActiveCell.Column) .Range("z2") = ActiveCell.Value .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2") .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8 End With Exit_Sub: End Sub '================================== Sub Reset() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Exit_Sub: End Sub '=========================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Lr = Cells(Rows.Count, 1).End(3).Row Set Rng = Range("A3:D" & Lr) If Not Intersect(Target, Rng) Is Nothing And _ Application.CountA(Range(Cells(Target.Row, 1), _ Cells(Target.Row, 4))) = 4 _ And Target.Cells.Count = 1 Then If Target.Row = 3 Then Reset Else Make_On_Top End If End If Range("z1:z2").Clear End Sub الملف مرفق Super Adv_Filter.xlsm

بعد اذن استاذي وصديقي الغالي@عبد الله قدور اعتقد هذا طلبه والله اعلم فضلا وليس امرا : يرجى ان يكون الاستعلام بالكود لاني سوف اكرره في نماذج اخري ولا اريد تكرار الاستعلام العادي حتي لا تكبر معي قاعدة البيانات هههههههههه نفس طريقتي تحياتي 177.accdb

ال سلام عليكم قمت بتجربة مثال الاستاذ صالح وهويعمل 100% اي انه يحفظ بمجرد القراءة النتيجة : افحص اعدادات قارىء الباركود عندك يجب ان تضبطه على Enter او Tab

السلام عليكم إطلع على هذا الموضوع

الحمد لله تم التوصل للحل If GetSetting("talor", "Color", "name") = 1188148 Then

ذا اردنا ان تختار مجموعة عشوائية من تلاميذ صف ( بعدد محدد) و ادراج اسمائهم في عامود (دون تكرار) و في عامود اخر ما بيقى منهم اكسل يحل لنا هذا الموضوع بواسطة هذا الملف الكود Option Explicit Sub RANDOM_ELEVES() If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me ActiveSheet.Unprotect With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Dim x%: x = [h2] Dim y%: y = [h3] If Not IsNumeric(x) Or x < 1 _ Or x Mod 1 <> 0 Or x >= y Then x = Int(y / 2) [h2] = x End If Range("d2", Range("d1").End(xlDown)).ClearContents Range("f2", Range("f1").End(xlDown)).ClearContents Dim My_Rg: Set My_Rg = Range("b2:b" & lr) Dim g() ReDim g(1 To lr) Dim i Dim k%: k = 1 Do Randomize i = Int((lr - 1 + 1) * Rnd + 1) If g(i) = False Then g(i) = i k = k + 1 Cells(k, 4) = My_Rg.Cells(i) End If Loop Until k = [h2] + 1 Range("d2:d" & k).SortSpecial Header:=xlNo k = 2 For i = LBound(g) To UBound(g) If g(i) = vbNullString Then Cells(k, 6) = My_Rg.Cells(i) k = k + 1 End If Next Erase g ActiveSheet.Protect Exit_Me: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف ا Choose_Studiantes.xlsm

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

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

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

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

1.accdb اتمنى ان اكون قد حللت المشكلة لك

السلام عليكم لقد جربت المرفق مع جهاز الباركود و هو يعمل بشكل ممتاز ربما لديك مشكل في الكمبيوتر أو جهاز الباركود

نعم هدا هو طلبي جزاك اله خير

هل هذا ماتريده من حبيبنا شفان ريكاني الله يعطيه العافيه DoCmd.OutputTo acOutputReport, "الطلبيه", "TEXT FILES(*.Txt)", "D:\" & RepName & ".txt"

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

هذه الجدول مبينة في الصورة اضغط على كنترول و حرف A لتحديد الكل وبعدين اضغط كليك يمين على يمين الصورة اي المنطقة الصفراء جنب حقل اي دي واختر الاختيار الاخير وهو Row Height سيظهر لك نافذة صغيرة اكتب فيها رقم 20 واضغط Ok

تفضل حساب العمر.accdb

الله يخليك ا/فيصل سأقوم بمراسلتك ان شاء الله

تم والسنة 365 يوم وراجع الملحوظات تصفية الاجازات- نهاية خدمة12(2).xlsx

لعنوان يدل على الموضوع مثلا: 250 جنيه ممكن يكونوا: 1- 5 أوراق من فئة 50 جنيه 2- 25 ورقة من فئة 10 جنيه ..... الخ أقل عدد من الاوراق 3 2 من فئة 100 و واحدة من فئة 50 لنرى كيف اكسل يحل هذه المسألة ملاحظة :جاري العمل على نفس الموضوع لكن بواسطة المعادلات دعواتكم بالتوفيق أهم شيء الملف مرفق monney.xlsm

مثال بسيط ان شاء الله يكون هذا اللي تبيه... اقبل تحياتي mohmdngah.accdb

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

راجع هذا لعله كما طلبك https://www.officena.net/ib/topic/85516-مؤشر-تحميل-لاستخدمه-بفتح-التقارير/

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

قد استطيع ان اقدم لك العون بهذا البرنامج الصغير الحجز.accdb

في موضوع لاخي الكريم // مؤمن جمعة (عمل لوحه UserForm بترحيل بيانات) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=49583&hl= وطلبه لتصميم برنامج لمتابعة حركة السيارات وتسجيل العمليات المتعلقة ونظرا لان عنوان الموضوع لا يدل علي محتواه وبعد اذن ادارة المنتدي طرحت الموضوع بشكل منفصل حتي يكون في متناول الجميع ولسهولة البحث بعد ذلك بالمنتدي الكريم ويمكن تعديل القاعدة لتتلائم مع شركات تاجير السيارات واضافة حساب كيلومترات السيارة وتكلفة الايجار علي حسب الحاجة وادعوا الله ان يكون الموضوع فيه الفائدة للسائل او الباحث شرح موجز لوظائف الفورم ولا تنسونا بدعوة بظاهر الغيب بصلاح الحال متابعة السيارات.rar

اسجل اعجابى الشديد

اخواني المبرمجين يوجد نوعية من الناس دخلت الى مجال البرمجة طب لزق . ولانهم جشعون وسارقون . فهم قد يتحايلون عليكم وقد يضيفوكم عندهم على المسنجر ويبدأوا بالتمسكن . وأحيانا يستخدمون أساليب ماكرة كثيرة منها : 1) مدحكم والتودد لكم . ليس محبة فيكم وانما محبة في سرقتكم وسرقة جهدكم 2) يذكرون حق ويريدون به باطل ياخذون حديث رسول الله : ان من كتم علما الجمه الله بلجام يوم القيامة هذا الحديث ينطبق فقط على كتم العلم الشرعي . فلا يخدعوكم فحذروهم وحذروا الناس منهم وأوجه كلام لسارقي جهد الاخرين ان الله عزوجل موجود . وان الله لن يضيع حق مسلم وان الله عزوجل يغفر الذنوب جميعا ما عدى الشرك وحق العباد تنبيه للمبرمجين : حافظوا على جهدكم . ولا تبخلوا على الناس بالعلم اذا أردتم . ولكن مش كل الناس . فقط من يستاهل ان تعلموه . واعلموا ان اي علم علمتموه لكي يمدحكم الناس وبال عليكم . -

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

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

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

وفيك بارك الله اخي رضوان

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

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

نشكر حرصك أخي الكريم و بارك الله فيك و لكن أمرنا أن ننشر هذا العلم ابتغاء مرضات الله . فمن أخذه للاستفادة العلمية بارك الله له فيه , و من أخذه للاستفادة التجارية فأن الحقوق عند الله لا تضيع و لانستطيع كتم العلم عن طالبيه فلا نعلم سرائر القلوب .

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