بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 30 ينا, 2020 in all areas
-
السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير DCount("[M P R]";"[ben]";"[M P R] = [Person in charge] ")>=2 تفضل الملف بعد التعديل تحياتي PRODUCT.rar4 points
-
السلام عليكم إذا كنت تقصد دمج المراسلات إكسيل - وورد، بالنسبة للتاريخ تضيف إلى كود الحقل الخاص بالتاريخ (في ملف الوورد المعني بدمج المراسلات) العبارة \@ "dd MM yyyy"...3 points
-
جرب هذا السبب في Module1 من بعد Dim KH_Test As Boolean New_folder.rar2 points
-
2 points
-
اولاً يجب ازالة دمج الحلايا (علة العلل لكل معادلة او كود) من الصفحة P الأعمدة 1و 2 و 3 ثانياً أنت لم تذكر للاكسل عن اية سنة تريد جمع ايام اشهر جانفي لذلك قام البرنامج بجمع الايام عن كل اشهر جانفي لكل السنوات تم معالجة الامر REpport.rar2 points
-
2 points
-
طريقة عمل تراجع عن الامر المنفذ عن طريق كود مثل ( ctrl+z) هذا الكود كتبه احد اباطرة VBA عام 2005 Mr.Jan Karel Pieterse لنشاهد المرفقات Undo_Handler.xls2 points
-
2 points
-
2 points
-
بارك الله فيك وزادك الله انت وصاحب الموضوع كل الخير وجعله الله فى ميزان حسناتكم2 points
-
وعليكم السلام -وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة فيتغير سهم القائمة المنسدلة من اليسار الى اليمين ... عندما تقوم بتغيير اتجاة الكتابة بالصفحة من اليسار الى اليمين اى عكس الموضح بالصورة التى قمت انت برفعها2 points
-
السلام عليكم أستاذ جعفر موضوع في قمة الروعة ملاحظة صغيرة في الكود الموضوع بالأعلى : هناك بعض المتغيرات غير مصرح بها مع أنها موجودة في المرفق لكن من يريد تطبيق الكود بشكل مباشر من المشاركة سوف يظهر له خطأ. Public Const msoBarPopup = 5 Public Const msoControlButton = 1 Public Const msoControlEdit = 2 Public Const msoControlComboBox = 4 Public Const msoButtonUp = 0 Public Const msoButtonDown = -1 أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع2 points
-
2 points
-
1 point
-
جرب هذا الكود لتثبيت Text Box Private Sub TextBox1_Change() lr = Range("d" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$3:$S$" & lr) _ .AutoFilter Field:=4, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*" With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub '+++++++++++++++++++++++++ Private Sub Worksheet_Activate() With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub الملف مرفق MY_Saerch.xlsm1 point
-
المثال السابق يبحث في نفس النموذج واذا كنت تستخدم نموذج رئيسي ونموذج فرعي Dim myfilter As String myfilter = "[city]='" & [tx2] & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True المثال مرفق بحث2.accdb1 point
-
جرب المرفق كود بسيط DoCmd.ApplyFilter , "[city]='" & [tx2] & "'" بحث.accdb1 point
-
1 point
-
فعلا لسيادتكم عزيزى خالد سيسكو جزيل الشكر بارك الله فى علم حضرتك كود رائع تسلم تفضلوا بقبول فائق التقدير1 point
-
الاخوة الكرام ارجو مساعدتي في حل مشكلة عند النقر على زر ارتباط شعبي للدخول الى موقع معين في google تضهر هذه الرسالة لا يمكن تنزيل المعلومات المطلوبة1 point
-
1 point
-
السلام عليكم يمكنك استخدام الكود التالي DoCmd.OpenReport "تقرير المصروفات", acViewPreview, , "Teacher = '" & Me.ZTeacher.Column(1) & "'" تحياتي1 point
-
السلام عليكم في هذا الرابط هناك إحدى الطرق الممكنة لعمل ما تريد، عند وصولي إلى حاسب متصل بالإنترنت - إن شاء الله تعالى-سأضع طريقة أخرى.1 point
-
تفضبل اخي الكريم Private Sub Command41_Click() ' تفريغ مصدر النموذج الفرعي SourceObject Me.frm.SourceObject = "" ' اعلان عن متغيير عددي Dim FormCount As Integer Dim i As Integer 'سيكون المتغيير FormCount = عدد النماذج المفتوحة FormCount = Forms.Count ' عمل خلقة تكريرية For i = FormCount - 1 To 0 Step -1 ' استثناء نماذج محددة من الاغلاق وذلك بالشرط التالي ' اذا كان النموذح المفتوح غير النموذج frmHome login ونموذج If Forms(i).Name <> "frmHome" And Forms(i).Name <> "login" Then ' تنفيذ امر الاغلاق DoCmd.Close acForm, Forms(i).Name ' انهاء الشرط End If ' تشغيل الحلقة التكرارية Next i End Sub والله اعلم تحياتي1 point
-
وعليكم السلام ورحمة الله وبركاته الحل الامثل لما ذكرت هو ان تكون قاعدة البيانات Sql Server وهناك شروحات كثيرة تفضل هذا موضوع لاستاذنا الفاضل @Elsayed Bn Gemy تحياتي1 point
-
وعليكم السلام ورحمة الله وبركاته جرب استخدام دالة NZ كالتالي NZ(Text;0) وكما في مثالك اجمالي الدوام بالدقيقة: Nz(DateDiff("n";[وقت الدخول];[وقت الخروج]);0) ساعات العمل الفعلية: Nz([اجمالي الدوام بالدقيقة]/60;0) تحياتي1 point
-
https://youtu.be/p1wFM0d-Ao4 رابط شرح الدرس الثانى من تعليم الاكسيل وفى المرفقات يوجد ملف الشرح الدرس 2 شرح الدالة IF.rar1 point
-
السلام عليكم ورحمة الله وبركاته متابع لك .. لان لدي نفس المشكلة ملف معمول على 2003 وفيها استعلامات مهمة ولااعرف كيف اتعامل معها واريد انا استخدم اوفيس 2013 ولكن لاتعمل الاستعلامات علما بأنه يعمل على اصدار اوفيس 20101 point
-
1 point
-
السلام عليكم ورحمة الله تفضل الملف المرفق وفيد ما تريد بمعادلة صفيف... بن علية حاجي Book121.xlsx1 point
-
كان عليك من البداية استخدام خاصية البحث بالمنتدى فقد تناولت هذه الجزئية فى العديد من المشاركات ومنها : ترحيل من صفحة الى عدة صفحات بإسم الصفحة1 point
-
تفضل -تصبح المعادلة هكذا =IFERROR(IF(ROWS(A$1:A1)>COUNTIF(E$4:E$100,"<>"""),"",INDEX($D$4:$D$100,SMALL(IF(E$4:E$100<>"",IF(E$4:E$100<>"",ROW(E$4:E$100)-ROW(E$4)+1)),ROWS(A$1:A1)))),"") Fathi2.xlsx1 point
-
تفضل Sub exit_end() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub وهذا كود أخر ايضا يلبى طلبك Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub1 point
-
تفضل هذا هو الكود Sub clear() kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo) If kk = vbYes Then Range("b11:C300").ClearContents Range("J11:k300").ClearContents End If End Sub برنامج التنسيق تعديل14.xlsm1 point
-
1 point
-
وجدت درس رائع يقوم بشرح اهم دوال برنامج الاكسل بطريقة سهلة وجميلة حيث يحتوى على شرح الدوال التالية SUM - RAND - RANDBETWEEN - SQRT - ABS - COUNT - COUNTA - COUNTBLANK - MAX - MIN DATE - TIME - DAY - MONTH - YEAR - HOUR - MINUTE - SECOND - ISNUMBER - ISTEXT رابط الدرس دوال برنامج Excel1 point
-
تمت معالجة الامر Option Explicit Sub MY_Data_New() Application.ScreenUpdating = False Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, ro%: ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) SH_from.Cells(3, 1).Resize(MY_max, 6).Copy With T.Cells(ro, 1) .PasteSpecial (xlPasteValues) .PasteSpecial (xlPasteFormats) End With ro = ro + MY_max End If Next SH_from With T.Range("A3").Resize(ro - 4, 6) .Sort key1:=Range("b3"), Header:=1 End With Application.ScreenUpdating = True arraNge_all End Sub '+++++++++++++++++++++++++++++++++++ Sub arraNge_all() Application.ScreenUpdating = False Dim nro% Dim MM% nro = Cells(Rows.Count, 1).End(3).Row Dim color_rg As Range For MM = 4 To nro If Range("B" & MM).Interior.ColorIndex = 2 Or _ Range("B" & MM).Interior.ColorIndex = -4142 Then GoTo Next_MM If color_rg Is Nothing Then Set color_rg = Range("B" & MM).Resize(, 5) Else Set color_rg = Union(color_rg, Range("B" & MM).Resize(, 5)) End If Next_MM: Next If color_rg Is Nothing Then GoTo Contenu color_rg.Copy Range("B" & nro + 1) color_rg.EntireRow.Delete Contenu: Range("B4", Range("B3").End(4)).Offset(, -1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" With Range("A3").CurrentRegion .Value = .Value .Borders.LineStyle = 1 End With Range("A4").Select Set color_rg = Nothing create_borders Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++ Sub create_borders() Dim My_sh As Worksheet, r For Each My_sh In Sheets If My_sh.Name <> "Total" Then r = My_sh.Cells(Rows.Count, 2).End(3).Row My_sh.Cells.Borders.LineStyle = xlNone My_sh.Range("a2").Resize(r - 1, 6).Borders.LineStyle = 1 End If Next End Sub الملف الأخير Laste_flie.xlsm1 point
-
أ.AhmedEmam جرب المرفق عسى أن يكون المطلوب بالتوفيق Increase TextBox.accdb1 point
-
1 point
-
أ.Khalf جرب المرفق وأفدنى بالنتيجة بالتوفيق معايير متعددة لاستعلام.accdb1 point
-
1 point
-
1 point
-
اهلا بك فى المنتدى الكريم بارك الله فيك وجزاك الله كل خير1 point
-
اهلا بك اخ كريم فى المنتدى تفضل هذا الفيديو سيكون فيه الإفادة ان شاء الله https://www.youtube.com/watch?v=aOf9rMVejGI وهذا الفيديو ايضا به ملف البيانات وملف البحث بارك الله فيك https://www.youtube.com/watch?v=Fh6vEmFAXOk1 point
-
1 point
-
ولك ايضا هذا https://ar.soringpcrepair.com/how-print-on-single-sheet-excel/1 point
-
وهناك ايضا موضوع اخر فى المنتدى لطباعة عمود طويل فى صفحة واحدة وذلك عن كريق تقسيمه الى اعمدة صغيرة تفضل https://www.officena.net/ib/topic/85873-كيفية-طباعة-ورقتين-فى-ورقة-واحدة/?tab=comments#comment-544405 ويمكنك ايضا متابعة هذا ,اصبح لديك عدة اختيارات كما تشاء https://academy.hsoub.com/apps/productivity/office/microsoft-excel/تخصيص-خيارات-طباعة-أوراق-العمل-في-microsoft-excel-r71/1 point
-
بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi1 point
-
1 point
-
هذه العبارة أحزنتنى جدا .. لأنه من حقك .. أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم تم التعديل المطلوب كما طلبتم ولكن .. ردكم على رسالتى بعمل مخالف تماما لما طلبتم من حيث الملف أو التطبيق .. البحث فى هذا المثال بحروف أو تطابق من العمود الأول لا تكل أو تمل من السؤال حتى نصل .. هذا من حقكم .. نحن معا.. Tamer 5.rar1 point