Ali Mohamed Ali

أستاذ Sera ألم تلاحظ ما كتبته لك بكل دقة -قلت لك تم التعديل على الملف السابق لأنى دائما لا اريد اجابات كثيرة فى المشاركة حتى لا تشتت من يدخل مستقبلا على هذه المشاركات فدائما اضع الإجابات المطلوبة فقط واقوم بحذف الباقى

اخى ابو اسيل-بعد اذن استاذنا حسين فى اعتقادى ان مشكلتك الأن قد توضحت وتبينت وهى ربما قمت بلصق هذا الملف داخل تسطيب الأوفيس فى جهازك ,ويكمن حل هذه المشكلة فى الأتى : عليك بالدخول الى بارتشن c ثم بعد ذلك الدخول الى Programe Files (X86) ثم الذهاب الى Microsoft Office ثم Office 14 واخيراً عليك بفتح فولدر اسمه XLSTART ستجد هذا الملف به عليك بحذفه

بارك الله فيك استاذ مجدى وزادك الله من فضله

طبعا لو هناك عدة شروط -بس كان عليك من البداية لعدم اهدار الوقت رفع الملف مدعوم بشرح كافى ووافى عن طلبك

وعليكم السلام-يمكنك تجربة هذا كيف اجعل صفحة اكسل تتحول لصفحة نت تفاعلية في موقعي وهنا ايضا كيفية ربط جداول ومخططات إكسل ببرنامج بوربوينت كيف تربط جداول ومخططات إكسل ببرنامج بوربوينت

بعد اذن استاذنا ابو اسيل -فقط عليك استخدام هذه المعادلة لتحقيق طلبك =SUMIF($C$2:$C$6,"<>"&"مفصول",$D$2:$D$6)

وعليكم السلام الخطأ كان منك انت فى المعادلة-تم ضبط معادلات جميع صفحات الملف الاجازة2.xlsx

فتح الله عليك وزادك الله من فضله

بارك الله فيك استاذ مجدى وزادك الله من فضله

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

وعليكم السلام-تفضل قائمة منسدلة 1مطاطية.xlsx

ألف الف مبروك استاذنا الكريم عن جدارة واستحقاق ان شاء الله ,وأعانهم الله على المسئوليات الجديدة والى التفوق والنجاح دائما

وعليكم السلام-تفضل طريقة تصميم فورم بحث عن طريق لست بوكس5.xlsm

تفضل بعد اذن استاذنا الكبير سليم-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A10,'Exchange Rate'!$A$2:$B$1000,2,0),"") Employee Expense Report new1.XLSX

وبعد اذن جميع الأساتذة وزيادة فى اثراء الموضوع-تفضل Bank Cheque.xlsm

طالما انك لم تقم برفع ملف فكان لزاما عليك استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/98272-مطلوب-كود-زر-يقوم-بمسج-الصف-او-السجل-المحدد-من-الليست-بوكس-listbox/ ولكن لابد فى المرات القادمة رفع ملف مدعوم بشرح كافى ووافى عن المطلوب

لو فعلا اتم هذا الجزء فقط طلبك فيكون تمام ولا ضرر

تفضل بعد اذن الأستاذ حسين 1مصغر.xlsm

تفضل-يمكنك استخدام هذه المعادلة =INDEX($D$3:$D$250,MATCH($F3,$B$3:$B$250,0)*MATCH($G3,A$3:$A$250,0)) 1إستخراج بيانات.xlsx

تفضل لك ما طلبت-طبعا بعد اذن استاذ ابو ايسل الاجازة.xlsx

وعليكم السلام-تفضل لك ما طلبت Option Explicit Dim listRng As Range Private Sub btnRemove_Click() Dim i As Long Dim rowsList As String For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then ListBox1.RemoveItem i Else rowsList = rowsList & i + 1 & " " End If Next i If rowsList <> "" Then UpdateListRange Left(rowsList, Len(rowsList) - 1) End Sub Sub UpdateListRange (rowsList As String) Dim addr As String Dim iRow As Variant Dim rowsListArr As Variant rowsListArr = Split(rowsList) For iRow = UBound(rowsListArr) To LBound(rowsListArr) Step -1 addr = addr & listRng(rowsListArr(iRow)).address(False, False) & "," Next iRow If addr <> "" Then addr = Left(addr, Len(addr) - 1) Set listRng = listRng.Parent.Range(addr) End Sub Private Sub UserForm_Initialize() With Worksheets("Sheet1").Range("A2:E1000") Me.ListBox1.List = Application.Transpose(.Cells) '<-- fill ListBox1 list Set listRng = .Cells End With End Sub طريقة تصميم فورم بحث عن طريق لست بوكس5.xls

السلام عليكم -فقط يمكنك استخدام هذه المعادلة =IF(B1*11.5%>316.25,316.25,B1*11.5%)

وعليكم السلام ,لماذا لا تستخدم خاصية البحث بالمنتدى-تفضل لك ما طلبت : تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور

وعليكم السلام-تفضل =CONCATENATE(E4," ",E5," ",E6," ",E7," ",E8," ",E9," ",E10," ",E11)

وعليكم السلام -تفضل اغلاق ملف اكسل بعد 5 دقائق بكود بدون تدخل من المستخدم وهذا كود اخر يمكنك استخدامه بوضعه فى حدث ThisWorkbook ____لإغلاق ملف الإكسيل بعد 50 ثانية كمدة خمول Dim xTime As String Dim xWB As Workbook Private Sub Workbook_Open() On Error Resume Next xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:50", , , , , 2) Set xWB = ActiveWorkbook If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Sub Reset() Static xCloseTime If xCloseTime <> 0 Then ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False End If xCloseTime = Now + TimeValue(xTime) ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True End Sub ثم اضافة هذا الكود بمديول عادى Sub SaveWork1() Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close Application.DisplayAlerts = True End Sub وهذا ملف للعمل مسجل عليه هذه الأكواد حفظ وإغلاق ملف إكسيل تلقائيا بعد وقت خمول معين.xlsm