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

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

استاذي الجليل لك جزيل الشكر وزادك الله من علمه و وافر الصحه والمعرفه

تفضل اخي Test.xlsm

تفضل وهذه أسهل طريقة لذلك كما بالصورتين test.xlsx

حياك الله .... بالتوفيق ...

وعليكم السلام -جرب هذا أستاذ محمد بمعادلات المصفوفة Quiry-لمساعدة فى كود استعلام بناء على اكثر من شرط.xlsx

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

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

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

بارك الله فيك وزادك الله من فضله

طيب موجودة في الملف دى حاجة بسيطة جدا فقط =$B2<>""

تفضل تم عمل كل المطلوب بصورة أفضل عند الضغط على New Invoice , سوف يتم الترحيل الى الصفحة الأخرى ثم يكتب رقم الفاتورة التالية لا تقوم بكتابة رقم الفاتورة بنفسك -فالأكسيل سوف يقوم بكتابتها لك كود ترحيل الفاتورة.xlsm

اشكرك أخي @ازهر عبد العزيز الله يشرف مقدارك .... كيف احوالك عساك طيب .... موضوعك يحتاج حكحكة رأس كما يقول الاستاذ جعفر ....

MP3_WAV_Player_SEMO_Pa3x(3).accdb

بارك الله فيك وزادك الله من فضله

كان عليك استخدام خاصية البحث في المنتدى قبل رفع المشاركة فهناك العديد من الموضوعات التي تخص موضوعك ومنها : https://www.officena.net/ib/topic/94275-ضبط-كود-ترحيل-خلايا-رأسية-الى-خلايا-أفقية-بصفحة-أخرى/?tab=comments#comment-584221 كود ترحيل الفاتورة.xlsm

هذا من داخل البرامج

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

تفضل جرب هذا وكلمة السر :500 كود بحث بالأحرف الأولى.xlsm وهذا ملف أخر البحث بأى حرف.xls

تحويل pdf الي اكسيل و العكس بدون برامج | PDF to Excel Converter نتناول في هذا الدرس طريقه احترافيه في تحويل ملف pdf الي اكسيل بدون برامج و تدعم اللغه العربيه حيث ان معظم برامج تحويل pdf لا تدعم اللغه العربيه https://www.youtube.com/watch?v=xS8dN6XSIbM وهذا هو ملف العمل لإكتمال الإستفادة PDF to Excel Converter.xlsm

وهذه مشاركة مع أخي الاستاذ @kha9009lid تفضل ..... دوارة.accdb

تم معالجة الامر (للمرة الثانية) 88888.xlsx

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

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

بعد اذن استاذنا الفاضل استاذ على واثراء للموضوع نسخة من Quiry.xlsm

السلام عليكم من فضلكم هذه لعبة تعتمد على تخمين الكلمة التي ستظهر في الخلية J7 (مؤقتا سأخفيها لاحقا لكي لاتظهر للمستعمل) يكون مسك حروف الكلمة حرفا واحدا بعد الآخر في E11 ثم بالضغط على زر Proposer وفي كل مرحلة 10 كلمات وجب اكتشافها وفي حالة الخطأ تبدأ صورة الشنق في التركيب وعدد الأخطاء المسموح بها في كل كلمة 4 فقط وبعد انتهاء المحاولات تخصم ربع نقطة عن كل خطأ ويتم الانتقال للكلمة الموالية آليا بعد انتظار ثانتين تقريبا ولايتم الضغط على زر جديد nouveau إلا بعد انتهاء المرحلة المكونة من 10 كلمات المشكلة في البحث العشوائي عن الكلمة الموالية في Proposer أريد أن لا يعيد الكلمة فيJ7 وأن تكون الكلمات متغيرة ومختلفة وجزاكم الله خيرا jeu-du-pendu V3-1.xlsm

السلام عليكم الأخ الكريم :وجيه شرف الدين جزاك الله خيرا وأحسن إليك على اهتمامك وردك الطيب. مرة أخرى شكرا لاهتمامك.

سلام عليكم هدية لأحلى منتدى . ياريت تجربوا وتنطوني رأيكم بي الفضل يعود لله ثم لكم ... https://drive.google.com/open?id=1VNsds00H6kKhAl77xr5cKREa83BNnjLJ

شوف ياسيدى خلينا نشرحها بطريقة اكاديمية مضبوطة اولا = لابد من انشاء جدول للمشتريات وجدول لمرتد المشتريات وجدول للمبيعات وجدول لمرتد المبيعات وجدول للاضافة المخزنية وجدول للصرف المخزنى لكى تتم العملية بشكل صحيح اى انه حين اقوم بفتح شاشة البيع هى فقط للبيع وحينما اقوم بفتح شاشة المرتد هى فقط للمرتد اما ان افتح واختار بيع او مرتد من قائمة منسدلة هذا لا يخدم سياسة طويلة الأمد فى تحليل البيانات والتقارير المستخرجه ثانيا = طبعا أى مديول ( المبيعات مثلا ) يحتوى على فاتورة البيع وفاتورة المرتد وفاتورة البيع تحتوى على جدولين ( جدول رئيسى وجدول فرعى ) الرئيسى ------- يحتوى على رقم الفاتورة ، تاريخ الفاتورة ، العميل ، المخزن ( على أن يكون رقم الفاتورة رقم رئيسى لايتكرر ) الفرعى -------- يحتوى على رقم الفاتورة ( للربط بالجدول الرئيسى ) ورقم الصنف والصنف والكمية وسعر البيع والخصم واجمالى القيمة ( جدول محسوب ) ------------- ارجو ان اكون قد وضحت بعض الشئ وانا تحت امرك فى تفسير وتحليل اى نظام تحتاج العمل عليه

تم التعديل على الماكرو Option Explicit Sub Salim_Code_new() Application.ScreenUpdating = False Const lngFirstRow = 7 Const lngRowsPerPage = 25 Dim my_ro#, x% Dim wshSource As Worksheet, wshTarget As Worksheet Dim rgSource As Range, rgTarget As Range Dim lngLastRow#, Final_row#, lngRow# Dim lngNumRows#, lngNumPages#, i# Dim My_arr(), k%: k = 8 + lngRowsPerPage My_arr = Array("Ok1", "", "Ok2", "", "Ok3", "", "Ok4", "", _ "Ok5", "", "Ok6") Set wshSource = Worksheets("الرئيسية") With wshSource lngLastRow = .Range("A:GC").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Set rgSource = .Range("FI" & lngFirstRow & ":GC" & lngLastRow) End With With Worksheets("الجديدة") .Cells.ClearContents Set rgTarget = .Range("A" & lngFirstRow) rgSource.Copy rgTarget.PasteSpecial xlPasteAll Final_row = .Cells(Rows.Count, 1).End(3).Row With .PageSetup .PrintArea = Range("a7:u" & Final_row).Address .Orientation = xlLandscape .PrintTitleRows = "$1:$7" End With End With Application.CutCopyMode = False lngNumRows = lngLastRow - lngFirstRow lngNumPages = lngNumRows \ lngRowsPerPage If lngNumRows Mod lngRowsPerPage > 0 Then lngNumPages = lngNumPages + 1 End If With Worksheets("الجديدة") .ResetAllPageBreaks For i = lngRowsPerPage + 8 To Final_row Step lngRowsPerPage .Range("A" & i).Resize(5).EntireRow.Insert .HPageBreaks.Add Before:=Range("A" & i + 5) .Range("b" & i + 1) = "SUM" If i = lngRowsPerPage + 8 Then .Range("d" & i + 1).Resize(, 18).Formula = _ "=SUM(D" & 8 & ":D" & 32 & ")" Else .Range("d" & i + 1).Resize(, 18).Formula = _ "=SUM(D" & k - 20 & ":D" & k - 1 & ")" End If .Range("a" & i + 2).Resize(, UBound(My_arr)) = My_arr k = k + 25 Next Final_row = .Cells(Rows.Count, 1).End(3).Row .Range("A" & Final_row + 1).Resize(5).EntireRow.Insert .PageSetup.PrintArea = Range("a7:u" & Final_row + 5).Address .Range("b" & Final_row + 2) = "SUM" .Range("a" & Final_row + 3).Resize(, UBound(My_arr)) = My_arr For i = Final_row To 2 Step -1 If .Range("B" & i) = vbNullString Then my_ro = .Range("B" & i).Row + 1 Exit For End If Next .Range("d" & Final_row + 2).Resize(, 18).Formula = _ "=SUM(D" & my_ro & ":D" & Final_row & ")" On Error Resume Next x = .VPageBreaks.Count If x <> 0 Then .VPageBreaks.DragOff Direction:=xlToRight, RegionIndex:=1 End If .UsedRange.Value = .UsedRange.Value .Range("a7").Select End With Application.ScreenUpdating = True End Sub الملف من جديد Example+SALIM.xlsm

عليكم السلام يمكنك عمل مسلسل تلقائى فى عمود A بكتابة هذة المعادلة (AGGREGATE(3;3;$B$2:B2= فى الخلية A2 وسحب الى الاسفل اتمنى ان يكون هذا هو طلبك test.xlsx

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

وزيادة في اثراء الموضوع-تفضل follow hyperlink to hidden sheet in Excel.xlsm

تم معالجة الامر وتعديل المعادلات للحصول على سرعة أفضل اذ ليس من المعقول ان تأخذ جدولا من b4 الى xfd4 ونزولاً على كل الصفوف اي أكثر 17 مليار خلية (عدد سكان الارض ضرب 3) لتبحث من خلاله على خلية واحدة الكود Sub trasnfer_data() Dim DE As Worksheet, D As Worksheet Dim My_ro% Set DE = Sheets("Data Enter"): Set D = Sheets("Data") My_ro = D.Cells(Rows.Count, 3).End(3).Row With D .Cells(2, 1).Resize(My_ro, 64).Interior.ColorIndex = xlNone .Range("C" & My_ro + 1) = DE.[k8] .Range("N" & My_ro + 1) = DE.[k10] .Range("BV" & My_ro + 1) = DE.[k12] .Range("BM" & My_ro + 1) = DE.[k14] 'ok '============================= .Range("F" & My_ro + 1) = DE.[I16] .Range("Br" & My_ro + 1) = DE.[O16] .Range("E" & My_ro + 1) = DE.[AD6] '=========================== .Range("R" & My_ro + 1) = DE.[Af8] .Range("D" & My_ro + 1) = DE.[AD10] .Range("Q" & My_ro + 1) = DE.[ad12] .Range("G" & My_ro + 1) = DE.[ad14] .Range("J" & My_ro + 1) = DE.[ad16] .Cells(My_ro + 1, 1).Resize(, 64).Interior.ColorIndex = 6 End With End Sub الملف My_Salary .xlsm

اهلا بك اخى الكريم فى المنتدى جرب وشاهد هذا الفيديو https://www.youtube.com/watch?v=QB8WpVkg0nk

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

تفضل لك ما طلبت 1حركة العهدة.xlsx

وعليكم السلام انظر من فضلك الى الصورة لترى كيفية تحديد عرض الأعمدة كما تشاء وتريد

تفضل Book2000.xlsx

بارك الله فيك استاذنا الكريم جزاك الله كل خير عمل رائع -بس يا ريت رجاءا تدعيم المشاركة بملف

اخى الكريم اسامة عليك بمشاهدة هذا الرابط لمعرفة كيفية ضبط اللغة عندك https://www.officena.net/ib/topic/87988-اللغه-العربيه-في-الاكسيل-2010-لا-تظهر-بشكل-صحيح/?tab=comments#comment-556696

بارك الله فيك وجزاك الله كل خير

أحسنت استاذنا الكريم بارك الله فيك

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

الملف ليس معطوب ولكن تفضل هذه هى المعادلة وليست مصفوفة -ضعها فى الخلية J2 واسحب للإسفل =IF(C2="","",VLOOKUP(TEXT(C2,"DDDD"),{"Sunday","الأحد";"Monday","الإثنين";"Tuesday","الثلاثاء";"Wednesday","الأربعاء";"Thursday","الخميس";"Friday","الجمعة";"Saturday","السّبت"},2,0))

المشكلة لديك اخى الكريم فكما ترى الملف يعمل بكل كفاءة

وعليكم السلام - تفضل WeekDay.xlsx

تفضل المصنف1.xlsx

تفضل ويمكنك بنفسك عمل مثل هذه المعادلة بالشروط التى تحتاجها على نفس المنوال . =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25&$K$16:$K$25="موز"&"فلبيني"&"اصفر"))

تفضل هذه المعادلة لهذا الصنف-ايضا بتعديل بسيط على معادلة الأستاذ سليم =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25="موز"&"فلبيني"))