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

13.accdb

لا اعرف اذا كان هذا المطاوب يالضبط My_sum.xlsx

شكر خاص للمبرمج محمد سلامة تم تجربة الكود يعمل 100 % ومعذور وكان الله في عونك ،،، شكراً Barna لقد حاولت مساعدتي .

؟؟؟؟؟؟؟؟؟؟ هل تحب منتديات اوفسنا.rar الكود.rar

شکرا لک وجزاک الله کل خیر

عندما أتابع المنتدى مايسعني أن أقول لك بارك الله فيك أستاذ @Shivan Rekany وجزاك الله خيراً على ماتقدمة من مساعدة لنا

السلام عليكم تمام استاذ - هو المطلوب جزيت خيرا

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

الماكرو لا يعمل الا اذا كان كل الصف (من الجدول) الذي تنتقل اليه كاملا (لا خلايا فارغة) ولا يعمل ايضاً اذا كان الانتقال خارج الجدول

الكود يكتب هكذا Option Explicit Sub test_Me() Dim i As Byte For i = 2 To 7 With Cells(i, 1) If .Value >= 50 Then Cells(i, 2) = "ناجح" Else Cells(i, 2) = "راسب" End If End With Next End Sub

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

تفضل بمشاهدة هذه الفيديوهات ستفيدك https://www.youtube.com/watch?v=VNkf2R8zG8E https://www.youtube.com/watch?v=midywsRPuyI https://www.youtube.com/watch?v=KOcHsOTGL5A https://www.youtube.com/watch?v=_d98L3xUL7o https://www.youtube.com/watch?v=1qkjZzlgdjM https://www.youtube.com/watch?v=R0Ghnfk4ERI https://www.youtube.com/watch?v=FmAZ6DZqsUM بارك الله فيك

تفضل بعد اذن الأستاذ سليم 1شركات test.xlsx

جزاكم الله كل خير الشكر موصول للأستاذ سليم والأستاذ شريف ولإثراء الموضوع هذا كود ثالث تجزئة الاسماء من اسم طويل.xls

كما تفضل اخي الحبيب بن عليه او نصب الملف التالي لتحديث دوال "user32" الظاهر لديك اوفيس 2010 وويندوز 64-بت Office2010Win32API_PtrSafe.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، أعتقد أنه يجب أن تضيف كلمة PtrSafe بين كلمتي Declare و Function في السطرين 5 و 6 من الكود وستعود بإذن الله المياه إلى مجاريها... والله أعلى وأعلم انظر إلى الرابط التالي (بالإنجليزية) عله يكون أكثر فائدة مما قدمته بالأعلى... الرابط : http://msdn.microsoft.com/en-us/library/office/gg278581.aspx أخوك بن علية

السلام عليكم Public Sub A_Last() Dim A_Lst As Range Dim A_Num& ' المدى المراد تحديد اخر خليه ليس بها بيانات Set Rn = ActiveSheet.Range("B32:D57") With Rn Set A_Lst = .Cells(.Rows.Count, "B").End(xlUp) A_Num = A_Lst.Row + 1 Cells(A_Num, 2).Select End With End Sub

السلام عليكم الكود الاخير بعد التجربه يسبب ثقل على الملف استخدم هذا التعديل الكود التالي في مودويل Const KL_NAMELENGTH = 9 Const KT_TYPE = 0 Const KT_SUBTYPE = 1 Const KT_FUNCTIONKEYS = 2 Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Public Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long Public Bn As Boolean Public Function Ch_Bn() As String Dim S_nm As String S_nm = String(KL_NAMELENGTH, 0) GetKeyboardLayoutName S_nm Ern = IIf(Right(S_nm, 2) = 1, "Ar", "En") Ch_Bn = Ern End Function Sub Dir_B() Ch_Bn Select Case Ch_Bn Case Is = "Ar" Bn = True Debug.Print Bn Case Is = "En" Bn = False Debug.Print Bn End Select End Sub وهذا الكود في حدث Thisworkbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Set Sh = ActiveSheet If Not Intersect(Target, Sh.Range("B5:B32")) Is Nothing Then Call Dir_B If Bn = True Then SendKeys "%+" Else Call Dir_B If Bn = False Then SendKeys "%+" End If End Sub مانفست كلابشة_Ali.rar

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