ريان أحمد قام بنشر مارس 24, 2013 الكاتب مشاركة قام بنشر مارس 24, 2013 أستاذي العزيز أشكرك جزيل الشكر على المساعدة لكن الكود بطيئ جدا بعكس الكود الأول الخاص بالجمع بين تاريخين أستاذي أريد أن أشألك سؤال فيما يخص موصوعك تحويل الدوال إلى كود عندما جربته في الدالة الخاصة بالجمع بين تاريخين أتى بكود لكن لم ينجح فهل الكود الذي يجلبه يجب أن تضيف عليه تعديلات أم إستعمال مباشر رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 24, 2013 الكاتب مشاركة قام بنشر مارس 24, 2013 up رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 25, 2013 الكاتب مشاركة قام بنشر مارس 25, 2013 up رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 26, 2013 الكاتب مشاركة قام بنشر مارس 26, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مارس 27, 2013 مشاركة قام بنشر مارس 27, 2013 لم أتاكد من عمل الكود مسبقاً بعد التجربه فعلا بطيء جرب التعديل التالي Public Sub Ali_Vlc() Dim Sh As Worksheet Dim Rm As Range, Rn As Range Set Sh = Worksheets("raball") With Application .ScreenUpdating = False .Calculation = xlCalculationManual Set Rm = Lr(Sh, 1, 0) Rx Sh, Rm, 46, 35: Rx Sh, Rm, 47, 8: Rx Sh, Rm, 48, 38 .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Sub Rx(Sh As Worksheet, Rn As Range, Co As Variant, V As Integer) Dim R As Range Dim xl With Sh For Each R In Rn xl = Application.VLookup(Val®, [bd], V, False) Select Case .Cells(R.Row, Co) Case Is = "": .Cells(R.Row, Co) = "" Case IsError(xl): .Cells(R.Row, Co) = "" End Select If Not IsError(xl) Then .Cells(R.Row, Co) = xl Next End With End Sub Private Function Lr(ByVal Sh As Worksheet, ByVal Col As Variant, Optional ByVal Fst As Long) As Range With Sh Set Lr = .Range(.Cells(6, Col), .Cells(.Rows.Count, Col).End(xlUp).Offset(Fst)) End With End Function رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 2, 2013 الكاتب مشاركة قام بنشر أبريل 2, 2013 السلام عليكم أستاذي الفاضل بعد تجربة الكود الأخير لم يعمل رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 3, 2013 الكاتب مشاركة قام بنشر أبريل 3, 2013 up رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 3, 2013 مشاركة قام بنشر أبريل 3, 2013 السلام عليكم شاهد المرفق على الرابط التالي http://www.4shared.com/rar/F7IYObiM/Xl_Rean_1.html? رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 5, 2013 الكاتب مشاركة قام بنشر أبريل 5, 2013 (معدل) أستاذي المعذرة لم انتبه إلى ردك على الموصوع بعد تجربة الملف يعمل بشكل رائع وسريع جزاك الله كل خير وجعله الله في ميزان حسناتك -------------------------------------------------------- عندما أردت تجريبه في الورقة hhh نقلت الكود وغيرت في الجزئية إسم الورقة فهل أقوم يتغيير إسم الورقة فقط لكي ينجح الشرح في الصورة المرفقة صصص.rar تم تعديل أبريل 5, 2013 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 5, 2013 الكاتب مشاركة قام بنشر أبريل 5, 2013 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 6, 2013 الكاتب مشاركة قام بنشر أبريل 6, 2013 up رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 9, 2013 الكاتب مشاركة قام بنشر أبريل 9, 2013 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.