بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'شرح بازيك'.
تم العثور علي 1 نتيجه
-
السلام عليكم اريد كتاب شرح لغة البازيك مثال : 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 بمعنى شرح كل كلمة من لغة البازيك وماذا تعني من احسن لو كان كتاب مفصل يشرح كل كلمة من لغة البازيك
