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

الله ينور عليك يا عبقرينو 😊😊 مش بقولك بتذاكر من ورانا

وعليكم السلام ورحمة الله تعالى وبركاته اولا اشكرك استاد فوزي على هده الكلمات الطيبة هدا شرف وفخر انوله منك ووفقنا الله واياكم لما يحب ويرضى تفضل اخي جرب هدا Option Explicit Sub Delete_tables() Dim ws As Worksheet Dim i As Long, lr As Long, r As Range, j As Long Set ws = Worksheets("كشف الطباعة") Application.ScreenUpdating = False Set r = [H1] With ws lr = .Cells(.Rows.Count, "a").End(xlUp).Row j = r * 35 For i = j To lr If Range("a" & i) > j Then .Range(ws.Cells(j, "A"), .Cells(lr, "E")).Clear End If Next i End With Application.ScreenUpdating = True End Sub حذف الجداول v2.xlsm

ما شاء الله لا قوة الا بالله زادك الله علما ونفع بك عجيب غريب .. علم الإنسان ما لم يعلم كتبت مرحبا جيمي .. رد علي يقول ليس اسمي جيمي وانما انا نموذج لغوي كبير

بتهنيه علي ايه يا بروف دا طلع بيذاكر من ورانا 🤣🤣

Gemini API.accdb

ما شاء الله تبارك الرحمن .. لله درك باش مهندس @فريدالطحان هذه الإفتتاحية لها ما بعدها إن شاء الله من تطور قواعد البيانات بإذن الله ☺️👌🏼

وعليكم السلام ورحمه الله وبركاته مدي المقارنه مفتوح وليس محدود اخي

لعكس الترتيب كما في المثال اتبع الآتي: 1- احذف السلاش (/) عن طريق الاستبدال، وضع مكانها مسافة. 2- إجراء عملية الاستبدال مع حروف البدل: اكتب في مربع البحث: (<[0-9]@>) (<[0-9]@>) (<[0-9]@>) واكتب في مربع الاستبدال: \3 \2 \1 * لا بد أن تكون هذه الأرقام باللغة الإنجليزية واختر أن يكون مربع الاستبدال تحته خط (ctrl + u) 3- استبدال الكل، سيجعل الأرقام كما طلبت، ولكن دون السلاش (/). 4- افتح مربع الاستبدال، واختر في مربع البحث مسافة مع (ctrl + u) يعني استبدل مسافة تحتها خط. وفي خانة الاستبدال اكتب / وبهذا تكون كل الأرقام قد انعكست كما طلبت، ثم احذف الخط الذي تحت الأرقام والسلاش عن طريق البحث والاستبدال.

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

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

السلام عليكم ورحمة الله وبركاته الأخوة والأخوات الكرام قد تم طرح موضوع قريباً طلب لإخفاء نافذة الطباعة وقد قمت بطرح فكرة لتحويل الجدول إلي ملف HTML وعملت عليها وأضفت لها بعض التحسينات + إمكانية طبعتها الي ملف PDF بصمت باستخدام المتصفح جوجل كروم شرح بسيط 1- يتم استدعاء الكود من خلال الأمر GenerateHtmlReport_TEST 2- يتم التعديل علي sqlStr 3- فيما يخص إعداد نموذج HTML يستوعب جميع الاحتياجات أمر صعب للغاية ولكن يمكن عمل نموذج خاص لكل حالة وسيعمل بشكل جيد فيما يخص النسخة الخاصة بـ البريد الالكتروني فهناك المزيد من التعديلات حتي ننتج ملف يحتفظ بتنسيقه عند وضعه داخل البريد أسئل الله التوفيق والسداد إذا أتسع الوقت والجهد سوف أقوم ببعض التعديلات الأخرى "إن شاء الله" لا مانع من أن يتفضل أحداً علينا بلمسته الطيبة ويضيف او يعدل *ملحوظة فيما يتعلق بنسخة البريد الالكتروني بعد انتاج الصفحة فقط قف علي محتواها وقم بتحديد الكل ثم انسخ المحتوي وألصقه داخل البريد الجديد بالتوفيق Export_Print_Table_To_Html_FN1.accdb

اخي الفاضل رجاء مراعاة قوانين المنتدى، وعدم نشر ما هو مخالف. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة جعفر

عليكم السلام ورحمة الله وبركاته حتى يعمل الكود تلقائيا يجب ربطه بحدث مثل تغيير التحديد أو تغيير محتوى الشيت وهذا الكود في حدث تغيير محتوى الشيت Private Sub Worksheet_Change(ByVal Target As Range) Rows("1:16").EntireRow.Hidden = 0 For r = 1 To 16 If Range("b" & r).Value = 0 Then Rows(r & ":" & r).EntireRow.Hidden = True End If Next r End Sub بالتوفيق للجميع

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

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

السلام عليكم أيها الاخوة الأعزاء مرحباًبكم في الاستديو التحليلي لطريقة الأخ العبقري الخبير (ابو البشر) قام أخونا العزيز ( أبو البشر ) بإختيار طريقة عبقرية وسهلة لترتيب الكلمات الثلاث (مستجد) و (دمج) و (قرار) وبدلا من أن يستعمل طريقة أخونا (بحار الأكسس) في أول المشاركة واستخدم الحقل الإضافي والشرط في الجدول IIf([الحالة]="مستجد";1;"") & IIf([الحالة]="دمج";2;"") & IIf([الحالة]="قرار";3;"") أو أن يستعمل طريقة أخونا الفاضل (أبو خليل) المشروحة سابقاً فضل أخونا (أبو البشر) استخدام الشرط نفسه IIf([الحالة]="مستجد";1;"") & IIf([الحالة]="دمج";2;"") & IIf([الحالة]="قرار";3;"") ولكن داخل الاستعلام الخاص بالتقرير أظن أنها فكرة عبقرية و سهلة كثيراً وأظن أيضا أن لكل طريقه مميزاتها و إلا لما كانت مايكروسوفت وضعتها في الاكسس ففي طريقتي أخونا (بحار الاكسس) و أخونا (ابو خليل) وهي طريقة الجدول تصلح أذا كان لدينا عدد كبير من الكلمات التي يتم الترتيب من خلالها وليس ثلاث كلمات كما في المثال لدينا. أما طريقة أخونا (ابو البشر) وهي الشرط داخل استعلام التقرير فهي طريق إحترافية لا تصلح للعدد الكبير من الكلمات التى لن يتسع لها حقل الشرط داخل الاستعلام. والله أعلم. وقال ابن الجوزي رحمه الله: "قوله: ﴿ وَفَوْقَ كُلِّ ذِي عِلْمٍ عَلِيمٌ ﴾ أي: فوق كل ذي علمٍ رفَعه الله بالعلم مَن هو أعلم منه، حتى ينتهي العلم إِلى الله تعالى. تحياتي لكل الأخوة الخبراء والأعضاء الكرام في هذا المنتدى العظيم. أخوكم أحمد دراز 4.rar

فيديوووووو جديددددد في هذا الفيديو هانتعلم ازاي نجيب الصور اللي مرفوعة على موقع شركتك اللي رافعاه على السيرفر بمعادلة في اوفيس 365 وكمان الصورة موش هاتكون صورة هاتكون قيمة وكمان تقدر تعمل فلاتر وتعمل معادلة البحث عن الصورة بطريقة بسيطة جدا جدا https://youtu.be/7WU-Q7n-Y6w

لم اجد طريقة مباشرة لاستخدام دالة image لادراج ملفات فى ملف اكسيل فاستخدمت الكود التالي لحين ورود أفكار اخرى من الأخوة لادراج الصورة من المسار المحدد بالكود ، بناء على اسم ملف الصورة الموجود فى الخانة على يسار الخانة المراد ادراج الصورة بها ولتشغيله علم على الخلايا المراد ادراج الصورة بها فى عمود واحد ـ على ان تكون اسماء ملفات الصورة فى العمود السابق له مباشرة ،ـ او عدل الكود اذا اردت غير ذلك Sub InsertPicture3() Dim StrPath As String Dim StrFlename As String Dim Filename As String StrPath = "C:\Pics\" For i = 1 To Selection.Count StrFilename = ActiveCell.Offset(0, -1).Text Filename = StrPath & StrFilename Selection.InsertPictureInCell (Filename) ActiveCell.Offset(1, 0).Activate Next i End Sub

اعرض الملف استبدال أسماء كل الملفات فى مجلد بحثت عنه ولم اجده ـ على الرغم اني اذكر اضافته سابقا فاضيفه الان لمن يحتاج مثل هذا الكود 1- استخدم الكود السابق نشره لتوثيق كافة اسماء الملفات فى مجلد مكتبة الموقع - تطبيق لتوثيق قائمة بالمجلدات و الملفات و خصائصها - مفيد جداً او كتب اسماء الملفات الحالية الموجودة فى المجلد المستهدف مباشرة فى العمود B 2 - ثم اكتب فى العمود D اسماء الملفات الجديدة 3- شغل الكود لاستبدال اسماء الملفات ، و اختار المجلد المستهدف Sub RenameMultipleFiles() ' add old file name to column B , and new File name to Col D With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False If .Show = -1 Then selectDirectory = .SelectedItems(1) dFileList = Dir(selectDirectory & Application.PathSeparator & "*") Do Until dFileList = "" curRow = 0 On Error Resume Next 'read old file name from column B curRow = Application.Match(dFileList, Range("B:B"), 0) If curRow > 0 Then 'cganeg to new file name from column D Name selectDirectory & Application.PathSeparator & dFileList As _ selectDirectory & Application.PathSeparator & Cells(curRow, "D").Value End If dFileList = Dir Loop End If End With End Sub صاحب الملف محمد طاهر عرفه تمت الاضافه 06 يول, 2024 الاقسام قسم الإكسيل  

بارك الله فيك دكتورنا الغالي جعله الله في ميزان حسناتك يوم القيامه

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

وعليكم السلام ورحمة الله تعالى وبركاته Option Compare Text Public Property Get F() As Worksheet: Set F = Worksheets("Sheet1") End Property Sub Sort_Category() Dim OneRng As Range Dim lr As Long lr = F.Cells(Rows.Count, "E").End(xlUp).Row Set OneRng = F.Range("A2:L" & lr) With OneRng .Sort Key1:=.Columns(5), Order1:=xlDescending, Header:=xlNo End With End Sub '***************************** Sub Filter_and_create_Sheets() Application.DisplayAlerts = False Application.ScreenUpdating = False F.[w1] = F.[E1] RngA = F.[A1].CurrentRegion.Rows.Count RngB = F.[A1].CurrentRegion.Columns.Count F.[A1].Resize(RngA, RngB).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=F.[w1], Unique:=True For Each c In F.Range("W2:W" & F.[W65000].End(xlUp).Row) F.[W2] = c.Value On Error Resume Next Sheets(CStr(c.Value)).Delete On Error GoTo 0 Sheets.Add After:=Sheets(Sheets.Count) Set n = ActiveSheet n.Name = CStr(c.Value) n.DisplayRightToLeft = True F.[A1].Resize(RngA, RngB).AdvancedFilter Action:=xlFilterCopy _ , CriteriaRange:=F.[W1:W2], CopyToRange:=[A1] For r = 1 To 12 n.Cells.EntireRow.AutoFit n.Columns(r).ColumnWidth = F.Columns(r).ColumnWidth Application.ErrorCheckingOptions.NumberAsText = False Next Next c F.Activate End Sub تقرير صف أول 2025.xlsm

شغال والله بس الكهرباء ساعتها فصلت قبل مكنت احاول اعدل فيه هعدل فيه وابعت الملف

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