بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 23 سبت, 2016 in all areas
-
اخواني الأعضاء الأساتذة الأحباء في المنتدى خلال بحثي عن دود الادخال الى أوراق الأشهر وجدتو ان تسمحو لي ان اقدم لكم كودان لانشاء أوراق العمل بأسماء الأشهر واحد للغة الانكلزيه والأخر ععمل حسب لغة الحاسوب المستخدم ارجو ان يستفيد الاخوة منه وتقبلو تحياتي اللغة الانكلزية Sub DoMonths() Dim J As Integer Dim K As Integer Dim sMo(12) As String sMo(1) = "January" sMo(2) = "February" sMo(3) = "March" sMo(4) = "April" sMo(5) = "May" sMo(6) = "June" sMo(7) = "July" sMo(8) = "August" sMo(9) = "September" sMo(10) = "October" sMo(11) = "November" sMo(12) = "December" For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = sMo(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> sMo(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = sMo(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub مختلف اللغات Sub DoMonths() Dim J As Integer Dim K As Integer For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = MonthName(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> MonthName(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = MonthName(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub الملفات مرفقة اوراق الاشهر بلغة الانكليزية.rar اوراق الاشهر بلغة جهازك.rar3 points
-
السلام عليكم ما شاء الله ، ابداعات متنوعة و اثراءات مميزة للموضوع أسأل الله ان يديم علينا جميعا التواضع و حب الخير ، و أن يجعلنا من المتحابين فيه ، و الا ينزغ الشيطان بيننا2 points
-
بارك الله فيك أخي الكريم عادل بالنسبة لحل الأخ أبو حنين يعمل بشكل جيد ووفق المطلوب بارك الله فيك وجزاه الله خير الجزاء .. فقط يمكن استدعاء الكود من خلال حدث ورقة العمل .. بالنسبة للحل الذي قدمته افترضت فيه الشمولية حيث يمكن الترتيب على أساس أي عنوان لأي عمود ..حيث يتم البحث عن النص الموجود في الخلية J8 وعلى أساس البحث يتم تحديد العمود المطلوب عمل الترتيب عليه .. وأخيراً الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي2 points
-
السلام عليكم اخي عادل هل تقصد بهذه الطريقة الرحلات.rar2 points
-
2 points
-
السلام عليكم هذا الشرح يوضح كيفية عمل تقديرات الطلاب حسب درجاتهم و ذلك من خلال استخدام دالة iif فى استعلام أكسيس تعلم كيف تستخدم دالة iif فى صورتها غير البسيطة بطريقة بسيطة2 points
-
2 points
-
كل المعادلات تنزل فى الخلايا بالكود الحل في حجم ورقة الفاتورة 6.rar2 points
-
2 points
-
تمام يا ريس الدنيا ظبطت معايا ما ننحرمش منك يا غالى1 point
-
جرب تغير حرف الـ k اللي هو Small خليه كابيتال .. بس خلاص1 point
-
عدل المعادلة في الخلية E2 =IF($D2>=1000,($B2-$C2-$D2)/4,"") بالنسبة للجزء الثاني من الطلب غير واضح .. هلا وضعت أمثلة أخرى للتوضيح .. هل هناك ارتباط بين الصفوف؟1 point
-
طلب احد الزملاء طريقة فصل القيم عن الحروف فى ملف اكسيل قام بنسخه من الانترنت ، من هذا الموقع http://www.priceoftravel.com/595/public-transportation-prices-in-80-worldwide-cities/# بالمناسبة الملف عن مقارنة لاسعار المواصلات فى عدة دول ، و لا اعلم مدى دقة بياناته علما بانه بعد النسخ كان طول النص و كذلك طول القيم مختلف من خلية لاخرى مرفق الملف و به المعادلة ، ربما يحتاجه البعض الفكرة فى البجث عن مكان حرف ال $ باستخدام دالة find و تجزيء النص بالطريقة العادية باستخدام دالتي left , right Split PT Prices around the world.rar1 point
-
1 point
-
1 point
-
بالنسبة للطلب الاخير يصبح الكود بالشكل Sub Macro1() Range("D6:I" & Range("D" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:="=" & Range("P4") Range("D6:I" & Range("D" & Rows.Count).End(xlUp).Row).AutoFilter _ Field:=1, Criteria1:="<>معلق", Operator:=xlAnd, Criteria2:="<>حول" End Sub1 point
-
1 point
-
شكرا لك استاذي و اخي مختار حسين محمود على المشاركه حيث انا كل مشاركاتك فعالة اقبل تحياتي1 point
-
1 point
-
1 point
-
استاذى القدير ابو حنين يبدو انى لم استطع ان اشرح الموضوع جيداً .. كان المطلوب انه الخلية فى j8بها قائمة منسدلة وتحتوى على بعض رؤس الاعمدة وعند اختيار اى عبارة منها والتى تمثل راس عمود يتم بناء عليه ترتيب الجدول بمعنى اخر انا عايز الرتب الجدول تصاعدياً وفق تاريخ الرحلة يتم ذلك .. مرة اخرى عايز ارتب الجدول وفق لتاريخ الرحلة تصاعدياً اختار تاريخ الرحلة يتم ذلك عايز ارتب وفق اسم الحاجز اختار اسم الحاجز وهكذا ... استاذى العزيز القدير ياسر ماشاء الله ابدعت فى الحل تسلم ايدك وانار الله لك بصيرتك وقلبك بنوره وحفظك بحفظه اللهم امين1 point
-
وعليكم السلام أخي الكريم عادل جرب الكود التالي في حدث ورقة العمل رابط الكود من هنا تقبل تحياتي1 point
-
1 point
-
1 point
-
السلام عليكم أخي حاتم لم أطلع على ملفلك لانشغالي ولكن قرأت موضوعك وأحببت أن أهديك هدية في نفس الموضوع السابق لعلها تعجبك أنا معلم في مدرسة حكومية ومنذ خمس سنوات أستعمل برنامج aSc الخاص بعمل الجداول المدرسية , وهو من أفضل البرامج لعمل الجداول فأحببت أن أعطيك نسخة من البرنامج مع الشرح ولكن حجم البرنامج كبير و لا يسمح بتحميله هنا إدا كان الأمر يهمك راسلني على البريد الالكتروني لإرساله إليك تحياتي1 point
-
1 point
-
اخي ياسر خليل أبو البراء فعلا : من تواضع لله رفعه ولكني لا اتعالي علي احد ولست افضل من عضو بالمنتدي فجميعنا سواسية1 point
-
1 point
-
1 point
-
اثراء للموضوع هذا الكود Sub InsertSheet() Dim arr() arr = Array("كانون الثّاني", "شباط", "آذار", "نيسان", "أيّـار", "حزيران", "تـمّوز", "آب", "أيلول", "تشرين الأوّل", "تشرين الثّاني", "كانون الأوّل") For i = 0 To UBound(arr) On Error Resume Next If Len(Sheets(arr(i)).Name) = 0 Then Sheets.Add.Name = arr(i) End If Next End Sub1 point
-
أخي الكريم لكي أعدل الملف أحتاج لمعرفة المطلوب بدقة أكثر وتفاصيل أكثر ..تحدث بلغة الإكسيل أي قل في ورقة كذا والعمود كذا المطلوب أن تظهر النتائج بالشكل كذا ... إليك الملف بعد ضبط ورقة الإحصاء فقط إلى حين معرفة المطلوب الثاني ..مع العلم أنني لا أعمل إلا على طلب واحد فقط في كل مرة (حيث أنني أتشتت من كثرة الطلبات) إليك الملف المرفق Baraa Record V1.rar1 point
-
كيف تستخدم دالة dcount لعمل الإحصائيات فى أكسيس؟السلام عليكميشرح هذا الفيديو دالة dcountو هى إحدى الدوال التجميعية فى أكسيستستخدم فى عد السجلات فى جدولعد كل سجلات جدولعد حقل معين بدون شرطعد حقل معين بشرط فى نفس الحقلعد حقل بشرط فى حقل آخرعد حقل بشرطين فى حقل أو حقلينالعد بشرط فى حقل نصى و الشرط الآخر فى حقل رقمىأرجو لكم الفائدةرابط الملف المستخدم فى الشرحhttps://drive.google.com/file/d/0Bw4...ew?usp=sharingجارى رفع الفيديو1 point
-
1 point
-
1 point
-
1 point
-
أستأذن من أساتذتي أبو خليل و جمال السيد الذين أقل ما يمكن ان يقال عنهما أنهما مشعل ينير هذا المنتدى. بعد إذنكم أساتذتي مجددا أريد أن أضع نصيحة صغيرة للذين يريدون الدخول لعالم الأكسس. يجب على المتعلمين الجدد أن لا يستعجلوا على تعلم كتابة الأكواد بل يستعملوا الماكرو لأن به دوال جاهزة و سهلة و بعد التمكن من الماكرو فلا بأس. هذا و الله أعلم إن كان هناك تعقيب أساتذة الكرام1 point
-
1 point
-
1 point
-
تفضل اخى الملف يشتغل على 2003 وانا مستعد للرد على اى استفسار بشأن، الملف فهو مع حجم مدرستى الكبير سهل لى الامور قوائم 2003.rar1 point
-
تحياتي للأخوة الاعزاء Sub Test_1() ' For x = 2 To Range("B" & Rows.Count).End(3)(1).Row vStrings_1 = Split(Cells(x, 2), "$", -1, vbBinaryCompare) vStrings_2 = Split(Cells(x, 2), ")", -1, vbBinaryCompare) Cells(x, 6) = Trim(vStrings_1(0)) Cells(x, 7) = Trim(vStrings_2(1)) Next ' End Sub Split PT Prices around the world_3.rar1 point
-
اخي اسلام انا فهمت طلبك بس اعمل اسماء حقول الجداول انقلش1 point
-
1 point
-
1 point
-
جزاك الله خيرا أخي ممدوح على المرور1 point
-
اخي الفاضل حاول تعيد تسميه حقول الجداول الى اللغه الانقلش وارجع ارفع البرنامج من جديد1 point
-
جرب هذا البرنامج واذا اعجبتك الفكرة اعد تصميم برامجك ارجو ملاحظة العلاقات لا ابالغ اذا قلت ان 70% من نجاح البرنامج تعتمد على العلاقات Counter.rar1 point
-
السلام عليكم ورحمة الله وبركاته استخدم نفس الفكره وهي جدول مؤقت1 point
-
اخي الكريم الرجاء الاطلاع علي الملف المرفق و اتمني ان يكون هذا المقصود المرفق المرفق : الرقم الجديد - الرقم القديم.rar1 point
-
الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك نسألكم الدعاء abo_abary_الرقم الجديد - الرقم القديم.rar1 point
-
السلام عليكم الأخ الدكتور جابر المحترم ، تفضل الكود لقراءة المازربورد Private Sub cmd_Click() Dim objs Dim obj Dim WMI Dim strMBD Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs MsgBox "MotherBoard Number: " & obj.SerialNumber Next End Sub مع وافر الاحترام1 point