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

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

فورم بحث وانتقال للاسم المختار الفيديو الصور

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

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

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

يمكن تنفيذ ذلك باستخدام الحلقات التكرارية او الدورانية ومن اشهرها For ... Next اذا كان نهاية الحلقة معروفة مسبقا مثل حالتنا الان انت تريد توليد 1000 سجل يبدا 70001 وموقع يبدا 3001 اما اذا كانت نهاية الحلقة التكرارية غير معروف ولكن ينتهي بتحقق شرط معين يمكن استخدام do loop جرب المرفق ولم اتمكن من مراجعته لضيق الوقت لدي تحياتي دوارة.accdb

تم معالجة الامر بتصحيح التواريخ (عشوائية) Isdate_new.xlsx

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

السلام عليكم من فضلكم هذه لعبة تعتمد على تخمين الكلمة التي ستظهر في الخلية 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

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

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

وعليكم السلام - تفضل 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="موز"&"فلبيني"))

تساءلت بيني وبين نفسي وما الذي يجعلني أتمسك بالمنتدى بالرغم من كل الضغوط ومشاغل الحياة التي تؤرقني … حتى اصبحت مدمنا على هذا الموقع الرائد " اوفيسنا " وهل لو كانت هنالك رواتب وتعويضات مادية يقدمها موقع " اوفيسنا " كنا سنقدم – او سيقدم الاساتذة - ربع ما يقدموه الآن من دون مقابل مادي؟ أقول لكم نعم هنالك راتب من المنتدى وهو راتب حسي ومعنوي أكثر مما يكون مادياً, إن العضو عندما يقدم موضوعاً فإنه يجتهد في أختياره حتى لو كان منقولاً ,, وعندما يجتهد العضو في البحث والتنقيب ,,فهو بدوره يستفيد من هذا البحث ,, فاجتهاده يكسبه فائدة ومشاركته لها فائدة ولقراءته لمواضيع غيره لها فائدة ومتابعته لردوده وردود غيره لها فائدة لكن عندما يكون العضو ملزماً بعمل ما .. وبمقابل ..فإنه يقدمه بلا روح طيبة.. بدون نفس زكية.. بغير ذلك النشاط.. وذلك البحث المستشري عن الأجمل والأفضل.. سيقدم مادة بلا ذوق.. بلا طعم.,و. بلا نفس لكن عندما يضع شيئا في المنتدى .. ويرتبه.ويهندمه,,.يضعه ونفسه طيبة . .و يضعه لنفسه ثم لنفسه ثم لنفسه فغيري هو أنا وأنا هو غيري,, لأنني المستفيد الأول والأخير من هذا المنتدى راتبي واجري هو أني أخاطِب اصدقائي الذين ربطتني بهم اشد اواصر الصداقة بدون ان نرى بعض اخاف عليهم ... اشتاق لهم ... احبهم كثيرا ... اصبحوا جزء لاينفصل عن حياتي الخاصة – وهذا بدون ان نلتقي – فكل ما يجمعنا المحبة والشعور بان هناك من ينتظرك ... من يشكرك وتشكره .. فعلا نحن فريق عمل يحسدنا الجميع ... أناس طالما حلمت بلقاءهم ,,أو حتى تحيتهم .. راتبي هو إطلاعهم على ما أضع.. راتبي هو توجيههم لي.. واطلاعي على خبراتهم راتبي هو شكرهم.. راتبي هو تقبل نصيحتهم القيمة.., راتبي هوإهدائهم نصائحي المتواضعة, راتبي أن أكتشف ذاتي من خلال غيري.. راتبي معرفة معادن الناس.. راتبي أن أجعل في كل أرض لي أخاً و صديقاً.. وفى كل مكان رفيقاً..راتبي أنني اكتسبت أخوة أعزاء.. راتبي أنني أضفت لرصيدي الكثير من الحسنات .. بتوعية غيري وشغل نفسي بما ينفعني وينفع غيري .. راتبي أنني ازددت معرفة وعلماً من هؤلاء الأحباء.. راتبي أنهم سعوا لمساعدتي. لأنهل من ينبوع المعرفة.. راتبي أنني سعيت لكي أساعد غيري .. كما سعى غيري لمساعدتي بلا مقابل غير دعوه فى ظهر الغيب تسعدني ..,وتسعدهم بعض العبارات منقولة " للامانة " / بتصرف ياسر/ وفقكم الله اخوكم ياسر الحافظ " ابو الحارث "

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