كل الانشطه

الله يبارك فيك تمت الإجابة

أخي @yasse.w.2010أسعدتني كلماتك الطيبة أتمنى لك كل التوفيق، ويارب تلاقي كل الخير في طريقك دايمًا شكرًا أيضًا على ذكرك لأوفيسينا والسادة المشرفين والأعضاء الكرام، ده شرف لنا إننا نقدر نكون مصدر خير ولو بالقليل مع خالص تحياتي

جرب هذا الكود Sub Hyperlink_cut() Dim selectedFile As String Dim result As Variant ' فتح مربع حوار لاختيار الملف With Application.FileDialog(msoFileDialogFilePicker) .Title = "اختر ملف Excel المراد قطع الرابط معه" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsb; *.xlsm" .AllowMultiSelect = False If .Show = -1 Then selectedFile = .SelectedItems(1) Else MsgBox "لم يتم اختيار ملف.", vbExclamation Exit Sub End If End With ' محاولة قطع الرابط On Error Resume Next ActiveWorkbook.BreakLink Name:=selectedFile, Type:=xlExcelLinks If Err.Number <> 0 Then MsgBox "تعذر قطع الرابط. تأكد أن الملف مرتبط فعلاً.", vbCritical Exit Sub End If On Error GoTo 0 ' تحديد خلية H9 Range("H9").Select ' تحديد الشكل "Rectangle 4" On Error Resume Next ActiveSheet.Shapes.Range(Array("Rectangle 4")).Select On Error GoTo 0 ' الانتقال إلى المرجع "Macro1" On Error Resume Next Application.Goto Reference:="Macro1" On Error GoTo 0 End Sub

أخي الكريم مرفق صورة من أوراق العمل الأولى و الثانية برجاء توضيح ما يتم ترحيلة أو تجميعة من الورقة الأولى للورقة الثانية حسب المسميات الموجودة في الخلايا لأني لاحظت اختلاف فيها فمثلا اسم الجهة و اسم العميل السعر و التكلفة و في الثانية مستحق و مسدد وما المقصود بالبيان في الورقة الثانية لأن مكتوب فيها رصيد مرحل

آه في حقلين منفصلين ؟ اذا هو هو حمود اعجبني جدا : Fix(inOutTime) .. انظر : هذه تأتي بمجموع تأخر الحضور وتأخر الانصراف في حقل واحد وابستخدام fix سأختصر اسطر كثيرة منه Public Function funLoss_In_out(ftr As Integer, comIn As Date, comOut As Date) As Integer Dim i As Integer Dim come_In As Date, come_Out As Date Dim RS As Recordset Dim strSql As String come_In = Format(comIn, "Long Time") come_Out = Format(comOut, "Long Time") strSql = "SELECT tbl_Ftrat.* FROM tbl_Ftrat WHERE (((tbl_Ftrat.id)=" & ftr & "))" Set RS = CurrentDb.OpenRecordset(strSql) If come_In > DateAdd("n", RS!start_free, RS!start_work) Then i = DateDiff("n", RS!start_work, come_In) Else i = 0 End If If come_Out < DateAdd("n", -(RS!end_free), RS!end_work) Then x = DateDiff("n", come_Out, RS!end_work) Else x = 0 End If funLoss_In_out = i + x End Function ................................................... جزاك الله خير .. حتى لو سبقوك .. فكل خبير وله بصمته المميزة ايضا كثرة الافكار والحلول مطلب

اتمنى مساعدتي في التعديل

السادة الأفاضل كل عام وانتم بخير مطلوب ضبط الكود بان يعمل على أى مسار مختلف فمثلا مسار البيانات الان 'C:\Users\mcc\Desktop\11111\[السابع 1-7-2025.xlsb]ملف 1' فعند تغيير المسار فنجد ان الكود لا يعمل مطلوب ان يتم تعديل الكود بحيث يعمل على مسح الارتباط التشعيبى مع تغيير مسار النسخ من البرنامج فى اى مكان على جهاز الكمبيوتر الكود ActiveWorkbook.BreakLink Name:= _ "C:\Users\mcc\Desktop\11111\ÇáÓÇÈÚ 1-7-2025.xlsb", Type:=xlExcelLinks Range("H9").Select ActiveSheet.Shapes.Range(Array("Rectangle 4")).Select Application.Goto Reference:="Macro1" Book1.xlsx

السادة الأفاضل كل عام وانتم بخير مطلوب ضبط الكود بان يعمل على أى مسار مختلف فمثلا مسار البيانات الان 'C:\Users\mcc\Desktop\11111\[السابع 1-7-2025.xlsb]ملف 1' فعند تغيير المسار فنجد ان الكود لا يعمل مطلوب ان يتم تعديل الكود بحيث يعمل على مسح الارتباط التشعيبى مع تغيير مسار النسخ من البرنامج فى اى مكان على جهاز الكمبيوتر الكود ActiveWorkbook.BreakLink Name:= _ "C:\Users\mcc\Desktop\11111\ÇáÓÇÈÚ 1-7-2025.xlsb", Type:=xlExcelLinks Range("H9").Select ActiveSheet.Shapes.Range(Array("Rectangle 4")).Select Application.Goto Reference:="Macro1" Book1.xlsx

اخونا الفاضل أ/ابراهيم الحداد حاولت اطبق الكود قبل طرح الموضع وما ظبطشى ياريت لو تضيفه على الشيت اخونا الفاضل أ/hegazee المطلوب استعراض الفواتير وليس التجميع

حياك الله أخي Data!E$2:E$1091 هذا الجزء يخبر المعادلة أنه يريد سطر فارغ لو تلاحظ أنك تريد البيانات في سطر فيه مثلا (أعباء 20 مليار ) والأعمدة التي بجانبه لا بد أ، تكون فاضية كما هو واضح من شيت الاكسل يعني لا بد من وضع عمود ليس فيه بيانات مثلا Data!E$2:E$1091 مثل ما فعلت أنا أو ممكن تغيره إلى Data!A$2:A$1091 لأنه فاضي أو Data!B$2:B$1091 صحيح لأنه فاضي وممكن يكون D أو E أو F أو ..... لأنها فاضية ما عدا Q أو O لأنهما غير فاضيين خد المعادلة التي أعطيتها لك كوبي وادخلها في الذكاء الاصطناعي حتى يشرحها لك وشوف النتيجة تقبل تحياتي

أهلا أبا خليل الدالة ستناديها مرتين مرة للدخول ومرة للخروج للدخول ستدخل وقت الدخول وقيمة النوع 0 وللخروج ستدخل وقت الخروج وقيمة النوع -1 ومسألتك سأعمل عليها الليلة إن شاء الله إذا لم يسبقني أحد في حلها.

هل هذا ما تريد ؟ 1234 (6).rar

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

و عليكم السلام ورحمة الله و بركاته جرب الملف المرفق (2)استخراج_فواتير_بدون_تكرار.xlsx

السلام عليكم عند اختيار اسم الموظف ونقوم بحجز ايام العياب اريد طريقة اخفاء ايقونة طلب مستخلف عندما يكون عدد ايام الغياب اقل من 10 ايام بارك الله فيكم 1234 (6).accdb

المسألة كالتالي : هذه صورة جدول الحضور من يوم 1/6 وحتى 11/6 الموظف مجاز ايام : 3 ، 4 ، 5 من الشهر بناء على ما تم رصده في جدول الاجازات وغائب يوم : 8 اريد في استعلام اظهار جميع الأيام .. وامام كل سجل حالته : حاضر او مجاز او غائب .. أو تكون ارقام 1 أو 2 أو 3 تعبر عن الحالة

السلام عليكم و رحمة الله استخدم هذه المعادلة =IFERROR(INDEX($D$4:$D$1000;MATCH(0;COUNTIF($N$3:N3;$D$4:$D$1000);0));"") و لا تنسى الضغط على CTRL+SHIFT+ ENTER قبل السحب

الف الف شكر لحضرتك يا فندم الكود يعمل بشكل جيد جدا و التواريخ بتيجي مظبوطه بكرر شكري لحضرتك ولمنتدايا الغالي اوفسينا و الساده المشرفين و الساده الاعضاء

السلام عليكم اسعد الله اوقاتكم جميعا قمت بتصميم تقرير لعرض سعر منتج بحجم كبير جدا ، وعندما وضعت حجم الخط 150 ظهرت لي رسالة التالية كيف يمكنني زيادة الحجم اكثر من 127

اهلا ابو احمد سرني مرورك ومشاركتك هو انا عملتها بالاول دالة واحدة .. بحيث الدالة تساوي i+x ولكني احتاج للتمييز بين وقت الحضور ووقت الانصراف في التقرير وتلوينها .. لذا اضطررت لجعلها دالتين الدالة واضحة وجميلة : inOutTime تمثل حقل الحضور او حقل الانصراف بناء على قيمة المتغير inOutType ولكني لم اعرف اين القيمة المقابلة لــــ inOutType في الاستعلام على فكرة : كنت اعد مسألة اخرى مرتبطة بهذا .. وقفت امامها .

و عليكم السلام ورحمة الله وبركاته حسب فهمي للملف أن الكود يحول البيانات إلى أرقام و تواريخ حسب العمود. و لا أعرف لماذا تمت تسمية زر تشغيل الكود بلصق الاختيارت. قمت بتعديل أشاء بسيطة بالكود للتأكد من تنسيق الخلايا حسب المطلوب بس تأكد من التواريخ المكتوبة يوم و شهر تجرة(2).xlsb

السلام عليكم ورحمة الله وبركاته الساده مشرفي الموقع المحترمين مرسل لحضراتكم ملف به كود عند الضغط علي تشغيل الكود يغير التاريخ اكثر من مره مع العلم بان كل التواريخ في شهر 7 و عند الضغط على الكود اكثر من مره يتم ترحيل شهر 7 ويصبح شهر 8 وذلك لانه مش بيفرق بين اليوم و الشهر لان من يوم 1 الى 12 بيتغير انما من يوم 13 الى 31 لا ينقل الشهر ارجو من حضراتكم افاتدتي شاكر لكم جدا تجرة.xlsb

وهذه دالة مختصرة على نمط دالتيك وهي تعمل للدخول والخروج للدخول النوع 0 أو false للخروج النوع -1 أو true Function LostTime(Period As Integer, ByVal inOutTime As Date, inOutType As Boolean) As Integer Dim rst As Recordset Dim Result As Double Set rst = CurrentDb.OpenRecordset("tbl_Ftrat", dbOpenSnapshot) With rst .FindFirst "id=" & Period If Not .NoMatch Then inOutTime = inOutTime - Fix(inOutTime) If inOutType = 0 Then Result = !start_work - inOutTime + !start_free / 1440 Else Result = inOutTime - !end_work + !end_free / 1440 End If If Result < 0 Then LostTime = Abs(Round(Result * 1440, 0)) End If End With 'rst.Close Set rst = Nothing End Function

الخبير الافاضل منتصر الانسي ارجو تصحيح الكود قمت باضافة زر yes و no اريد عند الضغط علىyes يفتح التقرير ويقوم بالطباعة وعند الضغط علىNO يغلق التقرير Private Sub JOS_Click() Dim TaskDialog As cTaskDialog Set TaskDialog = New cTaskDialog With TaskDialog .Init .ParenthWnd = Me.hWnd .Flags = TDF_RTL_LAYOUT .MainInstruction = "طباعة تقرير" .Content = "هل تريد طباعة تقرير المخنبر" .CommonButtons = TDCBF_OK_BUTTON .IconMain = TD_SHIELD_OK_ICON .CommonButtons = TDCBF_YES_BUTTON Or TDCBF_NO_BUTTON .Title = "المعمل الطبى" .ShowDialog Me.lblButton.Caption = .ResultMain If CommonButtons = TDCBF_YES_BUTTON Then DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf Me.lblButton.Caption = TDCBF_NO_BUTTON Then DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub ممكن لو تكرمت المساعدة فى تصحيح الكود

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