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

الأخ Saeed Abu Salem قم بضغط واصلاح الملف وإن لم يستجب فقم بإنشاء ملف اكسيس جديد واستورد جميع العناصر من الملف القديم ربنا يصلح الحال

جرب هذا الملف صفحة Salim اضغط فقط على زر Run MY_std.xlsm

احسنت كان خطاء مطبعي مني New Microsoft Access قاعدة بيانات (3) (1).accdb

اخى الفاضل أولا قم بقياس الليبل بالمسطرة وبالمليمتر طولا وعرضا .. الليبل نفسه وليس الورق الملصوق عليه ثانيا قم بفتح Printing Preferences كما بالصورة ثالثا قم بإنشاء التقرير المراد الطباعة منه وحدد رابعا ضع جميع عناصر الطباعة على التقرير خامسا تابع الصورة ok ok ok أزل جميع زوائد التقريد عرضا وارتفاعا إن كانت هناك أى زيادات جرب ووافنى بالنتيجة والله الموفق

اولا- الجدول كما يفهمه برنامج الاكسل هو مجموعة من البيانات لا تحتوي على خلايا فارغة ولا مدمجة للغة العربية 1-الى يمينها عامود فارغ او حد الصفخة الايمن 2- الى يسارها عامود فارغ 3-فوقها صف فارغ او حد الصفحة الاعلى 4- تحتها صف فارغ كلمة واحدة الجدول كما يفهمه برنامج الاكسل مجموعة بيانات مستقلة في نطاق لا يجمعها شيء مع غيرها لذلك كي يعمل الماكرو بشكل جيد قمت بتعديل الجدول بوضع صف فارغ في الاعلى (الصف رقم 6) و ازالة الدمج من البيانات لذا ارجو التقيد بهذه المعلومات عند ادراج اي جدول للعمل معه بمنتهى السهولة الكود Option Explicit Sub copy_filter() Dim M As Worksheet: Set M = Sheets("مفرد الراتب") Dim One As Worksheet: Set One = Sheets("1") If M.FilterMode Then M.ShowAllData: M.Range("B7").AutoFilter End If One.Range("B7").CurrentRegion.ClearContents M.Range("B7").AutoFilter Field:=3, Criteria1:="<>0", _ Operator:=xlOr, Criteria2:="=المبلغ" M.AutoFilter.Range.Copy _ One.Range("B7") On Error Resume Next M.ShowAllData: M.Range("B7").AutoFilter End Sub الملف مرفق MOUFRADAT.xlsm

بعد اطيب واجمل تحية اتمنى لكم وقتا ممتعا وفائدة ولاتنسونا من دعاؤكم 🌷 https://www.youtube.com/watch?v=3_QDoXynQs0

تفضل أخى ابو زاهر ووافنى بالنتيجة التقرير.zip

جرب اعمل نسخة احتياطية و قارن النتائج هذا كود لعمل نسخة احتياطية Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" , vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

أخى حربي العنزي قف على يمين الصورة للإجابه الصحيحة لـأستاذنا ابو ياسين المشولي ستظهر علامة (صح) خضراء .. إضغط عليها بارك الله فيكم

في حدث عند الفتح + في ازرار الحفظ Me.AllowEdits = False في ازار الاضافة Me.AllowEdits = True

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

تفضل اليك هذا استاذي عصام السموحه تاخرت عليك يالغالي التقرير.mdb

اتفضل MaskedInputBox 64.accdb

جرب هذا لعله يفي بالغرض كردي.accdb

على حسب جوجل Metran Nav Dîrok Dirêj 😃

فورم البحث بطريقة التالى والسابق الفيديو 4 الفيديو

حفظك الله اخي وجزاك الله خيرا شكرا اخي

تم التعديل على الملف السابق بتعميم المعادلة لكى تعمل على كل الأعمدة وهذه هى المعادلة =COUNTIF(D$7:D7,D7)>1

هو ممكن ترفق مثال ولو به فقط التقرير الخاص بالباركود والجدول او الاستعلام المرتبط به وسطرين تلاته فقط للبيانات

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

وعليكم السلام تفضل تم تلوين المكرر فى نفس العمود الرابع D التوقيت الاسبوعي.xls

شاهد هذا الفيديو https://www.youtube.com/watch?v=ett0WiTfQuI

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

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

ولماذا الاستاذان كلنا نعمل لوجه الله والكل يساعد الاخر

حبيبى ابو ياسين المشولي .. أعتذر إن كنت أجبت دون إستئذان

أخى ازهر عبد العزيز فقط ضع الكود بين علامتى تنصيص "BFEBFBFF000406E3"

كلامك صح وهذا حسب طلب السائل If Me.t1.Caption <> BFEBFBFF000406E3 Then MsgBox "يوجد خطاء", vbInformation, "تنبيه" DoCmd.Quit End If New Microsoft Access قاعدة بيانات (3) (1).accdb

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

شاهذ هذا الفيديو https://www.youtube.com/watch?v=SQHJuc-AdAM

نموذج لما تريد Option Explicit Sub Execut_all() macro1 ''هنا اسم الماكرو الاول macro2 '' 'هنا اسم الماكرو الثاني End Sub

أخى سلمان الشهراني أنظر لهذا الحل لعله يفيد فى معرفة السبب

الأستاذ mustafa khatab ان لا ارى اى ضغط على الإعجاب لإجابة الأستاذ سليم على الرغم انها أعجبتك واعتقد ان هذا هو اقل ما يقدم له لكل هذا المجهود المبذول فى حل مشكلتك

حاول تصغر تقرير الطباعه حسب المقاس

افتح الاستعلام بطريقه التصميم وافتح سكويل وانسخ السكويل وبعدها اعمل استعلام جديد والصق السكويل انا استخدم 2010 وما بعرف استيراد 2003 واظن استيراد الاستعلام نفس استيراد الجدول

أخى نسيم الروح الروح جرب me.X.LEFT=1 * 1440 أو me.X.LEFT=1 * 567 بوصة أو سنتيمتر بالتوفيق

المعادلة الصحيحة =VLOOKUP(C11,$A$1:$CV$7,COLUMN(AM1),0)

جرب هذا الملف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$H$1" And Target.Count = 1 Then sort_please End If Application.EnableEvents = True End Sub '========================= Sub sort_please() Dim Rg As Range Dim s Dim ro%: ro = Range("b2", Range("b1").End(4)).Rows.Count + 1 Set Rg = Range("a1").Resize(ro, 3) Rg.Sort key1:=Cells(1, Range("h1")), _ Order1:=IIf(Range("h1") = 2, 2, 1), Header:=2 s = "Row( 1:" & ro & ")" Range("a1").Resize(ro) = Evaluate(s) End Sub الملف مرفق 0Choose_Num_sort.xlsm

ان شاء الله اسوي لك تقرير كما في ذهنك و اكثر ان شاء الله انا اعرف تعديل الكود اكثر من 37 و اقل من 46 تريد لضيبط صفحتين فقط ولكن انا اريده للعمل عليه حتى لو مئات من صفحات انظر المثال و بعد اضافة سجل 1

الدوال في اكسل لا تتعاطى مع تنسيق الخلايا كل ما تنظر اليه هو محتويات الخلايا وليس لون الخط فيها او لونها بالذات أو طولها أو عرضها الخ.....

جزاك الله خيرا أستاذى @ابو ياسين المشولي

ليش مايكون هكذا بدل المية If Rcount > 37 And Rcount < 46 Then

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

ممكن هذه المعادلة ان تحل المشكلة =SUMPRODUCT(--($C$3:$C$100=$G3),--($E$3:$E$100=H$2),$D$3:$D$100) 10.xlsx

تفضل يمكنك استخدام نفس معادلة Sumifs , المشكلة كانت لديك فى الملف لإختلاف كتابة اسم الصنف لابد من المطابقة دائما بين الأسماء لكى يتم عمل الدالة بكفاءة =SUMIFS($D$3:$D$900,$C$3:$C$900,$G3,$E$3:$E$900,H$2) 1000.xlsx

وعليكم السلام ورحمة الله وبركاته من ارشيف المنتدي اتمنى ان تكون فيه الافادة كود_تحويل_معادلات_الصفيف_.xls

باى برنامج لضغط الملفات انا عن نفسي اقضل برنامج 7zip https://www.7-zip.org/ طبعا الافضل الضعط بامتداد .zip

السلام عليكم ورحمة الله يجب وضع اسماء الصور فى العمود "B" بجوار الارقام اليك الملف المعلومات المدنية.rar

بعد اذن اخي بن علية معادلة اخرى عادية بدون (Ctrl+Shift+Enter) =IF(COUNTA($B2:$X2)=0,"",DAY(OFFSET($A2,-ROWS($A$1:A1),COUNTA($B2:$X2)))) أو هذه =DAY(LOOKUP(9^9,$B2:$X2,$B$1:$X$1)) الملف مرفق last_day.xlsx

لا يمكنك فعل هذا لان لكل ملف خصائصه من ناحية عدد الأعمدة فيه وبداية البيانات ونهايتها بالاضافة الى نوعيتها (نصوص أرقام الخ...) بل يمنكك تعديل الكود بما يتلائم مع وضعية الملف الذي تريد العمل عليه على فكرة تم التعديل قليلاُ على الملف السابق بحيث تستطيع عمل الفلترة على اي عامود من الجدول وليس فقط (Name1) تختار الحقل اولاً من الخلية B1 (يتم اطهار كافة البيانات) ومن ثم تحدد اي عنصر من هذا الحقل تريد من الخلية C1 الملف الجديد مرفق Filter_By_Select_by_col.xlsm