طارق محمود

السلام عليكم أخي العزيز استخدم المعادلة التالية =VLOOKUP(C3,$G$14:$H$28,2,0) في الخلية C14 ثم خذ منها نسخة لباقي المجال C14:E18 لاتنسي تعدل السطر السادس في الكود في هذه الحالة إلي Set myrange = Range("C3:E7") لأنك لاتريد العشوائي إلا في هذا المجال فقط مع تمنياتي بالتوفيق

السلام عليكم تمهل ياأستاذ تفضل الكود التالي تضعه في حدث الورقة الثانية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$H$3" Then Exit Sub a = [H3] Sheets(1).Range("$B$3:$E$105").AutoFilter Field:=4, Criteria1:=a Dim ra As Range Range("T10:W1000").ClearContents Set ra = Sheets(1).Range("E3:E1000") For Each nm In ra If nm.Value = a Then tarikh = nm.Offset(0, -3).Value qaema = nm.Offset(0, -2).Value mablagh = nm.Offset(0, -1).Value ii = ii + 1 Range("T" & ii + 10) = tarikh Range("U" & ii + 10) = qaema Range("V" & ii + 10) = mablagh End If Next nm '[T10].PasteSpecial Paste:=xlPasteValues Range("B9:R18,B24:R33,B39:R48,B54:R63").ClearContents b = [T10000].End(xlUp).Row For r = 11 To b m = Month(Range("T" & r)) x = Int((m - 1) / 3) y = Int(3 * ((m - 1) / 3 - x) + 0.001) Select Case y Case 1 m_col = 8 Case 2 m_col = 14 Case 0 m_col = 2 End Select m_row = x * 15 + 19 new_r = Cells(m_row, m_col).End(xlUp).Row + 1 Cells(new_r, m_col) = Cells(r, 20) Cells(new_r, m_col + 2) = Cells(r, 21) Cells(new_r, m_col + 4) = Cells(r, 22) Next r Range("T10:W" & b).ClearContents End Sub أو تفضل المرفق تقرير شهري_Tareq.rar

السلام عليكم أولا أهلا ومرحبا بك أخي الكريم بين إخوانك ثانيا حدد جميع الصفحات ، وذلك عن طريق كليك يمين الماوس علي اسم الشيت في أسفل الصفحة ثم إختر Select All Sheets بعد إختيار جميع الصفحات أو ماتشاء منها ، إذهب للصف الذي يلي آخر صف تريد ظهوره ، يعني في طلبك هذا إلي الصف 61 إضغط في نفس الوقت Shift - CTRL مع السهم السفلي لتظليل خلية واحدة من كل الصفوف التي لاتريدها حتي نهاية الورقة ثم إضغط في نفس الوقت Shift - Space لتظليل كامل الصفوف التي لاتريدها حتي نهاية الورقة كليك يمين الماوس وإختر إخفاء وبنفس الطريقة للأعمدة ولكن السهم السفلي يستبدل باليمين أو اليسار حسب اتجاه الورقة عندك (عربي - إنجليزي) ويستبدل لتحديد الأعمدة CTRL- Space بدلا من Shift - Space ثالثا حدد جميع الصفحات أيضا ثم حدد جميع الصفوف بداية من الصف الذي تريد ، مثلا 3 ، يكون بالوقوف علي أي خلية فيه ثم إضغط في نفس الوقت Shift - CTRL مع السهم السفلي لتظليل خلية واحدة من كل الصفوف التي تريدها ثم إضغط في نفس الوقت Shift - Space لتظليل كامل الصفوف التي تريدها كليك يمين الماوس وإختر عرض الصف الذي تريده أو غير عرض الصف بالوقوف بالماوس علي اي فاصل بين الصفوف المظلله مثلا بين صفي 8،9 عند عنوانهما في أول الورقة وحرك الماوس (بعد ضغطه) للأعلي أو للأسفل

السلام عليكم أولا مرحبا بك أخي محمد في منتداك وأهلا وسهلا بك بين إخوانك ثانيا مع تحفظي لموضوع الفائدة والربا من باب العلم فقط (1) يوجد دوال جاهزة في الإكسل لحل هذا الموضوع لكني لاأعلمها جيدا فلست محاسبا علي سبيل المثال PV ، NPV ، PMT ، PPMT ، FV (2) يمكنك حلها عن طريق خاصية خلية الهدف Tools Goal Seek Set Cell E20 To value xxxxx By changing cell E8 وهذا يعني أن تجعل الإكسل يعكس العملية أي أنك تطلب منه أن يجعل قيمة الخلية E20 = xxxxx عن طريق تغيير الخلية E8 وسوف يقوم الإكسل بعمل اللازم (3) حللتها لك بكود بسيط باستخدام تلك الخاصية (خلية الهدف) Goal Seek في المرفق علي الرابط http://www.4shared.com/file/OTE7BwcE/___-_2.html

كلمة السر ؟ الأكواد محمية !!

السلام عليكم أخي الكريم بالفعل هذه الدالة VLOOKUP لاتعمل الا إذا كان البيان على اليسار والبيانات على اليمين لكن يمكنك التحايل في حالتك هذه باستخدام دالتي OFFSET, MATCH إرسل مثال وسأرسله لك محلولا مع الشرح باستخدام دالتي OFFSET, MATCH

في الورقة2 علام تدل أرقام الجداول 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ؟؟؟ هل مثلا اذا كان المبلغ من 0 إلي 1000 يكون 1 واذا كان المبلغ من 1001 إلي 2000 يكون 2 وهكذا

تم حل هذه النقطة من قبل الآن هو يطلب منك الخطوات لأنني حفظته وتاريخ الخلية به يوم من أيام شهر 4 ونحن الآن في شهر 5 غير تاريخ الخلية واحفظه ثم افتحه من جديد فلن يطلب شيئا إذا كان شهر وعام تاريخ الجهاز مطابق لشهر وعامتلك الخلية

السلام عليكم أخي الحبيب الغالي لاداعي أبدا للأسف أنا اللي متاسف لو كنت ضايقتك كل الموضوع اني أمازحك لتشرح بزيادة لمن يريد المشاركة في محرر الفيجوال بيزيك انقر علي الفورم ومن ثم علي دبل كليك علي زر "إنسخ" ، فيظهر لك الكود الخاص به أضف السطر الأحمر في نفس المكان Private Sub CommandButton1_Click() Dim sh As Worksheet Dim MyFilOpen As String, MyPath As String, MyBook As String '===================== On Error GoTo Err_mydate '===================== Sheets("cl").Select Set sh = ActiveWorkbook.Worksheets(ActiveSheet.Name) Application.ScreenUpdating = False '===================== With sh MyPath = CStr(TextBox2.Value) & ":\" & CStr(TextBox1.Value) & "\" MyBook = CStr(ComboBox1.Value) & File_Type(MyPath & ComboBox1.Value) End With '===================== Set sh = ActiveWorkbook.Worksheets(MySheet_cl) '===================== MyFilOpen = MyPath & MyBook '===================== If Dir(MyFilOpen, vbDirectory) = vbNullString Then MsgBox "ÑÇÈØ ÛíÑ ãæÌæÏ" Else Workbooks.Open Filename:=MyFilOpen Sheets(1).Columns("k:k").Copy sh.Range("m1") Workbooks(MyBook).Close False MsgBox "Êã äÓÎ ÇáÈíÇäÇÊ Çáì ÇáæÑÞÉ : " & vbCr & MySheet_cl sh.Activate End If '===================== Err_mydate: If Err Then MsgBox "Err.Number:" & vbCr & Err.Number '===================== Application.ScreenUpdating = True Set sh = Nothing Sheets("cl").Select End Sub

أخي العزيز عموما : عند كل عنوان بالجداول المحورية يوجد سهم قائمة تمكنك من اختيار وحذف ماتريد في حالتنا ، ستجد في Sheet1 في الجدول بجوار التصنيف سهم لهذا الغرض وكذلك كافة العناوين التي اخترتها في الجدول تحياتي

السلام عليكم أخي الكريم أنظر الفيديو المرفق والملف أيضا إستخدمت Pivot Table بدلا من Vlookup Pivot Table.rar

السلام عليكم وضعت بعض البيانات الوهمية للتطبيق فقط العمود F:F في الورقة الاســــــماء و العمود E:E في الورقة الجمــــــلة بهما معادلات ضرورية لإتمام المطلوب فلاتمسحهما تفضل المرفق كشف توزيع مساعدات مع منع التكرار.rar

السلام عليكم لابد من فتحه لتمكين خاصية SaveAs من الممكن فتحه وعمل اللازم ثم غلقه

السلام عليكم الكود هو Sub Macro2() ' Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Customers\cust.xls", FileFormat:=xlExcel8 s = WorksheetFunction.Text(Date, "dd-mmm-yyy") txtNM = "Cust(" & s & ").txt" ActiveWorkbook.SaveAs Filename:="D:\Bacup\" & txtNM, FileFormat:=xlTextWindows Application.DisplayAlerts = True End Sub لاحظ أنني كتبت Bacup كما كتبتها أنت الصح هو : Backup

السلام عليكم محاولة للرد في هذا الموضوع

السلام عليكم أخي طاهر عندك مشكلة في إيصال ماتريد أو انك بخيل في الشرح دائما من يريد المساعدة لابد ان يكون علي علم تام بأبعاد الموضوع عموما أرجو أن يكون المرفق هو ماتريد 88-3.rar

السلام عليكم بل الخلية G14 بالورقة cl مرفق الملف وبه التعديلات الكود كما هو ولكن تغير فقط المرجع للخلية المرادة في حدث الورقة ضع الكودين Private Sub Worksheet_Activate() [AD1] = [G14] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$G$14" Then Exit Sub If Month(Target.Value) = Month([AD1]) And Year(Target.Value) = Year([AD1]) Then Exit Sub 10 x = InputBox("New Mont" & Chr(10) & "Write Password ?") If x = 123 Then [AD1] = [G14] Exit Sub Else MsgBox ("Wrong Password <<<>>>") [G14] = [AD1] GoTo 10 End If End Sub وفي حدث الملف ضع الكود Private Sub Workbook_Open() Sheets("cl").Activate [AD1] = [C3] End Sub أيضا غيرت لك قليلا في مصدر بيانات الخلية G14 لتقليل حجم الملف بدلا من أن تحجز 8000 صف في الملف لمجرد تحديد التاريخ بسهم القائمة المنسدلة فقد ألغيت ذلك ، مع تحديد التاريخ ايضا بالقائمة المنسدلة ولكن بدون سهم مما قلل من حجم الملف وإن كان مازال كبير نسبيا تفضل المرفق 88-2.rar

السلام عليكم اخي أحمد (HaNcOcK) جزاك الله خيرا أخي بن علية جزاك الله خيرا وأشكركما كثيرا علي مروركما والتعليق والكلمات الطيبة أخي mmtronic حمدا لله علي سلامة الوصول والحمد لله أن الحل أرضاك

السلام عليكم أخي الحبيب / جمال دغيدي جزاك الله خيرا بل بالعكس فأنت أصبحت من الأعمدة التي يقوم عليها المنتدي تقبل ودي واحترامي ولاترد علي المداخلة لكيلا يأخذ الموضوع أكبر من حجمه

أنا استخدمت ملاحظة أخي احمد زمان وقد لاحظت ان الإجازة عندك دائما شهر او 2 أو 3 فإذا كانت الإجازة بها كسور من الشهر فتحسب بطريقة أخري (مشابهه)

السلام عليكم أخي العماني تفضل المرفق عسي أن يكون ماتريد ادخل التاريخ في الخلايا C12:C15 بعد التضبيط الذي اقترحه اخونا الفاضل /أحمد زمان في المشاركة رقم 2 لملف الريجستري عندك كما فعلها اخونا الفاضل /أكرم الغامدي، إذا لم يكن مضبوطا جزاهما الله كل خير فهذا يجعل التاريخ يظهر بصورة هجرية ولكنه كرقم مازال معبرا عنه للإكسل بالنتيجة الإنجليزية (الغربية) أي لاتنسي أن تضع قبله حرف a بالإنجليزية تسلسل التاريخ بطريقة غير نظامية على اساس كل شهر 30 يوم2.rar

السلام عليكم أخي الحبيب / كيماس بداية حلك بدالة CEILING أفضل وأسهل لكن للعلم فقط دالة ROUNDUP لاتقبل في عنصرها الثاني إلا رقم صحيح -2،-1،0،1،2 ...هكذا لو قربنا للأعلي لأقرب رقم صحيح 1 فسيعطي رقم عشري واحد وليس نصف لو قربنا للأعلي لأقرب رقم صحيح 0 فلن يعطي أي رقم عشري بل صحيح فقط وهذه الحالة فقط للتقريب إلي نصف نلجأ لتلك الحيلة البسيطة أي تحسب ضعف الرقم قبل التقريب وتقرب هذا الضعف للأعلي لأقرب رقم صحيح ثم تقسم علي 2 وبالمثل التقريب لأقرب ربع , ثمن , عُشر , هكذا

عذرا أخي جمال لم أر مداخلتك

السلام عليكم ضع في الخلايا التالية الأرقام I18 , 1 I19 , 31 I20 , 61 I21 , 91 ثم طبق المعادلة التالية في الخلايا الحمراء =VLOOKUP(C13,$I$18:$L$21,3) في الخلية D13 =VLOOKUP(C14,$I$18:$L$21,4) في الخلية D14

السلام عليكم بالإضافة لحل أخي العزيز كيماس يمكن أيضا أن تكتب المعادلة التالية =ROUNDUP(D4*2,0)/2 في الخلية E4 ثم انسخها للباقي