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

إن شاء اللّه تكون هي المطلوبة =SUM(B2:M2)/COUNTIF(B2:M2,">"&0)*12 بالتوفيق

Private Sub TextBox1_Change() Dim dFrom As Date, dTo As Date, lr As Long With ActiveSheet lr = .Range("B" & Rows.Count).End(xlUp).Row If TextBox1.Text <> "" Then .AutoFilterMode = False dFrom = .Range("F1").Value2 dTo = .Range("G1").Value2 With .Range("B2:Q" & lr) .AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr .AutoFilter 8, ">=" & CLng(dFrom), xlAnd, "<=" & CLng(dTo) End With Else .AutoFilterMode = False End If End With End Sub

السلام عليكم ورحمة الله الاخ ABOU ELSAAD يمكنك استخدام الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long Dim a As Integer, b As Integer, d As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then a = WorksheetFunction.Min(ws.Range("A" & x & ":AE" & x)) b = WorksheetFunction.Max(ws.Range("A" & x & ":AE" & x)) ab = b - a + 1 d = WorksheetFunction.Count(ws.Range("A" & x & ":AE" & x)) If ab = d And d > 1 Then Abst = " يوم " & " (" & a & " - " & b & ")" ws.Range("AL" & x) = Abst Else Abst = C.Value & Com & Abst ws.Range("AL" & x) = Left(Abst, Len(Abst) - 1) End If End If Next C Abst = "" x = x + 1 Loop End Sub

مشاركة قاعدة البيانات على جهاز mycloudex2ultra الموضوع مطروح للأفكار والنقاش للأستفادة منه وهو يعتبر الجيل الجديد من السيرفيرات المصغرة توجد العديد من الأنواع . لكن هذا النوع الذي أعمل عليه و قمت بتجربته مشاركة قاعدة البيانات البسيطة و محدودة المستخدمين على جهاز كمبيوتر مشاكلها كثيرة وتتطلب الدعم الفني بصفة مستمرة . . . لكن حين الأنتقال للجيل الجديد تبدو المشاركة بسيطة وسلسة و مستوى أمان عالي على مستوى المستخدمين وقاعدة البيانات ومن مميزاتها : سهولة توصيله مع الرواتر النسخ المتماثل للسيرفير المصغر بواسطة تقنية RAID 1 و العديد من تقنيات النسخ النسخ الأحتياطي الأوتوماتيك للقاعدة الخلفية الربط المتباعد بين الفروع عن طريق ربط الجهاز بالأنترنت متجر لتنزيل التطبيقات المخصصة لقواعد البيانات و الصيانة و نشر المحتوى سهولة التعامل مع لوحة التحكم من مميزاته في حالة قيام المستخدم بحذف ملف بالخطأ من مجلد المشاركة يتم نقله إلى مجلد خاص TimeMachineBackup تطبيق ربط الطابعات و أجهزة الماسح الضوئي على السيرفير . يتطلب أشتراك رمزي مدفوع تحديث أوتوماتيك لــ Firmware يمكن أنشاء نموذج ووضع ال ip بالمستعرض داخل تطبيق الأكسيس حتى يمكن التعامل معه بسهولة كل هذه تعتبر الوجبة . . لكن ماهي النكهة . أنه : phpMyAdmin مدمج و مجاني ماعليك سوى تنزيله من متجر التطبيقات وهو تطبيق قواعد البيانات SQL أذا أردت تطوير قاعدة بيانات الأكسيس و الأنتقال لقواعد البيانات sql لا تحتاج سوى نصف ساعه . . والله الموفق

تفضل التعديل حسب فهمي ملاحظة : تجنب التسمية باللغة العربية استعلام-1.rar

كعادتك مبدع يا أستاذي كما هو مطلوب. جزاك الله خيرا.

ألف مليون شكر وجزاك الله كل خير وجعله الله في ميزان حسناتك

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

السلام عليكم و رحمة الله و بركاتة لن تحتاج الى الاكسل فى تطبيق نظام الفاتورة الالكترونى الجديد فيما يلى البيان الخاص بنظام الفاتورة الالكترونى من مصلحة الضرائب وحـــدة اعــــــلام مكتب رئيس مصلحة الضرائب المصرية ===== مصلحة الضرائب المصرية تصدر قرارا رقم (443) لسنة 2021 بإلزام ٣٧٣٧ شركة مسجلة بمأموريتى الاستثمار والمساهمة بالقاهرة بالإنضمام لمنظومة الفاتورة الإلكترونية إعتباراً من 15ديسمبر2021. رئيس مصلحة الضرائب المصرية : - تخصيص رابط على موقع مصلحة الضرائب المصرية يمكن من خلاله للممولين والمسجلين الذين شملهم قرار الإلزام رقم (443 ) لسنة 2021 التأكد من وجودهم بقرار الإلزام بمنظومة الفاتورة الإلكترونية أصدرت مصلحة الضرائب المصرية قرارا رقم (443) لسنة 2021 بإلزام المجموعة الاولى من الشركات المسجلة فى مأموريتى الاستثمار والمساهمة بالقاهرة ، وفقًا لبيان مرفق لهذه المجموعة من الشركات بإجمالى عدد (3737 ) بإصدار فواتير ضريبية إلكترونية عما تبيعه من سلع أو تؤديه من خدمات ، وذلك إعتباراً من 15ديسمبر 2021. وقال " رضا عبد القادر رئيس مصلحة الضرائب المصرية "إن المصلحة قريبًا ستقوم من خلال الرابط التالى على موقع مصلحة الضرائب المصرية https://www.eta.gov.eg/ar/content/enquiry-services بإتاحة خدمة تمكن الممولين والمسجلين الذين شملهم قرار الإلزام رقم (443 ) لسنة 2021 عن طريق إدخال رقم التسجيل الضريبى الخاص بهم التأكد من وجودهم بقرار الإلزام بمنظومة الفاتورة الإلكترونية. وأشار " عبد القادر " أن صدور هذا القرار يأتى تنفيذًا لقرار وزير المالية رقم (188) لسنة 2020 بشأن إلزام المسجلين بإصدار فواتير ضريبية إلكترونية تتضمن التوقيع الإلكتروني لمُصدرها ، والكود الموحد الخاص بالسلعة أو الخدمة محل الفاتورة المعتمدة من مصلحة الضرائب المصرية، وكذلك توجيهات "وزير المالية " بسرعة التحول الرقمي وتحسين الخدمات المقدمة للممولين والمجتمع الضريبي ، حيث تأتى منظومة الفاتورة الإلكترونية كأحد مشروعات تطوير المصلحة ، والتى تهدف إلى دمج السوق غير الرسمي للمنظومة الرسمية ومحاربة التهرب الضريبي ، واستيداء مستحقات الدولة. وأوضح " عبد القادر " أن هناك عدة ضوابط وشروط فنية يجب على هذه الشركات أن تلتزم بها وهى إستخراج شهادة التوقيع الإلكترونى ، وإستخدام نظام تكويد GS1 أو EGS ، وتنفيذ إجراءات تسجيل الشركة بمنظومة الفاتورة الإلكترونية بإستخدام رقم التسجيل الضريبى والإيميل الخاص بالشركة ، لافتًا إلى أنه يجب توفير البيانات اللازمة لتسجيل مسئول إدارة منظومة الفاتورة الضريبية الإلكترونية بالشركة وهى الإسم ، والصفة ،و الرقم القومى ، ورقم الهاتف، و الإيميل الشخصى. وأستكمل " عبد القادر " الضوابط والشروط الفنية التى يجب على الشركات الإلتزام بها قائلًا إنه يجب على هذه الشركات تنفيذ الخطوات اللازمة للتكامل مع منظومة الفاتورة الضريبية الإلكترونية بالمصلحة وحالات الإختبار الخاصة بوظائف المنظومة وذلك للشركات التى يتوافر لديها ERP SYSTEM (نظام لإصدار الفواتير) ، لافتًا إلى استخدام بوابة منظومة الفاتورة الالكترونية (Portal) وذلك للشركات التى لا يتوافر لديها ERP SYSTEM (نظام لإصدار الفواتير) وفقا للمعاييرالتى تحددها مصلحة الضرائب ، وكذلك البدء فى إصدار الفواتير الكترونياً من خلال بيئة التشغيل الفعلى للمنظومة. ولفت " رئيس مصلحة الضرائب المصرية " إلى أنه يجوز لغير الشركات المشار إليها فى هذا القرار استخدام منظومة الفاتورة الضريبية الإلكترونية بعد إستيفاء الشروط والضوابط المشار إليها في القرار . وأكد " عبد القادر " أن هذه الشركات يمكنها من خلال البريد الإلكترونى eInvoice@eta.gov.eg ، أن تتواصل مع المصلحة للرد على كافة الإستفسارات لديها ، مضيفًا أن هناك الخط الساخن 16395 والخاص بمركز الإتصالات المتكامل التابع للمصلحة والذى يقوم بالرد على كافة الإستفسارات وتقديم الحلول للمشكلات .

متشكر جدا لحضرتك

بما ان الأوفيس عندي بالعربي راح يكون الشرح بالعربي في البداية تقوم بإنشاء ماكرو لفتح للنماذج و التقارير هذا الماكرو هو ازار الأوامر الذي سيتم اضافته في شريط الأوامر و بعد الانتهاء من انشاء الماكرو الآن نقوم بإضافة تبويبات جديدة حسب الحاجة الصوة التالية تضوح الخطوة النهائية

المشكلة انك تكرر الحلقات يعني كتبت for a= .... next. a for a=……… next a لابد من تغيير الحرف عندك حلقتين ينفس الحرف a

جزاك الله خير تمام هو المطلوب

اولا اشكرك جدا علي الرد لكن انا محتاج افهم و شرح للمعادلة اذا امكن و اكون شاكر جدا لحضرتك

Private Sub Workbook_Open() If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("D:").SerialNumber) <> "F8BCE74D" Then MsgBox "Message 1" ThisWorkbook.Close True End If If Date >= DateValue("12/12/2021") Or Sheets("Sheet2").Range("A48") = "mosaad" Then MsgBox "Expired", vbExclamation If InputBox("Enter Password") <> "123" Then Sheets("Sheet2").Range("A48") = "AA" MsgBox " Message 2 " ThisWorkbook.Save Application.Quit End If End If End Sub

array هذي عبارة عن جدول او جداول ubound للاشارة عن البعد الاخير سوى لاعمدة او للصفوف للجداول مثلا استخدام Ubound للـ Array A = Array(1,2,3,4,5) لمعرفة عدد بيانات المتغر A msgbox Ubound(A) طبيعة الحالة النتيجة 4 لان اي جدول يبداء بصفر وليس بـ 1 الا اذا تم الاشارة في بداية المودويل بالجملة Option Base 1 كالتالي Option Base 1 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) MsgBox UBound(A) ' 5 End Sub او بدون الاشارة كالتالي النتيجة 4 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) MsgBox UBound(A) ' 4 End Sub وبطبيعة الحالة عند استخدام الحلقات التكرارية يستخدم للمصفوفات للاشارة للبداية بكلمة Lbound بدلاً الخطاء اذا اشرت بـ 0 او 1 وللاشارة بالنهاية بـ Ubound كالمثال التالي Option Base 1 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) For i = LBound(A) To UBound(A) MsgBox A(i) ' 1,2,3,4,5 Next i End Sub ولها استخدامات اخرى بإمكانك مراجعة موضوع استاذنا الغالي عبدالله باقشير لشرح المصفوفات

شكرا لمروركم الكريم أحبتي في الله وفقنا الله جميعا لكل ما يحب ويرضى

أشكر جميع الإخوة على المرور الكريم نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

السلام عليكم و رحمة الله أخي الموسطي لتحويل اي تاريخ الى هجري فقط قم بإضافة الرمز B2 قبل التاريخ على فرض dd/mm/yyyy تصبح b2dd/mm/yyyy دمت في حفظ الله

الاخ الفاضل زين وبعد اذن الاستاذ الفاضل بن علية ان شاء الله يكون هذا هو المطلوب Classeur2.rar

السلام عليكم ورحمة الله أخي الكريم، لست أدري لماذا لا يعمل معك أي تنسيق من التنسيقات المقترحة... طبقت بعض التنسيقات على الخلايا في ملفك وكلها أعطت النتيجة المرغوبة... أنظر الملف المرفق... أخوك بن علية Classeur2.rar

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

ياريت توضح أكثر حتى إن كنت تريد إرفاق صورة يجب وضع مسار وامتداد الصورة jpg or gif or png

يبدو أن الأخ ابو مشاري لم يفهم قصدي جيدا بدليل الملف المرفق لم يحتو على المطلوب منه والملف المرفق به حل قمت به له في موضوع سابق ويؤدي الغرض تماما بإرسال نص رسالة معينة إلى كل عميل متأخر وله بريد وإذا كان موضوع إرفاق ملف في الرسالة هو الذي زاد فيمكنك وضع هذا السطر قبل سطر الإرسال .Send ضع هذا السطر المسئول عن إرفاق ملف للرسالة .AddAttachment "c:\myfolder\myfile.xls" حيث يتم تمرير المسار الكامل للملف المرفق وإمتداده

تمام يعني الملف المرفق سيكون ملف إكسل وأقترح أن يكون اسم الملف (المعاملة) موجودا في الشيت الأصلي الذي يتم الإرسال من خلاله ويفضل أن يكون اسم الملف هو مثلا رقم المعاملة آخر شيء ياريت ترفق لي ملفك مع مثال لملفين معاملة حتى يتم التجريب عليهم وللعلم تم التوصل لكود الإرسال بواسطة الموقع الأول في عالم البريد والانترنت yahoo.com وبعد إرفاقك للملفات سيتم كتابة الكود الذي يسمح لك بالإرسال بواسطة أي واحد من الموقعين إن شاء الله تحياتي أخوكم أبو عبد الله محمد صالح

اين توجد هذه الصورة؟(الملف المرفق) وما اسم الملف المرفق لكل عميل؟

شكرا أخي ابو خليل ويوجد أخي الكريم طريقة لتصليح الأخطاء الموجودة في أوفيس 2007 وذلك كما يلي: اضغط على زر الأوفيس اختر خيارات الوورد word options اختر التبويب مراجع resources اضغط على diagnose لصيانة وإصلاح برنامج الأوفيس

خيرا إن شاء الله إذن تريد تريد إرسال رسالة محددة النص لكل عميل تختلف فقط في بيانات الرسالة التي تأخذ بياناتها من شيت إكسيل تمام ما الذي تريد إرفاقه لكل عميل؟ هل ترفق الشيت كله؟ لا أعتقد

أخي الكريم أبو مشاري ماذا تريد بالضبط؟ هل تريد إرسال بريد من خلال gmail أم من خلال برنامج outlook ؟ برجاء التوضيح والاستفاضة في الشرح والله الموفق