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

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

جرب هذا الرابط https://www.officena.net/ib/topic/64533-فرز-البيانات-باستخدام-الدالة-aggregate-في-الاكسل-2010/ وهذا فيديو للشرح-بصراحة انا لدى اكسيل 2010 واعتقد هذه الدالة موجودة بداية من هذه النسخة فى الإكسيل https://www.youtube.com/watch?time_continue=130&v=DvMFdMg9fEo وهذا فيديو اخر مع وجود ملف لتطبيق شرح الفيديو اسفل الفيديو https://www.youtube.com/watch?v=_JYqzEunsm4 وهنا ايضا شرح https://exceljet.net/excel-functions/excel-aggregate-function

؟؟؟؟؟؟؟؟ وما الفائدة من وجهة نظرك!!!!! وهل هذا الموقع مخصص لدولتك فقط!!! @ابوخليل .. رد عليه أستاذنا لان هذه ليست اداب المنتدى كما تعودنا

حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm

السلام عليكم ورحمة الله انسخ الكود التالى و الصقة فى حدث thisworkbook و غير اسم اسم الورقة الرئيسية "Main" فى الكود ذاته Private Sub Workbook_SheetActivate(ByVal Sh As Object) For Each Sh In ThisWorkbook.Worksheets If Sh.Name = "Main" Or Sh.Name = ActiveSheet.Name Then Sh.Visible = xlSheetVisible Else Sh.Visible = xlSheetHidden End If Next End Sub

ارشحك مشرف وبقوة حتى لو جديد 😉 واستاذن اخي الغالي @محمد سلامة في ان يكون صدره متسع في مشاركتي لانها قد تخالف وجهة نظره انا هنا ساطرح وجهة نظري بعيد عن كل شي وبها خروج قليلا عن الموضوع وفي الاخير هي وجهة نظر شخصية انا صرت اشوف مشاركات بالمنتدي فيها تسويق اكثر من انها مشاركة مثل 1. مشاركة اخينا هنا فهو عرض ميزات وعرض صور فقط مع انه يوجد لمسات كويسة في البرنامج ؟ فهل ياترى لو تحول الموضوع هنا الى استفسار بكيف تم عمل الجزئية الفلانية سنجد الرد ؟ 2. اخوان ياتون بشرح حل وتجده يضع الملف برابط اخر شخصي سواء على قناة يوتيوب او غيره 3. وهنا قمة استخفاف العقول وهو التسويق بطرح رابط قناته فقط وبه شرح لموضوع بسيط ياخذ فيه ساعتين شرح فيديو والمصيبة ان اغلب مافي قناته ان لم تكن كلها اتى بالحل من منتدانا هذا وفي اخر الفيديو يطلب لايكات اخيرا زبدة وجهة النظر عندما يكون هناك علاقة بين طرفين لابد ان يكون هناك منفعة متبادلة وبمستوى مختلف والا ستموت هذه العلاقة يوما من الايام فعلى سبيل المثال في المنتدى هنا انا استفيد من طرح الاستفسار حتى لو هو سهل واعرف اجابته ولكنه يعطيني فكره جديده او معلومه على الاقل فكرة الحاجة فقد تكون جديده ولها قيمتها من زوايا اخرى .. المهم نحن نتبادل الفائده في المشاركات ولو باحتمال 1% من احد الاسئلة السهلة جدا وهنا لو سالت اخي محمد سلامة ماهي فائدتي انا لو شاركة وقيمت البرنامج ؟ من المستفيد وبالنسبة؟ ستجده هنا هو استفاد 100% وانا صفر ؟ معناته هذه المشاركات من هذا النوع المنفعة غير متبادله وبمعنى انها ستموت العلاقة واعتقد هذا مايقصد الاخ @SEMO.Pa3x في كلمة فارغ واعتقد كذلك ان الاخ سيمو عندما قال في دولتك لا يقصد ابدا عنصرية بل كانها محاولة بان الافضل ان تسال في منطقتك لانه فعلا لا استطيع ان اقيم برنامج وانا لست من نفس الدولة الا ان يكون برنامج اصبح دوليا ومنتشرا فهو نصحه وقد يكونون من نفس الدولة لان قصده الطريق الصحيح تقبلو اجمل تحية

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

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

شهادة أعتز بها أخى صالح وكل الفضل لله ثم لهذا الصرح العظيم الذى تعلمنا من أساتذته وأعضائه كل ما نعرفه. لا شكر على واجب أخى على

تفضل حساب العميل 1.xlsx

وعليكم السلام-لك ما طلبت حساب العميل.xlsx

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

جرب هذا الكود Option Explicit Sub tarnsfer_Data() Dim My_rg As Range Dim i% Dim fisrt_row: fisrt_row = 1 Sheets("Sheet3").Range("a1").Resize(500, 10).ClearContents For i = 1 To Sheets.Count If Sheets(i).Name <> "Sheet3" Then Set My_rg = Sheets(i).Range("a2").CurrentRegion Sheets("Sheet3").Cells(fisrt_row, My_rg.Columns.Count + 1) = _ "Begining of " & Sheets(i).Name Sheets("Sheet3").Range("a" & fisrt_row). _ Resize(My_rg.Rows.Count, My_rg.Columns.Count).Value = _ My_rg.Value fisrt_row = fisrt_row + My_rg.Rows.Count + 1 Sheets("Sheet3").Cells(fisrt_row - 2, My_rg.Columns.Count + 1) = _ "End of " & Sheets(i).Name End If Next End Sub الملف مرفق DATA.xlsm

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

تفضل بدون فلتر ( انقر بدون كتابة شيء : يفتح الجميع ) او اكتب الاسم للفلترة مثال2.mdb

الله عليك استاذ سليم والله مبدع دائما

السلام عليكم هذا مثال بسيط يقوم بإرسال بيانات مربع نص إلى مربع البحث في صفحة غوغل يمكنك الإستفادة منه web.rar

كود ممتاز لقد قمت بالتعديل على المرفق ليتم البحث خلال الكتابة بحث.rar

عسى ان يكون المطلوب Crazy_sum.xlsx

اكتب ما تريد ان تبحث عنه واضغط انتر .. عسى ان يفى بالمطلوب بحث.rar

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

وعليكم السلام -منور المنتدى يمكنك استخدام هذا الكود Sub salesvalues() Dim chtChart As Chart 'Create a new chart. Set chtChart = Charts.Add Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí") With chtChart '.Name = "" .ChartType = xlColumnClustered 'Link to the source data range. .SetSourceData Source:=Sheets("ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí").Range("C4:N8"), _ PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "Sales by Customer" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Customer" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total Sales" End With End Sub وفى هذا الرابط سوف ترى شرح أخر https://www.computerna.com/excel-chart/

السلام عليكم تم التعديل على المعادلات حسب الشروط التي ذكرتها (مع إعطاء التقدير "أقل من المتوقع" لكل طالب لا يحقق على الأقل أحد هذه الشروط)... بن علية حاجي التقديرات حسب الجدول.xlsx

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

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

إخواني الكرام حصلت من هذا الموقع على ملف فيه شرح كامل للدوال مع الأمثلة و لكن باللغة الإنكليزية و قد لاحظت قيام بعض الأعضاء الكرام بمحاولة ترجمة تلك الدوال لتعم الفائدة و قررت بأن أشارك معهم بالترجمة ز أرجوا من الجميع المساعدة لإكمال ترجمة هذا الملف سأرفق في موضوعي جميع الدوال التي تمت ترجمتها مني و من قبل الأعضاء الكرام بلإضافة للملف الأصلي و أتمنا التوفيق للجميع الدول التي تمت ترجمتها حتى الآن هي CEILING calculation concatenate CountA CountIF day Roman concatenate Count CountBlank Date exact Time مع تحياتي معتز moutaz.n@hotmail.com calculation.rar Excel_function_by_English.zip CEILING.zip concatenate.rar Count.rar CountA.rar CountBlank.rar CountIF.rar Date_1_.Calculation.zip day.rar exact.rar Roman_1_.Num.rar Time_1_.Cal.rar