كتاب شرح بازيك

[زاكي بوشلاغم]

السلام  عليكم  اريد  كتاب  شرح  لغة   البازيك مثال :

Sub AL_KHALEDI()
    Dim Arr     As Variant
    Dim Rn      As Range
    Dim C       As Range
    Dim Lr      As Long
    Dim T1      As String
    Dim T2      As String
    Dim Str     As String
    Dim S       As Variant
    Dim R       As Integer
    Dim A       As Integer
    
    Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
    Lr = Rn.Rows.Count
    ReDim Arr(Lr - 1)
    
    For Each C In Rn.Cells
        T1 = ""
        T2 = ""
        Str = Application.Trim(C)
        
        For R = 1 To Len(Str)
            T1 = Mid(Str, R, 1)
            S = Application.Search(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1)
            If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهوي", S, 1)
            T2 = T2 & T1
        Next R
        
        Arr(A) = T2
        A = A + 1
    Next C
    
    Range("K2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr)
    Range("B2:K500").Resize(Lr).Sort Range("K2"), xlAscending
    
    Range("K2").Resize(Lr).ClearContents
    Set Rn = Nothing
    Erase Arr
End Sub

بمعنى  شرح  كل  كلمة  من لغة  البازيك  وماذا  تعني  

من احسن  لو  كان  كتاب  مفصل  يشرح  كل  كلمة  من  لغة  البازيك

[زاكي بوشلاغم]

السلام عليكم اتمنى ان تكون قد  فهمتو ماذا اقصد

[زاكي بوشلاغم]

هل من مجيب

[زاكي بوشلاغم]

هل من مجيب

 

[رضا على]

فاهمين وموضوع مطلوب ومهم برافو

[زاكي بوشلاغم]

 

شكرا reda.ali انا انتظر الرد وبارك الله فيك

15 ساعات مضت, reda.ali said:

فاهمين وموضوع مطلوب ومهم برافو ة     شكرا جزيلا انا انتظر الرد

 

 

[رضا على]

تجميع لمساهمات الاعضاء

Sub zezo.rar

ودة رابط كمان

 

http://www.excelexperts.com/VBA-Tips-Finding-things-using-VBA

مساهمه صغيرة  على منى 

تم تعديل فبراير 10, 2016 بواسطه reda.ali

[زاكي بوشلاغم]

شكرا اخي   لكن  انا  اريد  شرح  كامل  كل  كلمة  ماذا  تعني

الشرح يكون بالعربية

[ياسر خليل أبو البراء]

أخي الكريم زاكي

حاول تبحث في المنتدى عن الموضوعات الخاصة بـ VBA كالدورات وغيرها وستجد الكثير من الموضوعات

اطلع عليها وسيتكون لديك فكرة لا بأس بها في البداية بعدها يمكنك فهم معظم الأسطر المكتوبة .. وما تعذر عليك سنقوم بمساعدتك فيه وشرحه بإذن الله

فقط ابدأ ولتكن خطوة البداية منك أولاً وإن شاء المولى ستجد من يساندك

تقبل تحياتي