نجوم المشاركات
Popular Content
Showing content with the highest reputation on 07 سبت, 2019 in all areas
-
الاخوة الاعزاء اسعد الله اوقاتكم بكل خير .. في عدة منتديات اجد كثير من المستخدمين يجدون صعوبة في جلب الصورة من الاسكانر لنموذج الاكسس و رأيت امثلة يصعب التعامل معها للمبتدئين و متوسطي الخبرة اليوم اقدم لكم نموذج سهل للتعامل مع الصورة ( صورة من رابط خارجي - صور من الماسح الضوئي - صورة من الجهاز ) كما وضعت متغيير لتسمية الصورة الممسوحة من الاسكانر تفاديا للتكرار من خلال التاريخ و الوقت الحالي كمان ارفقت صورة للمكتبات المستخدمة ليستفيد الجميع منها اتتمنى ان يحوز على استحسانكم .. و دمتم في رعاية الله و حفظه من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً مثال للتعامل مع الصور.mdb4 points
-
لا تكمن المشكله فى صورة واحدة فقط انما مع مسح اكثر من ورقة دفعة واحدة adf Automatic Document Feeder3 points
-
الملف تمام ويعمل بكل كفاءة فقط دائما وابدا لحسن عمل اى كود لابد من تسمية الصفاحات بالإنجليزية وذلك لأن اللغة العربية عندك تحتاج ضبط تفضل Total.xlsm3 points
-
3 points
-
بعد اذن اخي حسين هذا الكود Option Explicit Sub copy_Form_to() Dim M As Worksheet: Set M = Sheets("Main") Dim L As Worksheet: Set L = Sheets("list") If Not IsNumeric(L.Range("g5")) Or L.Range("g5") = 0 Then Exit Sub If Not IsNumeric(L.Range("I5")) Or L.Range("I5") = 0 Then Exit Sub Dim lrM%: lrM = M.Cells(Rows.Count, 3).End(3).Row Dim RgC As Range: Set RgC = L.Range("C6:C35") L.Range("b5").CurrentRegion.Offset(1).ClearContents Dim My_Min: My_Min = Application.Min(L.Range("g5:I5")) Dim My_Max: My_Max = Application.Max(L.Range("g5:I5")) If My_Max > lrM - 2 Then My_Max = lrM - 2 Dim t%, K% Dim r%, c%, X% r = 6: c = 3 My_Min = Int(Abs(My_Min)): My_Max = Int(Abs(My_Max)) For t = My_Min To My_Max On Error Resume Next X = M.Range("c:c").Find(t, lookat:=1).Row If Err.Number Then Err.Number = 0: GoTo next_t If X Then K = K + 1 If K = (RgC.Rows.Count) * 2 + 1 Then Exit For L.Cells(r, c - 1) = t: L.Cells(r, c) = M.Cells(X, 4) r = r + 1 If K = RgC.Rows.Count Then r = 6: c = c + 2 End If next_t: Next End Sub الملف مرفق aaaa.xlsm2 points
-
2 points
-
أما إذا أردنا دمج الاسطر فقط دون اضافة فاصلة، بيتم استبدال السطر التالي 'replace with comma .Replacement.Text = ", " بالاتي ' replace only without comma .Replacement.Text = " "2 points
-
السلام عليكم و رحمة الله و بركاته في المثال المرفق آلة حاسبة بمميزات رائعة الة حاسبة.rar2 points
-
سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb1 point
-
1 point
-
أعجبتني فكرة الرجستري جرب هذا التعديل: za-font style and align-LAST.rar1 point
-
السلام عليكم حسب علمي لا أظن أن هناك طريقة لإسترجاع الجداول المحذوفة لهذا السبب ينص دائما بأخذ نسخة إحتياطية من القاعدة من حين إلى آخر1 point
-
طالما انك لا تريد رفع الملف فهذا الخطأ من اعدادات الكمبيوتر لديك فحاول تغيير اسم صفحة التقرير اليومى باللغة الإنجليزية الى مثلا Daily Report وقم بتغييرها ايضا فى الكود وحاول تنفيذ الكود مرة اخرى يجب ان تكون اسماء الصفحات باللغة الإنجليزية لضمان كفاءة عمل الكود بارك الله فيك1 point
-
1 point
-
هذه محاولة ان لم يعجبك انتظر احد الاساتدة ليجيبك Option Explicit Sub copy_list() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lr, x, r Dim rng1 Dim rng2 Application.ScreenUpdating = False Set ws1 = Sheets("main") Set ws2 = Sheets("list") With ws2 .Range("b6:c10000").ClearContents Set rng1 = .Range("g5") Set rng2 = .Range("i5") If rng1 = "" Or rng2 = "" Then Exit Sub r = 6 lr = ws1.Cells(Rows.Count, "c").End(xlUp).Row For x = 3 To lr Select Case ws1.Cells(x, "c").Value2: Case rng1 To rng2 .Range("b" & r).Resize(1, 2).Value = ws1.Cells(x, "c").Resize(1, 2).Value r = r + 1 End Select Next x End With Application.ScreenUpdating = True End Sub aaaa.xlsm1 point
-
1 point
-
1 point
-
ربنا يكرمك كلنا نتعلم من بعض وللاستفادة لعامة الإخوة غيرنا المتغير الذى نحفظ فيه قيمة ناتج الجمع من Integer إلى Double حيث يمكن وجود علامة عشرية و أرقام بعدها1 point
-
@عبد الفتاح كيرة بارك الله فيك استاذي واجدها فرصة مناسبه لشكرك على ماتقدم من دروس في قناتكم على اليوتيوب1 point
-
تمام يا فندم هذا هو المطلوب قلت أصلى العصر ثم أفتح مرفقك وجاءنى الحل نفسه و أنا أصلى بارك الله فيك1 point
-
جرب المرفق kera11.accdb Dim myc As Double1 point
-
:: الجداول هي التي تحفظ البيانات وليس حقول النموذج غير المنظمة. عموما ليس لدي طريقة للحفظ في النموذج.1 point
-
1 point
-
1 point
-
غير الماكرو بهذا Sub TEST() Dim lr With Sheets("HR") lr = .Cells(Rows.Count, 1).End(3).Row + 1 If Application.WorksheetFunction.CountIf(.Range("A5:A10000"), .Range("y1")) > 0 _ Then MsgBox "الرقم الذي ادخاله موجود في القائمة", vbInformation: Exit Sub If .[y1] = "" Then Exit Sub .Range("a" & lr).Value = .[y1].Value .Range("e" & lr).Resize(1, 31).Value = .Range("am6").Resize(1, 31).Value End With End Sub1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
الله يبارك فيك دكتور جزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك1 point
-
1 point
-
اعتذر منك لم افهم المطلوب بشكل صحيح على كل حال لحساب المجموع التراكمي Nz(DSum("[حقل المجموع]";"الجدول";"[id]<=" & [id]);0)1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
شوف عملت لك توسط وحفظ لون الخط كمل الباقي لان وقتي والله مايسمح هي نفس الفكرة za-font style and align-LAST.mdb1 point
-
طبعا كل اساتذتى الكرام واخوانى الاحباب كفوا ووفوا جزاهم الله خيرا ومساهمة من العبد الفقيـر الى الله هذا المرفق للاستاذى الجليل ومعلمى القدير الاستاذ @أبو آدم جمال المرفق فى انه ان وجدت اكثر من طابعة يمكن فى كل مرة اختيار احداهم بكل يسر ومرونة NA_ReportPrenter.mdb1 point
-
1 point
-
بالتأكيد طبعا جرب بنفسك كل ما عليك هو سحب المعادلة الى الأسفل كلما قمت بكتابة بيانات جديدة1 point
-
وعليكم السلام تفضل اخى الكريم لك ما طلبت موعد استحقاق الايجار.xlsx1 point
-
عليك بإكمال المشاركة كوضع البرامج فى روابط مباشرة وسهلة كما عليك توضيح اسم المستخدم وكلمة السر1 point
-
1 point
-
1 point
-
بارك الله فيكم جميعا وجزاكم الله كل خير والحمد لله الذى بنعمته تتم الصالحات1 point
-
1 point
-
1 point