طارق محمود

مرفق فيديو صغير يوضح ماقلته سابقا بدون صوت ضغط F2 للتعديل ثم علي العنوان A1 ضغط علي F4 عدة مرات تفضل F4.rar

السلام عليكم أخي الكريم عادل حنفي يبدو أنك نسيت إرفاق الشرح أخي الفاضل zz2 أقرب إستخدام لزر الكيبورد F4 هو التثبيت كما تقول مثلا إن كان عندك معادلة تعتمد علي الخلية A1 ملاحظة : يتكون عنوان أي خلية من طرفين الصف وفي حالتنا هو 1 والعمود وفي حالتنا هو A قف علي تلك المعادلة واضغط F2 للتعديل ثم علي هذا العنوان A1 داخل المعادلة وجرب الضغط علي F4 بعد أول ضغطة سيثبت لك طرفي العنوان وتجدها هكذا $A$1 ثم بعد ثاني ضغطة سيثبت لك طرف الصف من العنوان وتجدها هكذا A$1 ثم بعد ثالث ضغطة سيثبت لك طرف العمود من العنوان وتجدها هكذا $A1 وبعد رابع ضغطة سيلغي التثبيت لكلا الطرفين وتعود كما كانت أولا ملاحظة : تكون علامة الدولار قبل الطرف المراد تثبيته قد يكون لها استخدامات آخري لاأعلمها

السلام عليكم أخي الحبيب تفضل المرفق به 3 أشكال بيانية ان شاء الله يكون هذا ماتريد Gezza.rar

السلام عليكم أخي الكريم يوجد العديد من الحلول أولا إذا كانت الأرقام كلها سالبة اكتب رقم -1 في خلية بعيدة عن هذا العمود ثم خذ منها كوبي نسخة ثم ظلل العمود والصق عليه تخصص قيم ضرب Paste special - Value _ Multiply ثانيا ممكن عمل استبدال Ctrl + H للمجال المطلوب كل علامة السالب (-) بلاشيء وهذه الأسهل

السلام عليكم أخي العزيز بالنسبة لسؤالك بخصوص تغيير أسماء النطاقات إضغط كنترول مع F3 سيعرض لك جميع الأسماء التي تم تسميتها بالملف إختر ماتريد تغييره إلغيه أو غير الإسم أرجو المعذرة لصعوبة الإتصال بالنت في الفترة القادمة

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

السلام عليكم أخي الكريم لاإزعاج ولاشيء مرفق الملف وبه الكود شغال لظروف سأكون ولمدة شهر قادم قليل جدا في الدخول عالإنترنت معذرة أرجو أن يتابع احد الإخوة الموضوع معك تطبيقية تسيير شؤون العمال 2.rar

السلام عليكم أخي العزيز تم مناقشة هذا الموضوع عدة مرات مثل http://www.officena.net/ib/index.php?showtopic=31953&st=0&p=163077&hl=+Time%20+Sheet&fromsearch=1&#entry163077 و http://www.officena.net/ib/index.php?showtopic=29144&st=0&p=143447&hl=+Time%20+Sheet&fromsearch=1&#entry143447 و الكثير رجاء مراجعة الروابط أعلاه وتطويعها لمايناسبك مع البحث أيضا وستجد الكثير بالمنتدي

أعتقد انك نقلتها بما فيها من مسافات فارغة قبل الأسماء مثلا إسم محمد الذي يبدأ بمسافة ثم حرف م سيأتي قبل إسم أحمد الذي يبدأ بالألف مباشرة لتلافي ذلك طبق معادلة Trim لكي تحذف من الأسماء كل الفراغات التي قبلها سواء كانت مسافة واحدة أو أكثر ثم بعد ذلك إنسخ القيم فقط Copy - Paste Value وطبق الترتيب

التغيير في السطرين الأخيرين ليكونا هكذا lastrow = Sheets("أرشيف").Range("j10000").End(xlUp).Row + 1 Sheets("أرشيف").Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value

كود Change القديم Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'For dd = 0 To 5 If Target.Column = 1 Then Dim cel As Range, tblRange As Range, xx As Range Set tblRange = Sheets("ÇáÈíÇäÇÊ").Range("A1", "A2000") ' Application.EnableEvents = False For Each cel In tblRange If [A1] = 1 Then If UCase(cel) = UCase(Target) Then With Target(1, 2) .Value = cel(1, 2).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 3) .Value = cel(1, 3).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 4) .Value = cel(1, 4).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 5) .Value = cel(1, 5).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 6) .Value = cel(1, 6).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 7) .Value = cel(1, 7).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 8) .Value = cel(1, 8).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 9) .Value = cel(1, 9).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 10) .Value = cel(1, 10).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 11) .Value = cel(1, 11).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 12) .Value = cel(1, 12).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With Columns(Target(5, 6).Column).AutoFit Columns(Target(5, 7).Column).AutoFit Columns(Target(5, 8).Column).AutoFit Exit For End If ElseIf [A1] = 2 Then If UCase(cel) = UCase(Target) Then With Target(1, 2) .Value = cel(1, 2).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 3) .Value = cel(1, 3).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 4) .Value = cel(1, 4).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With With Target(1, 5) .Value = cel(1, 5).Value '.NumberFormat = "#,##0.00_);[Red](#,##0.00)" End With Columns(Target(5, 6).Column).AutoFit Columns(Target(5, 7).Column).AutoFit Columns(Target(5, 8).Column).AutoFit Exit For Exit For End If End If Next End If Application.EnableEvents = True If Range("A3").Value = "" Then ActiveSheet.Range("$A$4:$Q$50000").AutoFilter Field:=1 Else ActiveSheet.Range("$A$4:$Q$50000").AutoFilter Field:=1, Criteria1:=Range("A3") End If If Range("D3").Value = "" Then ActiveSheet.Range("$D$4:$Q$50000").AutoFilter Field:=4 Else ActiveSheet.Range("$D$4:$D$50000").AutoFilter Field:=4, Criteria1:=Range("D3") End If End Sub كود Change الجديد Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 Then Dim cel As Range, tblRange As Range xx = Sheets("ÇáÈíÇäÇÊ").Range("A20000").End(xlUp).Row Set tblRange = Sheets("ÇáÈíÇäÇÊ").Range("A1", "A" & xx) Application.EnableEvents = False For Each cel In tblRange If [A1] = 1 Then If UCase(cel) = UCase(Target) Then For ii = 2 To 12 Target(1, ii).Value = cel(1, ii).Value Next ii Columns("F:H").EntireColumn.AutoFit Exit For End If ElseIf [A1] = 2 Then If UCase(cel) = UCase(Target) Then For ii = 2 To 5 Target(1, ii).Value = cel(1, ii).Value Next ii Columns("F:H").EntireColumn.AutoFit Exit For Exit For End If End If Next End If Application.EnableEvents = True If Range("A3").Value = "" Then ActiveSheet.Range("$A$4:$Q$50000").AutoFilter Field:=1 Else ActiveSheet.Range("$A$4:$Q$50000").AutoFilter Field:=1, Criteria1:=Range("A3") End If If Range("D3").Value = "" Then ActiveSheet.Range("$D$4:$Q$50000").AutoFilter Field:=4 Else ActiveSheet.Range("$D$4:$D$50000").AutoFilter Field:=4, Criteria1:=Range("D3") End If End Sub

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

السلام عليكم أخي مراد طلباتك طويلة وتحتاج وقت تعال خطوة بخطوة أولا وجدت لك كود منقول من أعمال أحد الإخوة في المنتدي لاأذكر من بالتحديد تفضل في محرر الفيجوال بيزيك إضغط علي الفورم welcom واستبدل أكوادها بالتالي الجزء الأول تعريفات لمتغيرات ودوال سيتم استخدامها بالفورم Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Dim hWnd As Long Private Sub CommandButton1_Click() If TextBox1.Value = 123 Then Unload Me: Exit Sub TextBox1.Value = "" TextBox1.SetFocus End Sub Private Sub UserForm_Initialize() TextBox1.SetFocus Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub

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

السلام عليكم أخي العزيز أبو توفيق لاشكر علي واجب فالحمد لله كل المشرفين والمراقبين والأعضاء الفاعلين وحتي الأعضاء العاديين يعتبرون ذلك واجبا عليهم أنا تعلمت الكثير من هذا المنتدي وأساتذته الكبار ومما تعلمته متابعة الحالة او المشكلة حتي اشعر بالرضا انا او السائل والحمد لله في حالتك هذه وصلنا معا لنتيجة جيدة بقي نقطتان النقطة الأولي أن التفقيط بالعربي يعطي لك حروفا غير مفهومة لأن لغة الأوفيس لديك غالبا إنجليزية تأكد من ذلك أولا بكتابة احرف عربية في الأكواد وانظر النتيجة فإن كانت ليت حروف عربية فتستطيع علاجها عن طريق التالي من الديسك توب خارج الإكسل Start Control Panel Regional and Language Options Language Settings Add Arabic يعني : أضف لغة عربية للويندوز النقطة الثانية: لديك بعض المجالات الغير معرفة في الملف مثل Aug_10_Client =#REF!#REF! Dec_10_Client =#REF!#REF! JUL_10_Client =#REF!#REF! Nov_10_Client =#REF!#REF! Oct_10_Client =#REF!#REF! Sep_10_Client =#REF!#REF! أضبطها لكي لاتواجه معها مشاكل وان لديك استفسارات فلا تتردد أتعشم ان أجدك بيننا قريبا تجيب عما تستطيع للأخوة السائلين مع تمنياتي بالتوفيق والسداد طارق محمود (أبو زياد)

السلام عليكم أخي ياسر أشكر لك مرورك وكلماتك الطيبة جزاك الله خيرا وجعلنا عند حسن ظنكم

السلام عليكم سلمت يمينك اخي عادل بارك الله فيك كود صغير لكن مفيد وغير مستعمل كثيرا

السلام عليكم أخي العزيز السؤال غير واضح ، دعني أعيد صياغته إذا كان عندك (كما بالمثال الذي أرفقته أنت) تكرار بقاعدة البيانات وبالتحديد العمود الأول (الأصناف) الذي هو أصل الإختيار في الدالة VLOOKUP فأمامنا حالتين الحالة الأولي أنك تريد من الدالة عند كتابة الصنف (فرساتشي) أن تكتب لك جميع الأنواع المقابلة لذلك الصنف أي اودي تواليت 100 ، اودي تواليت 50 ، .... ، اودي برفيوم 100 تستر الحالة الثانية أنك تريد من الدالة عند كل مرة تكتب أنت الصنف (فرساتشي) أن تكتب لك الدالة نوع مختلف من الأنواع المقابلة لذلك الصنف أي اودي تواليت 100 ثم في المرة التالية اودي تواليت 50 وهكذا الحالة الأولي أعتقد لابد من كود لها الحالة الثانية ممكن التحايل عليها باستخدام دوال مساعدة يمكن إدراجها مثل COUNTIF أو Row() ، ....

السلام عليكم أختي الفاضلة لجأت لحيلة بسيطة باستخدام رقم الصف الموجود به البيان للتمييز بين المتشابهات أخفيت الأعمدة من I-P إظهريها لتتابعي المعادلات تفضلي المرفق fz3.rar

السلام عليكم المرفق باستخدام التسيق الشرطي يجعل لون الفونط أبيض إذا كان القسط =0 أرجو أن يفي بالغرض fz2.rar

السلام عليكم أخي الحبيب الملف يعمل معي جيدا ، راحع اعدادات الإكسل - حماية الماكرو لابد ان تكون منخفضة البرنامج عبارة عن كودين كلاهما في حدث الملف Workbook كالتالي: Private Sub Workbook_Open() Sheets("صفحة الترحيب").Select UserForm1.Show End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If ActiveSheet.Name <> "صفحة الترحيب" Then Exit Sub If Target.Address <> "$G$38" Then Exit Sub x = "Feuil" & Target.Value ActiveWorkbook.Sheets(x).Select End Sub أيضا طلبك الثاني تم تنفيذه في ذات الملف ونسيت ان أنوه عنه سابقا ، أرجو المراجعة مرة أخري

السلام عليكم في حدث الملف Workbook الكود التالي Private Sub Workbook_Open() Sheets("الرئيسية").Select End Sub تفضلي المرفق الاجر.rar

السلام عليكم أخي الكريم وضح أكثر ماتريد عن طريق شرح أو مثال

السلام عليكم أخي العزيز بالنسبة لأول طلباتك تم التنفيذ وكلمة السر هي 123 تم التنفيذ أيضا مع إمكانية العودة إلي صفحة الترحيب من اي صفحة أخري بنقرة الزر الأيمن العلوي أنظر المرفق لقد عدلت علي ما حملته سابقا من موضوعك القديم: http://www.officena.net/ib/index.php?showtopic=34793 تطبيقية تسيير المستخدمين.rar

السلام عليكم تم الرد عليها باللون الأحمر تفضل المرفق Water Reading - 2011-Offcina2.rar