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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets(1).Protect Password:="Secret", UserInterfaceOnly:=True Sheets(1).Cells.Locked = True If Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Value = vbNullString Then Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Locked = False End Sub مرفق الملف Lock.zip و لا تنسونا من صالح الدعاء تحياتى

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

استاذ الحسن ارجو ان اكون وفقت فى طلبك تجريبي.rar

اتفضل كما تريد تقريب الى اعلى.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة استخراج تقرير حسب العميل مع الطباعة تم ارفاق من الفاضل _ ا / عبدالله باقشير مرفق الملف Copy_of_Customer__s_Statements_Finalttttt.rar و مشاركة اخرى من الفاضل _ ا / أبوعبد الله_اكسلجى مرفق الملف Customer__s_Statements_Of_Accounts.rar و مشاركة اخرى من الفاضل _ ا / أبو تامر مرفق الملف Omae_1.rar و لا تنسونا من صالح الدعاء تحياتى

لدي ملف مبيعات ومشتريات على برنامج اكس استخدمت دالة index مع دالة match في جدول فاتورة المشتريات لإظهار قيمة عمود " الوحدة " عند كتابة اسم الصنف ولم استطع الحصول على نتيجة صحيحة أي لم تظهر أي قيمة رغم عدم اعطاء أي مؤشر على وجود خطأ في المعادلة التي استخدمتها . فحصت الجزء الأول من المعادلة وكانت النتيجة صحيحة ، وعند استكمالها لم تظهر أي نتائج لقد حاولت بكل الطرق لكي أجد أين الخطأ فلم استطع العثور عليه ،،، من يستطع من الأخوة العارفين جيداً في معادلات الاكسل مساعدتي في تصحيح المعادلة والحصول على نتيجة صحيحة كي استكمل مشروع العمل ،،، وأكون شاكراً لكم مرفق ملف العمل المراد تصحيحة تجريبي.rar

كلنا نخطيء ونتعلم من بعضنا البعض ... تقبل وافر تقديري واحترامي

احنا شاركنا في نفس الدقيقة لكن انا شاركت قبلك بثواني هل رأيت مشاركتي

اتفضل افتح الجدول بوضع التصميم واختر الحقل بعدين في خصائصه اختر حقل كابشن واكتب ما تريد شوف الصورة

تفضل حساب مدة العمل 1.rar

كلمة xlup خطأ .. قم باستبدال الرقم 1 إلى حرف l

اتفضل كما تريد Picture (1).rar

الله اكبر شكرا استاذ في الحقيقه‌ ما اعرف شو اقول طبعا جربت والنتيجه‌ 100% تقريب الى اعلى.rar

تريد يڤهر بس اللي غير منفذ وكل شي تمام الله يزيد من علمك النافع

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

السلام عليكم و رحمة الله تعالى و بركاته أما بعد: 1-الخطأ الأول و الذي يقوم بإظهار الرسالة هو لأنك في جدول Avactions نوع الحقل ID جعلته ترقيم تلقائي بل يجب أن يكون نوعه رقم. 2- في الإستعلام qq يجب أن يكون الحقل ID مصدره الجدول Avactions و ليس Emp. 3-قبل القيام بهذا كل يجب أن تقومي بربط الجدولين علاقة رأس بأطراف بمعنى أن يكون الربط بين الحقل ID من جدول Emp بالحقل ID من جدول Avactions 4- أن لا يكون الحقل ID من جدول Avactions مفتاح اساسي و في نفس الوقت يجب أن يكون يقبل التكرار. إتبعي هذه الخطوات و إن شاء الله سوف تصلين إلى الحل.ثم أطلعيني على النتائج. هذا هو الملف مع التعديل اضافة اجازة محددة لاكثر من موظف.rar

لأنك قمت بنسخ المعادلة دون ان تنسخ الموديل الذي يحتوي على الدالة المستحدثة للحساب

وعليكم السلام Sub Test() Dim arr1 As Variant Dim arr2 As Variant Dim temp As Variant Dim varTemp1 As Variant Dim varTemp2 As Variant Dim i As Long Dim r As Long Dim x As Long arr1 = Range("B55:F234").Value arr2 = Range("H55:L234").Value ReDim temp(1 To UBound(arr1, 1) + UBound(arr2, 1), 1 To 5) For i = LBound(arr1, 1) To UBound(arr1, 1) If Not IsEmpty(arr1(i, 2)) Then r = r + 1 temp(r, 1) = arr1(i, 1) temp(r, 2) = arr1(i, 2) temp(r, 5) = arr1(i, 5) End If Next i For i = LBound(arr2, 1) To UBound(arr2, 1) If Not IsEmpty(arr2(i, 2)) Then r = r + 1 temp(r, 1) = arr2(i, 1) temp(r, 2) = arr2(i, 2) temp(r, 5) = arr2(i, 5) End If Next i If r > 180 Then ReDim varTemp1(1 To 180, 1 To 5) For i = 1 To 34 varTemp1(i, 1) = temp(i, 1) varTemp1(i, 2) = temp(i, 2) varTemp1(i, 5) = temp(i, 5) Next i Range("O55").Resize(180, 5).Value = varTemp1 ReDim varTemp2(181 To UBound(temp, 1), 1 To 5) For i = 181 To UBound(temp, 1) varTemp2(i, 1) = temp(i, 1) varTemp2(i, 2) = temp(i, 2) varTemp2(i, 5) = temp(i, 5) Next i Range("U55").Resize(r - 180, 5).Value = varTemp2 Else Range("O55").Resize(r, 5).Value = temp End If End Sub

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

اخوتي الكرام يجب انتقاء عنوان مناسب يصف المسألة ، حتى لاتعرضون مواضيعكم للاغلاق

اضافتاً الى كلام استاذ محمد سلامة تكدر ترفع الملف في مواقع رفع الملفات مثل http://up.top4top.net/ http://upfile.co/

سامحوني اشارك معكم اخي الكريم خلي هذا الكود بدل ذلك Private Sub Combo24_BeforeUpdate(Cancel As Integer) If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then me.combo24.setfocus MsgBox "غير مصرح لك" End If End Sub ممكن تشرح اكثر يعني تريد تزيد رقم 1 على اي شي اي حقل وفي اي وقت بالظبط مع تقدير

اعمل للملف ضغط واصلاح ثم اضغط الملف باي برنامج ضغط مثل rer and zib سوف يقل حجمه وتتمكن من رفعه

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة انشىء زر بورقة العمل و الحق به هذا الكود Sub sort() ActiveSheet.Unprotect Application.ScreenUpdating = False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub و لا تنسونا من صالح الدعاء تحياتى

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

بداية الغيث قطرة.. وفر وقتك في كتابة الكودات، طريقة رائعة في إدراج الأزرار برمجياً وربطها بالماكرو بشكل تلقائي.. تحتاج لمسات العباقرة. إضافة أزرار برمجياً2.rar

======================================= وهذا رابط لبرنامج الاعدادي http://up.top4top.net/downloadf-340bahmr1-rar.html

رابط اخر هديه للاستاذ عبد الباري خاص ببرنامج الابتدائي http://up.top4top.net/downloadf-340rzdbp1-rar.html

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ادراج تسلسل محدد بالكودvb تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ________________1.rar ________________2.rar و لا تنسونا من صالح الدعاء تحياتى