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

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

بحث بالفورم فى سبع عواميد بالاكسل الفيديو الصور بحث بالمسلسل تكبير الصورة معاينة الأبعاد الأصلية. بحث بالاسم تكبير الصورة معاينة الأبعاد الأصلية. بحث بتاريخ الميلاد تكبير الصورة معاينة الأبعاد الأصلية. باقى البحث فى الفيديو بحث بالكود وبحث فى المحافظة وبحث فى الديانة وبحث فى النوع ملف البحث ب7 طرق http://www.mediafire.com/file/b88sbcnad9bs8g1/فورم+بحث++فى+7+عواميدبيانات+الطلاب.rar

احسنت أستاذ سليم معادلة ممتازة جعله الله في ميزان حسناتك

للمعلومات فقط الدالة VLOKKUP تعمل في اي جدول دائماً من اليمين الى اليسار للغة العربية والعكس للغة الاجنبية و يجب ان يكون عمود البحث هو العامود الاول من الجدول لذلك لا يمكن استعمالها في ملفك وضعت لك معادلة بديلة في الملف المرفق Book_salim.xlsx

السلام عليكم ورحمة الله استبدل الكودين السابقين بهذين الكودين و اخبرنى بالنتيجة الكود الاول : Sub ImpData() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long, x As Integer Set ws = Sheets("وارد") For Each C In ws.Range("B5:B10000") x = WorksheetFunction.CountIf(ws.Range("B5:B10000"), C.Value) For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "وارد" Or Sh.Name <> "منصرف" Then Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If x > 0 Then MsgBox "عفوا توجد بيانات قد تم ترحيلها من قبل سوف يتم الغاء العملية" Exit Sub Else If Arr(i, 2) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 2, 1, 17, 3, 13)) Next End If End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 End If Next Next End Sub الكود الثانى : Sub ExpData() Range("A5:E1000").ClearContents Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant, x As Variant, C As Range Dim LR As Long, i As Long, j As Long, p As Long Set ws = Sheets("منصرف") For Each C In ws.Range("B5:B10000") x = WorksheetFunction.CountIf(ws.Range("B5:B10000"), C.Value) For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "وارد" Or Sh.Name <> "منصرف" Then Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If x > 0 Then MsgBox "عفوا توجد بيانات قد تم ترحيلها من قبل سوف يتم الغاء العملية" Exit Sub Else If Arr(i, 6) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 6, 5, 17, 9, 13)) Next End If End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 End If Next Next End Sub

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

اولا / الشكر لله ثم لهذا الموقع الذي اعطانا ما يفيد ونفيد به ثانيا / اشكر الاخوة الذين ساهموا معي وشاركوني وتحملوا كثرة استفساراتي لاخراج هذا البرنامج وهم الاساتذة والمشرفين(جعفر ,عبدالرحمن هاشم,ابوعارف ,ابو خليل ,رمهان ) شكرا لكم على هذا العمل ونطمع فالمزيد منكم برنامج العطاء للعقارات العقارات اسم البرنامج : برنامج العطاء للعقارات نسخة البرنامج : النسخة 1 متطلبات البرنامج : برنامج اوفيس اكسس 2003 صلاحية البرنامج : برنامج مجاني مفتوح يتم تسجيل بيانات ملاك العقارات اولا ثم تسجيل عقود المستاجرين وتاريخ بداية الايجار وعمل توزيع لها ظهور الايجارات المستحقة في تقرير حسب تاريخ استحقاق الايجار - تقرير للمستاجر لبيان عدد مرات الايجار وغيرها - تقرير يظهر الشقق الغير مؤجرة - تقرير يظهر شقق وعقارات باسم الحي - تقرير يظهر شقق المالك والباقي تقدر تكتشفة بالبرنامج البرنامج يتم استعمالة في الايجارات للشقق والاراضي وغيرها لمن يعملون في مكاتب العقار نريد ارائكم واقترحتكم ومشاركاتكم بعد تجربة البرنامج في هذه الصفحة نرجو ممن يقوم بتجربتة يفيد الموقع بذلك وكذلك في حالة وجود مشاكل يمكنة طرحها هنا لحلها وتلافيها ولن يبخل اي من الاعضاء او المشرفين في حل مشكلتك . تنبية : يلزم فتح موضوع جديد حتى يتم النظر في المشكلة من شروط الموقع رابط البرنامج هـــنــا

تحية طيبة وبعد يوجد نموذج الفاتورة في زر طباعة . يقوم بطباعة الفاتورة الحالية ، والمطلوب إضافة كود في الزر يقوم بإرسال التقرير الى ايميل موجود في الكود وتقبلوا تحياتي.. شاكرين لكم Send hidden email.rar

بارك الله فيك عمل ولا اروع دمت دائما متالقا اخ سليم

معادلة جديدة مع اختصار الجدول (عامود واجد للقاعات) الجدول يحتوي على معادلة واجدة تكتب في الخلية D9 و تسحب يساراً 9 أعمدة ثم نزولاُ قدر ما تريد الملف يحنوي على Define Names R_1_1 R_1_2 الخ....يمكن اكتشافها من خلال Name Maneger =IF($C9="","",IF(COUNTIF(INDIRECT("R_"&INT((COLUMNS($A$1:A1)-1)/3)+1&"_"&MOD(COLUMNS($A$1:A1)-1,3)+1),$C9)=0,"No Macth",INDEX(إجمالي!$B$11:$B$50,MATCH($C9,INDIRECT("R_"&INT((COLUMNS($A$1:A1)-1)/3)+1&"_"&MOD(COLUMNS($A$1:A1)-1,3)+1),0)))) Book_salim_new.xlsx

الاستاذ/ فارس وعليكم السلام ورحمة الله وبركاته نفس المشكلة مررت بها من فترة قصيرة علي بعض اجهزة الموظفين ووجد ان المشكلة ليست في الاوفيس ولكن في الويندوز هل هو 32 بت ام 64 ان كان الجهاز الذي لا يعمل عليه برنامجك يختلف عن الاجهزة من حيث عدد البت حاول التعديل ان شاء الله يكون الحل هذه محاولة مني لك ولكن الله اعلم ممكن يكون هناك سبب اخر .

مشكور جدا جدا الكود اشتغل معي

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

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

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

السلام عليكم ورحمة الله وبركاته أعجبني كلمة النزلاء بصراحة مع أن هذا المنتدى مخصص لبرنامج الاكسيل ولكن بسرعة ممكن تشوف الفيديو دهhttps://www.youtube.com/watch?v=wgNVdnR2Jrk

لا يوجد اي خطاء عندي اتاكد من المكتبات الغي اي مكتبه فيها خطاء

السلام عليكم جرب المرفق لعل فيه ما تريد... بالنسبة لاختيار الطابعات فقد وضعت في الكود طابعتين أستعملهما عادة في جهازي يمكن تغييرهما بالطابعات التي عندك بالطريقة التالية : تختار الطابعة (الأولى ثم الثانية) كافتراضية ثم تقوم بتنفيذ الكود hben (في المرفق) وتسجل اسم الطابعة من الرسالة (ولا تنسى العلامة : في النهاية) وتضعها في مكانها المناسب في الكود بدل الموجودة في الكود... بن علية حاجي طباعة الاستكرات.xlsm

السلام عليكم ورحمة الله الكود الاول للوارد : Sub ImpData() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long, x As Integer Set ws = Sheets("وارد") For Each Sh In Sheets(Array("غيار رولة دهان كبيره ", "يد رولة دهان كبيره")) Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 2) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 2, 1, 17, 3, 13)) Next End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 Next End Sub والكود الثانى للمنصرف : Sub ExpData() Range("A5:E1000").ClearContents Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long, x As Integer Set ws = Sheets("منصرف") For Each Sh In Sheets(Array("غيار رولة دهان كبيره ", "يد رولة دهان كبيره")) Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 6) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 6, 5, 17, 9, 13)) Next End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 Next End Sub

اعتقد انه يحب ادراج الجدول بهذا الشكل دون معادلات كبيرة makhzan_2019.xlsx

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

السلام عليكم ورحمة الله منذ أن وضعت طلبك بقيت أحاول فيه إلى اليوم وهذا لقلة معرفتي بـ VBA، وأقدم لك نتيجة عملي وتعديلاتي المتواضعة على الأكواد في الملف المرفق (ربما يقوم أحد الأعضاء بتحسينها وتبسيطها)... بن علية حاجي قرعة متعددة الاختيار (1).xls

هذا برنامج محاسبة شامل ما عدا مندوبين المبيعات -- تستطيع اضافتهم على البرنامج طبق نفس الجداول حسب العلاقات

وهذا حل يفي بالغرض للمشكلة السابق ذكرها تم ذكرها من طرف الأخ @محمد ايمن مشكوراً.. انظر المرفق الارشيف.zip