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

الكبير هو الله .... حياك الله وبالتوفيق

وعليكم السلام انظر المرفق ...... Fill_Dates.mdb

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

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2 , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter) =MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255) اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف =TRIM(LEFT(A2,LEN(A2)-LEN(B2))) فصل الكلمات العربية عن الانجليزية Seperate Mix Text.xlsm

اليكم برنامج دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية https://top4top.io/downloadf-16358l24f1-rar.html وهذا رابط اخر على ميديا فاير دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية ارجو ان ينال اعجابكم

كود تعبئة الكومبوبوكس باسماء الشهور

السلام عليكم أ /Ali Mohamed Ali شكرا لحضرتك وربنا يجعلو فى ميزان حسناتك

السلام عليكم ورحمه الله وبركاته لو سمحتوا يا أخوة عندي طلب عند تصفية أي رقم من العمود ، أريد الرقم يُسجل بالخلية (B14) وجزاكم الله خيراً SO00OS.xlsx

حياكم الله أخي الكريم

اخي اسلام يبدو انك ما جربت المرفق امس

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

اي نوع من اجهزة البصمة ؟ ريدر ام اجهزة البصمة المعروفة حاليا الريدر هي التي تتعامل مع الواجهات مباشرة اما اجهزة البصمة الاخرى فهي تسجل ويتم استيراد البيانات من قاعدة بياناتها

وعليكم السلام-تفضل تم تعديل الفورم وضبطه Reservation HOTEL(2021).xlsm

جرب هذه المعادلة =IF(ISERROR(MATCH(E4,{8;9;16;18},0)),"خطأ","صح") sooos.xlsx

شكراً لك أخي الكريم ع تعبك ومجهودك وجزاك الله خيراً

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

اطلعت على الملف فوجدت ان عملك بخصوص تاريخ ووقت الحضور صحيحا لو طرحت تاريخ الحضور من الانصراف لنتج لنا ساعات الحضور الكلي /// ولو طرحت عدد ساعات الحضور الرسمي من ساعات الحضور الكلي لنتج لنا ساعات الحضور الاضافي

المعادلات المطلوبة (تسحب نزولاً قدر ما تريد عندها يختفي كل شيء من الصفر وما دون) المعادلة الصحيحة في ِA4 =CHOOSE((SUM(A3,-$D$2)<=0)+1,SUM(A3,-$D$2),"") المعادلة الصحيحة في B4 =CHOOSE((A4="")+1,SUM(B3,F$2),"") المعادلة الصحيحة في C3 =CHOOSE(OR(A3="",B3="")+1,A3*B3,"") المعادلة الصحيحة في E2 =SUM(C3:C1500) الملف مرفق Market abo azzam.xlsx

شكرا لكلماتك الطيبة ولا يخفى عليك إمكانية دمج الدالتين في دالة واحدة مع تمرير باراميتر ثالث يحدد النوع صفر أو يترك فارغا للحالة الأولى 1 أو أي رقم غير صفر للحالة الثانية Function kest(total As Double, start As Date, Optional ftype As Boolean = 0) As Double If ftype = 0 Then If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 37, start) Then If Month(Date) - Month(start) = 1 Then kest = 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) + total * 3.75 / 100 Else kest = (total - 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) - total * 3.75 / 100) / 35 End If Else kest = 0 End If Else If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 11, start) Then kest = total / 10 Else kest = 0 End If End If End Function وفقنا الله جميعا لكل خير

وعليكم السلام - لم تبحث جيداً فتم تناول ونقاش هذا الموضوع كثيراً , اتبع الخطوات كما بالرابط مشكلة في اللغة العربية

الجدول بعد عمل تعديل بسيط عليه بأنه يسجل عدد حصص المدرس على الجدول ترحيل بيانات 1جدول.xlsx

شكرا استاذي كبير نعم هذا المطلوب الله‌ يحفظك

استخدم الكود التاالي Private Sub Form_BeforeUpdate(Cancel As Integer) Me.Undo End Sub xy11.rar

السلام عليكم لتفادي هذه المشكلة يجب ان يكون الحضور والانصراف المسجل في الجدول (قاعدة البيانات) بالتاريخ والوقت جنرال = Now كذا يمكننا استخراج ما نريد

الاساتذة العمالقة شكر وتقدير وكامل الاحترام من اخيكم

جرب هذا الملف Option Explicit Sub Get_Str() Dim My_Sheet As Worksheet Dim My_Regex As Object Dim K As Byte, La%, t%, st$ Set My_Sheet = Sheets("Sheet1") Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Global = True With My_Sheet La = .Cells(Rows.Count, 1).End(3).Row .Range("C2").CurrentRegion.ClearContents For K = 3 To 4 My_Regex.Pattern = _ IIf(K = 4, "[\u0621-\u064A]+", "\w+") For t = 1 To La If My_Regex.test(.Range("A" & t)) Then st = My_Regex.Replace(.Range("A" & t), "") .Cells(t, K) = Trim(st) End If Next t st = "" Next K End With Set My_Regex = Nothing End Sub الملف مرفق ReGex_Kaddour_1.xlsm

السلام عليكم أخي اسلام من المعروف الساعة تانية صباحا اقدم م الساعة سادسة صباحا من نفس يوم و جمع عدد ساعات يأتي بسالب ولتغلب على تلك المشكلة يجب وضع شرط اذا وقت بدايه الحضور اكثر من بدايه الانصراف يستمر و الا طرح بدايه الحضور من بداية الانصراف ثم +24 وفي حقل بدايه الانصراف اكتب كما هو اكتب كما هو (00:2 ص) و المثال في المرفق. حضور وانصراف .rar

بعد اذن حضرتك استاذ الرائد77

فيه فكرة لا اعلم اذا كانت تناسبك نجعل بداية اليوم اعتبار من السادسة صباحا مثلا وتنتهي في 5.59 صباحا انظر للموضوع فيه فكرة للاستاذ محمد ابو عبدالله وكذلك مشاركة للاستاذ سلمان الشهراني

ضع هذه العلامة ( ' ) التي بين القوسين قبل النص أو الملاحظة

بسيطة -طالما انك تريد طباعة الصفحة الأولى من شيت report فعليك بهذا الكود , وهذا بالفعل ما تريد الذى يخص صفحة بعينها من الملف Sub PrintAllFirstPage() Dim xWs As Worksheet Set xWs = Sheets("report") xWs.PrintOut from:=1, To:=1 End Sub

بما انك لم ترفق ملف لعلك تستفيد من هذا الملف Sub split() Dim first As String, second As Integer, i As Integer For i = 1 To 7 first = Cells(i, 1).Value second = InStr(first, ",") Cells(i, 2).Value = Mid(first, second + 2) Cells(i, 3).Value = Left(first, second - 1) Next i End Sub SPLIT ‫‬.xlsm

يمكنك أخي الكريم اختيار طلبك من الملف التالي :SO00OS.xlsx

أخي الكريم: لا أدري ما هو طلبك هل هو جمع القيم أم عددها أم الرقم الذي قمت بتصفيته.

جزاك الله كل خير

بارك الله فيك وزادك الله من فضله

تفضل اخي الكريم test.accdb

هذا سوف يوضح لك بإذن الله تعالى example2.docx الطريقة السهلة هي: عن طريق إزالة علامة الصح من الارتباطات التشعبية. وطريقة التحديد لا بد أن تكون كما أشرت في الملف المرفق.

تفضل اخي لعله المطلوب ادارة المحل .rar