بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 02/12/20 in all areas
-
جرب هذا الكود Option Explicit Private Sub Worksheet_Activate() fil_dat_val End Sub '+++++++++++++++++++++++++++++++++++ Sub fil_dat_val() Application.ScreenUpdating = False Dim I%: I = 6 Dim arr Dim rg As Object Set rg = CreateObject("system.collections.arraylist") With rg Do Until Sheets("sheet1").Range("B" & I) = vbNullString If Not .contains(Sheets("sheet1").Range("A" & I).Value) Then _ .Add Sheets("sheet1").Range("A" & I).Value I = I + 1 Loop .Sort arr = .toarray arr = Join(arr, ",") End With With Sheets("sheet2").Range("H2").Validation .Delete .Add xlValidateList, Formula1:=arr End With End Sub '============================== Sub get_values() Dim rg As Object, I%, m%, kY Dim Sh1 As Worksheet, Sh2 As Worksheet I = 6 Set Sh1 = Sheets("Sheet1"): Set Sh2 = Sheets("Sheet2") Set rg = CreateObject("Scripting.dictionary") Sh2.Range("a6").CurrentRegion.Offset(1).Clear With Sh1 Do Until Not IsNumeric(.Range("a" & I)) If .Range("A" & I) = Sh2.Range("h2") _ And .Range("C" & I) >= Sh2.Range("I2") _ And .Range("C" & I) <= Sh2.Range("J2") Then rg(m) = _ .Range("C" & I).Value & "*" & _ .Range("D" & I).Value & "*" & _ .Range("E" & I).Value m = m + 1 End If I = I + 1 Loop End With If rg.Count = 0 Then GoTo End_Me m = 6 For Each kY In rg.keys Sh2.Cells(m, 1).Resize(, 3) = _ Split(rg(kY), "*"): m = m + 1 Next With Sh2.Range("A6:C" & m - 1) .Value = .Value .InsertIndent 1 .Borders.LineStyle = 1 .Font.Size = 14 End With End_Me: Application.ScreenUpdating = True Set rg = Nothing End Sub Saerch_by_date.xlsm3 points
-
تفضل يمكنك ذلك بإستخدام هذه المعادلة بالتنسيق الشرطى =AND(COUNTIF($A$2:$A$310,H2)=0,H2<>"") تنسيق شرطى للمختلف.xlsx3 points
-
السلام عليكم الأفضل تجميع البيانات في ملف واحد ، بل في ورقة واحدة لكن علي كل حال تستطيع إستخدام الدالة ( في لوك اب) مع خاصية المطابقة التامة أي مثل VLOOKUP(X,Range,n,0) أي تجعل الدالة تبحث عن المتغير بالضبط تطابق وإلا ترجع بخطأ وذلك عن طريق المتغير الرابع بالدالة تعطيه قيمة 0 أو False ثم قبل الدالة ، تضيف دالة أخري Iferror والتي تغير نطاق البحث من الملف A إلي B مثلا لو أعطي البحث الأول خطأ تفضل الملف به الدالتين ABC.xlsx3 points
-
3 points
-
وعليكم السلام اتفضل اخى شوف الرابط لاخى واستاذى محمد جزاه الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق2 points
-
السلام عليكم تغضل اخي الكريم ملفك بعد التعديل اتمنى يكون المطلوب Database4.rar2 points
-
بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar2 points
-
2 points
-
2 points
-
بالتوفيق رجاءٌ موجه إلى المشرف مشكوراً غير مأمور. تغيير العنوان ليكون: أصغر قيمة في حقول ضمن السجل نفسه / سجل واحد أو حسب ما يرتئي حتى يكون العنوان معبراً يمكن للباحث الاستفادة من مضمون السؤال وعدم تكراره. وجزاكم الله كل خير.2 points
-
تستطيع ذلك، تحتاج برنامج Android Studio لكي تقوم بعمل تطبيق لعرض الرقم المتصل عن طريق BroadcastReceiver وبعدها ترسله لواجهة الكومبيوتر هذا حل سريع: https://www.cnet.com/how-to/you-can-now-place-and-receive-android-phone-calls-on-your-windows-pc/2 points
-
بعد اذن استاذنا الفاضل واخونا الحبيب استاذ سليم جزاه الله عنا خير الجزاء واثراء للموضوع جلب رقم الصف.xlsx2 points
-
بعد أذن الأخ Ali Mohamed Ali الأخ Saadrafic شاهد المرفق هو يعمل جيدا مع ويندوز 64 والمفروض انه يعمل مع ويندوز 32 لقد قمت بتجربة الكود علي windows 32 bit وهو يعمل جيدا ايضا اذن الكود المرفق سابقا يعمل علي كل من نسختي ال windows سواء كانت 32 bit أو 64 bit Show_Keyboard.xlsm2 points
-
تفضل هذه المعادلة Option Explicit Option Compare Text Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function kh_count.xlsm2 points
-
المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device2 points
-
1 point
-
1 point
-
الاجابة في النطاق الاصفر من هذا الملف Spec_Char.xlsx1 point
-
اتفضل اخى على تم اضافه سطر لمعالجه خطأ / لايوجد سجل حالى On Error Resume Next تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Relation2.accdb1 point
-
بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات =COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4) معادلة حساب عدد التوافق في الشرط من خليتين.xls1 point
-
وهليكم السلام اتفضل راجع الرابط ده ان شاء الله تجد فيه ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم تفضل أخي الملف به المعادلات بالأزرق والأعمدة علي اليسار بالأحمر تستطيع إخفاؤها لكن لاتلغيها فهي داخلة في تركيب المعادلات الاجازات جودة.xlsx1 point
-
شكرا جزيلا اخي الكريم على المساعدة السريعة هذا هو المطلوب وتم تجربته على الشيت الاساسي ونجحت بالفعل جزاك الله كل خير1 point
-
السلام عليكم ورحمه الله اخي الكريم مرفق لك حل بسيط لما تقدمت بطلبه وارجو ان تكون اضافتي البسيطة وافيه لطلبك وشكرا ,,, New Microsoft Excel Worksheet.xlsx1 point
-
اعمل على اصدار 2007 يظهر عندي حفظ في جدول القروض لاخر واحد فقط يعني تنمسح الاسماء السابقة1 point
-
السلام عليكم تواصل معي أخي الفاضل "وجيه شرف الدين" علي الخاص ليخبرني أن الملف به أخطاء وقد صححتها كما أرجو وأحببت أن أضيف الملف بعد التعديل حتي يستفيد منه كل من عنده نفس المسألة فقد غيرت الكود وأضفت عليه بعض الشروحات داخل الكود ليكون دليل لمن يحب التغيير أو التعديل عليه ضبط-كود-توزيع_2.xlsm1 point
-
أزكى التحيّات وأجملها أرسلها لك بكلّ الودّ والحب شاكرًا لك على كل ما قدمت سائلا الله سبحاته وتعالى ان يجعلها في ميزان حسناتك وان يديم عليك نعمه وفضله انه سميع عليم1 point
-
اتفضل اخى الكريم الملف سيتم حذف التاريخ بعد اسبوع من تاريخ اليوم حذف الاسماء.xlsm1 point
-
السلام عليكم ورحمة الله في الملف المرفق تجد ثلاثة حلول... الحل الأول : بالمعادلة أعلاه الحل الثاني : باستعمال المعادلة التالية: =TEXT(A3-A1;"[hh]:mm:ss") or =TEXT(A3-A1;"[hh]:mm") أو =TEXT(A3-A1,"[hh]:mm:ss") or =TEXT(A3-A1,"[hh]:mm") الحل الثالث: بالمعادلة A3-A1= وتطبيق التنسيق hh]:mm:ss] على الخلية (أو التنسيق hh]:mm] إذا أردت عرض الساعات والدقائق فقط). تحويل الفرق بين ساعات ودقائق.xlsx1 point
-
1 point
-
1 point
-
وعليكم السلام استاذ عبدالجيد اطلع عالمواضيع التاليه لعلك تستفيد منها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
1 point
-
1 point
-
رابط ملف شرح الدرس الثالث https://www.gulf-up.com/fma99a0a6cmo الدرس الثالث تابع شرح الدالة IF.xlsm1 point
-
1 point
-
وعليكم السلام-يمكنك الإستعانة بهذا Trasted Location .. إنشاء موقع أمان لملفات الأكسيس توماتيكى1 point
-
1 point
-
اتفضل ان يسر الله لى تعالى قد يكون لى عودة بما يتفضل به الله تعالى على لاتيك بحلول أخرى إن أمكن ذلك بمشيئة الله تعالى قد تكون هناك حلول افضل من ذلك ولكن هذا اول ما خطر ببالى اعتذر ظروفى ولله الحمد على كل شئ لا تسمح لى حاليا بالتركيز أو التفكير اعتذر ان كانت الطريقة مطولة ومعقدة بعض الشئ Change Characters.mdb1 point
-
السلام عليكم ورحمة الله تعالى وبركاته اتقدم اليكم بإهداء بسيط جدا تحويل الرسائل الى نماذج والتحكم الكامل فى الية الظهور والاغلاق والشكل والمضمون ونص الرسالة وعنوانها ولون الخط وحجمه ...... frmMassage.rar1 point
-
بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر1 point
-
1 point
-
وعليكم السلام تفضل أخى هذا كود أحد الإخوة الكرام طھطµطظٹط ظƒظˆط¯ ط§ظ„طھط±طظٹظ„ ط¨ط§ظ„ظپظ„طھط±ط© ط§ظ„ظ…طھظ‚ط¯ظ…ط©.xlsm1 point
-
توكل .. جزيت خيرا وأنا أشهد بنباهتك مرفق الدرس الرسومات التفاعلية.rar وهذا ملف هدية إلى الغالين يستخدم معيارين للرسم COMPLETE_Dynamic Chart Using Option Buttons.rar وتقبلوا تحياتي1 point
-
جرب هذا الملف تحدد كل الأوراق (من الورقة 2 حتى اخر ورقة الورقة الرابعة مثلاُ)وتكتب المعادلة دفعة واحدة Write_all_in_One.rar1 point
-
السلام عليكم ورحمة الله وبركاته الآن سنقوم بشرح الطريقة الجديدة لاضافة شريط ادوات باستخدام لغة التوصيف XML اولا: نقوم باضافة جدول نظام جديد: ننشئ جدول فى عرض التصميم وتكون حقوله كالآتى Field Name Type Field Size ID AutoNumber Long Integer RibbonName Text 255 RibbonXml Memo ونسميه USysRibbons ونحفظه نلاحظ اختفاء الجدول وذلك لان الجداول التى تبدأ ب USys او يعتبرها الاكسس من جداول النظام نفتح الجدول فى طريقة عرض Data Sheet ونضيف اول Tool Bar نضيف اسم الشريط ثم كود XML وهذا ما سنشرحه فى مشاركة قادمة ان شاء الله1 point
-
السلام عليكم أخي الحبيب / بوعلام أولا إسمح لي فقد حذفت النسخة الأخري من الموضوع ، حيث انك وضعتها بالخطأ كما يحدث لنا جميعا ثانيا تفضل هذا الكود Sub t_booking() Dim sh As Worksheet Sheets("مواقيت الأساتدة").Activate last_row = [B10000].End(xlUp).Row Set sh = Sheets("حجز مواقيت الأقسام") last_row2 = sh.[D10000].End(xlUp).Row For rr = 8 To last_row If Cells(rr, 2) = "" Then GoTo 10 t_name = Cells(rr, 2) For day_col = 6 To 14 Step 2 For j = 8 To last_row2 If sh.Cells(j, day_col) = t_name Then t_time2 = sh.Cells(j, 4) t_deprt = sh.Cells(8 * Int(j / 8), 2) & " -- " & sh.Cells(j, 5) new_col = day_col / 2 + 2 For i = 0 To 7 t_time = Cells(rr + i, 4) If t_time = t_time2 Then Cells(rr + i, new_col) = t_deprt Next i End If Next j Next day_col 10 Next rr End Sub وهذا المرفق ، إضغط الزر الأزرق "مواقيت الأساتدة" المواقيت.rar1 point