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

Select the column of your desire Data tab > Text to Columns > Next > Uncheck Tab option > Next > Select Text option > Finish

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير ... رمضان كريم تفضل حافز المنظومة 2023.xls

هذه دالة من أبي هادي: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As Byte) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function وهذه طريقة استخدامها: = CountWkDay(K6, K7, 6) + CountWkDay(K6, K7, 7) جربوا المثال: صرف بدل ايام العطلات الرسمية الجمعة والسبت_02.xlsm

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

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

بوركت استاذ شكرا ربي اينور دربك

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

مع هذه الطريقة غير ممكن للأسف ..

الف شكر استاذ ابو احمد دائما تتحفنا باعمالك الجميله ما شاء الله كود جميل ومختصر

يوجدخطأ في الرابط تحميل Oppes! لا يمكن اعادة تحرير المشاركة تصحيح رابط تحميل ميدايا فير https://www.mediafire.com/download/xbdomm6zitln4as Ezril في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

الحقيقة الداخل في البرنامج مفقود والخارج مولود على كل حال تمت معالجة المشكلة كما اشرت ايك في مشاركتي الأخيرة وهذه صورة للنموذج T3Q-Copy3.rar

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

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

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

تم الحل =SUM(IFERROR(VALUE(SUBSTITUTE(E8:G8,"إذن","")),""),0)

For Excel 365, use the following formula in cell D11 (Clear the range first from D11 to D25) then put the formula =TEXT(FILTER(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),WEEKDAY(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),1)>=6),"ddd") In cell E11, use the formula =TEXT(FILTER(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),WEEKDAY(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),1)>=6),"dd/mm/yyyy") For older version of excel ------------------------------- In cell D11, use the formula =IF(MONTH($K$6-MOD(WEEKDAY($K$6,1)-6-IF(WEEKDAY(DATE(YEAR($K$6),MONTH($K$6),1),1)=7,1,0),7)+IF(WEEKDAY($K$6,1)<6,7,0)+7*(INT((ROW()-11)/2)))=MONTH($K$6),$K$6-MOD(WEEKDAY($K$6,1)-6-IF(WEEKDAY(DATE(YEAR($K$6),MONTH($K$6),1),1)=7,1,0),7)+IF(WEEKDAY($K$6,1)<6,7,0)+7*(INT((ROW()-11)/2)),"") In cell D12, use the formula =IFERROR(IF(MONTH(IF(WEEKDAY(E11)=6,E11+1,IF(WEEKDAY(E11)=7,E11+6,"")))>MONTH($K$6),"",IF(WEEKDAY(E11)=6,E11+1,IF(WEEKDAY(E11)=7,E11+6,""))),"") Select the cells D11 & D12 and drag them Do the same exactly for E11 & E12

جرب الملف المدرسة.xlsm

تفضل اخي Private Sub Select_and_Copy_File1_Click() Dim file As Variant Dim copyToFolder As String Dim p As Long Dim filePath As String filePath = Application.ActiveWorkbook.path file = Application.GetOpenFilename(FileFilter:="جميع الملفات (*.*), *.*", MultiSelect:=False, Title:="حدد الملف المراد نسخه") If file = False Then Exit Sub On Error Resume Next MkDir filePath & "\" & "اوفيسنا" ' إنشاء نسخة في مجلد آخر copyToFolder = filePath & "\" & "اوفيسنا" ' If copyToFolder <> Left(file, InStrRev(file, "\")) Then p = InStrRev(file, "\") If Right(copyToFolder, 1) = "\" Then p = p + 1 FileCopy file, copyToFolder & Mid(file, p) Else 'إنشاء نسخة في نفس المجلد - اظافة "نسخة من " الى اسم الملف p = InStrRev(file, ".") FileCopy file, Left(file, p - 1) & "نسخة من" & Mid(file, p) End If MsgBox " :تم نسخ الملف بنجاح في مجلد" & vbLf & vbLf & SvAs & "" & copyToFolder & vbLf & "" & vbLf & ":الفارس محمد رجب" & vbCrLf, vbInformation + vbOKOnly, " ! تعليمات" End Sub او بهدا الشكل Private Sub Select_and_Copy_File_Click() Dim MH As String, folder As String, p As String, NwPath As String Dim file As Variant Dim copyToFolder As String Set wb = ThisWorkbook p = wb.Path & "\" 'هنا قم باختيار اسم المجلد الدي سيتم انشاءه MH = "اوفيسنا" NwPath = p & MH folder = Dir(NwPath, vbDirectory) If folder = vbNullString Then VBA.FileSystem.MkDir (NwPath) End If file = Application.GetOpenFilename(FileFilter:="جميع الملفات (*.*), *.*", MultiSelect:=False, Title:="حدد الملف المراد نسخه") If file = False Then Exit Sub copyToFolder = filePath If copyToFolder <> Left(file, InStrRev(file, "\")) Then p = InStrRev(file, "\") If Right(NwPath, 1) = "\" Then p = p + 1 FileCopy file, NwPath & Mid(file, p) End If MsgBox " :تم نسخ الملف بنجاح في مجلد" & vbLf & vbLf & SvAs & "" & NwPath & vbLf & "" & vbLf & ":الفارس محمد رجب" & vbCrLf, vbInformation + vbOKOnly, " ! تعليمات" End Sub الارشيف الاكترونى_v2.xlsb

In the code you have this line x = ComboBox1.Value So if you don't select any option from the ComboBox1, you will get the `x` variable equals to empty and this will cause an error You can exit sub by adding this line If x = "" Then MsgBox "Select Option First":Exit Sub

ترحيل السلة.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي احمد أغذية =SI(E11="";"";SI([@[Finnish Prodect ]]="FP";SOMME.SI.ENS(Q11:Q100;H11:H100;$H11;I11:I100;$I11;X11:X100;"*أغذية*"))) جينرال =SI(E11="";"";SI([@[Finnish Prodect ]]="FP";SOMME.SI.ENS(Q11:Q100;H11:H100;$H11;I11:I100;$I11;X11:X100;"جينرال"))) معادلة Sumifs_01.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي يمكنك استخدام المعادلة التالية =SI(A1<>"";SIERREUR(INDEX(Sheet1!$B$1:$B$50000; EQUIV(0; SI(A1=Sheet1!$A$1:$A$50000; NB.SI(Sheet1!$C$1:$C1; Sheet1!$B$1:$B$50000); ""); 0));"");"") حل اخر بالاكواد Sub Test() Dim I As Integer, Cellule As Range With Feuil2 For I = 1 To .Range("A" & Rows.Count).End(xlUp).Row Set Cellule = Feuil1.Cells.Find(What:=Range("A" & I), LookAt:=xlPart) If Not Cellule Is Nothing Then .Range("b" & I) = Cellule.Offset(0, 1).Value Next I End With End Sub مثال1.xlsm

السلام عليكم ورحمة الله وبركاتة هذا شيت لمحاسبة العمال بالساعة.... وضعتة للفائدة 1... اضافة عميل جديد 2... حزف عميل 3..كما يوجد التنقل بين العمال 4.... عند اختيار كلمة حضور من القائمة المنسدلة يتم كتابة اليوم والتاريخ والوقت تلقائي....وعند كتابة وقت الانصراف يتم حسابة الوقت والسعر الملف ‏‏برنامج محاسبة العامل بالساعة - نسخة.xlsm

بعد ادن الاستاد @lionheart اخي @ابو هاله النبلسي تم تعديل بسيط على الكود لتتمكن من تنفيد المطلوب تقسيم_2.xlsm

لان كل فترة الكروم يتم تحديثه فلابد من تحديث الدرايف

وعليكم السلام ورحمه الله وبركاته 1- قم بتحميل برنامج Selenium من الرابط او من ميديا فاير ثم قم بتسطيبه كأي برنامج 2- تفتح الكروم علي هذه الصفحه chrome://settings/help لنعرف ما هو اصدار الكروم ولنفرض اننا وجدناه كما لدي Version 109.0.5414.120 (Official Build) (64-bit) نأخذ الرقم 109.0.5414.120 ثم نبحث في الصفحه علي هذا الرقم او ما يقرب له ثم نفتح الصفحه لدي كان اقرب رقم له هو https://chromedriver.storage.googleapis.com/index.html?path=109.0.5414.25/ ثم نقوم بتحميل الملف المسمي chromedriver_win32.zip بعد التحميل تقوم بفك الضغط عنه باي برنامج ضغط ثم تقوم بنسخه للمسار التالي %LOCALAPPDATA%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles(x86)%\SeleniumBasic\ وتوافق على الاستبدال بندخل على محرر الأكواد عن طريق Alt + F11 .. من القائمة Tools نضغط على References ونضيف المكتبة الخاصة بالأداة Selenium بنعلم علامة صح على Selenium Type Library ونضغط أوك كما بالشكل التالي ثم ضع هذا الكود في ملفك في الفورم المسماه UserForm1 Private Sub CommandButton14_Click() Dim bot As New WebDriver, Keys As New Selenium.Keys Dim i As Long, WS As Worksheet Set WS = ThisWorkbook.Sheets("البيانات") With bot .AddArgument "kiosk-printing" .Start "chrome", "https://apps.moe.gov.jo/App/Clearance/" For i = 2 To WS.Cells(Rows.Count, "C").End(xlUp).row .Get "/" .Wait 1000 .FindElementById("txtNumber").SendKeys WS.Cells(i, "C") .FindElementById("btnSearch").Click .Wait 1000 .ExecuteScript "window.print()" Next i End With End Sub