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

وعليكم السلام اخى @محمد التميمي عليه الصلاه والسلام جرب ووافنى بالنتيجه بالتوفيق 88.accdb

اليكم اختبار فى عواصم ودول العالم مع لعبة من سيربح المليون تم تعديل الاسئلة لتختبر فى عواصم ودول العالم وستكون طريقة تعليمية ثقافية مسليه ولكن فى موضوع واحد وهو دول وعواصم العالم فك الضغط عن الملف واضغط على فايل Million وعيش حياتك وده الاصدار الاول Million.rar

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

ربما هذا الفيديو يفيدك .... شرح باركود الاصناف والوزن للميزان

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

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

The Code Option Explicit Private Sub Workbook_SheetChange _ (ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Dim Ar(4) Ar(0) = "Sheet1": Ar(1) = "Sheet2" Ar(2) = "Sheet3": Ar(3) = "Sheet4" Ar(4) = "Sheet5" If IsError(Application.Match(Sh.Name, Ar, 0)) Then If Not Application.Intersect(Target, _ Sh.Range("A1:J5")) Is Nothing Then _ Application.Undo End If Application.EnableEvents = True End Sub

أحسنت استاذ منير عمل رائع بارك الله فيك

اضف الى الاستعلام N1: Nz([عدد الموظفين])/Nz([عدد المسجلين]) المستخدم_3.rar تحياتي

ما هكذا تدرج الجداول في اكسل قم بازالة الخلايا زالصفوف المدمجة أولا من الصفحتين

وعليكم السلام-لابد من توضيح المطلوب اكثر من ذلك وجعل رأس الجدول الموجود بالصفحة Iso8 مساوياً تماماً للشكل الموجود بالصفحة report أو عليك توضيح كل خلية بالشكل الموجود بصفحة report من اى عمود سيتم الترحيل الى كل خلية بها من الصفحة الأخرى حيث ان هناك اختلاف كبير بالصفحتين فالمصطلحات باللغة العربية فى صفحة وبالإنجليزية فى الصفحة الأخرى... فيجب عليك توحيد وتوفيق الصفحتين بلغة واحدة

mohamed_th أين الضغط على الإعجاب لهذه الإجابة الرائعة ؟!!!💙

أعمال ممتازة بارك الله فيك

يمكن ان شاء الله ولكن ارى الطريقة الاولى اصح من هذه حسابياً TEST_SUM_SECTOR.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا كود يقوم بجميع برنامج اكسيل وجميع ملفاته المفتوحة ويمكن تنفيذ الامر لجميع البرامج التي تريد اغلاقها بتكرار الامر مع تغيير اسم البرنامج نضع الكود التالي في وحدة نمطية Function TaskKill(ProName) TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im " & ProName, 0, True) End Function ثم نستخدمه في زر امر كالتالي Private Sub Command01_Click() If TaskKill("Excel.exe") = 0 Then MsgBox "تم اغلاق جميع ملفات Excel المفتوحة" Else MsgBox "لا توجد ملفات Excel المفتوحة" End If End Sub تحياتي

غير الى عربية لبلد آخر . و اعد تشغيل الجهاز . عند تصدير الملف . فتحته بالاوتلوك . تظهر عادي غير مشفرة

ليست المرة الأولى التي اقول فيها انه يجب على الجدول في اكسل ان يكون مستقلاُ عن اي بيانات أو خلايا خارجية (خاصة اذا كان هناك عدو الاكواد والمعادلات / الحلايا المدمحة) فوقة صف فارغ الى يمينه ويساره أعمدة فارغة و بدون خلايا مدمحة أو فارغة انصح دائماً باستعمال اللغة الأجنبية لتسمية الشيتات لجسن عملية نسخ الكود ولصقة بدون مشاكل اللغة اي جدول يأتي لا يطابق هذه المواصفات أعتذر عن المساعدة تم ادراح صفين فارغين 8 و 9 لفصل الجدول عن كل شيء Option Explicit Sub filter_me() Dim mot, rg As Range, col% mot = Arabi.Range("M2") Set rg = Arabi.Range("B9").CurrentRegion col = 16 rg.AutoFilter col, mot End Sub '+++++++++++++++++++++++++++++++ Sub show_all() If Arabi.FilterMode Then Arabi.Range("B9").CurrentRegion.AutoFilter End If End Sub الملف مرفق Filter_Ali.xlsm

شكرا لكلماتك الطيبة @a.kawkab لعمل ذلك يمكنك استبدال السطر الخاص بمجلد الاخراج mypath = "D:\USP41 - NF36\" & Range("C9").Value إلى mypath = ActiveWorkbook.Path وتعني مسار المصنف الحالي بالتوفيق

ممنون يا اخي العزيز بارك الله فيك وكثر من امثالك وزادك من العلم

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم TEST_SUM_SECTOR.rar تحياتي

تفضل أخي الكريم هذا هو الكود بعد التعديل Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\USP41 - NF36\" & Range("C9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("c8").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox "Done" End Sub لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته وأيضا فحص ما إذا كان المجلد موجودا أو لا فإذا لم يكن موجودا فيتم انشاؤه ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم ولا تنسوني من صاح دعائكم

تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح"

تم معالجة الامر MY_search (2).xlsx

جرب هذا الماكرو Option Explicit Dim arr, i, x Sub match_all() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With edit_Hyper_for_m: edit_Hyper_for_AO With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub '+++++++++++++++++++++++++++++++++++++++ Sub edit_Hyper_for_m() With Sheets("new") .[m6:m17].Hyperlinks.Delete arr = [transpose(m6:m17)] For i = LBound(arr) To UBound(arr) x = .Range("L:L").Find(arr(i), after:=.Range("L1"), lookat:=1).Row .Range("m" & i + 5).Hyperlinks.Add Anchor:=.Range("m" & i + 5), Address:="", _ SubAddress:=.Name & "!L" & x Next End With End Sub '============================ Sub edit_Hyper_for_AO() With Sheets("new") .[AO6:AO17].Hyperlinks.Delete arr = [transpose(AO6:AO17)] For i = LBound(arr) To UBound(arr) x = .Range("AN:AN").Find(arr(i), after:=.Range("AN1"), lookat:=1).Row .Range("AO" & i + 5).Hyperlinks.Add Anchor:=.Range("AO" & i + 5), Address:="", _ SubAddress:=.Name & "!AN" & x Next End With End Sub الملف مرفق MY_HYPOER.xlsm

ربما ينال اعجابك هذا الملف Create_sheet_with Hyperlink.xlsm

بارك الله فيك اخي الكريم @ابا جودى هذه بعض افضالك علينا وعلى المنتدى اشكرك على الدعوات ... هذا والله ما نحتاجه حقا ... جزاك الله خيرا

أخي @ابا جودى ربما هذا جزء من الحل .... انطر kanory_2.accdb

اخي الكريم ... بالنسبة للسؤال الاخر لماذا لا تستورد بيانات الشعبة والمادة من جداول الطلاب من موقع نور

وعليكم السلام ورحمة الله وبركاته اجابة السؤال .... بسبب ضيق الوقت .... أنظر تعليم.accdb

تفضل ملفك بعد التعديل .... تجربة برنامج خطابات متعددة.rar

طريقة ممتازة اخي @essam rabea .بارك الله فيك

شرح مفهوم أخي شكرا جزيلا